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

BIHELP.m

Go to the documentation of this file. 
  1. BIHELP ;IHS/CMI/MWR - DISPLAY HELP TEXT; MAY 10, 2010
  1.  ;;8.5;IMMUNIZATION;;SEP 01,2011
  1.  ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1.  ;;  VIEW OR PRINT HELP TEXT.
  1.  ;
  1.  ;----------
  1. START(BIHEADER,BITEXT) ;EP
  1.  ;---> Display in Listman the passed array of Help Text.
  1.  ;---> Parameters:
  1.  ;     1 - BIHEADER (opt) Header.
  1.  ;     2 - BITEXT   (req) Array of Text to be displayed.
  1.  ;
  1.  I '$O(BITEXT(0)) D
  1.  .N X D ERRCD^BIUTL2(666,.X) S BITEXT(1)=" ",BITEXT(2)="     "_X
  1.  ;
  1.  ;*** DO NOT NEW VALM* GOING INTO A LIST TEMPLATE FROM ANOTHER ONE
  1.  ;*** --WILL CAUSE ERRORS!
  1.  N VALMCNT
  1.  D SETVARS^BIUTL5 K ^TMP("BIHELP",$J)
  1.  D EN
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. EN ;EP
  1.  ;---> Main entry point for List Template BI REPORT QUARTERLY IMM1.
  1.  D EN^VALM("BI GENERIC HELP VIEW")
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. HDR ;EP
  1.  ;---> Header code
  1.  ;D HEAD^BIREPA2(BIBEGDT,BIENDDT,.BICC,.BIHCF,.BICM,.BIBEN,BIHIST,.BIVT)
  1.  ;
  1.  ;---> Header code.
  1.  N BIDASH,BILINE,X,Y S BILINE=0
  1.  D WH^BIW(.BILINE)
  1.  S:$G(BIHEADER)="" BIHEADER="HELP SCREEN"
  1.  S X=BIHEADER
  1.  S BIDASH=$L(X)+2
  1.  D CENTERT^BIUTL5(.X)
  1.  D WH^BIW(.BILINE,X)
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. INIT ;EP
  1.  ;---> Initialize variables and list array.
  1.  S VALM("TITLE")=" (Immunization v"_$$VER^BILOGO_")"
  1.  ;
  1.  ;---> Gather text from ^BINFO( Word Processing global.
  1.  N BILINE,N
  1.  S BILINE=0,N=0
  1.  F  S N=$O(BITEXT(N)) Q:'N  D
  1.  .D WL^BIW(.BILINE,"BIHELP",BITEXT(N))
  1.  S VALMCNT=BILINE
  1.  I VALMCNT>15 D
  1.  .S VALMSG="Scroll down to view more. Type ?? for more actions."
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. RESET ;EP
  1.  ;---> Update partition for return to Listmanager.
  1.  I $D(VALMQUIT) S VALMBCK="Q" Q
  1.  D TERM^VALM0 S VALMBCK="R"
  1.  D INIT,HDR Q
  1.  ;
  1.  ;
  1.  ;----------
  1. HELP ;EP
  1.  ;---> Help code.
  1.  N BIX S BIX=X
  1.  D FULL^VALM1
  1.  W !!?5,"Use arrow keys to scroll up and down through the text, or"
  1.  W !?5,"type ""??"" for more actions, such as Search and Print."
  1.  D DIRZ^BIUTL3("","     Press ENTER/RETURN to continue")
  1.  D:BIX'="??" RE^VALM4
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. EXIT ;EP
  1.  ;---> Cleanup, EOJ.
  1.  K ^TMP("BIHELP",$J)
  1.  D CLEAR^VALM1
  1.  D FULL^VALM1
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. DEVICE(BIPOP) ;EP
  1.  ;---> Get Device and possibly queue to Taskman.
  1.  ;---> Parameters:
  1.  ;     1 - BIPOP (ret) If error or Queue, BIPOP=1
  1.  ;
  1.  K %ZIS,IOP S BIPOP=0
  1.  ;S ZTRTN="DEQUEUE^BIHELP"
  1.  ;D ZSAVES^BIUTL3
  1.  D ZIS^BIUTL2(.BIPOP,1)
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. DEQUEUE ;EP
  1.  ;---> Prepare and print Quarterly Report.
  1.  ;K VALMHDR,^TMP("BIHELP",$J)
  1.  ;D HDR
  1.  ;D INIT?
  1.  ;I $G(BIPOP) D EXIT Q
  1.  ;D PRTLST^BIUTL8("BIREPA1"),EXIT
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. ERROR(BIERR) ;EP
  1.  ;---> Report error, either to screen or print.
  1.  ;---> Parameters:
  1.  ;     1 - BIERR  (ret) Text of Error Code if any, otherwise null.
  1.  ;
  1.  D ERRCD^BIUTL2($G(BIERR),,1) S BIPOP=1
  1.  Q