source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSLOCN.m

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

initial load of FOIAVistA 6/30/08 version

File size: 581 bytes
Line 
1YSLOCN ;SLC/TGA,SLC/DKG-SITE NUMBER AND NAME ;2/21/91 18:14 ;
2 ;;5.01;MENTAL HEALTH;**70**;Dec 30, 1994
3 ;
4 ; Called as ENTRY action from MENU option YSUSER
5 ;
6 W @IOF,#,!!!?16,"** THIS IS VERSION ",$P(^YSA(602,1,0),U,2)," OF MENTAL HEALTH **",!!
7SITE ;
8 D:'$D(DUZ(2)) EMSG1 Q:'$D(DUZ(2)) D:DUZ(2)'>0 EMSG1 Q:DUZ(2)'>0 S YSLC=$P(^DIC(4,DUZ(2),99),U),YSLCN="VAMC "_$P(^DIC(4,DUZ(2),0),U) K X,Y
9 D ENDTM^YSUTL
10 Q
11EMSG1 ;
12 S XQUIT=1 W !!?9,"The DIVISION field in the NEW PERSON file for YOUR user name must be set"
13 W !?5,"to continue, please see your SITE manager.",!,$C(7) H 3 Q
Note: See TracBrowser for help on using the repository browser.