source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOTPPRE.m@ 1195

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

initial load of WorldVistAEHR

File size: 729 bytes
RevLine 
[613]1PSOTPPRE ;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
11START ;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.