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