DVBAB GLOBAL Provides a report BEGDT DVBAB REPORTS RPCBroker1 := EXAMS by date range of ENDT EXAMS BY BY DATE all AMIE/CAPRI DATE' exam requests. PType := literal Value := PType := literal DVBAB U1N4 GLOBAL Retrieve the 1u4n ARR List of Patient IENs in piece DVBAB unsigned RPCBroker1 Mult[IntToStr(i + FETCH field for the list of 1,followed by 1U4N in piece 2 FETCH 1)] := 1U4N patient IENS 1U4N' provided as the only argument. Each IEN will be PType := list; sent back with field .0905 appended after a caret. DVBAB DUP GLOBAL Find potential NAM BYREF - Passed by reference, will DVBAB EnterPt RPCBroker1 nam := FIND ARRAY duplicates within DOB contain name of a TMP Global FIND LastName.text + ',' DUPS the PATIENT File SSN housing the results Subscript 0: DUPS' RPCBroker1 + FirstName.text; (#2) At least one (in the event of NAM, DOB, or of an error) 'DVBAB entersimple nam := SSN must be OR FIND LastName.text + ',' passed Possible Subscript 0: Number of potential DUPS' + FirstName.text; matches are matches found (if no errors) "better" when Subscript 1-K: Patient's matching more than one of ALL 3 of NAM, DOB, SSN have a these is passed weighting of 3 (see Note) Subscript K+1-L: Patient's matching ANY 2 of NAM, DOB, SSN have a weighting of 2 (see Note)
DVBAB EXAMS BY DATE GLOBAL Provides a report by date range of all AMIE/CAPRI exam requests. BEGDT ENDT DVBAB EXAMS BY DATE' REPORTS RPCBroker1 := PType := literal Value := PType := literal DVBAB FETCH 1U4N U1N4 GLOBAL Retrieve the 1u4n field for the list of patient IENS provided as the only argument. Each IEN will be sent back with field .0905 appended after a caret. ARR List of Patient IENs in piece 1,followed by 1U4N in piece 2 DVBAB FETCH 1U4N' unsigned RPCBroker1 Mult[IntToStr(i + 1)] := PType := list; DVBAB FIND DUPS DUP GLOBAL ARRAY Find potential duplicates within the PATIENT File (#2) At least one of NAM, DOB, or SSN must be passed Possible matches are "better" when more than one of these is passed NAM DOB SSN BYREF - Passed by reference, will contain name of a TMP Global housing the results Subscript 0: (in the event of an error) OR Subscript 0: Number of potential matches found (if no errors) Subscript 1-K: Patient's matching ALL 3 of NAM, DOB, SSN have a weighting of 3 (see Note) Subscript K+1-L: Patient's matching ANY 2 of NAM, DOB, SSN have a weighting of 2 (see Note) DVBAB FIND DUPS' 'DVBAB FIND DUPS' EnterPt entersimple RPCBroker1 RPCBroker1 nam := LastName.text + ',' + FirstName.text; nam := LastName.text + ',' + FirstName.text;
DVBA_27_P193_Sys_Adm.docx