|
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:
700 bytes
|
| Line | |
|---|
| 1 | PSO126EN ;BIR/PW-ENVIRONMENTAL CHECK FOR PATCH 126 ;12/09/02
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**126**;DEC 1997
|
|---|
| 3 | CHK525 ;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.
