source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVM20P3.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 454 bytes
RevLine 
[613]1IVM20P3 ;ALB/CPM - IVM V2.0 POST INIT, UPDATE ^XUTL("XQORM" ; 18-JUL-94
2 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
3 ;
4PROT ; Update ^XUTL("XQORM" for two protocols.
5 W !
6 F IVMX="IBAMTV REV PATIENT","IBAMTV REV IND CHARGES" D
7 .S DIC="^ORD(101,",DIC(0)="F",X=IVMX D ^DIC K DIC S IVMY=+Y
8 .I IVMY>0 D
9 ..W !,">>> Rebuilding ^XUTL(""XQORM"" for protocol '",IVMX,"' ..."
10 ..S XQORM=IVMY_";ORD(101," D XREF^XQORM
11 K IVMX,IVMY,ORULT,X,XQORM,Y
12 Q
Note: See TracBrowser for help on using the repository browser.