BIKEY2 ;IHS/CMI/MWR - VIEW BIZ KEYS EXPLANATION.; MAY 10, 2010
;;8.5;IMMUNIZATION;;SEP 01,2011
;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
;; VIEW IMMUNIZATION PACKAGE BIZ KEYS EXPLANATION IN LISTMAN.
;
;----------
START ;EP
;---> View explanation of Keys.
D SETVARS^BIUTL5 K ^TMP("BIKEY2",$J) N BITMP,DIR
D EN
D EXIT
Q
;
;
;----------
EN ;EP
D EN^VALM("BI KEYS EXPLANATION VIEW")
Q
;
;
;----------
HDR ;EP
;---> Header code.
N BIDASH,BILINE,X,Y S BILINE=0
D WH^BIW(.BILINE)
S X="SECURITY KEYS FOR IMMUNIZATION, Version "_$$VER^BILOGO
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(^BINFO(2,1,N)) Q:'N D
.D WL^BIW(.BILINE,"BIKEY2",$G(^BINFO(2,1,N,0)))
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.
W !!?5,"Use arrow keys to scroll up and down. "
W "Enter ?? for more actions."
D DIRZ^BIUTL3()
Q
;
;
;----------
EXIT ;EP
;---> EOJ cleanup.
K ^TMP("BIKEY2",$J)
D CLEAR^VALM1
D FULL^VALM1
Q
BIKEY2 ;IHS/CMI/MWR - VIEW BIZ KEYS EXPLANATION.; MAY 10, 2010
+1 ;;8.5;IMMUNIZATION;;SEP 01,2011
+2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
+3 ;; VIEW IMMUNIZATION PACKAGE BIZ KEYS EXPLANATION IN LISTMAN.
+4 ;
+5 ;----------
START ;EP
+1 ;---> View explanation of Keys.
+2 DO SETVARS^BIUTL5
KILL ^TMP("BIKEY2",$JOB)
NEW BITMP,DIR
+3 DO EN
+4 DO EXIT
+5 QUIT
+6 ;
+7 ;
+8 ;----------
EN ;EP
+1 DO EN^VALM("BI KEYS EXPLANATION VIEW")
+2 QUIT
+3 ;
+4 ;
+5 ;----------
HDR ;EP
+1 ;---> Header code.
+2 NEW BIDASH,BILINE,X,Y
SET BILINE=0
+3 DO WH^BIW(.BILINE)
+4 SET X="SECURITY KEYS FOR IMMUNIZATION, Version "_$$VER^BILOGO
+5 SET BIDASH=$LENGTH(X)+2
+6 DO CENTERT^BIUTL5(.X)
+7 DO WH^BIW(.BILINE,X)
+8 QUIT
+9 ;
+10 ;
+11 ;----------
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(^BINFO(2,1,N))
IF 'N
QUIT
Begin DoDot:1
+8 DO WL^BIW(.BILINE,"BIKEY2",$GET(^BINFO(2,1,N,0)))
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 WRITE !!?5,"Use arrow keys to scroll up and down. "
+3 WRITE "Enter ?? for more actions."
+4 DO DIRZ^BIUTL3()
+5 QUIT
+6 ;
+7 ;
+8 ;----------
EXIT ;EP
+1 ;---> EOJ cleanup.
+2 KILL ^TMP("BIKEY2",$JOB)
+3 DO CLEAR^VALM1
+4 DO FULL^VALM1
+5 QUIT