- 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 Feb 18, 2025@23:26:20 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