- BISITE3 ;IHS/CMI/MWR - EDIT SITE PARAMETERS; MAY 10, 2010
- ;;8.5;IMMUNIZATION;**9**;OCT 01,2014
- ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- ;; EDIT SITE PARAMETERS.
- ; PATCH 2: Fix SET of default Low Supply Alert. LOTREQ+21
- ;; PATCH 8: Change to limit Pneumo prompt to 65 yrs. PNUFLU+10
- ;; PATCH 9: Add ability to edit IP address for TCH Forecaster. IPTCH
- ;
- ;
- ;----------
- FORECAS ;EP
- ;---> Edit the parameter that determines whether the ImmServe
- ;---> Forecasting utility is called ("enabled") or not.
- ;---> Called by Protocol BI SITE FORECAST ENABLE.
- ;
- Q:$$BISITE^BISITE2
- D FULL^VALM1,TITLE^BIUTL5("ENABLE/DISABLE FORECASTING"),TEXT1
- N BIDFLT,DIR,DIRUT,Y
- S DIR(0)="SOA^E:Enable;D:Disable"
- S DIR("A")=" Please select either Enable or Disable: "
- S DIR("B")=$S($$FORECAS^BIUTL2(BISITE):"Enable",1:"Disable")
- D ^DIR
- D:'$D(DIRUT)
- .N BIFLD,BIERR S BIFLD(.11)=Y
- .D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- .I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- D RESET^BISITE
- Q
- ;
- ;
- ;----------
- TEXT1 ;EP
- ;;
- ;;If the ImmServe Forecasting Utility is properly installed and
- ;;Immunizations Due should be forecast when viewing and editing
- ;;patient histories, printing Due Lists, etc., choose "Enable" below.
- ;;If the ImmServe Utility is not installed, choose "Disable" below.
- ;;
- ;;NOTE: If at any point in the software an <XCALL> error occurs,
- ;; this is due to the ImmServe Utility being called without
- ;; it being installed. In this case, either the ImmServe
- ;; Utility should be installed (see Installation Notes in
- ;; the Technical Manual), or this parameter should be Disabled.
- ;;
- D PRINTX("TEXT1")
- Q
- ;
- ;
- ;----------
- DASHES ;EP
- ;---> Edit the parameter that determines whether Chart#s should
- ;---> be displayed with dashes inserted or not.
- ;---> Called by Protocol BI SITE CHART# DASHES.
- ;
- Q:$$BISITE^BISITE2
- D FULL^VALM1,TITLE^BIUTL5("DISPLAY CHART# WITH DASHES"),TEXT2
- N BIDFLT,DIR,DIRUT,Y
- S DIR(0)="SOA^0:No Dashes;1:Dashes Included"
- S DIR("A")=" Please select No Dashes or Dashes Included: "
- S DIR("B")=$S($$DASH^BIUTL1(BISITE):"Dashes Included",1:"No Dashes")
- D ^DIR
- D:'$D(DIRUT)
- .N BIFLD,BIERR S BIFLD(.12)=Y
- .D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- .I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- D RESET^BISITE
- Q
- ;
- ;
- ;----------
- TEXT2 ;EP
- ;;You may select whether Chart#'s (Health Record Numbers) are
- ;;displayed throughout the Immunization package with dashes or not.
- ;;
- ;;Chart# displayed without dashes..: 12345
- ;;Same Chart# displayed with dashes: 01-23-45
- ;;
- ;;
- D PRINTX("TEXT2")
- Q
- ;
- ;
- ;----------
- OFFREC ;EP
- ;---> Select the Letter that will serve as the Official Immunization
- ;---> Record.
- ;---> Called by Protocol BI SITE OFFICIAL PT RECORD.
- ;
- Q:$$BISITE^BISITE2
- D FULL^VALM1,TITLE^BIUTL5("OFFICIAL IMMUNIZATION RECORD"),TEXT3
- D DIE^BIFMAN(9002084.02,".13",BISITE)
- D RESET^BISITE
- Q
- ;
- ;
- ;----------
- TEXT3 ;EP
- ;;The Official Immunization Record is the letter that presents all of
- ;;a patient's Immunization information and is generally used to send
- ;;to schools, parents, other clinics, etc.
- ;;
- ;;The letter selected here will be used as the patient's Official
- ;;Immunization Record whenever users select that action.
- ;;
- ;;In order to select the letter for this Site Parameter, it must
- ;;already have been created. To create the Official Immunization
- ;;Record letter, select LET under the Manager Menu (MGR-->LET).
- ;;Create a new letter named "Official Immunization Record," and then
- ;;return to this site parameter to choose it.
- ;;
- D PRINTX("TEXT3")
- Q
- ;
- ;
- ;----------
- PNUFLU ;EP
- ;---> Edit Pneumo, Flu, and Zoster site parameters. v8.5
- ;
- ;---> Edit the age at which adults should be forecast to receive
- ;---> pneumococcal vaccines.
- ;---> Called by Protocol BI SITE PNEUMO AGE.
- ;
- Q:$$BISITE^BISITE2
- D FULL^VALM1,TITLE^BIUTL5("EDIT AGE APPROPRIATE FOR PNEUMO"),TEXT4
- N BIDFLT,BIPOP,DIR,DIRUT,Y
- ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
- ;---> Only allow age range up to 65.
- ;S DIR(0)="NOA^1:9999:0"
- S DIR(0)="NOA^1:65:0"
- S DIR("A")=" Adult Age for Pneumo: "
- S DIR("B")=$P($$PNMAGE^BIPATUP2(BISITE),U)
- ;S DIR("?")=" Enter a number between 1 and 99 years of age."
- S DIR("?")=" Enter a number between 1 and 65 years of age."
- D ^DIR
- I $D(DIRUT) D RESET^BISITE Q
- ;
- N BIFLD,BIERR S BIFLD(.1)=+Y
- D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3(),RESET^BISITE Q
- ;
- ;---> Flu Forecast for ALL question.
- ;D TITLE^BIUTL5("SELECT FLU FORECASTING AGES"),TEXT11
- ;N BIDFLT,BIHELP,BIHELP1,BIPRMPT,X,Y
- ;S BIPRMPT=" Forecast Flu vaccination for ALL patients"
- ;S BIHELP1=" Enter Yes to forecast Flu for ALL patients."
- ;S BIHELP=" Enter No to limit Flu forecasting (6m-18y, 50y+)."
- ;S BIDFLT=$S($$FLUALL^BIPATUP2(BISITE):"YES",1:"NO")
- ;W !
- ;D DIR^BIFMAN("YO",.Y,,BIPRMPT,BIDFLT,BIHELP,BIHELP1)
- ;I $G(Y)="^" D RESET^BISITE Q
- ;D DIE^BIFMAN(9002084.02,".27///"_Y,BISITE)
- ;
- ;---> Zoster Vaccine Forecast question.
- ;D TITLE^BIUTL5("SELECT FORECASTING FOR ZOSTER VACCINE"),TEXT12
- ;N BIDFLT,BIHELP,BIHELP1,BIPRMPT,X,Y
- ;S BIPRMPT=" Forecast Zoster vaccine for ALL patients over age 60"
- ;S BIHELP1=" Enter Yes to forecast Zoster vaccine for ALL patients over age 60."
- ;S BIHELP=" Enter No to disable Zoster vaccine forecasting."
- ;S BIDFLT=$S($$ZOSTER^BIPATUP2(BISITE):"YES",1:"NO")
- ;W !
- ;D DIR^BIFMAN("YO",.Y,,BIPRMPT,BIDFLT,BIHELP,BIHELP1)
- ;I $G(Y)="^" D RESET^BISITE Q
- ;D DIE^BIFMAN(9002084.02,".29///"_Y,BISITE)
- ;**********
- ;
- D RESET^BISITE
- Q
- ;
- ;---> q6-year parameter no longer used. Feb 2010.
- ;W !!?5,"For people "_+Y_" years of age and older, should Pneumo-PS"
- ;W !?5,"be routinely forecast every 6 years after the age of "_+Y_", "
- ;W !?5,"or should it be a one-time immunization?"
- ;S BIDFLT=$P($G(^BISITE(BISITE,0)),U,22)
- ;S BIDFLT=$S(BIDFLT:"YES",1:"NO")
- ;W !
- ;D DIR^BIFMAN("YO",.Y,.BIPOP," Forecast every 6 years",BIDFLT)
- ;D:'$G(BIPOP)
- ;.N BIFLD,BIERR S BIFLD(.22)=+Y
- ;.D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- ;.I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- ;D RESET^BISITE
- Q
- ;
- ;
- ;----------
- TEXT4 ;EP
- ;;Enter the adult age at which you wish pneumococcal immunizations
- ;;to be routinely forecast (prescribed). Typically this is set to
- ;;65 years of age.
- ;;
- D PRINTX("TEXT4")
- Q
- ;
- ;
- ;----------
- TEXT11 ;EP
- ;;Influenza vaccine is recommend for ALL ages.
- ;;You can, however, choose to limit influenza vaccine forecasting to
- ;;patients ages 6 months to 18 years and to those 50 years and older.
- ;;
- ;;Do you wish to forecast Flu vaccination for ALL patients (over 6 months)?
- ;;
- D PRINTX("TEXT11")
- Q
- ;
- ;
- ;----------
- TEXT12 ;EP
- ;;A single dose of Zoster vaccine vaccination is recommended for ALL
- ;;patients over 60 years of age.
- ;;
- ;;Do you wish to forecast Zoster vaccine for ALL patients over age 60?
- ;;
- D PRINTX("TEXT12")
- Q
- ;
- ;
- ;----------
- DEFPRV ;EP
- ;---> Edit the parameter that determines whether the User
- ;---> should appear as the Default Provider.
- ;---> Called by Protocol BI SITE DEFAULT PROVIDER.
- ;
- Q:$$BISITE^BISITE2
- D FULL^VALM1,TITLE^BIUTL5("USER AS DEFAULT PROVIDER"),TEXT5
- N BIDFLT,DIR,DIRUT,Y
- S DIR(0)="SOA^0:No;1:Yes"
- S DIR("A")=" Should the User appear as the Default Provider: "
- S DIR("B")=$S($$DEFPROV^BIUTL6(BISITE):"Yes",1:"No")
- D ^DIR
- D:'$D(DIRUT)
- .N BIFLD,BIERR S BIFLD(.16)=Y
- .D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- .I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- D RESET^BISITE
- Q
- ;
- ;
- ;----------
- TEXT5 ;EP
- ;;When new Immunizations or new Skin Tests are being added,
- ;;it is possible to have the User appear as the Default Provider.
- ;;In other words, when the screen for a new Visit first comes up,
- ;;the Provider field is already filled in with the User's name.
- ;;(The User is the person logged on and entering the data.)
- ;;
- ;;This will ONLY occur if the User is a Provider (has been given
- ;;the Provider Key). This will NOT occur on edits of pre-existing
- ;;Visits, whether they have a Provider or not.
- ;;
- D PRINTX("TEXT5")
- Q
- ;
- ;
- ;----------
- IMMSVDIR ;EP
- ;---> Edit the parameter indicating the Immserve Directory.
- ;
- K BIDFLT,DIR,DIRUT,X,Y
- ;
- ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
- ;---> The Immserve Directory is no longer relevant.
- D TITLE^BIUTL5("INDICATE IMMSERVE DIRECTORY")
- W !!?20,"This parameter is no longer in use.",!!
- D DIRZ^BIUTL3()
- D RESET^BISITE
- Q
- ;**********
- ;
- D TITLE^BIUTL5("INDICATE IMMSERVE DIRECTORY"),TEXT7
- S DIR(0)="FOA^3:70"
- S DIR("A")=" "
- S DIR("B")=$$IMMSVDIR^BIUTL8(BISITE)
- S X=" Enter the path for ImmServe files. Simply enter the directory"
- S DIR("?",1)=X
- S X=" name with its path. Terminate the path with a slash."
- S DIR("?")=X K X
- D ^DIR
- S:Y="" Y="@"
- S Z=0
- D CHKSLASH^BISITE2(.Y,.Z)
- G:Z IMMSVDIR
- D:'$D(DIRUT)
- .N BIFLD,BIERR S BIFLD(.18)=Y
- .D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- .I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- D RESET^BISITE
- Q
- ;
- ;
- ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR
- ;---> Add ability to edit IP address for TCH Forecaster.
- IPTCH ;EP
- D TITLE^BIUTL5("INDICATE IP ADDRESS FOR TCH FORECASTER"),TEXT13
- N DIR,DIRUT,X
- S DIR(0)="FOA^7:25",DIR("A")=" "
- D
- .N Y S Y=$$IPTCH^BIUTL8(BISITE)
- .I Y]"" S DIR("B")=Y Q
- .S DIR("B")="127.0.0.1"
- S DIR("?")=" Enter the IP address of the machine hosting the TCH Forecaster."
- D ^DIR
- ;W R ZZZ
- I X="^" D RESET^BISITE Q
- S:X="@" Y="127.0.0.1" K DIRUT
- D:'$D(DIRUT)
- .N BIFLD,BIERR S BIFLD(.30)=Y
- .D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- .I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- D RESET^BISITE
- Q
- ;
- ;----------
- TEXT13 ;EP
- ;;Enter the IP Address of the server hosting the TCH Forecaster.
- ;;A typical installation has the forecaster running on the same
- ;;machine as Ensemble, EHR and RPMS. In that case the address
- ;;would be 127.0.0.1 (which is the default).
- ;;
- ;;However, if your network is configured correctly, RPMS can access the
- ;;TCH Forecaster hosted on another machine at a different IP address.
- ;;
- ;;Enter a different IP address for the TCH Forecaster below, if you wish
- ;;to change it:
- ;;
- D PRINTX("TEXT13")
- Q
- ;**********
- ;
- ;----------
- TEXT7 ;EP
- ;;
- ;;Enter or edit, if necessary, the full path of the directory in which
- ;;the ImmServe Files will be stored. (Path length may not be more than
- ;;70 characters long.)
- ;;
- ;;For Immunization v8.1 the settings should be:
- ;;
- ;; AIX: /usr/local/immserve84/
- ;; NT/XP: C:\Program Files\Immserve84\
- ;;
- ;;
- ;;Enter or edit the Immserve Directory Path below:
- ;;
- D PRINTX("TEXT7")
- Q
- ;
- ;
- ;----------
- LOTREQ ;EP
- ;---> Edit the parameter for whether Lot Numbers should be required.
- ;---> Called by Protocol BI SITE LOT# REQ'D.
- ;
- Q:$$BISITE^BISITE2
- D FULL^VALM1,TITLE^BIUTL5("LOT NUMBER REQUIRED"),TEXT9
- N BIDFLT,DIR,DIRUT,Y
- S DIR(0)="SOA^Y:YES;N:NO"
- S DIR("A")=" Please select either Yes or No: "
- S DIR("B")=$S($$LOTREQ^BIUTL2(BISITE):"Yes",1:"No")
- D ^DIR
- D:'$D(DIRUT)
- .N BIFLD,BIERR S BIFLD(.09)=Y
- .D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- .I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- ;
- D FULL^VALM1,TITLE^BIUTL5("LOT NUMBER LOW SUPPLY ALERT"),TEXT10
- N BIDFLT,DIR,DIRUT,Y
- S DIR(0)="NOA^0:9999"
- S DIR("A")=" Please enter a Low Supply Alert number: "
- ;
- ;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR
- ;---> Fix SET of default Low Supply Alert.
- ;S DIR("B")=$$LOTLOW^BIUTL2(BISITE)
- S DIR("B")=$$LOTSDEF^BISITE1(BISITE)
- ;**********
- ;
- D ^DIR
- D:'$D(DIRUT)
- .N BIFLD,BIERR S BIFLD(.25)=Y
- .D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- .I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- D RESET^BISITE
- Q
- ;
- ;
- ;----------
- TEXT9 ;EP
- ;;
- ;;If Lot Numbers should be required when entering Immunization visits,
- ;;enter YES for this parameter. If Lot Numbers should be optional,
- ;;enter NO.
- ;;
- ;;Note: Lot Numbers will NOT be required for Immunizations with a
- ;; Category of "Historical Event", even if this site parameter
- ;; is to YES.
- ;;
- ;;
- D PRINTX("TEXT9")
- Q
- ;
- ;
- ;---------- vvv83
- TEXT10 ;EP
- ;;
- ;;When the number of remaining doses of a given Lot falls below
- ;;its Low Supply Alert (set by the manager when editing Lot Numbers),
- ;;a "Low Supply Alert" will pop up on the screen as a user is
- ;;adding or editing an immunization with that particular Lot Number.
- ;;
- ;;The number entered here, under the Site Parameters, is the Low
- ;;Supply Alert DEFAULT. In the absence of a specific Low Supply Alert
- ;;for a given Lot Number, this Default will be used.
- ;;
- ;;NOTE: No alert will occur if a "Starting Amount" has not been entered
- ;;for the particular Lot Number in the EDIT LOT NUMBER TABLE.
- ;;
- ;;
- D PRINTX("TEXT10")
- Q
- ;
- ;
- ;----------
- PRINTX(BILINL,BITAB) ;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'[";;" W !,T,$P(X,";;",2)
- Q
- BISITE3 ;IHS/CMI/MWR - EDIT SITE PARAMETERS; MAY 10, 2010
- +1 ;;8.5;IMMUNIZATION;**9**;OCT 01,2014
- +2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- +3 ;; EDIT SITE PARAMETERS.
- +4 ; PATCH 2: Fix SET of default Low Supply Alert. LOTREQ+21
- +5 ;; PATCH 8: Change to limit Pneumo prompt to 65 yrs. PNUFLU+10
- +6 ;; PATCH 9: Add ability to edit IP address for TCH Forecaster. IPTCH
- +7 ;
- +8 ;
- +9 ;----------
- FORECAS ;EP
- +1 ;---> Edit the parameter that determines whether the ImmServe
- +2 ;---> Forecasting utility is called ("enabled") or not.
- +3 ;---> Called by Protocol BI SITE FORECAST ENABLE.
- +4 ;
- +5 IF $$BISITE^BISITE2
- QUIT
- +6 DO FULL^VALM1
- DO TITLE^BIUTL5("ENABLE/DISABLE FORECASTING")
- DO TEXT1
- +7 NEW BIDFLT,DIR,DIRUT,Y
- +8 SET DIR(0)="SOA^E:Enable;D:Disable"
- +9 SET DIR("A")=" Please select either Enable or Disable: "
- +10 SET DIR("B")=$SELECT($$FORECAS^BIUTL2(BISITE):"Enable",1:"Disable")
- +11 DO ^DIR
- +12 IF '$DATA(DIRUT)
- Begin DoDot:1
- +13 NEW BIFLD,BIERR
- SET BIFLD(.11)=Y
- +14 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- +15 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- End DoDot:1
- +16 DO RESET^BISITE
- +17 QUIT
- +18 ;
- +19 ;
- +20 ;----------
- TEXT1 ;EP
- +1 ;;
- +2 ;;If the ImmServe Forecasting Utility is properly installed and
- +3 ;;Immunizations Due should be forecast when viewing and editing
- +4 ;;patient histories, printing Due Lists, etc., choose "Enable" below.
- +5 ;;If the ImmServe Utility is not installed, choose "Disable" below.
- +6 ;;
- +7 ;;NOTE: If at any point in the software an <XCALL> error occurs,
- +8 ;; this is due to the ImmServe Utility being called without
- +9 ;; it being installed. In this case, either the ImmServe
- +10 ;; Utility should be installed (see Installation Notes in
- +11 ;; the Technical Manual), or this parameter should be Disabled.
- +12 ;;
- +13 DO PRINTX("TEXT1")
- +14 QUIT
- +15 ;
- +16 ;
- +17 ;----------
- DASHES ;EP
- +1 ;---> Edit the parameter that determines whether Chart#s should
- +2 ;---> be displayed with dashes inserted or not.
- +3 ;---> Called by Protocol BI SITE CHART# DASHES.
- +4 ;
- +5 IF $$BISITE^BISITE2
- QUIT
- +6 DO FULL^VALM1
- DO TITLE^BIUTL5("DISPLAY CHART# WITH DASHES")
- DO TEXT2
- +7 NEW BIDFLT,DIR,DIRUT,Y
- +8 SET DIR(0)="SOA^0:No Dashes;1:Dashes Included"
- +9 SET DIR("A")=" Please select No Dashes or Dashes Included: "
- +10 SET DIR("B")=$SELECT($$DASH^BIUTL1(BISITE):"Dashes Included",1:"No Dashes")
- +11 DO ^DIR
- +12 IF '$DATA(DIRUT)
- Begin DoDot:1
- +13 NEW BIFLD,BIERR
- SET BIFLD(.12)=Y
- +14 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- +15 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- End DoDot:1
- +16 DO RESET^BISITE
- +17 QUIT
- +18 ;
- +19 ;
- +20 ;----------
- TEXT2 ;EP
- +1 ;;You may select whether Chart#'s (Health Record Numbers) are
- +2 ;;displayed throughout the Immunization package with dashes or not.
- +3 ;;
- +4 ;;Chart# displayed without dashes..: 12345
- +5 ;;Same Chart# displayed with dashes: 01-23-45
- +6 ;;
- +7 ;;
- +8 DO PRINTX("TEXT2")
- +9 QUIT
- +10 ;
- +11 ;
- +12 ;----------
- OFFREC ;EP
- +1 ;---> Select the Letter that will serve as the Official Immunization
- +2 ;---> Record.
- +3 ;---> Called by Protocol BI SITE OFFICIAL PT RECORD.
- +4 ;
- +5 IF $$BISITE^BISITE2
- QUIT
- +6 DO FULL^VALM1
- DO TITLE^BIUTL5("OFFICIAL IMMUNIZATION RECORD")
- DO TEXT3
- +7 DO DIE^BIFMAN(9002084.02,".13",BISITE)
- +8 DO RESET^BISITE
- +9 QUIT
- +10 ;
- +11 ;
- +12 ;----------
- TEXT3 ;EP
- +1 ;;The Official Immunization Record is the letter that presents all of
- +2 ;;a patient's Immunization information and is generally used to send
- +3 ;;to schools, parents, other clinics, etc.
- +4 ;;
- +5 ;;The letter selected here will be used as the patient's Official
- +6 ;;Immunization Record whenever users select that action.
- +7 ;;
- +8 ;;In order to select the letter for this Site Parameter, it must
- +9 ;;already have been created. To create the Official Immunization
- +10 ;;Record letter, select LET under the Manager Menu (MGR-->LET).
- +11 ;;Create a new letter named "Official Immunization Record," and then
- +12 ;;return to this site parameter to choose it.
- +13 ;;
- +14 DO PRINTX("TEXT3")
- +15 QUIT
- +16 ;
- +17 ;
- +18 ;----------
- PNUFLU ;EP
- +1 ;---> Edit Pneumo, Flu, and Zoster site parameters. v8.5
- +2 ;
- +3 ;---> Edit the age at which adults should be forecast to receive
- +4 ;---> pneumococcal vaccines.
- +5 ;---> Called by Protocol BI SITE PNEUMO AGE.
- +6 ;
- +7 IF $$BISITE^BISITE2
- QUIT
- +8 DO FULL^VALM1
- DO TITLE^BIUTL5("EDIT AGE APPROPRIATE FOR PNEUMO")
- DO TEXT4
- +9 NEW BIDFLT,BIPOP,DIR,DIRUT,Y
- +10 ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
- +11 ;---> Only allow age range up to 65.
- +12 ;S DIR(0)="NOA^1:9999:0"
- +13 SET DIR(0)="NOA^1:65:0"
- +14 SET DIR("A")=" Adult Age for Pneumo: "
- +15 SET DIR("B")=$PIECE($$PNMAGE^BIPATUP2(BISITE),U)
- +16 ;S DIR("?")=" Enter a number between 1 and 99 years of age."
- +17 SET DIR("?")=" Enter a number between 1 and 65 years of age."
- +18 DO ^DIR
- +19 IF $DATA(DIRUT)
- DO RESET^BISITE
- QUIT
- +20 ;
- +21 NEW BIFLD,BIERR
- SET BIFLD(.1)=+Y
- +22 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- +23 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- DO RESET^BISITE
- QUIT
- +24 ;
- +25 ;---> Flu Forecast for ALL question.
- +26 ;D TITLE^BIUTL5("SELECT FLU FORECASTING AGES"),TEXT11
- +27 ;N BIDFLT,BIHELP,BIHELP1,BIPRMPT,X,Y
- +28 ;S BIPRMPT=" Forecast Flu vaccination for ALL patients"
- +29 ;S BIHELP1=" Enter Yes to forecast Flu for ALL patients."
- +30 ;S BIHELP=" Enter No to limit Flu forecasting (6m-18y, 50y+)."
- +31 ;S BIDFLT=$S($$FLUALL^BIPATUP2(BISITE):"YES",1:"NO")
- +32 ;W !
- +33 ;D DIR^BIFMAN("YO",.Y,,BIPRMPT,BIDFLT,BIHELP,BIHELP1)
- +34 ;I $G(Y)="^" D RESET^BISITE Q
- +35 ;D DIE^BIFMAN(9002084.02,".27///"_Y,BISITE)
- +36 ;
- +37 ;---> Zoster Vaccine Forecast question.
- +38 ;D TITLE^BIUTL5("SELECT FORECASTING FOR ZOSTER VACCINE"),TEXT12
- +39 ;N BIDFLT,BIHELP,BIHELP1,BIPRMPT,X,Y
- +40 ;S BIPRMPT=" Forecast Zoster vaccine for ALL patients over age 60"
- +41 ;S BIHELP1=" Enter Yes to forecast Zoster vaccine for ALL patients over age 60."
- +42 ;S BIHELP=" Enter No to disable Zoster vaccine forecasting."
- +43 ;S BIDFLT=$S($$ZOSTER^BIPATUP2(BISITE):"YES",1:"NO")
- +44 ;W !
- +45 ;D DIR^BIFMAN("YO",.Y,,BIPRMPT,BIDFLT,BIHELP,BIHELP1)
- +46 ;I $G(Y)="^" D RESET^BISITE Q
- +47 ;D DIE^BIFMAN(9002084.02,".29///"_Y,BISITE)
- +48 ;**********
- +49 ;
- +50 DO RESET^BISITE
- +51 QUIT
- +52 ;
- +53 ;---> q6-year parameter no longer used. Feb 2010.
- +54 ;W !!?5,"For people "_+Y_" years of age and older, should Pneumo-PS"
- +55 ;W !?5,"be routinely forecast every 6 years after the age of "_+Y_", "
- +56 ;W !?5,"or should it be a one-time immunization?"
- +57 ;S BIDFLT=$P($G(^BISITE(BISITE,0)),U,22)
- +58 ;S BIDFLT=$S(BIDFLT:"YES",1:"NO")
- +59 ;W !
- +60 ;D DIR^BIFMAN("YO",.Y,.BIPOP," Forecast every 6 years",BIDFLT)
- +61 ;D:'$G(BIPOP)
- +62 ;.N BIFLD,BIERR S BIFLD(.22)=+Y
- +63 ;.D FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- +64 ;.I BIERR]"" W !!?3,BIERR D DIRZ^BIUTL3()
- +65 ;D RESET^BISITE
- +66 QUIT
- +67 ;
- +68 ;
- +69 ;----------
- TEXT4 ;EP
- +1 ;;Enter the adult age at which you wish pneumococcal immunizations
- +2 ;;to be routinely forecast (prescribed). Typically this is set to
- +3 ;;65 years of age.
- +4 ;;
- +5 DO PRINTX("TEXT4")
- +6 QUIT
- +7 ;
- +8 ;
- +9 ;----------
- TEXT11 ;EP
- +1 ;;Influenza vaccine is recommend for ALL ages.
- +2 ;;You can, however, choose to limit influenza vaccine forecasting to
- +3 ;;patients ages 6 months to 18 years and to those 50 years and older.
- +4 ;;
- +5 ;;Do you wish to forecast Flu vaccination for ALL patients (over 6 months)?
- +6 ;;
- +7 DO PRINTX("TEXT11")
- +8 QUIT
- +9 ;
- +10 ;
- +11 ;----------
- TEXT12 ;EP
- +1 ;;A single dose of Zoster vaccine vaccination is recommended for ALL
- +2 ;;patients over 60 years of age.
- +3 ;;
- +4 ;;Do you wish to forecast Zoster vaccine for ALL patients over age 60?
- +5 ;;
- +6 DO PRINTX("TEXT12")
- +7 QUIT
- +8 ;
- +9 ;
- +10 ;----------
- DEFPRV ;EP
- +1 ;---> Edit the parameter that determines whether the User
- +2 ;---> should appear as the Default Provider.
- +3 ;---> Called by Protocol BI SITE DEFAULT PROVIDER.
- +4 ;
- +5 IF $$BISITE^BISITE2
- QUIT
- +6 DO FULL^VALM1
- DO TITLE^BIUTL5("USER AS DEFAULT PROVIDER")
- DO TEXT5
- +7 NEW BIDFLT,DIR,DIRUT,Y
- +8 SET DIR(0)="SOA^0:No;1:Yes"
- +9 SET DIR("A")=" Should the User appear as the Default Provider: "
- +10 SET DIR("B")=$SELECT($$DEFPROV^BIUTL6(BISITE):"Yes",1:"No")
- +11 DO ^DIR
- +12 IF '$DATA(DIRUT)
- Begin DoDot:1
- +13 NEW BIFLD,BIERR
- SET BIFLD(.16)=Y
- +14 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- +15 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- End DoDot:1
- +16 DO RESET^BISITE
- +17 QUIT
- +18 ;
- +19 ;
- +20 ;----------
- TEXT5 ;EP
- +1 ;;When new Immunizations or new Skin Tests are being added,
- +2 ;;it is possible to have the User appear as the Default Provider.
- +3 ;;In other words, when the screen for a new Visit first comes up,
- +4 ;;the Provider field is already filled in with the User's name.
- +5 ;;(The User is the person logged on and entering the data.)
- +6 ;;
- +7 ;;This will ONLY occur if the User is a Provider (has been given
- +8 ;;the Provider Key). This will NOT occur on edits of pre-existing
- +9 ;;Visits, whether they have a Provider or not.
- +10 ;;
- +11 DO PRINTX("TEXT5")
- +12 QUIT
- +13 ;
- +14 ;
- +15 ;----------
- IMMSVDIR ;EP
- +1 ;---> Edit the parameter indicating the Immserve Directory.
- +2 ;
- +3 KILL BIDFLT,DIR,DIRUT,X,Y
- +4 ;
- +5 ;********** PATCH 8, v8.5, MAR 15,2014, IHS/CMI/MWR
- +6 ;---> The Immserve Directory is no longer relevant.
- +7 DO TITLE^BIUTL5("INDICATE IMMSERVE DIRECTORY")
- +8 WRITE !!?20,"This parameter is no longer in use.",!!
- +9 DO DIRZ^BIUTL3()
- +10 DO RESET^BISITE
- +11 QUIT
- +12 ;**********
- +13 ;
- +14 DO TITLE^BIUTL5("INDICATE IMMSERVE DIRECTORY")
- DO TEXT7
- +15 SET DIR(0)="FOA^3:70"
- +16 SET DIR("A")=" "
- +17 SET DIR("B")=$$IMMSVDIR^BIUTL8(BISITE)
- +18 SET X=" Enter the path for ImmServe files. Simply enter the directory"
- +19 SET DIR("?",1)=X
- +20 SET X=" name with its path. Terminate the path with a slash."
- +21 SET DIR("?")=X
- KILL X
- +22 DO ^DIR
- +23 IF Y=""
- SET Y="@"
- +24 SET Z=0
- +25 DO CHKSLASH^BISITE2(.Y,.Z)
- +26 IF Z
- GOTO IMMSVDIR
- +27 IF '$DATA(DIRUT)
- Begin DoDot:1
- +28 NEW BIFLD,BIERR
- SET BIFLD(.18)=Y
- +29 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- +30 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- End DoDot:1
- +31 DO RESET^BISITE
- +32 QUIT
- +33 ;
- +34 ;
- +35 ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR
- +36 ;---> Add ability to edit IP address for TCH Forecaster.
- IPTCH ;EP
- +1 DO TITLE^BIUTL5("INDICATE IP ADDRESS FOR TCH FORECASTER")
- DO TEXT13
- +2 NEW DIR,DIRUT,X
- +3 SET DIR(0)="FOA^7:25"
- SET DIR("A")=" "
- +4 Begin DoDot:1
- +5 NEW Y
- SET Y=$$IPTCH^BIUTL8(BISITE)
- +6 IF Y]""
- SET DIR("B")=Y
- QUIT
- +7 SET DIR("B")="127.0.0.1"
- End DoDot:1
- +8 SET DIR("?")=" Enter the IP address of the machine hosting the TCH Forecaster."
- +9 DO ^DIR
- +10 ;W R ZZZ
- +11 IF X="^"
- DO RESET^BISITE
- QUIT
- +12 IF X="@"
- SET Y="127.0.0.1"
- KILL DIRUT
- +13 IF '$DATA(DIRUT)
- Begin DoDot:1
- +14 NEW BIFLD,BIERR
- SET BIFLD(.30)=Y
- +15 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR)
- +16 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- End DoDot:1
- +17 DO RESET^BISITE
- +18 QUIT
- +19 ;
- +20 ;----------
- TEXT13 ;EP
- +1 ;;Enter the IP Address of the server hosting the TCH Forecaster.
- +2 ;;A typical installation has the forecaster running on the same
- +3 ;;machine as Ensemble, EHR and RPMS. In that case the address
- +4 ;;would be 127.0.0.1 (which is the default).
- +5 ;;
- +6 ;;However, if your network is configured correctly, RPMS can access the
- +7 ;;TCH Forecaster hosted on another machine at a different IP address.
- +8 ;;
- +9 ;;Enter a different IP address for the TCH Forecaster below, if you wish
- +10 ;;to change it:
- +11 ;;
- +12 DO PRINTX("TEXT13")
- +13 QUIT
- +14 ;**********
- +15 ;
- +16 ;----------
- TEXT7 ;EP
- +1 ;;
- +2 ;;Enter or edit, if necessary, the full path of the directory in which
- +3 ;;the ImmServe Files will be stored. (Path length may not be more than
- +4 ;;70 characters long.)
- +5 ;;
- +6 ;;For Immunization v8.1 the settings should be:
- +7 ;;
- +8 ;; AIX: /usr/local/immserve84/
- +9 ;; NT/XP: C:\Program Files\Immserve84\
- +10 ;;
- +11 ;;
- +12 ;;Enter or edit the Immserve Directory Path below:
- +13 ;;
- +14 DO PRINTX("TEXT7")
- +15 QUIT
- +16 ;
- +17 ;
- +18 ;----------
- LOTREQ ;EP
- +1 ;---> Edit the parameter for whether Lot Numbers should be required.
- +2 ;---> Called by Protocol BI SITE LOT# REQ'D.
- +3 ;
- +4 IF $$BISITE^BISITE2
- QUIT
- +5 DO FULL^VALM1
- DO TITLE^BIUTL5("LOT NUMBER REQUIRED")
- DO TEXT9
- +6 NEW BIDFLT,DIR,DIRUT,Y
- +7 SET DIR(0)="SOA^Y:YES;N:NO"
- +8 SET DIR("A")=" Please select either Yes or No: "
- +9 SET DIR("B")=$SELECT($$LOTREQ^BIUTL2(BISITE):"Yes",1:"No")
- +10 DO ^DIR
- +11 IF '$DATA(DIRUT)
- Begin DoDot:1
- +12 NEW BIFLD,BIERR
- SET BIFLD(.09)=Y
- +13 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- +14 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- End DoDot:1
- +15 ;
- +16 DO FULL^VALM1
- DO TITLE^BIUTL5("LOT NUMBER LOW SUPPLY ALERT")
- DO TEXT10
- +17 NEW BIDFLT,DIR,DIRUT,Y
- +18 SET DIR(0)="NOA^0:9999"
- +19 SET DIR("A")=" Please enter a Low Supply Alert number: "
- +20 ;
- +21 ;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR
- +22 ;---> Fix SET of default Low Supply Alert.
- +23 ;S DIR("B")=$$LOTLOW^BIUTL2(BISITE)
- +24 SET DIR("B")=$$LOTSDEF^BISITE1(BISITE)
- +25 ;**********
- +26 ;
- +27 DO ^DIR
- +28 IF '$DATA(DIRUT)
- Begin DoDot:1
- +29 NEW BIFLD,BIERR
- SET BIFLD(.25)=Y
- +30 DO FDIE^BIFMAN(9002084.02,BISITE,.BIFLD,.BIERR,1)
- +31 IF BIERR]""
- WRITE !!?3,BIERR
- DO DIRZ^BIUTL3()
- End DoDot:1
- +32 DO RESET^BISITE
- +33 QUIT
- +34 ;
- +35 ;
- +36 ;----------
- TEXT9 ;EP
- +1 ;;
- +2 ;;If Lot Numbers should be required when entering Immunization visits,
- +3 ;;enter YES for this parameter. If Lot Numbers should be optional,
- +4 ;;enter NO.
- +5 ;;
- +6 ;;Note: Lot Numbers will NOT be required for Immunizations with a
- +7 ;; Category of "Historical Event", even if this site parameter
- +8 ;; is to YES.
- +9 ;;
- +10 ;;
- +11 DO PRINTX("TEXT9")
- +12 QUIT
- +13 ;
- +14 ;
- +15 ;---------- vvv83
- TEXT10 ;EP
- +1 ;;
- +2 ;;When the number of remaining doses of a given Lot falls below
- +3 ;;its Low Supply Alert (set by the manager when editing Lot Numbers),
- +4 ;;a "Low Supply Alert" will pop up on the screen as a user is
- +5 ;;adding or editing an immunization with that particular Lot Number.
- +6 ;;
- +7 ;;The number entered here, under the Site Parameters, is the Low
- +8 ;;Supply Alert DEFAULT. In the absence of a specific Low Supply Alert
- +9 ;;for a given Lot Number, this Default will be used.
- +10 ;;
- +11 ;;NOTE: No alert will occur if a "Starting Amount" has not been entered
- +12 ;;for the particular Lot Number in the EDIT LOT NUMBER TABLE.
- +13 ;;
- +14 ;;
- +15 DO PRINTX("TEXT10")
- +16 QUIT
- +17 ;
- +18 ;
- +19 ;----------
- PRINTX(BILINL,BITAB) ;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
- WRITE !,T,$PIECE(X,";;",2)
- +4 QUIT