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