source:
WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOFIXSU.m@
780
Last change on this file since 780 was 613, checked in by , 15 years ago | |
---|---|
File size: 273 bytes |
Rev | Line | |
---|---|---|
[613] | 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.