Last change
on this file since 1076 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
971 bytes
|
Line | |
---|
1 | YSMHMENU ;SLC/TGA-MENTAL HEALTH MENU HEADINGS ;7/27/89 11:28 ;
|
---|
2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
---|
3 | ;
|
---|
4 | MSG ; Called as ENTRY action from MENU option YSCENMAIN
|
---|
5 | ;
|
---|
6 | W !,@IOF,#,?(IOM-$L(H2)/2),H2,!?(IOM-$L(L2)/2),L2
|
---|
7 | D ;
|
---|
8 | S YSLCN=$$SITE^YSFORM,YSLCN="VAMC "_YSLCN K H2,X,L2,Y,DIC(0) Q
|
---|
9 | ;
|
---|
10 | CLIN ;; Called as ENTRY action from MENU option YSCLINRECORD
|
---|
11 | ; and routine YSPPJ
|
---|
12 | ;
|
---|
13 | D H2 S L2="CLINICAL RECORD" G MSG
|
---|
14 | ;
|
---|
15 | PATIN ; Called as ENTRY action from MENU option YSPTINSTRU
|
---|
16 | ;
|
---|
17 | D H2 S L2="PATIENT ADMINISTERED TESTS AND INTERVIEWS" S YSSCN=1 G MSG
|
---|
18 | ;
|
---|
19 | MANAG ; Called as ENTRY action from MENU option YSMANAGEMENT
|
---|
20 | ;
|
---|
21 | D H2 S L2="GENERAL MANAGEMENT FUNCTIONS" G MSG
|
---|
22 | ;
|
---|
23 | VOC ; Called as ENTRY action from MENU option YSVOCATIONAL
|
---|
24 | ;
|
---|
25 | D H2 S L2="VOCATIONAL REHABILITATION FUNCTIONS" G MSG
|
---|
26 | ;
|
---|
27 | MHS ; Called as ENTRY action from MENU option YSMANAGER
|
---|
28 | ;
|
---|
29 | D H2 S L2="MHS MANAGER FUNCTIONS" G MSG
|
---|
30 | ;
|
---|
31 | H2 ; Called as ENTRY action from MENU option YSCENMAIN
|
---|
32 | ;
|
---|
33 | S H2="*** MENTAL HEALTH ***" Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.