|
Last change
on this file since 699 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
581 bytes
|
| Line | |
|---|
| 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.
