DVBAB MPI SINGLE This call should DFN DVBAB EnterPt RPCBroker1 PatientIEN, ',', 1 MPI VALUE be made after a MPI ASSIGN new patient is ASSIGN ICN added into the ICN' entersimple RPCBroker1 PatientIEN, ',', 1 patient file. It will call the MPI to 'DVBAB assign an ICN. If MPI RPCBroker1 Value := no ICN can be ASSIGN Piece(PatientIEN, obtained after 30 ICN' ',', 1); seconds, a local PType := literal; ICN will be 'DVBAB RPCBroker1 assigned and the MPI Value := local ICN flag set. ASSIGN enterpt140 Piece(PatientIEN, ICN' ',', 1); PType := literal; 'DVBAB MPI ASSIGN ICN' DVBAB START GLOBAL NONE NONE NONE DVBAB AuditOld RPCBroker1 No Params NEW 4 ARRAY NEW PERSON PERSON FILE FILE DVBAB ARRAY Returns list of 'DVBAB PNCSMain RPCBroker1 No Params NOTE note titles from NOTE TITLES TIU in format TITLES' name+" "+type+" "+status DVBAB XDA GLOBAL DFN 'DVBAB REPORTS RPCBroker1 Value := ORIGINAL ARRAY ORIGINAL PatientIEN; PType := literal DATE DATE'
DVBAB MPI ASSIGN ICN MPI SINGLE VALUE This call should be made after a new patient is added into the patient file. It will call the MPI to assign an ICN. If no ICN can be obtained after 30 seconds, a local ICN will be assigned and the local ICN flag set. DFN DVBAB MPI ASSIGN ICN' 'DVBAB MPI ASSIGN ICN' 'DVBAB MPI ASSIGN ICN' 'DVBAB MPI ASSIGN ICN' EnterPt entersimple enterpt140 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 PatientIEN, ',', 1 PatientIEN, ',', 1 Value := Piece(PatientIEN, ',', 1); PType := literal; Value := Piece(PatientIEN, ',', 1); PType := literal; DVBAB NEW PERSON FILE START GLOBAL ARRAY NONE NONE NONE DVBAB NEW PERSON FILE AuditOld RPCBroker1 No Params DVBAB NOTE TITLES ARRAY Returns list of note titles from TIU in format name+" "+type+" "+status 'DVBAB NOTE TITLES' PNCSMain RPCBroker1 No Params DVBAB ORIGINAL DATE XDA GLOBAL ARRAY DFN 'DVBAB ORIGINAL DATE' REPORTS RPCBroker1 Value := PatientIEN; PType := literal 4
DVBA_27_P193_Sys_Adm.docx