source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOFIXSU.m@ 677

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

initial load of FOIAVistA 6/30/08 version

File size: 273 bytes
Line 
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.