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