|
Last change
on this file since 802 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
729 bytes
|
| Line | |
|---|
| 1 | PSOTPPRE ;BIR/RTR-Patch 146 Pre Install routine ;07/27/03
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**146**;DEC 1997
|
|---|
| 3 | ;
|
|---|
| 4 | I $$PATCH^XPDUTL("PSO*7.0*146") Q
|
|---|
| 5 | N X,Y,DA,DIC
|
|---|
| 6 | N PSOTPLLX
|
|---|
| 7 | S PSOTPLLX="" F S PSOTPLLX=$O(^PS(53,"B",PSOTPLLX)) Q:PSOTPLLX=""!($G(XPDABORT)=2) D
|
|---|
| 8 | .I $$UP^XLFSTR(PSOTPLLX)="NON-VA" S XPDABORT=2 D
|
|---|
| 9 | ..D BMES^XPDUTL("Aborting install, NON-VA entry found in RX PATIENT STATUS File (#53).") S XPDABORT=2
|
|---|
| 10 | I $G(XPDABORT)=2 Q
|
|---|
| 11 | START ;Add entry to file
|
|---|
| 12 | K DIC S DIC="^PS(53,",DIC(0)="",X="NON-VA",DIC("DR")="2////"_"NVA"_";3////"_30_";4////"_11_";5////"_1_";15////"_0_";16////"_0 K DD,DO D FILE^DICN K DA,DIC,X,DD,DO
|
|---|
| 13 | I Y<1 D BMES^XPDUTL("Aborting Install, cannot add NON-VA Rx Patient Status entry to File #53.") S XPDABORT=2
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
