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