Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BLRMENU

BLRMENU.m

Go to the documentation of this file. 
  1. 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
  1.  ;
  1.  Q
  1.  ;
  1. HDR ; EP
  1.  D ^XBCLS
  1.  W $$CJ^XLFSTR("IHS Lab Main Support Menu",IOM)
  1.  Q
  1.  ;
  1. CUMHDR ; EP
  1.  D ^XBCLS
  1.  W $$CJ^XLFSTR("IHS Lab Cumulative Report Menu",IOM)
  1.  Q
  1.  ;
  1. CLRHDR ; EP
  1.  D ^XBCLS
  1.  W $$CJ^XLFSTR("IHS Lab Clear BLR Errors Menu",IOM)
  1.  Q
  1.  ;
  1. REFLHDR ; EP
  1.  D ^XBCLS
  1.  W $$CJ^XLFSTR("IHS Lab Reference Lab Menu",IOM)
  1.  Q
  1.  ;
  1. GENHDR(STR) ; EP
  1.  D ^XBCLS
  1.  W $$CJ^XLFSTR(STR,IOM)
  1.  Q
  1.  ;
  1.  ; ----- BEGIN IHS/MSC/MKK - LR*5.2*1034
  1. LRMENHDR ; EP - LRMENU HeaDeR
  1.  D NOTCHDR("Laboratory Menu",10)
  1.  Q
  1.  ;
  1. BLRNCHDR ; EP - BLRMENU Non Centered HeaDeR
  1.  D NOTCHDR("IHS Lab Main Support Menu",10)
  1.  Q
  1.  ;
  1. BLR2HDR ; EP - Secondary version of BLRMENU Header
  1.  D NOTCHDR("IHS Lab Main Support Menu",10)
  1.  Q
  1.  ;
  1. NOTCHDR(STR,TAB) ; EP - NOT Centered HeaDeR
  1.  D ^XBCLS
  1.  S TAB=$G(TAB,5)
  1.  W ?TAB,STR
  1.  Q
  1.  ;
  1. EXITACT(IEN) ; EP - EXIT Action
  1.  D GENHDR($$GET1^DIQ(19,IEN,"MENU TEXT"))
  1.  Q
  1.  ;
  1. EXITACTN(IEN,TAB) ; EP - Exit Action -- Not centered
  1.  D NOTCHDR($$GET1^DIQ(19,IEN,"MENU TEXT"),$G(TAB))
  1.  Q
  1.  ; ----- END IHS/MSC/MKK - LR*5.2*1034