Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
581 bytes
|
Rev | Line | |
---|
[613] | 1 | YSLOCN ;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 **",!!
|
---|
| 7 | SITE ;
|
---|
| 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
|
---|
| 11 | EMSG1 ;
|
---|
| 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.