source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGRPNT.m@ 731

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

initial load of WorldVistAEHR

File size: 270 bytes
RevLine 
[613]1PSGRPNT ;BIR/CML3-REPOINT SITE POINTERS ;16 DEC 97 / 1:37 PM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ;
4ONLY1 ;
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.