Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
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.