34 lines
971 B
Mathematica
34 lines
971 B
Mathematica
YSMHMENU ;SLC/TGA-MENTAL HEALTH MENU HEADINGS ;7/27/89 11:28 ;
|
|
;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|
;
|
|
MSG ; Called as ENTRY action from MENU option YSCENMAIN
|
|
;
|
|
W !,@IOF,#,?(IOM-$L(H2)/2),H2,!?(IOM-$L(L2)/2),L2
|
|
D ;
|
|
S YSLCN=$$SITE^YSFORM,YSLCN="VAMC "_YSLCN K H2,X,L2,Y,DIC(0) Q
|
|
;
|
|
CLIN ;; Called as ENTRY action from MENU option YSCLINRECORD
|
|
; and routine YSPPJ
|
|
;
|
|
D H2 S L2="CLINICAL RECORD" G MSG
|
|
;
|
|
PATIN ; Called as ENTRY action from MENU option YSPTINSTRU
|
|
;
|
|
D H2 S L2="PATIENT ADMINISTERED TESTS AND INTERVIEWS" S YSSCN=1 G MSG
|
|
;
|
|
MANAG ; Called as ENTRY action from MENU option YSMANAGEMENT
|
|
;
|
|
D H2 S L2="GENERAL MANAGEMENT FUNCTIONS" G MSG
|
|
;
|
|
VOC ; Called as ENTRY action from MENU option YSVOCATIONAL
|
|
;
|
|
D H2 S L2="VOCATIONAL REHABILITATION FUNCTIONS" G MSG
|
|
;
|
|
MHS ; Called as ENTRY action from MENU option YSMANAGER
|
|
;
|
|
D H2 S L2="MHS MANAGER FUNCTIONS" G MSG
|
|
;
|
|
H2 ; Called as ENTRY action from MENU option YSCENMAIN
|
|
;
|
|
S H2="*** MENTAL HEALTH ***" Q
|