source:
FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGRPNT.m@
1757
Last change on this file since 1757 was 628, checked in by , 15 years ago | |
---|---|
File size: 270 bytes |
Line | |
---|---|
1 | PSGRPNT ;BIR/CML3-REPOINT SITE POINTERS ;16 DEC 97 / 1:37 PM |
2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97 |
3 | ; |
4 | ONLY1 ; |
5 | S Q=0 F QQ=-1:1 S Q=$O(^PS(59.4,Q)) Q:'Q |
6 | I 'QQ W $C(7),!!,"THIS IS YOUR ONLY SITE!",!,"(You must create another site before you can delete this one.)" Q |
Note:
See TracBrowser
for help on using the repository browser.