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

BIKEY2.m

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