13 lines
454 B
Mathematica
13 lines
454 B
Mathematica
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
|