YSMHMENU.m

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 ---YSMHMENU   496     printed  Apr 09, 2024@21:18:37                                                                                                                                                                                                     Page 2

YSMHMENU  ;SLC/TGA,HIOFO/hrubovcak-MENTAL HEALTH MENU HEADINGS ;10/25/11 9:10am

 +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       ;