source:
FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGRPNT.m@
1800
| Last change on this file since 1800 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.
