IVM20P3.m

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 ---IVM20P3   466     printed  Apr 09, 2024@21:03                                                                                                                                                                                                         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