|
Last change
on this file since 949 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.
