source:
FOIAVistA/tag/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGRPNT.m@
752
Last change on this file since 752 was 628, checked in by , 15 years ago | |
---|---|
File size: 270 bytes |
Rev | Line | |
---|---|---|
[628] | 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.