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