BINFO.m

BINFO ;IHS/CMI/MWR - VIEW PACKAGE INFORMATION.; MAY 10, 2010

 ;;8.5;IMMUNIZATION;;SEP 01,2011

 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 ;;  VIEW PACKAGE INFORMATION IN LISTMAN.  ALSO, CALLED FROM

 ;;  BIPOST, AFTER PACKAGE INSTALLATION.

 ;

 ;

 ;----------

START ;EP

 D SETVARS^BIUTL5 K ^TMP("BINFO",$J) N BITMP,DIR

 D EN

 D EXIT

 Q

 ;

 ;

 ;----------

EN ;EP

 ;---> Main entry point for option BI REPORT VACCINE TRANSLAT.

 D EN^VALM("BI PACKAGE INFORMATION VIEW")

 Q

 ;

 ;

 ;----------

HDR ;EP

 ;---> Header code.

 N BIDASH,BILINE,X,Y S BILINE=0

 D WH^BIW(.BILINE)

 S X="PACKAGE INFORMATION 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(1,1,N)) Q:'N  D

 .D WL^BIW(.BILINE,"BINFO",$G(^BINFO(1,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("BINFO",$J)

 D CLEAR^VALM1

 D FULL^VALM1

 Q

BINFO     ;IHS/CMI/MWR - VIEW PACKAGE INFORMATION.; MAY 10, 2010

 +1       ;;8.5;IMMUNIZATION;;SEP 01,2011

 +2       ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 +3       ;;  VIEW PACKAGE INFORMATION IN LISTMAN.  ALSO, CALLED FROM

 +4       ;;  BIPOST, AFTER PACKAGE INSTALLATION.

 +5       ;

 +6       ;

 +7       ;----------

START     ;EP

 +1        DO SETVARS^BIUTL5

           KILL ^TMP("BINFO",$JOB)

           NEW BITMP,DIR

 +2        DO EN

 +3        DO EXIT

 +4        QUIT 

 +5       ;

 +6       ;

 +7       ;----------

EN        ;EP

 +1       ;---> Main entry point for option BI REPORT VACCINE TRANSLAT.

 +2        DO EN^VALM("BI PACKAGE INFORMATION VIEW")

 +3        QUIT 

 +4       ;

 +5       ;

 +6       ;----------

HDR       ;EP

 +1       ;---> Header code.

 +2        NEW BIDASH,BILINE,X,Y

           SET BILINE=0

 +3        DO WH^BIW(.BILINE)

 +4        SET X="PACKAGE INFORMATION 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(1,1,N))

               IF 'N

                   QUIT 

               Begin DoDot:1

 +8                DO WL^BIW(.BILINE,"BINFO",$GET(^BINFO(1,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("BINFO",$JOB)

 +3        DO CLEAR^VALM1

 +4        DO FULL^VALM1

 +5        QUIT