ISPatientCDMItem.FormCode

Example

Display the number of the added patient CDM Items and the full information they contain.

sub main
  Dim aPatient
  Dim aList
  Dim aItem
  Dim aFormCode
  Dim aDiseaseCode
  Dim aSearchByXRef
  Dim aSearchByChildren
  Dim aLimitOfRecords
  Dim aDateFrom
  Dim aDateTo
  Dim aMessage
  
  set aPatient = Profile.SelectPatient

  set aList = Profile.CreateList

  AddPatientToCollection aList, aPatient, cCHFForm_ConceptCode, cCHFForm_DiseaseCode 
  AddPatientToCollection aList, aPatient, cDiabetesForm_ConceptCode, cDiabetesForm_DiseaseCode 
  AddPatientToCollection aList, aPatient, cHypertensionForm_ConceptCode, cHypertensionForm_DiseaseCode

  if aList.Count > 0 then
    Profile.CreatePatientCDMListForm(aList)
  end if
  
  aMessage = "We have several CDM Items: " & aList.Count

  for each aItem in aList
    aMessage = aMessage & vbNewLine & _
      "CDO Forms Count: " & aItem.CDOFormsCount &_
      " Disease Code: '" & aItem.DiseaseCode & "'  " &_
      "Form Code: '" & aItem.FormCode & "' " &_  
      " Last Claim Date: " & aItem.LastClaimDate &_
      " Last Form Date: " & aItem.LastFormDate &_
      " Patient: " & aItem.Patient.SurnameFirstName    
  next
  Profile.MsgBox(aMessage)  
end sub

Sub AddPatientToCollection(aList, aPatient, aFormCode, aDiseaseCode)
  aSearchByXRef = False
  aSearchByChildren = False
  aLimitOfRecords = 0
  aDateFrom = Now - 365.25
  aDateTo = Now

  set aForms = Profile.FindObsByEHCRAndConcept(aPatient.EHCRID, cIHTermsetCode, aFormCode, _
    aDateFrom, aDateTo, CID_IBCDO_HRCForm, aSearchByXRef, aSearchByChildren, aLimitOfRecords)
  if aForms.Count >= 1 then
    set aItem = Profile.CreateCDMItem(aPatient)
    aItem.FormCode = aFormCode
    aItem.CDOFormsCount = aForms.Count
    aItem.LastFormDate = aForms(0).AsHRC.DisplayDate
    aItem.DiseaseCode = aDiseaseCode
    for j = 1 to aForms.Count - 1
      aDate = aForms(j).AsHRC.DisplayDate
      if aItem.LastFormDate < aDate then
        aItem.LastFormDate = aDate 
      end if
    next
    aItem.LastClaimDate = Now
    aList.Add(aItem)
  end if
  
end sub

CID_IBCDO_HRCForm = 100502
cIHTermsetCode = "IH"

cCHFForm_ConceptCode = "zE.J."  'BC CDM Congestive Heart Failure
cCHFForm_DiseaseCode = "428"
cDiabetesForm_ConceptCode = "zE.IW"  'BC CDM Diabetes
cDiabetesForm_DiseaseCode = "250"
cHypertensionForm_ConceptCode = "zE.IY"  'BC CDM Hypertension
cHypertensionForm_DiseaseCode = "401"