|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
454 bytes
|
| Line | |
|---|
| 1 | IVM20P3 ;ALB/CPM - IVM V2.0 POST INIT, UPDATE ^XUTL("XQORM" ; 18-JUL-94
|
|---|
| 2 | ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
|
|---|
| 3 | ;
|
|---|
| 4 | PROT ; 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.
