BIVACED ;IHS/CMI/MWR - EDIT VACCINES.; MAY 10, 2010
;;8.5;IMMUNIZATION;;SEP 01,2011
;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
;; EDIT VACCINE FIELDS: CURRENT LOT, ACTIVE, VIS DATE DEFAULT.
;
;
;
;----------
START ;EP
;---> Lookup Vaccines and edit their fields.
D SETVARS^BIUTL5 K ^TMP("BILMVA",$J) N BITMP
;
;---> If Vaccine Table is not standard, display Error Text and quit.
I $D(^BISITE(-1)) D ERRCD^BIUTL2(503,,1) Q
;
D EN
D EXIT
Q
;
;
;----------
EN ;EP
D EN^VALM("BI VACCINE TABLE EDIT")
Q
;
;
;----------
PRINT ;EP
;---> Print Vaccine Table.
;---> Called by Protocol BI VACCINE TABLE PRINT, which is the
;---> Print List Protocol for the List: BI VACCINE TABLE EDIT.
;
D DEVICE(.BIPOP)
I $G(BIPOP) D RESET Q
;
D HDR(1),INIT^BIVACED1
D PRTLST^BIUTL8("BILMVA")
D RESET
Q
;
;
;----------
HDR(BIPRT) ;EP
;---> Header code for both Listman Screen and Print List.
;---> Parameters:
; 1 - BIPRT (opt) If BIPRT=1 array is for print: Change column
; header line and add Site Header line.
;
N BILINE,X,Y S BILINE=0 K VALMHDR
N BICRT S BICRT=$S(($E($G(IOST))="C")!(IOST["BROWSER"):1,1:0)
;
D WH^BIW(.BILINE)
S X=$$REPHDR^BIUTL6(DUZ(2)),BIDASH=$L(X)+2 D CENTERT^BIUTL5(.X)
D WH^BIW(.BILINE,X)
S X=$$SP^BIUTL5(BIDASH,"-") D CENTERT^BIUTL5(.X)
D WH^BIW(.BILINE,X)
;
S X="VACCINE TABLE" S:'$G(BIPRT) X="EDIT "_X D CENTERT^BIUTL5(.X)
S:BICRT X=IOINHI_X_IOINORM
D WH^BIW(.BILINE,X)
;
D:$G(BIPRT)
.S X=$$SP^BIUTL5(51)_"Printed: "_$$NOW^BIUTL5()
.D WH^BIW(.BILINE,X,1)
.S X=" # Vaccine HL7 Active Default Lot#"
.S X=X_" VIS Default Forecast"
.D WH^BIW(.BILINE,X)
Q
;
;
;----------
INIT ;EP
;---> Initialize variables and list array.
D INIT^BIVACED1
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
;
;
;----------
DEVICE(BIPOP) ;EP
;---> Get Device and possibly queue to Taskman.
;---> Parameters:
; 1 - BIPOP (ret) If error or Queue, BIPOP=1
;
K %ZIS,IOP S BIPOP=0
S ZTRTN="DEQUEUE^BIVACED"
D ZSAVES^BIUTL3
D ZIS^BIUTL2(.BIPOP,1)
Q
;
;
;----------
DEQUEUE ;EP
;---> Print Patient Data screen.
D HDR(1),INIT^BIVACED1
D PRTLST^BIUTL8("BILMVA"),EXIT
Q
;
;
;----------
HELP ;EP
;---> Help code.
N BIX S BIX=X
D FULL^VALM1
W !!?5,"Enter ""E"" to edit a Vaccine, enter ""C"" to change the order of"
W !?5,"the list, ""H"" to view the full help text for the vaccine list and"
W !?5,"its parameters, ""F"" to turn on/off the forecasting of vaccines"
W !?5,"and enter ""P"" to print the list."
D DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
D:BIX'="??" RE^VALM4
Q
;
;
;----------
HELP1 ;EP
;----> Explanation of this report.
N BITEXT D TEXT1(.BITEXT)
D START^BIHELP("EDIT VACCINE TABLE - HELP",.BITEXT)
Q
;
;
;----------
TEXT1(BITEXT) ;EP
;;
;;This screen allows you to edit five fields of each Vaccine.
;;To Edit a particular Vaccine, type "E", then select the left
;;column number that corresponds to the Vaccine you wish to edit.
;;
;;* Active/Inactive - If a Vaccine is set to "Inactive", users will
;; not be able to enter NEW patient immunizations for this vaccine.
;; However, previous immunizations with this Vaccine will continue
;; to show up on the patient histories.
;;
;;* Default Lot# - This is that Lot# that will be automatically
;; entered in the Lot# field for this Vaccine when users are
;; adding new immunizations for patients. The user will be able
;; to change or delete the default if it is not correct.
;;
;;* VIS Default - This is the Vaccine Information Statement (VIS)
;; Date (Date of publication--not date given to patient).
;; It gets entered automatically as in the VIS Date field
;; when users are adding new immunizations for this Vaccine.
;;
;;* Volume Default - This is the default Volume of the injection for the
;; given vaccine. It gets entered automatically as in the Volume
;; field when users are adding new immunizations for this Vaccine.
;;
;;* Forecasting - The Forecast column indicates whether a vaccine will
;; be forecast (listed as due for patients) or not. Each vaccine
;; belongs to a VACCINE GROUP, for example, the HEP A GROUP.
;; Turning OFF forecasting for the HEP A Vaccine Group will block
;; all forecasting of any vaccines that contain Hep A vaccine.
;; To change forecasting for a Vaccine Group, select the "Forecasting"
;; Action at the bottom of the screen.
;; NOTE: Combination vaccines will not be forecast specifically --
;; their component vaccines will be forecast (if the patient
;; is due). Use of the combination vaccines is an option open
;; to the provider. Inputting combination vaccines into the
;; patient's history will satisfy the requirements of the
;; component vaccines.
;;
D LOADTX("TEXT1",,.BITEXT)
Q
;
;
;----------
LOADTX(BILINL,BITAB,BITEXT) ;EP
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'[";;" S BITEXT(I)=T_$P(X,";;",2)
Q
;
;
;----------
EXIT ;EP
;---> End of job cleanup.
D KILLALL^BIUTL8()
K ^TMP("BILMVA",$J)
D CLEAR^VALM1
D FULL^VALM1
Q
BIVACED ;IHS/CMI/MWR - EDIT VACCINES.; MAY 10, 2010
+1 ;;8.5;IMMUNIZATION;;SEP 01,2011
+2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
+3 ;; EDIT VACCINE FIELDS: CURRENT LOT, ACTIVE, VIS DATE DEFAULT.
+4 ;
+5 ;
+6 ;
+7 ;----------
START ;EP
+1 ;---> Lookup Vaccines and edit their fields.
+2 DO SETVARS^BIUTL5
KILL ^TMP("BILMVA",$JOB)
NEW BITMP
+3 ;
+4 ;---> If Vaccine Table is not standard, display Error Text and quit.
+5 IF $DATA(^BISITE(-1))
DO ERRCD^BIUTL2(503,,1)
QUIT
+6 ;
+7 DO EN
+8 DO EXIT
+9 QUIT
+10 ;
+11 ;
+12 ;----------
EN ;EP
+1 DO EN^VALM("BI VACCINE TABLE EDIT")
+2 QUIT
+3 ;
+4 ;
+5 ;----------
PRINT ;EP
+1 ;---> Print Vaccine Table.
+2 ;---> Called by Protocol BI VACCINE TABLE PRINT, which is the
+3 ;---> Print List Protocol for the List: BI VACCINE TABLE EDIT.
+4 ;
+5 DO DEVICE(.BIPOP)
+6 IF $GET(BIPOP)
DO RESET
QUIT
+7 ;
+8 DO HDR(1)
DO INIT^BIVACED1
+9 DO PRTLST^BIUTL8("BILMVA")
+10 DO RESET
+11 QUIT
+12 ;
+13 ;
+14 ;----------
HDR(BIPRT) ;EP
+1 ;---> Header code for both Listman Screen and Print List.
+2 ;---> Parameters:
+3 ; 1 - BIPRT (opt) If BIPRT=1 array is for print: Change column
+4 ; header line and add Site Header line.
+5 ;
+6 NEW BILINE,X,Y
SET BILINE=0
KILL VALMHDR
+7 NEW BICRT
SET BICRT=$SELECT(($EXTRACT($GET(IOST))="C")!(IOST["BROWSER"):1,1:0)
+8 ;
+9 DO WH^BIW(.BILINE)
+10 SET X=$$REPHDR^BIUTL6(DUZ(2))
SET BIDASH=$LENGTH(X)+2
DO CENTERT^BIUTL5(.X)
+11 DO WH^BIW(.BILINE,X)
+12 SET X=$$SP^BIUTL5(BIDASH,"-")
DO CENTERT^BIUTL5(.X)
+13 DO WH^BIW(.BILINE,X)
+14 ;
+15 SET X="VACCINE TABLE"
IF '$GET(BIPRT)
SET X="EDIT "_X
DO CENTERT^BIUTL5(.X)
+16 IF BICRT
SET X=IOINHI_X_IOINORM
+17 DO WH^BIW(.BILINE,X)
+18 ;
+19 IF $GET(BIPRT)
Begin DoDot:1
+20 SET X=$$SP^BIUTL5(51)_"Printed: "_$$NOW^BIUTL5()
+21 DO WH^BIW(.BILINE,X,1)
+22 SET X=" # Vaccine HL7 Active Default Lot#"
+23 SET X=X_" VIS Default Forecast"
+24 DO WH^BIW(.BILINE,X)
End DoDot:1
+25 QUIT
+26 ;
+27 ;
+28 ;----------
INIT ;EP
+1 ;---> Initialize variables and list array.
+2 DO INIT^BIVACED1
+3 QUIT
+4 ;
+5 ;
+6 ;----------
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 ;----------
DEVICE(BIPOP) ;EP
+1 ;---> Get Device and possibly queue to Taskman.
+2 ;---> Parameters:
+3 ; 1 - BIPOP (ret) If error or Queue, BIPOP=1
+4 ;
+5 KILL %ZIS,IOP
SET BIPOP=0
+6 SET ZTRTN="DEQUEUE^BIVACED"
+7 DO ZSAVES^BIUTL3
+8 DO ZIS^BIUTL2(.BIPOP,1)
+9 QUIT
+10 ;
+11 ;
+12 ;----------
DEQUEUE ;EP
+1 ;---> Print Patient Data screen.
+2 DO HDR(1)
DO INIT^BIVACED1
+3 DO PRTLST^BIUTL8("BILMVA")
DO EXIT
+4 QUIT
+5 ;
+6 ;
+7 ;----------
HELP ;EP
+1 ;---> Help code.
+2 NEW BIX
SET BIX=X
+3 DO FULL^VALM1
+4 WRITE !!?5,"Enter ""E"" to edit a Vaccine, enter ""C"" to change the order of"
+5 WRITE !?5,"the list, ""H"" to view the full help text for the vaccine list and"
+6 WRITE !?5,"its parameters, ""F"" to turn on/off the forecasting of vaccines"
+7 WRITE !?5,"and enter ""P"" to print the list."
+8 DO DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
+9 IF BIX'="??"
DO RE^VALM4
+10 QUIT
+11 ;
+12 ;
+13 ;----------
HELP1 ;EP
+1 ;----> Explanation of this report.
+2 NEW BITEXT
DO TEXT1(.BITEXT)
+3 DO START^BIHELP("EDIT VACCINE TABLE - HELP",.BITEXT)
+4 QUIT
+5 ;
+6 ;
+7 ;----------
TEXT1(BITEXT) ;EP
+1 ;;
+2 ;;This screen allows you to edit five fields of each Vaccine.
+3 ;;To Edit a particular Vaccine, type "E", then select the left
+4 ;;column number that corresponds to the Vaccine you wish to edit.
+5 ;;
+6 ;;* Active/Inactive - If a Vaccine is set to "Inactive", users will
+7 ;; not be able to enter NEW patient immunizations for this vaccine.
+8 ;; However, previous immunizations with this Vaccine will continue
+9 ;; to show up on the patient histories.
+10 ;;
+11 ;;* Default Lot# - This is that Lot# that will be automatically
+12 ;; entered in the Lot# field for this Vaccine when users are
+13 ;; adding new immunizations for patients. The user will be able
+14 ;; to change or delete the default if it is not correct.
+15 ;;
+16 ;;* VIS Default - This is the Vaccine Information Statement (VIS)
+17 ;; Date (Date of publication--not date given to patient).
+18 ;; It gets entered automatically as in the VIS Date field
+19 ;; when users are adding new immunizations for this Vaccine.
+20 ;;
+21 ;;* Volume Default - This is the default Volume of the injection for the
+22 ;; given vaccine. It gets entered automatically as in the Volume
+23 ;; field when users are adding new immunizations for this Vaccine.
+24 ;;
+25 ;;* Forecasting - The Forecast column indicates whether a vaccine will
+26 ;; be forecast (listed as due for patients) or not. Each vaccine
+27 ;; belongs to a VACCINE GROUP, for example, the HEP A GROUP.
+28 ;; Turning OFF forecasting for the HEP A Vaccine Group will block
+29 ;; all forecasting of any vaccines that contain Hep A vaccine.
+30 ;; To change forecasting for a Vaccine Group, select the "Forecasting"
+31 ;; Action at the bottom of the screen.
+32 ;; NOTE: Combination vaccines will not be forecast specifically --
+33 ;; their component vaccines will be forecast (if the patient
+34 ;; is due). Use of the combination vaccines is an option open
+35 ;; to the provider. Inputting combination vaccines into the
+36 ;; patient's history will satisfy the requirements of the
+37 ;; component vaccines.
+38 ;;
+39 DO LOADTX("TEXT1",,.BITEXT)
+40 QUIT
+41 ;
+42 ;
+43 ;----------
LOADTX(BILINL,BITAB,BITEXT) ;EP
+1 IF $GET(BILINL)=""
QUIT
+2 NEW I,T,X
SET T=""
IF '$DATA(BITAB)
SET BITAB=5
FOR I=1:1:BITAB
SET T=T_" "
+3 FOR I=1:1
SET X=$TEXT(@BILINL+I)
IF X'[";;"
QUIT
SET BITEXT(I)=T_$PIECE(X,";;",2)
+4 QUIT
+5 ;
+6 ;
+7 ;----------
EXIT ;EP
+1 ;---> End of job cleanup.
+2 DO KILLALL^BIUTL8()
+3 KILL ^TMP("BILMVA",$JOB)
+4 DO CLEAR^VALM1
+5 DO FULL^VALM1
+6 QUIT
