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

BILOGO.m

Go to the documentation of this file. 
  1. BILOGO ;IHS/CMI/MWR - DISPLAY LOGO WHRN ENTERING PKG; OCT 15, 2010
  1.  ;;8.5;IMMUNIZATION;**16**;MAR 01,2018
  1.  ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1.  ;;  DISPLAYS LOGO.  GETS VERSION FROM LINE 2 OF THIS ROUTINE.
  1.  ;
  1.  D SETVARS^BIUTL5
  1.  ;---> Set Imm Package Version Number.
  1.  S BIVER=$$VER
  1.  ;
  1.  W @IOF
  1.  W !?13,"     .. --- ..         *     *         .. --- .."
  1.  W !?13,"   *          ~ *.      \   /      .* ~          *"
  1.  W !?13," *                *      \ /      *                *"
  1.  W !?13,"(         RPMS      *    (|)    *     Version       )"
  1.  W !?13," *    IMMUNIZATION    *  ***  *         "
  1.  W $$PAD^BIUTL5($$VER,11),"*"
  1.  W !?13,"   *.                   *   *                   .*"
  1.  W !?13,"      *                *     *                *"
  1.  W !?13,"        >              *     *              <"
  1.  W !?13,"       *                *   *                *"
  1.  W !?13,"     *               * *     * *               *"
  1.  W !?13,"    *     @        *   *     *   *        @     *"
  1.  W !?13,"   (             *      *   *      *             )"
  1.  W !?13,"    *.        *          ***          *        .*"
  1.  W !?13,"      / /-- ~             ~             ~ --\ \"
  1.  N X S X="MAIN MENU at "_$P(^DIC(4,DUZ(2),0),U)
  1.  D CENTERT^BIUTL5(.X)
  1.  W !!,X
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. CHECK ;EP
  1.  ;---> Check User's DUZ(2), BI SITE PARAMETER File for this site,
  1.  ;---> and Standard Vaccine Table (IMMUNIZATION File).
  1.  ;---> Called by ENTRY ACTION of Option BIMENU.
  1.  ;
  1.  ;---> Set Imm Package Version Number.
  1.  S BIVER=$$VER
  1.  ;
  1.  ;---> User's DUZ(2) undefined.
  1.  I '$G(DUZ(2)) D  Q
  1.  .D WARN
  1.  .W !?5,"Your DUZ(2) variable is not defined.",!
  1.  .D TEXT1
  1.  .D DIRZ^BIUTL3()
  1.  ;
  1.  ;
  1.  ;---> BI SITE PARAMETER File not set up for this Site (DUZ(2)).
  1.  I '$D(^BISITE(DUZ(2),0)) D  Q
  1.  .D WARN
  1.  .W !?5,"Immunization Site Parameters have NOT been set for the site"
  1.  .W !?5,"you are logged on as: ",$P(^DIC(4,DUZ(2),0),U),!
  1.  .D TEXT1
  1.  .D:$$MAYMANAG^BIUTL11() TEXT2
  1.  .D DIRZ^BIUTL3()
  1.  ;
  1.  ;
  1.  ;---> Check for valid Immserve Forecasting Rules choice.
  1.  ;---> If not a current, valid choice "IHS_1m18" will be used at RULES+6^BIUTL2.
  1.  ;
  1.  ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
  1.  ;---> Immserve Rule Set no longer relevant.
  1.  ;D:'$$VALIDRUL^BIUTL2(DUZ(2))
  1.  ;.D WARN
  1.  ;.W !?5,"The ImmServe Forecasting site parameter is not currently set to"
  1.  ;.W !?5,"a valid choice for the site you are logged on to: "
  1.  ;.W !?5,$P(^DIC(4,DUZ(2),0),U),!
  1.  ;.I $$MAYMANAG^BIUTL11() D TEXT4,DIRZ^BIUTL3() Q
  1.  ;.D TEXT5,DIRZ^BIUTL3()
  1.  ;
  1.  ;
  1.  ;---> Vaccine Table (^AUTTIMM global) not standard.
  1.  D CHKSTAND^BIRESTD(.BIERROR)
  1.  Q:$G(BIERROR)=""
  1.  D WARN W !!?5,BIERROR,!
  1.  D TEXT1
  1.  D:$D(^XUSEC("BIZ MANAGER",$G(DUZ))) TEXT3
  1.  D DIRZ^BIUTL3()
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. WARN ;EP
  1.  W:$D(IOF) @IOF
  1.  W " "_$$LMVER,!!?35,"WARNING",!?34,"---------",!!
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. TEXT1 ;EP
  1.  ;;At this point you should back out of the Immunization Package
  1.  ;;and contact your site manager or the person in charge of the
  1.  ;;Immunization Software.
  1.  ;;
  1.  D PRINTX("TEXT1",5)
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. TEXT2 ;EP
  1.  ;;Or, if you wish to set up Site Parameters for this site,
  1.  ;;you may proceed to the Edit Site Parameters option and enter
  1.  ;;parameters for this site.  (Menu Synonyms: MGR-->ESP)
  1.  ;;
  1.  D PRINTX("TEXT2",5)
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. TEXT3 ;EP
  1.  ;;Or, you may fix this by Restandardizing the Immunization File.
  1.  ;;To do so, proceed to the Manager Menu and select Restandardize.
  1.  ;;(Menu Synonyms: MGR-->RES)
  1.  ;;
  1.  D PRINTX("TEXT3",5)
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. TEXT4 ;EP
  1.  ;;To correct this problem, go to the Manager Menu, select the
  1.  ;;option "ESP  Site Parameters Edit" and choose parameter 9,
  1.  ;;"Immserve Forecasting Option," then select the Immserve option
  1.  ;;that is most appropriate for your site.
  1.  ;;(Menu Path: IMM-->MGR-->ESP-->9)
  1.  ;;
  1.  ;;Until that parameter is set correctly, forecasting will default
  1.  ;;to Immserve Option #1.
  1.  ;;
  1.  D PRINTX("TEXT4",5)
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. TEXT5 ;EP
  1.  ;;To correct this problem, notify your immunization coordinator or
  1.  ;;site manager that this site parameter needs attention.
  1.  ;;
  1.  ;;Until that parameter is set correctly, forecasting will default
  1.  ;;to Immserve Option #1.
  1.  ;;
  1.  D PRINTX("TEXT5",5)
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. VER() ;PEP - Return Version# and Patch Level (if any).
  1.  ;
  1.  N X,Y,Z
  1.  S X=$P($T(BILOGO+1),";;",2)
  1.  S Y=$P(X,";")
  1.  S Z=$P(X,";",3)
  1.  ;---> If no patch level, return version# and quit.
  1.  Q:Z="" Y
  1.  S Z=$TR(Z,"*","")
  1.  Q Y_"*"_$P(Z,",",$L(Z,","))
  1.  ;
  1.  ;
  1.  ;----------
  1. LMVER() ;EP
  1.  ;---> Return "Immunization"_version# for Listman screens,
  1.  ;---> displayed in top left corner.
  1.  ;
  1.  Q " Immunization v"_$$VER
  1.  ;
  1.  ;
  1.  ;----------
  1. PRINTX(BILINL,BITAB) ;EP
  1.  ;---> Print text at specified line label.
  1.  ;
  1.  Q:$G(BILINL)=""
  1.  N I,T,X S T="" S:'$D(BITAB) BITAB=5 F I=1:1:BITAB S T=T_" "
  1.  F I=1:1 S X=$T(@BILINL+I) Q:X'[";;"  W !,T,$P(X,";;",2)
  1.  Q