YSMHMENU ;SLC/TGA,HIOFO/hrubovcak-MENTAL HEALTH MENU HEADINGS ;10/25/11 9:10am
;;5.01;MENTAL HEALTH;**60**;Dec 30, 1994;Build 47
;
Q
;
CLIN ; Called as ENTRY action in option YSCLINRECORD
N H2,L2 S H2="*** MENTAL HEALTH ***",L2="Clinical Record" D WRT
Q
;
MHS ; Called as ENTRY action in option YSMANAGER
N H2,L2 S H2="*** MENTAL HEALTH ***",L2="MHS Manager Functions" D WRT
Q
;
WRT ;
W @IOF,$J(" ",IOM-$L(H2)\2)_H2,!,$J(" ",IOM-$L(L2)\2)_L2
Q
; 13 October 2011
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSMHMENU 496 printed Sep 23, 2025@19:50:49 Page 2
+1 ;;5.01;MENTAL HEALTH;**60**;Dec 30, 1994;Build 47
+2 ;
+3 QUIT
+4 ;
CLIN ; Called as ENTRY action in option YSCLINRECORD
+1 NEW H2,L2
SET H2="*** MENTAL HEALTH ***"
SET L2="Clinical Record"
DO WRT
+2 QUIT
+3 ;
MHS ; Called as ENTRY action in option YSMANAGER
+1 NEW H2,L2
SET H2="*** MENTAL HEALTH ***"
SET L2="MHS Manager Functions"
DO WRT
+2 QUIT
+3 ;
WRT ;
+1 WRITE @IOF,$JUSTIFY(" ",IOM-$LENGTH(H2)\2)_H2,!,$JUSTIFY(" ",IOM-$LENGTH(L2)\2)_L2
+2 QUIT
+3 ; 13 October 2011
+4 ;
