source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOFIXSU.m@ 1704

Last change on this file since 1704 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 273 bytes
RevLine 
[613]1PSOFIXSU ;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.