- 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
