BISITE1 ;IHS/CMI/MWR - EDIT SITE PARAMETERS; MAY 10, 2010
;;8.5;IMMUNIZATION;**14**;AUG 01,2017
;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
;; INIT FOR EDIT SITE PARAMETERS.
; PATCH 2: Fix display of default Low Supply Alert. INIT+72
; Provide call to retrieve Site's Low Alert default. LOTSDEF
;; PATCH 8: Changes to accommodate new TCH Forecaster INIT+55,+66,+92,+132
;; PATCH 9: Return the IP Address used for the TCH Forecaster. INIT+139
;; Update display of selected High Risk parameters. INIT+165
;; PATCH 13: Add Flu Season Date Range parameter. INIT+197
;; PATCH 14: Update display of selected High Risk parameters. INIT+164
;
;
;----------
INIT ;EP
;---> Initialize variables and list array.
;---> If BISITE not supplied, set Error Code and quit.
I '$G(BISITE) D ERRCD^BIUTL2(109,,1) S VALMQUIT="" Q
I '$D(^BISITE(BISITE,0)) D ERRCD^BIUTL2(110,,1) S VALMQUIT="" Q
;
K ^TMP("BISITE",$J)
S VALM("TITLE")=$$LMVER^BILOGO
S VALMSG="Select a left column number to change an item."
N BILINE,X,Y S BILINE=0
;
;---> Default Case Manager.
D WRITE(.BILINE)
S X=" 1) Default Case Manager.........: "_$$CMGRDEF^BIUTL2(BISITE,1)
D WRITE(.BILINE,X)
K X
;
;---> Other Location.
N BIOTH S BIOTH=$$OTHERLOC^BIUTL6(BISITE),X=""
D:BIOTH
.S X=$P(^AUTTLOC(BIOTH,0),U,4)
.I $G(X) S:$D(^AUTTAREA(X,0)) X=$P(^(0),U)
.S X=$$INSTTX^BIUTL6(BIOTH)_" "_X
S X=$E(" 2) Other Location...............: "_X,1,79)
D WRITE(.BILINE,X)
K X
;
;---> Standard Immunizations Due Letter.
S X=" 3) Standard Imm Due Letter .....: "_$$DEFLET^BIUTL2(BISITE,1)
D WRITE(.BILINE,X)
K X
;
;---> Official Immunization Record.
S X=" 4) Official Imm Record Letter...: "_$$DEFLET^BIUTL2(BISITE,1,1)
D WRITE(.BILINE,X)
K X
;
;---> Facility Record/Report Header.
S X=" 5) Facility Report Header.......: "_$$REPHDR^BIUTL6(BISITE)
D WRITE(.BILINE,X)
K X
;
;---> Host File Server Path.
S X=" 6) Host File Server Path........: "_$$HFSPATH^BIUTL8(BISITE)
D WRITE(.BILINE,X)
K X
;
;---> Minimum Days Last Letter.
S X=$$MINDAYS^BIUTL2(BISITE)_" day" S:+X'=1 X=X_"s"
S X=" 7) Minimum Days Last Letter.....: "_X
D WRITE(.BILINE,X)
K X
;
;---> Forecast Minimum Age vs Recommended Age.
S X=$$MINAGE^BIUTL2(BISITE)
;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
;---> Change parameter prompt to just Min vs Rec.
S X=$S(X=1:"Minimum Acceptable Age",1:"Recommended Age")
;**********
S X=" 8) Minimum vs Recommended Age...: "_X
D WRITE(.BILINE,X)
K X
;
;---> ImmServe Forecasting Option.
D
.N G,H,Y,Z S Z=$G(^BISITE(BISITE,0))
.;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
.;---> Change parameter prompt to just Grace Period.
.;S Y=$P(Z,U,8),G=$P(Z,U,21),H=$P(Z,U,24)
.;S X="#"_Y_", "_$S(G:"WITH",1:"NO")_" 4-Day Grace"
.;S X=X_", HPV through "_$S(H=2:26,1:18)
.S Y=$P($G(^BISITE(BISITE,0)),U,21)
.S X="4-Day Grace Period "_$S(Y=1:"",1:"NOT ")_"Used"
S X=" 9) 4-Day Grace Period option....: "_X
;**********
D WRITE(.BILINE,X)
K X
;
;---> Lot Numbers required.
S X=$S($$LOTREQ^BIUTL2(BISITE):"Required",1:"NOT Required")
;
;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR
;---> Fix display of default Low Supply Alert.
;S X=X_", Default Low Supply Alert="_$$LOTLOW^BIUTL2(BISITE)
S X=X_", Default Low Supply Alert="_$$LOTSDEF(BISITE)
;**********
;
S X=" 10) Lot Number Options...........: "_X
D WRITE(.BILINE,X)
K X
;
;---> Pneumo, Flu, Zostervax Site Parameters. v8.5
;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
;---> Change parameter prompt to just Pneumo.
D
.N Y,Z
.S Y=$$PNMAGE^BIPATUP2(BISITE)
.;S Y=$P(X,U),Z=$P(X,U,2)
.;S X=Y_" years old, "_$S(Z:"every 6 years.",1:"one time only.")
.S X="Begin Pneumo at "_Y_" years"
.;S Y=$$FLUALL^BIPATUP2(BISITE)
.;S X=X_$S(Y:"All ages",1:"6m-18y,50y+")
.;S X=X_" Zoster: "
.;S Y=$$ZOSTER^BIPATUP2(BISITE)
.;S X=X_$S(Y:"Yes",1:"No")
;S X=" 11) Pneumo, Flu, Zoster Options..: "_X
S X=" 11) Pneumo routine age to begin..: "_X
;**********
D WRITE(.BILINE,X)
K X
;
;---> Forecasting enabled.
S X=$S($$FORECAS^BIUTL2(BISITE):"Enabled",1:"Disabled")
S X=" 12) Forecasting (Imms Due).......: "_X
D WRITE(.BILINE,X)
K X
;
;---> Include dashes in Chart# display.
D
.I $$DASH^BIUTL1(BISITE) S X="Dashes Included (12-34-56)" Q
.S X="No Dashes (123456)"
S X=" 13) Chart# with dashes...........: "_X
D WRITE(.BILINE,X)
K X
;
;---> User as Default Provider.
S X=$S($$DEFPROV^BIUTL6(BISITE):"Yes",1:"No")
S X=" 14) User as Default Provider.....: "_X
D WRITE(.BILINE,X)
K X
;
;---> ImmServe Directory.
;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
;---> Leave parameter place keeper on menu, but disable.
;S X=$$IMMSVDIR^BIUTL8(BISITE)
;S:($L(X)>39) X=$E(X,1,39)_"..."
;S X=" 15) ImmServe Directory...........: "_X
;**********
;
;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR
;---> IP Address for TCH Forecaster.
S X=$$IPTCH^BIUTL8(BISITE)
S X=" 15) IP Address for TCH Forecaster: "_X
;**********
D WRITE(.BILINE,X)
K X
;
;---> GPRA Communities.
D
.N BIGPRA D GETGPRA^BISITE4(.BIGPRA,BISITE)
.I '$O(BIGPRA(0)) S X="No" Q
.N N S (N,X)=0 F S N=$O(BIGPRA(N)) Q:'N S X=X+1
S X=X_" Communities selected for GPRA."
S X=" 16) GPRA Communities.............: "_X
D WRITE(.BILINE,X)
K X
;
;---> Inpatient Check enabled.
S X=$S($$INPTCHK^BIUTL2(BISITE):"Enabled",1:"Disabled")
S X=" 17) Inpatient Visit Check........: "_X
D WRITE(.BILINE,X)
K X
;
;
;********** PATCH 14, v8.5, AUG 01,2017, IHS/CMI/MWR
;---> Update display of selected High Risk parameters.
;---> Risk Check enabled.
N Z S Z=$$RISKP^BIUTL2(BISITE)
D
.I 'Z S X="High Risk Disabled" Q
.S X=$$RISKTX^BISITE1(Z)
.S X="Enabled: "_X
.;I Z=1 S X="Enabled: Hep B Only" Q
.;I Z=2 S X="Enabled: Pneumo Only" Q
.;I Z=12 S X="Enabled: Hep B and Pneumo" Q
.;I Z=23 S X="Enabled: Pneumo Only (+Smoking)" Q
.;I Z=123 S X="Enabled: Hep B and Pneumo (+Smoking)" Q
;**********
;
S X=" 18) High Risk Factor Check.......: "_X
D WRITE(.BILINE,X)
K X,Z
;
;---> CPT-coded Visits enabled.
S X=$S($$IMPCPT^BIUTL2(BISITE):"Enabled",1:"Disabled")
S X=" 19) Import CPT-coded Visits......: "_X
D WRITE(.BILINE,X)
K X
;
;---> Visit Selection Menu enabled.
D
.I $$VISMNU^BIUTL2(BISITE) S X="Enabled (Display Visit Selection Menu)" Q
.S X="Disabled (Link Visits automatically)"
S X=" 20) Visit Selection Menu.........: "_X
D WRITE(.BILINE,X)
K X
;
;
;********** PATCH 13, v8.5, AUG 01,2016, IHS/CMI/MWR
;---> Flu Season Date Range.
S X=$$FLUDATS^BIUTL8(BISITE)
S X=" 21) Flu Season Start & End Dates.: "_$P(X,"%")_" to "_$P(X,"%",2)
D WRITE(.BILINE,X)
K X
;**********
;
S VALMSG="Scroll down to view more Parameters."
S VALMCNT=BILINE
Q
;
;
;----------
WRITE(BILINE,BIVAL,BIBLNK) ;EP
;---> Write lines to ^TMP (see documentation in ^BIW).
;---> Parameters:
; 1 - BILINE (ret) Last line# written.
; 2 - BIVAL (opt) Value/text of line (Null=blank line).
;
Q:'$D(BILINE)
D WL^BIW(.BILINE,"BISITE",$G(BIVAL),$G(BIBLNK))
Q
;
;
;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR
;----------
LOTSDEF(BIDUZ2) ;EP
;---> Return Site's Default Low Alert for Lot Numbers.
;---> Parameters:
; 1 - BIDUZ2 (req) User's DUZ(2)
;
Q:'$D(^BISITE(+$G(BIDUZ2),0)) 50
Q:($P($G(^BISITE(+$G(BIDUZ2),0)),U,25)="") 50
Q $P($G(^BISITE(+$G(BIDUZ2),0)),U,25)
;**********
;
;********** PATCH 14, v8.5, AUG 01,2017, IHS/CMI/MWR
;---> Update display of selected High Risk parameters.
;----------
RISKTX(Z) ;EP
;---> Return text of Risk Factors.
;---> Parameters:
; 1 - Z (req) Number representing High Risk.
;
N X S X=""
I Z=1 S X="Pneumo"
I Z=2 S X="HepB for DM"
I Z=3 S X="HepA & HepB for CLD/HepC"
I Z=19 S X="Pneumo (+Smoking)"
I Z=12 S X="Pneumo, HepB for DM"
I Z=13 S X="Pneumo, HepA & HepB for CLD/HepC"
I Z=23 S X="HepA & HepB for DM and CLD/HepC"
I Z=139 S X="Pneumo (+Smoking), HepA & HepB"
I Z=129 S X="Pneumo (+Smoking), HepB for DM"
I Z=123 S X="Pneumo, HepB, HepA & HepB"
I Z=1239 S X="Pneumo(+Smkg), HepB, HepA & HepB"
I X="" S X="ERROR: Unable to determine."
Q X
BISITE1 ;IHS/CMI/MWR - EDIT SITE PARAMETERS; MAY 10, 2010
+1 ;;8.5;IMMUNIZATION;**14**;AUG 01,2017
+2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
+3 ;; INIT FOR EDIT SITE PARAMETERS.
+4 ; PATCH 2: Fix display of default Low Supply Alert. INIT+72
+5 ; Provide call to retrieve Site's Low Alert default. LOTSDEF
+6 ;; PATCH 8: Changes to accommodate new TCH Forecaster INIT+55,+66,+92,+132
+7 ;; PATCH 9: Return the IP Address used for the TCH Forecaster. INIT+139
+8 ;; Update display of selected High Risk parameters. INIT+165
+9 ;; PATCH 13: Add Flu Season Date Range parameter. INIT+197
+10 ;; PATCH 14: Update display of selected High Risk parameters. INIT+164
+11 ;
+12 ;
+13 ;----------
INIT ;EP
+1 ;---> Initialize variables and list array.
+2 ;---> If BISITE not supplied, set Error Code and quit.
+3 IF '$GET(BISITE)
DO ERRCD^BIUTL2(109,,1)
SET VALMQUIT=""
QUIT
+4 IF '$DATA(^BISITE(BISITE,0))
DO ERRCD^BIUTL2(110,,1)
SET VALMQUIT=""
QUIT
+5 ;
+6 KILL ^TMP("BISITE",$JOB)
+7 SET VALM("TITLE")=$$LMVER^BILOGO
+8 SET VALMSG="Select a left column number to change an item."
+9 NEW BILINE,X,Y
SET BILINE=0
+10 ;
+11 ;---> Default Case Manager.
+12 DO WRITE(.BILINE)
+13 SET X=" 1) Default Case Manager.........: "_$$CMGRDEF^BIUTL2(BISITE,1)
+14 DO WRITE(.BILINE,X)
+15 KILL X
+16 ;
+17 ;---> Other Location.
+18 NEW BIOTH
SET BIOTH=$$OTHERLOC^BIUTL6(BISITE)
SET X=""
+19 IF BIOTH
Begin DoDot:1
+20 SET X=$PIECE(^AUTTLOC(BIOTH,0),U,4)
+21 IF $GET(X)
IF $DATA(^AUTTAREA(X,0))
SET X=$PIECE(^(0),U)
+22 SET X=$$INSTTX^BIUTL6(BIOTH)_" "_X
End DoDot:1
+23 SET X=$EXTRACT(" 2) Other Location...............: "_X,1,79)
+24 DO WRITE(.BILINE,X)
+25 KILL X
+26 ;
+27 ;---> Standard Immunizations Due Letter.
+28 SET X=" 3) Standard Imm Due Letter .....: "_$$DEFLET^BIUTL2(BISITE,1)
+29 DO WRITE(.BILINE,X)
+30 KILL X
+31 ;
+32 ;---> Official Immunization Record.
+33 SET X=" 4) Official Imm Record Letter...: "_$$DEFLET^BIUTL2(BISITE,1,1)
+34 DO WRITE(.BILINE,X)
+35 KILL X
+36 ;
+37 ;---> Facility Record/Report Header.
+38 SET X=" 5) Facility Report Header.......: "_$$REPHDR^BIUTL6(BISITE)
+39 DO WRITE(.BILINE,X)
+40 KILL X
+41 ;
+42 ;---> Host File Server Path.
+43 SET X=" 6) Host File Server Path........: "_$$HFSPATH^BIUTL8(BISITE)
+44 DO WRITE(.BILINE,X)
+45 KILL X
+46 ;
+47 ;---> Minimum Days Last Letter.
+48 SET X=$$MINDAYS^BIUTL2(BISITE)_" day"
IF +X'=1
SET X=X_"s"
+49 SET X=" 7) Minimum Days Last Letter.....: "_X
+50 DO WRITE(.BILINE,X)
+51 KILL X
+52 ;
+53 ;---> Forecast Minimum Age vs Recommended Age.
+54 SET X=$$MINAGE^BIUTL2(BISITE)
+55 ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
+56 ;---> Change parameter prompt to just Min vs Rec.
+57 SET X=$SELECT(X=1:"Minimum Acceptable Age",1:"Recommended Age")
+58 ;**********
+59 SET X=" 8) Minimum vs Recommended Age...: "_X
+60 DO WRITE(.BILINE,X)
+61 KILL X
+62 ;
+63 ;---> ImmServe Forecasting Option.
+64 Begin DoDot:1
+65 NEW G,H,Y,Z
SET Z=$GET(^BISITE(BISITE,0))
+66 ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
+67 ;---> Change parameter prompt to just Grace Period.
+68 ;S Y=$P(Z,U,8),G=$P(Z,U,21),H=$P(Z,U,24)
+69 ;S X="#"_Y_", "_$S(G:"WITH",1:"NO")_" 4-Day Grace"
+70 ;S X=X_", HPV through "_$S(H=2:26,1:18)
+71 SET Y=$PIECE($GET(^BISITE(BISITE,0)),U,21)
+72 SET X="4-Day Grace Period "_$SELECT(Y=1:"",1:"NOT ")_"Used"
End DoDot:1
+73 SET X=" 9) 4-Day Grace Period option....: "_X
+74 ;**********
+75 DO WRITE(.BILINE,X)
+76 KILL X
+77 ;
+78 ;---> Lot Numbers required.
+79 SET X=$SELECT($$LOTREQ^BIUTL2(BISITE):"Required",1:"NOT Required")
+80 ;
+81 ;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR
+82 ;---> Fix display of default Low Supply Alert.
+83 ;S X=X_", Default Low Supply Alert="_$$LOTLOW^BIUTL2(BISITE)
+84 SET X=X_", Default Low Supply Alert="_$$LOTSDEF(BISITE)
+85 ;**********
+86 ;
+87 SET X=" 10) Lot Number Options...........: "_X
+88 DO WRITE(.BILINE,X)
+89 KILL X
+90 ;
+91 ;---> Pneumo, Flu, Zostervax Site Parameters. v8.5
+92 ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
+93 ;---> Change parameter prompt to just Pneumo.
+94 Begin DoDot:1
+95 NEW Y,Z
+96 SET Y=$$PNMAGE^BIPATUP2(BISITE)
+97 ;S Y=$P(X,U),Z=$P(X,U,2)
+98 ;S X=Y_" years old, "_$S(Z:"every 6 years.",1:"one time only.")
+99 SET X="Begin Pneumo at "_Y_" years"
+100 ;S Y=$$FLUALL^BIPATUP2(BISITE)
+101 ;S X=X_$S(Y:"All ages",1:"6m-18y,50y+")
+102 ;S X=X_" Zoster: "
+103 ;S Y=$$ZOSTER^BIPATUP2(BISITE)
+104 ;S X=X_$S(Y:"Yes",1:"No")
End DoDot:1
+105 ;S X=" 11) Pneumo, Flu, Zoster Options..: "_X
+106 SET X=" 11) Pneumo routine age to begin..: "_X
+107 ;**********
+108 DO WRITE(.BILINE,X)
+109 KILL X
+110 ;
+111 ;---> Forecasting enabled.
+112 SET X=$SELECT($$FORECAS^BIUTL2(BISITE):"Enabled",1:"Disabled")
+113 SET X=" 12) Forecasting (Imms Due).......: "_X
+114 DO WRITE(.BILINE,X)
+115 KILL X
+116 ;
+117 ;---> Include dashes in Chart# display.
+118 Begin DoDot:1
+119 IF $$DASH^BIUTL1(BISITE)
SET X="Dashes Included (12-34-56)"
QUIT
+120 SET X="No Dashes (123456)"
End DoDot:1
+121 SET X=" 13) Chart# with dashes...........: "_X
+122 DO WRITE(.BILINE,X)
+123 KILL X
+124 ;
+125 ;---> User as Default Provider.
+126 SET X=$SELECT($$DEFPROV^BIUTL6(BISITE):"Yes",1:"No")
+127 SET X=" 14) User as Default Provider.....: "_X
+128 DO WRITE(.BILINE,X)
+129 KILL X
+130 ;
+131 ;---> ImmServe Directory.
+132 ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
+133 ;---> Leave parameter place keeper on menu, but disable.
+134 ;S X=$$IMMSVDIR^BIUTL8(BISITE)
+135 ;S:($L(X)>39) X=$E(X,1,39)_"..."
+136 ;S X=" 15) ImmServe Directory...........: "_X
+137 ;**********
+138 ;
+139 ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR
+140 ;---> IP Address for TCH Forecaster.
+141 SET X=$$IPTCH^BIUTL8(BISITE)
+142 SET X=" 15) IP Address for TCH Forecaster: "_X
+143 ;**********
+144 DO WRITE(.BILINE,X)
+145 KILL X
+146 ;
+147 ;---> GPRA Communities.
+148 Begin DoDot:1
+149 NEW BIGPRA
DO GETGPRA^BISITE4(.BIGPRA,BISITE)
+150 IF '$ORDER(BIGPRA(0))
SET X="No"
QUIT
+151 NEW N
SET (N,X)=0
FOR
SET N=$ORDER(BIGPRA(N))
IF 'N
QUIT
SET X=X+1
End DoDot:1
+152 SET X=X_" Communities selected for GPRA."
+153 SET X=" 16) GPRA Communities.............: "_X
+154 DO WRITE(.BILINE,X)
+155 KILL X
+156 ;
+157 ;---> Inpatient Check enabled.
+158 SET X=$SELECT($$INPTCHK^BIUTL2(BISITE):"Enabled",1:"Disabled")
+159 SET X=" 17) Inpatient Visit Check........: "_X
+160 DO WRITE(.BILINE,X)
+161 KILL X
+162 ;
+163 ;
+164 ;********** PATCH 14, v8.5, AUG 01,2017, IHS/CMI/MWR
+165 ;---> Update display of selected High Risk parameters.
+166 ;---> Risk Check enabled.
+167 NEW Z
SET Z=$$RISKP^BIUTL2(BISITE)
+168 Begin DoDot:1
+169 IF 'Z
SET X="High Risk Disabled"
QUIT
+170 SET X=$$RISKTX^BISITE1(Z)
+171 SET X="Enabled: "_X
+172 ;I Z=1 S X="Enabled: Hep B Only" Q
+173 ;I Z=2 S X="Enabled: Pneumo Only" Q
+174 ;I Z=12 S X="Enabled: Hep B and Pneumo" Q
+175 ;I Z=23 S X="Enabled: Pneumo Only (+Smoking)" Q
+176 ;I Z=123 S X="Enabled: Hep B and Pneumo (+Smoking)" Q
End DoDot:1
+177 ;**********
+178 ;
+179 SET X=" 18) High Risk Factor Check.......: "_X
+180 DO WRITE(.BILINE,X)
+181 KILL X,Z
+182 ;
+183 ;---> CPT-coded Visits enabled.
+184 SET X=$SELECT($$IMPCPT^BIUTL2(BISITE):"Enabled",1:"Disabled")
+185 SET X=" 19) Import CPT-coded Visits......: "_X
+186 DO WRITE(.BILINE,X)
+187 KILL X
+188 ;
+189 ;---> Visit Selection Menu enabled.
+190 Begin DoDot:1
+191 IF $$VISMNU^BIUTL2(BISITE)
SET X="Enabled (Display Visit Selection Menu)"
QUIT
+192 SET X="Disabled (Link Visits automatically)"
End DoDot:1
+193 SET X=" 20) Visit Selection Menu.........: "_X
+194 DO WRITE(.BILINE,X)
+195 KILL X
+196 ;
+197 ;
+198 ;********** PATCH 13, v8.5, AUG 01,2016, IHS/CMI/MWR
+199 ;---> Flu Season Date Range.
+200 SET X=$$FLUDATS^BIUTL8(BISITE)
+201 SET X=" 21) Flu Season Start & End Dates.: "_$PIECE(X,"%")_" to "_$PIECE(X,"%",2)
+202 DO WRITE(.BILINE,X)
+203 KILL X
+204 ;**********
+205 ;
+206 SET VALMSG="Scroll down to view more Parameters."
+207 SET VALMCNT=BILINE
+208 QUIT
+209 ;
+210 ;
+211 ;----------
WRITE(BILINE,BIVAL,BIBLNK) ;EP
+1 ;---> Write lines to ^TMP (see documentation in ^BIW).
+2 ;---> Parameters:
+3 ; 1 - BILINE (ret) Last line# written.
+4 ; 2 - BIVAL (opt) Value/text of line (Null=blank line).
+5 ;
+6 IF '$DATA(BILINE)
QUIT
+7 DO WL^BIW(.BILINE,"BISITE",$GET(BIVAL),$GET(BIBLNK))
+8 QUIT
+9 ;
+10 ;
+11 ;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR
+12 ;----------
LOTSDEF(BIDUZ2) ;EP
+1 ;---> Return Site's Default Low Alert for Lot Numbers.
+2 ;---> Parameters:
+3 ; 1 - BIDUZ2 (req) User's DUZ(2)
+4 ;
+5 IF '$DATA(^BISITE(+$GET(BIDUZ2),0))
QUIT 50
+6 IF ($PIECE($GET(^BISITE(+$GET(BIDUZ2),0)),U,25)="")
QUIT 50
+7 QUIT $PIECE($GET(^BISITE(+$GET(BIDUZ2),0)),U,25)
+8 ;**********
+9 ;
+10 ;********** PATCH 14, v8.5, AUG 01,2017, IHS/CMI/MWR
+11 ;---> Update display of selected High Risk parameters.
+12 ;----------
RISKTX(Z) ;EP
+1 ;---> Return text of Risk Factors.
+2 ;---> Parameters:
+3 ; 1 - Z (req) Number representing High Risk.
+4 ;
+5 NEW X
SET X=""
+6 IF Z=1
SET X="Pneumo"
+7 IF Z=2
SET X="HepB for DM"
+8 IF Z=3
SET X="HepA & HepB for CLD/HepC"
+9 IF Z=19
SET X="Pneumo (+Smoking)"
+10 IF Z=12
SET X="Pneumo, HepB for DM"
+11 IF Z=13
SET X="Pneumo, HepA & HepB for CLD/HepC"
+12 IF Z=23
SET X="HepA & HepB for DM and CLD/HepC"
+13 IF Z=139
SET X="Pneumo (+Smoking), HepA & HepB"
+14 IF Z=129
SET X="Pneumo (+Smoking), HepB for DM"
+15 IF Z=123
SET X="Pneumo, HepB, HepA & HepB"
+16 IF Z=1239
SET X="Pneumo(+Smkg), HepB, HepA & HepB"
+17 IF X=""
SET X="ERROR: Unable to determine."
+18 QUIT X
