source:
FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOFIXSU.m@
1607
| Last change on this file since 1607 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 273 bytes | |
| Line | |
|---|---|
| 1 | PSOFIXSU ;BHAM ISC/RTR - DELETE BAD P NODES IN SUSPENSE FILE |
| 2 | ;;6.0;OUTPATIENT PHARMACY;**51**;APRIL 1993 |
| 3 | W !!,"Checking suspense file " |
| 4 | F ZZ=0:0 S ZZ=$O(^PS(52.5,ZZ)) Q:'ZZ I $D(^PS(52.5,ZZ,"P")),'$D(^PS(52.5,ZZ,0)) K ^PS(52.5,ZZ,"P") W "." |
| 5 | W !!,"Finished!",! K ZZ Q |
Note:
See TracBrowser
for help on using the repository browser.
