source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGRPNT.m@ 1487

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

initial load of FOIAVistA 6/30/08 version

File size: 270 bytes
Line 
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.