source:
FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOFIXSU.m@
677
Last change on this file since 677 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.