IVM20P3 ;ALB/CPM - IVM V2.0 POST INIT, UPDATE ^XUTL("XQORM" ; 18-JUL-94
;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
;
PROT ; Update ^XUTL("XQORM" for two protocols.
W !
F IVMX="IBAMTV REV PATIENT","IBAMTV REV IND CHARGES" D
.S DIC="^ORD(101,",DIC(0)="F",X=IVMX D ^DIC K DIC S IVMY=+Y
.I IVMY>0 D
..W !,">>> Rebuilding ^XUTL(""XQORM"" for protocol '",IVMX,"' ..."
..S XQORM=IVMY_";ORD(101," D XREF^XQORM
K IVMX,IVMY,ORULT,X,XQORM,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM20P3 466 printed Sep 02, 2024@18:46:02 Page 2
IVM20P3 ;ALB/CPM - IVM V2.0 POST INIT, UPDATE ^XUTL("XQORM" ; 18-JUL-94
+1 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
+2 ;
PROT ; Update ^XUTL("XQORM" for two protocols.
+1 WRITE !
+2 FOR IVMX="IBAMTV REV PATIENT","IBAMTV REV IND CHARGES"
Begin DoDot:1
+3 SET DIC="^ORD(101,"
SET DIC(0)="F"
SET X=IVMX
DO ^DIC
KILL DIC
SET IVMY=+Y
+4 IF IVMY>0
Begin DoDot:2
+5 WRITE !,">>> Rebuilding ^XUTL(""XQORM"" for protocol '",IVMX,"' ..."
+6 SET XQORM=IVMY_";ORD(101,"
DO XREF^XQORM
End DoDot:2
End DoDot:1
+7 KILL IVMX,IVMY,ORULT,X,XQORM,Y
+8 QUIT