BLRMENU.m

BLRMENU ; IHS/OIT/MKK - BLRMENU & SUBMENU HEADERS ; 17-Oct-2014 09:22 ; MKK

 ;;5.2;IHS LABORATORY;**1025,1034**;NOV 01, 1997;Build 88

 ;

 Q

 ;

HDR ; EP

 D ^XBCLS

 W $$CJ^XLFSTR("IHS Lab Main Support Menu",IOM)

 Q

 ;

CUMHDR ; EP

 D ^XBCLS

 W $$CJ^XLFSTR("IHS Lab Cumulative Report Menu",IOM)

 Q

 ;

CLRHDR ; EP

 D ^XBCLS

 W $$CJ^XLFSTR("IHS Lab Clear BLR Errors Menu",IOM)

 Q

 ;

REFLHDR ; EP

 D ^XBCLS

 W $$CJ^XLFSTR("IHS Lab Reference Lab Menu",IOM)

 Q

 ;

GENHDR(STR) ; EP

 D ^XBCLS

 W $$CJ^XLFSTR(STR,IOM)

 Q

 ;

 ; ----- BEGIN IHS/MSC/MKK - LR*5.2*1034

LRMENHDR ; EP - LRMENU HeaDeR

 D NOTCHDR("Laboratory Menu",10)

 Q

 ;

BLRNCHDR ; EP - BLRMENU Non Centered HeaDeR

 D NOTCHDR("IHS Lab Main Support Menu",10)

 Q

 ;

BLR2HDR ; EP - Secondary version of BLRMENU Header

 D NOTCHDR("IHS Lab Main Support Menu",10)

 Q

 ;

NOTCHDR(STR,TAB) ; EP - NOT Centered HeaDeR

 D ^XBCLS

 S TAB=$G(TAB,5)

 W ?TAB,STR

 Q

 ;

EXITACT(IEN) ; EP - EXIT Action

 D GENHDR($$GET1^DIQ(19,IEN,"MENU TEXT"))

 Q

 ;

EXITACTN(IEN,TAB) ; EP - Exit Action -- Not centered

 D NOTCHDR($$GET1^DIQ(19,IEN,"MENU TEXT"),$G(TAB))

 Q

 ; ----- END IHS/MSC/MKK - LR*5.2*1034

BLRMENU   ; IHS/OIT/MKK - BLRMENU & SUBMENU HEADERS ; 17-Oct-2014 09:22 ; MKK

 +1       ;;5.2;IHS LABORATORY;**1025,1034**;NOV 01, 1997;Build 88

 +2       ;

 +3        QUIT 

 +4       ;

HDR       ; EP

 +1        DO ^XBCLS

 +2        WRITE $$CJ^XLFSTR("IHS Lab Main Support Menu",IOM)

 +3        QUIT 

 +4       ;

CUMHDR    ; EP

 +1        DO ^XBCLS

 +2        WRITE $$CJ^XLFSTR("IHS Lab Cumulative Report Menu",IOM)

 +3        QUIT 

 +4       ;

CLRHDR    ; EP

 +1        DO ^XBCLS

 +2        WRITE $$CJ^XLFSTR("IHS Lab Clear BLR Errors Menu",IOM)

 +3        QUIT 

 +4       ;

REFLHDR   ; EP

 +1        DO ^XBCLS

 +2        WRITE $$CJ^XLFSTR("IHS Lab Reference Lab Menu",IOM)

 +3        QUIT 

 +4       ;

GENHDR(STR) ; EP

 +1        DO ^XBCLS

 +2        WRITE $$CJ^XLFSTR(STR,IOM)

 +3        QUIT 

 +4       ;

 +5       ; ----- BEGIN IHS/MSC/MKK - LR*5.2*1034

LRMENHDR  ; EP - LRMENU HeaDeR

 +1        DO NOTCHDR("Laboratory Menu",10)

 +2        QUIT 

 +3       ;

BLRNCHDR  ; EP - BLRMENU Non Centered HeaDeR

 +1        DO NOTCHDR("IHS Lab Main Support Menu",10)

 +2        QUIT 

 +3       ;

BLR2HDR   ; EP - Secondary version of BLRMENU Header

 +1        DO NOTCHDR("IHS Lab Main Support Menu",10)

 +2        QUIT 

 +3       ;

NOTCHDR(STR,TAB) ; EP - NOT Centered HeaDeR

 +1        DO ^XBCLS

 +2        SET TAB=$GET(TAB,5)

 +3        WRITE ?TAB,STR

 +4        QUIT 

 +5       ;

EXITACT(IEN) ; EP - EXIT Action

 +1        DO GENHDR($$GET1^DIQ(19,IEN,"MENU TEXT"))

 +2        QUIT 

 +3       ;

EXITACTN(IEN,TAB) ; EP - Exit Action -- Not centered

 +1        DO NOTCHDR($$GET1^DIQ(19,IEN,"MENU TEXT"),$GET(TAB))

 +2        QUIT 

 +3       ; ----- END IHS/MSC/MKK - LR*5.2*1034