source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSMHMENU.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 971 bytes
Line 
1YSMHMENU ;SLC/TGA-MENTAL HEALTH MENU HEADINGS ;7/27/89 11:28 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4MSG ; Called as ENTRY action from MENU option YSCENMAIN
5 ;
6 W !,@IOF,#,?(IOM-$L(H2)/2),H2,!?(IOM-$L(L2)/2),L2
7D ;
8 S YSLCN=$$SITE^YSFORM,YSLCN="VAMC "_YSLCN K H2,X,L2,Y,DIC(0) Q
9 ;
10CLIN ;; Called as ENTRY action from MENU option YSCLINRECORD
11 ; and routine YSPPJ
12 ;
13 D H2 S L2="CLINICAL RECORD" G MSG
14 ;
15PATIN ; 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 ;
19MANAG ; Called as ENTRY action from MENU option YSMANAGEMENT
20 ;
21 D H2 S L2="GENERAL MANAGEMENT FUNCTIONS" G MSG
22 ;
23VOC ; Called as ENTRY action from MENU option YSVOCATIONAL
24 ;
25 D H2 S L2="VOCATIONAL REHABILITATION FUNCTIONS" G MSG
26 ;
27MHS ; Called as ENTRY action from MENU option YSMANAGER
28 ;
29 D H2 S L2="MHS MANAGER FUNCTIONS" G MSG
30 ;
31H2 ; 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.