source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSO126EN.m@ 1005

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

initial load of WorldVistAEHR

File size: 700 bytes
Line 
1PSO126EN ;BIR/PW-ENVIRONMENTAL CHECK FOR PATCH 126 ;12/09/02
2 ;;7.0;OUTPATIENT PHARMACY;**126**;DEC 1997
3CHK525 ;check for .01 holes in 52.5
4 K XPDQUIT,PSXQUIT
5 W !,"Checking the RX SUSPENSE file (#52.5) for entries with missing #.01 fields",! H 4
6 S IEN=0 F I=0:1 W:'(I#100) "." S IEN=$O(^PS(52.5,IEN)) Q:IEN'>0 I +$G(^PS(52.5,IEN,0))'>0 S PSXQUIT=1 W !,IEN
7 I $G(PSXQUIT) D
8 . S XPDQUIT=1
9 . W !!,"The RX SUSPENSE file (#52.5) has been found to have entries without a #.01 field."
10 . W !,"Please call NVS to clear this problem."
11 . K DIR S DIR(0)="E",DIR("A")="<CR> - to continue" D ^DIR K DIR
12 I '$G(XPDQUIT) W !,"No problems with the file were found. Continuing with the installation.",! H 4
13 Q
Note: See TracBrowser for help on using the repository browser.