- BIOUTPT1 ;IHS/CMI/MWR - PROMPTS FOR REPORTS.; MAY 10, 2010
- ;;8.5;IMMUNIZATION;;SEP 01,2011
- ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- ;; PROMPTS FOR REPORTS.
- ;
- ;
- ;----------
- ORDER(BIORD) ;EP
- ;---> Select Order by which list will be sorted.
- ;---> Called by Protocol BI OUTPUT ORDER.
- ;---> Parameters:
- ; 1 - BIORD (ret) Order by which list will be sorted.
- ;
- ;---> Select Order of sort.
- S:'$G(BIORD) BIORD=1
- D FULL^VALM1
- D TITLE^BIUTL5("SELECT ORDER")
- N DIR
- W !!?3,"Select the Order by which patients should sorted.",!
- W !?5,"1 Patient Age"
- W !?5,"2 Patient Name (alphabetically)"
- W !?5,"3 Patient Chart#"
- W !?5,"4 Case Manager"
- W !?5,"5 Case Manager, then Community"
- W !?5,"6 Community, then Case Manager"
- W !?5,"7 Community, then Patient Age"
- W !?5,"8 Community, then Patient Name"
- W !?5,"9 Community, then Patient Chart#"
- W !?4,"10 Zipcode, then Patient Name"
- W !?4,"11 Designated Provider",!
- N X S X="SAM^1:Patient Age"
- S X=X_";2:Patient Name (alphabetically)"
- S X=X_";3:Patient Chart#"
- S X=X_";4:Case Manager"
- S X=X_";5:Case Manager, then Community"
- S X=X_";6:Community, then Case Manager"
- S X=X_";7:Community, then Patient Age"
- S X=X_";8:Community, then Patient Name"
- S X=X_";9:Community, then Patient Chart#"
- S X=X_";10:Zipcode, then Patient Name"
- S X=X_";11:Designated Provider"
- ;S DIR("B")=$P($P(X,BIORD_":",2),";")
- S DIR("A")=" Select Order: "
- S DIR("B")=BIORD
- S DIR(0)=X K X S DIR("?")="^D ORDERH^BIOUTPT1"
- D ^DIR
- S:+Y>0 BIORD=+Y
- D RESET^BIDU
- Q
- ;
- ;
- ;----------
- ORDERH ;EP
- ;---> Help for Select Order prompt.
- N BITEXT D TEXT1(.BITEXT)
- D START^BIHELP("SELECT ORDER - HELP",.BITEXT)
- D FULL^VALM1,TITLE^BIUTL5("SELECT ORDER")
- Q
- ;
- ;
- ;----------
- TEXT1(BITEXT) ;EP
- ;;You may select the order by which patients will sorted in this list.
- ;;
- ;;* Patient Age - will list patients in order of increasing age.
- ;;
- ;;* Patient Name - will list patients by "LAST NAME, FIRST NAME"
- ;; alphabetically.
- ;;
- ;;* Patient Chart# - will list patients by increasing Chart# (Health
- ;; Record Number).
- ;;
- ;;* Case Manager - will list patients grouped by Case Manager (and then
- ;; by Patient Name alphabetically under each Case Manager).
- ;;
- ;;* Case Manager, then Community - will list patients grouped first by
- ;; Case Manager and then by Community.
- ;;
- ;;* Community, then Case Manager - will list patients grouped first by
- ;; Community and then by Case Manager.
- ;;
- ;;* Community, then Patient Age - will list patients grouped first by
- ;; Community and then by Patient Age.
- ;;
- ;;* Community, then Patient Name - will list patients grouped first by
- ;; Community and then by Patient Name.
- ;;
- ;;* Community, then Patient Chart# - will list patients grouped first
- ;; by Community and then by Patient Chart#.
- ;;
- ;;* Zipcode, then Patient Name - will begin with lowest zipcodes first.
- ;;
- ;;* Designated Provider - will list patients grouped by Designated Provider
- ;; (and then by Patient Name alphabetically).
- ;;
- ;;Select the number (1-10) to indicate the order in which you wish to
- ;;have patients listed.
- ;;
- D LOADTX("TEXT1",,.BITEXT)
- Q
- ;
- ;
- ;----------
- ADDINFO(BINFO) ;EP
- ;---> Select Additional Information to be included in Due List.
- ;---> Called by Protocol BI OUTPUT ADDITIONAL INFO.
- ;---> Parameters:
- ; 1 - BINFO (ret) Array of Additional Information Items.
- ;
- ;---> NOTE: Sending BINONE=1 param tells BISELECT that NO Items selected
- ;---> means "None" not "ALL." v8.4
- ;
- N BINAM S BINAM="Information Item"
- N BICOL S BICOL=" # Information Item"
- D SEL^BISELECT(9002084.82,"BINFO",BINAM,,13,,,BICOL,,1)
- D RESET^BIDU
- Q
- ;
- ;
- ;----------
- TEXT6 ;EP
- ;;Please select any Items of Additional Patient Information you wish to
- ;;be included in this Patient List by entering the corresponding number(s).
- ;;
- ;; * To include more than one Item, separate the numbers with commas.
- ;; Example: 1,2,6 would be Phone Number, Address, and Directions.
- ;;
- ;; 0 No Additional Information
- ;; 1 Phone Number
- ;; 2 Address
- ;; 3 Immunization History
- ;; 4 Immunization History w/Lot#'s
- ;; 5 Immunization Forecast
- ;; 6 Directions to House
- ;; 7 Parent/Guardian
- ;; 8 Case Manager
- ;; 9 Reason Inactivated
- ;; 10 Skin Tests
- ;; 11 Next Appointment (RPMS Scheduling)
- ;;
- D PRINTX("TEXT6")
- Q
- ;
- ;
- ;----------
- ADDHELP ;EP
- ;----> Explanation of this report.
- N BITEXT D TEXT7(.BITEXT)
- D START^BIHELP("ADDITIONAL INFORMATION - HELP",.BITEXT)
- D FULL^VALM1,TITLE^BIUTL5("ADDITIONAL INFORMATION"),TEXT6
- Q
- ;
- ;
- ;----------
- TEXT7(BITEXT) ;EP
- ;;You may select additional Items of Patient Information to be
- ;;included in the display or printout of this Patient List.
- ;;(This selection does not pertain to the printing of Letters.)
- ;;
- ;;Any combination of Items may be selected by entering the
- ;;corresponding numbers, separated by commas. Items may also
- ;;be selected inclusively by using a "-" dash. For example, 1-5
- ;;will include items 1,2,3,4,and 5.
- ;;
- ;;"Directions to House", Item 6, refers to the physical "Location of
- ;;Patient's Home", as edited on Page 9 of Patient Registration.
- ;;
- ;;"Parent/Guardian", Item 7, refers to the patient's parent or guardian
- ;;AS LISTED under "Additional Patient Information" of the Patient View
- ;;in Immunization.
- ;;(NOTE: This is not necessarily the same as the "Father's Name" or
- ;;"Mother's Maiden Name" as listed in the RPMS Patient Registration
- ;;module.)
- ;;
- ;;"Next Appointment", Item 11, refers to the patient's next appointment,
- ;;*if* the RPMS Scheduling package is in use on this system and
- ;;*if* the patient has a future appointment scheduled.
- ;;
- ;;Also note that "Current Community" will automatically appear in the
- ;;right-most column of the Due List when it displays or print.
- ;;"Current Community" here refers to Page 1 (Field# 8) of Patient
- ;;Registration.
- ;;
- D LOADTX("TEXT7",,.BITEXT)
- Q
- ;
- ;
- ;----------
- INCLDEC(BIDED,BIRTN) ;EP
- ;---> Answer Yes/No to include CPT Coded Visits in report.
- ;---> Called by Protocol BI OUTPUT INCLUDE CPT.
- ;---> Parameters:
- ; 1 - BICPT (ret) 1=YES, 0=NO.
- ; 2 - BIRTN (ret) Calling routine for reset.
- ;
- I $G(BIRTN)="" D ERRCD^BIUTL2(621,,1) Q
- ;
- D FULL^VALM1
- D TITLE^BIUTL5("INCLUDE DECEASED PATIENTS IN LIST/REPORT")
- D TEXT2 W ! N B,Y
- S B=$S($G(BIDED):"Yes",1:"No")
- D DIR^BIFMAN("YAO",.Y,," Include Deceased Patients in this list/report? (Yes/No): ",B)
- S:Y=0 BIDED=0 S:Y=1 BIDED=1
- D @("RESET^"_BIRTN)
- Q
- ;
- ;
- ;----------
- TEXT2 ;EP
- ;;This option allows you to include deceased patients in the
- ;;list or report. In general deceased patients are left off
- ;;of lists and reports; however, it is sometimes necessary for
- ;;purposes such as tracking recipients of a particular vaccine
- ;;or reconciling various statistical reports.
- ;;
- D PRINTX("TEXT2")
- Q
- ;
- ;
- ;----------
- FLH1N1(BIFH,BIRTN) ;EP
- ;---> Answer Yes/No to include CPT Coded Visits in report.
- ;---> Called by Protocol BI OUTPUT INCLUDE CPT.
- ;---> Parameters:
- ; 1 - BICPT (ret) 1=YES, 0=NO.
- ; 2 - BIRTN (req) Calling routine for reset.
- ;
- I $G(BIRTN)="" D ERRCD^BIUTL2(621,,1) Q
- ;
- D FULL^VALM1
- D TITLE^BIUTL5("REPORT TYPE: STANDARD FLU OR H1N1")
- W ! D TEXT3 W !
- N DIR,Y
- S DIR("A")=" Select Standard or H1N1: "
- S DIR("B")=$S($G(BIFH)="H":"H1N1",1:"Standard")
- S DIR(0)="SAM^s:Standard;h:H1N1"
- D ^DIR K DIR
- D
- .I Y="h" S BIFH="H" Q
- .S BIFH="F"
- ;
- D @("RESET^"_BIRTN)
- Q
- ;
- ;
- ;----------
- TEXT3 ;EP
- ;;Do you want to run the Standard Flu Report or the H1N1 Report?
- ;;
- D PRINTX("TEXT3")
- Q
- ;
- ;
- ;----------
- USERPOP(BIUP,BIRTN) ;EP - Select User Population Parameter.
- ;---> Called by Protocol BI OUTPUT USER POPULATION.
- ;---> Parameters:
- ; 1 - BIUP (ret) R=Registered Patients; U=User Population (1+ visits)
- ; A=Active Users.
- ; 2 - BIRTN (req) Calling routine for reset.
- ;
- I $G(BIRTN)="" D ERRCD^BIUTL2(621,,1) Q
- USERPP1 ;
- D FULL^VALM1
- D TITLE^BIUTL5("PATIENT POPULATION GROUP")
- W !?5,"Select the User Population Group you which to include in this report."
- N DIR,Y,BIGPRA,BIPOP
- S (BIGPRA,BIPOP)=0
- ;
- ;---> If GPRA is set up, set BIGPRA=1.
- I $$GPRAIEN^BIUTL6 S BIGPRA=1
- ;
- S DIR(0)="SM^r:"_$$BIUPTX^BIUTL6("r")_";i:"_$$BIUPTX^BIUTL6("i")
- S DIR(0)=DIR(0)_";u:"_$$BIUPTX^BIUTL6("u")_";a:"_$$BIUPTX^BIUTL6("a")
- ;
- S DIR("A")=" Select User Population Group"
- D
- .I $G(BIUP)]"" S DIR("B")=$P($P(DIR(0),BIUP_":",2),";") Q
- .I BIGPRA=1 S DIR("B")="Active Clinical Users (2+ visits)" Q
- .S DIR("B")="User Population (1+ visits)"
- ;
- D HELP1
- D ^DIR K DIR
- ;
- D:((Y="a")&('BIGPRA))
- .W !!?5,"You cannont select for Active Users because the GPRA Software is"
- .W !?5,"not loaded or set up correctly."
- .W !?5,"Contact your site manager or RPMS support for further information."
- .D DIRZ^BIUTL3(.BIPOP)
- ;
- I BIPOP D @("RESET^"_BIRTN) Q
- G:((Y="a")&('BIGPRA)) USERPP1
- ;
- S BIUP=Y
- D @("RESET^"_BIRTN)
- Q
- ;
- ;
- ;----------
- HELP1 ; EP
- ;;
- ;;Select the User Population Group you which to include in this report.
- ;;
- ;;If you select "R" for Registered Patients, all patients who have an
- ;;active Health Record in the system and meet the other criteria you
- ;;select will be included in the report.
- ;;
- ;;If you select "I" for Immunization Registry patients, all the patients
- ;;who have an Active Status in the Immunization Registry and meet the
- ;;other criteria you select will be included in the report.
- ;;
- ;;If you select "U" for User Population, only patients who have had at
- ;;least ONE visit in the last 3 years will be included in the report.
- ;;
- ;;If you select "A" for Active Clinical Users, only patients who have had
- ;;at least TWO qualifying visits in the last 3 years will be included in
- ;;the report. (NOTE: The RPMS GPRA software must be installed for this
- ;;selection.)
- D HELPTX("HELP1",5)
- 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
- ;
- ;
- ;----------
- 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
- ;
- ;
- ;----------
- HELPTX(BILINL,BITAB) ;
- ;---> Set DIR("?") help array from the specified line label.
- ;
- 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 DIR("?",I)=T_$P(X,";;",2)
- S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
- Q
- BIOUTPT1 ;IHS/CMI/MWR - PROMPTS FOR REPORTS.; MAY 10, 2010
- +1 ;;8.5;IMMUNIZATION;;SEP 01,2011
- +2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- +3 ;; PROMPTS FOR REPORTS.
- +4 ;
- +5 ;
- +6 ;----------
- ORDER(BIORD) ;EP
- +1 ;---> Select Order by which list will be sorted.
- +2 ;---> Called by Protocol BI OUTPUT ORDER.
- +3 ;---> Parameters:
- +4 ; 1 - BIORD (ret) Order by which list will be sorted.
- +5 ;
- +6 ;---> Select Order of sort.
- +7 IF '$GET(BIORD)
- SET BIORD=1
- +8 DO FULL^VALM1
- +9 DO TITLE^BIUTL5("SELECT ORDER")
- +10 NEW DIR
- +11 WRITE !!?3,"Select the Order by which patients should sorted.",!
- +12 WRITE !?5,"1 Patient Age"
- +13 WRITE !?5,"2 Patient Name (alphabetically)"
- +14 WRITE !?5,"3 Patient Chart#"
- +15 WRITE !?5,"4 Case Manager"
- +16 WRITE !?5,"5 Case Manager, then Community"
- +17 WRITE !?5,"6 Community, then Case Manager"
- +18 WRITE !?5,"7 Community, then Patient Age"
- +19 WRITE !?5,"8 Community, then Patient Name"
- +20 WRITE !?5,"9 Community, then Patient Chart#"
- +21 WRITE !?4,"10 Zipcode, then Patient Name"
- +22 WRITE !?4,"11 Designated Provider",!
- +23 NEW X
- SET X="SAM^1:Patient Age"
- +24 SET X=X_";2:Patient Name (alphabetically)"
- +25 SET X=X_";3:Patient Chart#"
- +26 SET X=X_";4:Case Manager"
- +27 SET X=X_";5:Case Manager, then Community"
- +28 SET X=X_";6:Community, then Case Manager"
- +29 SET X=X_";7:Community, then Patient Age"
- +30 SET X=X_";8:Community, then Patient Name"
- +31 SET X=X_";9:Community, then Patient Chart#"
- +32 SET X=X_";10:Zipcode, then Patient Name"
- +33 SET X=X_";11:Designated Provider"
- +34 ;S DIR("B")=$P($P(X,BIORD_":",2),";")
- +35 SET DIR("A")=" Select Order: "
- +36 SET DIR("B")=BIORD
- +37 SET DIR(0)=X
- KILL X
- SET DIR("?")="^D ORDERH^BIOUTPT1"
- +38 DO ^DIR
- +39 IF +Y>0
- SET BIORD=+Y
- +40 DO RESET^BIDU
- +41 QUIT
- +42 ;
- +43 ;
- +44 ;----------
- ORDERH ;EP
- +1 ;---> Help for Select Order prompt.
- +2 NEW BITEXT
- DO TEXT1(.BITEXT)
- +3 DO START^BIHELP("SELECT ORDER - HELP",.BITEXT)
- +4 DO FULL^VALM1
- DO TITLE^BIUTL5("SELECT ORDER")
- +5 QUIT
- +6 ;
- +7 ;
- +8 ;----------
- TEXT1(BITEXT) ;EP
- +1 ;;You may select the order by which patients will sorted in this list.
- +2 ;;
- +3 ;;* Patient Age - will list patients in order of increasing age.
- +4 ;;
- +5 ;;* Patient Name - will list patients by "LAST NAME, FIRST NAME"
- +6 ;; alphabetically.
- +7 ;;
- +8 ;;* Patient Chart# - will list patients by increasing Chart# (Health
- +9 ;; Record Number).
- +10 ;;
- +11 ;;* Case Manager - will list patients grouped by Case Manager (and then
- +12 ;; by Patient Name alphabetically under each Case Manager).
- +13 ;;
- +14 ;;* Case Manager, then Community - will list patients grouped first by
- +15 ;; Case Manager and then by Community.
- +16 ;;
- +17 ;;* Community, then Case Manager - will list patients grouped first by
- +18 ;; Community and then by Case Manager.
- +19 ;;
- +20 ;;* Community, then Patient Age - will list patients grouped first by
- +21 ;; Community and then by Patient Age.
- +22 ;;
- +23 ;;* Community, then Patient Name - will list patients grouped first by
- +24 ;; Community and then by Patient Name.
- +25 ;;
- +26 ;;* Community, then Patient Chart# - will list patients grouped first
- +27 ;; by Community and then by Patient Chart#.
- +28 ;;
- +29 ;;* Zipcode, then Patient Name - will begin with lowest zipcodes first.
- +30 ;;
- +31 ;;* Designated Provider - will list patients grouped by Designated Provider
- +32 ;; (and then by Patient Name alphabetically).
- +33 ;;
- +34 ;;Select the number (1-10) to indicate the order in which you wish to
- +35 ;;have patients listed.
- +36 ;;
- +37 DO LOADTX("TEXT1",,.BITEXT)
- +38 QUIT
- +39 ;
- +40 ;
- +41 ;----------
- ADDINFO(BINFO) ;EP
- +1 ;---> Select Additional Information to be included in Due List.
- +2 ;---> Called by Protocol BI OUTPUT ADDITIONAL INFO.
- +3 ;---> Parameters:
- +4 ; 1 - BINFO (ret) Array of Additional Information Items.
- +5 ;
- +6 ;---> NOTE: Sending BINONE=1 param tells BISELECT that NO Items selected
- +7 ;---> means "None" not "ALL." v8.4
- +8 ;
- +9 NEW BINAM
- SET BINAM="Information Item"
- +10 NEW BICOL
- SET BICOL=" # Information Item"
- +11 DO SEL^BISELECT(9002084.82,"BINFO",BINAM,,13,,,BICOL,,1)
- +12 DO RESET^BIDU
- +13 QUIT
- +14 ;
- +15 ;
- +16 ;----------
- TEXT6 ;EP
- +1 ;;Please select any Items of Additional Patient Information you wish to
- +2 ;;be included in this Patient List by entering the corresponding number(s).
- +3 ;;
- +4 ;; * To include more than one Item, separate the numbers with commas.
- +5 ;; Example: 1,2,6 would be Phone Number, Address, and Directions.
- +6 ;;
- +7 ;; 0 No Additional Information
- +8 ;; 1 Phone Number
- +9 ;; 2 Address
- +10 ;; 3 Immunization History
- +11 ;; 4 Immunization History w/Lot#'s
- +12 ;; 5 Immunization Forecast
- +13 ;; 6 Directions to House
- +14 ;; 7 Parent/Guardian
- +15 ;; 8 Case Manager
- +16 ;; 9 Reason Inactivated
- +17 ;; 10 Skin Tests
- +18 ;; 11 Next Appointment (RPMS Scheduling)
- +19 ;;
- +20 DO PRINTX("TEXT6")
- +21 QUIT
- +22 ;
- +23 ;
- +24 ;----------
- ADDHELP ;EP
- +1 ;----> Explanation of this report.
- +2 NEW BITEXT
- DO TEXT7(.BITEXT)
- +3 DO START^BIHELP("ADDITIONAL INFORMATION - HELP",.BITEXT)
- +4 DO FULL^VALM1
- DO TITLE^BIUTL5("ADDITIONAL INFORMATION")
- DO TEXT6
- +5 QUIT
- +6 ;
- +7 ;
- +8 ;----------
- TEXT7(BITEXT) ;EP
- +1 ;;You may select additional Items of Patient Information to be
- +2 ;;included in the display or printout of this Patient List.
- +3 ;;(This selection does not pertain to the printing of Letters.)
- +4 ;;
- +5 ;;Any combination of Items may be selected by entering the
- +6 ;;corresponding numbers, separated by commas. Items may also
- +7 ;;be selected inclusively by using a "-" dash. For example, 1-5
- +8 ;;will include items 1,2,3,4,and 5.
- +9 ;;
- +10 ;;"Directions to House", Item 6, refers to the physical "Location of
- +11 ;;Patient's Home", as edited on Page 9 of Patient Registration.
- +12 ;;
- +13 ;;"Parent/Guardian", Item 7, refers to the patient's parent or guardian
- +14 ;;AS LISTED under "Additional Patient Information" of the Patient View
- +15 ;;in Immunization.
- +16 ;;(NOTE: This is not necessarily the same as the "Father's Name" or
- +17 ;;"Mother's Maiden Name" as listed in the RPMS Patient Registration
- +18 ;;module.)
- +19 ;;
- +20 ;;"Next Appointment", Item 11, refers to the patient's next appointment,
- +21 ;;*if* the RPMS Scheduling package is in use on this system and
- +22 ;;*if* the patient has a future appointment scheduled.
- +23 ;;
- +24 ;;Also note that "Current Community" will automatically appear in the
- +25 ;;right-most column of the Due List when it displays or print.
- +26 ;;"Current Community" here refers to Page 1 (Field# 8) of Patient
- +27 ;;Registration.
- +28 ;;
- +29 DO LOADTX("TEXT7",,.BITEXT)
- +30 QUIT
- +31 ;
- +32 ;
- +33 ;----------
- INCLDEC(BIDED,BIRTN) ;EP
- +1 ;---> Answer Yes/No to include CPT Coded Visits in report.
- +2 ;---> Called by Protocol BI OUTPUT INCLUDE CPT.
- +3 ;---> Parameters:
- +4 ; 1 - BICPT (ret) 1=YES, 0=NO.
- +5 ; 2 - BIRTN (ret) Calling routine for reset.
- +6 ;
- +7 IF $GET(BIRTN)=""
- DO ERRCD^BIUTL2(621,,1)
- QUIT
- +8 ;
- +9 DO FULL^VALM1
- +10 DO TITLE^BIUTL5("INCLUDE DECEASED PATIENTS IN LIST/REPORT")
- +11 DO TEXT2
- WRITE !
- NEW B,Y
- +12 SET B=$SELECT($GET(BIDED):"Yes",1:"No")
- +13 DO DIR^BIFMAN("YAO",.Y,," Include Deceased Patients in this list/report? (Yes/No): ",B)
- +14 IF Y=0
- SET BIDED=0
- IF Y=1
- SET BIDED=1
- +15 DO @("RESET^"_BIRTN)
- +16 QUIT
- +17 ;
- +18 ;
- +19 ;----------
- TEXT2 ;EP
- +1 ;;This option allows you to include deceased patients in the
- +2 ;;list or report. In general deceased patients are left off
- +3 ;;of lists and reports; however, it is sometimes necessary for
- +4 ;;purposes such as tracking recipients of a particular vaccine
- +5 ;;or reconciling various statistical reports.
- +6 ;;
- +7 DO PRINTX("TEXT2")
- +8 QUIT
- +9 ;
- +10 ;
- +11 ;----------
- FLH1N1(BIFH,BIRTN) ;EP
- +1 ;---> Answer Yes/No to include CPT Coded Visits in report.
- +2 ;---> Called by Protocol BI OUTPUT INCLUDE CPT.
- +3 ;---> Parameters:
- +4 ; 1 - BICPT (ret) 1=YES, 0=NO.
- +5 ; 2 - BIRTN (req) Calling routine for reset.
- +6 ;
- +7 IF $GET(BIRTN)=""
- DO ERRCD^BIUTL2(621,,1)
- QUIT
- +8 ;
- +9 DO FULL^VALM1
- +10 DO TITLE^BIUTL5("REPORT TYPE: STANDARD FLU OR H1N1")
- +11 WRITE !
- DO TEXT3
- WRITE !
- +12 NEW DIR,Y
- +13 SET DIR("A")=" Select Standard or H1N1: "
- +14 SET DIR("B")=$SELECT($GET(BIFH)="H":"H1N1",1:"Standard")
- +15 SET DIR(0)="SAM^s:Standard;h:H1N1"
- +16 DO ^DIR
- KILL DIR
- +17 Begin DoDot:1
- +18 IF Y="h"
- SET BIFH="H"
- QUIT
- +19 SET BIFH="F"
- End DoDot:1
- +20 ;
- +21 DO @("RESET^"_BIRTN)
- +22 QUIT
- +23 ;
- +24 ;
- +25 ;----------
- TEXT3 ;EP
- +1 ;;Do you want to run the Standard Flu Report or the H1N1 Report?
- +2 ;;
- +3 DO PRINTX("TEXT3")
- +4 QUIT
- +5 ;
- +6 ;
- +7 ;----------
- USERPOP(BIUP,BIRTN) ;EP - Select User Population Parameter.
- +1 ;---> Called by Protocol BI OUTPUT USER POPULATION.
- +2 ;---> Parameters:
- +3 ; 1 - BIUP (ret) R=Registered Patients; U=User Population (1+ visits)
- +4 ; A=Active Users.
- +5 ; 2 - BIRTN (req) Calling routine for reset.
- +6 ;
- +7 IF $GET(BIRTN)=""
- DO ERRCD^BIUTL2(621,,1)
- QUIT
- USERPP1 ;
- +1 DO FULL^VALM1
- +2 DO TITLE^BIUTL5("PATIENT POPULATION GROUP")
- +3 WRITE !?5,"Select the User Population Group you which to include in this report."
- +4 NEW DIR,Y,BIGPRA,BIPOP
- +5 SET (BIGPRA,BIPOP)=0
- +6 ;
- +7 ;---> If GPRA is set up, set BIGPRA=1.
- +8 IF $$GPRAIEN^BIUTL6
- SET BIGPRA=1
- +9 ;
- +10 SET DIR(0)="SM^r:"_$$BIUPTX^BIUTL6("r")_";i:"_$$BIUPTX^BIUTL6("i")
- +11 SET DIR(0)=DIR(0)_";u:"_$$BIUPTX^BIUTL6("u")_";a:"_$$BIUPTX^BIUTL6("a")
- +12 ;
- +13 SET DIR("A")=" Select User Population Group"
- +14 Begin DoDot:1
- +15 IF $GET(BIUP)]""
- SET DIR("B")=$PIECE($PIECE(DIR(0),BIUP_":",2),";")
- QUIT
- +16 IF BIGPRA=1
- SET DIR("B")="Active Clinical Users (2+ visits)"
- QUIT
- +17 SET DIR("B")="User Population (1+ visits)"
- End DoDot:1
- +18 ;
- +19 DO HELP1
- +20 DO ^DIR
- KILL DIR
- +21 ;
- +22 IF ((Y="a")&('BIGPRA))
- Begin DoDot:1
- +23 WRITE !!?5,"You cannont select for Active Users because the GPRA Software is"
- +24 WRITE !?5,"not loaded or set up correctly."
- +25 WRITE !?5,"Contact your site manager or RPMS support for further information."
- +26 DO DIRZ^BIUTL3(.BIPOP)
- End DoDot:1
- +27 ;
- +28 IF BIPOP
- DO @("RESET^"_BIRTN)
- QUIT
- +29 IF ((Y="a")&('BIGPRA))
- GOTO USERPP1
- +30 ;
- +31 SET BIUP=Y
- +32 DO @("RESET^"_BIRTN)
- +33 QUIT
- +34 ;
- +35 ;
- +36 ;----------
- HELP1 ; EP
- +1 ;;
- +2 ;;Select the User Population Group you which to include in this report.
- +3 ;;
- +4 ;;If you select "R" for Registered Patients, all patients who have an
- +5 ;;active Health Record in the system and meet the other criteria you
- +6 ;;select will be included in the report.
- +7 ;;
- +8 ;;If you select "I" for Immunization Registry patients, all the patients
- +9 ;;who have an Active Status in the Immunization Registry and meet the
- +10 ;;other criteria you select will be included in the report.
- +11 ;;
- +12 ;;If you select "U" for User Population, only patients who have had at
- +13 ;;least ONE visit in the last 3 years will be included in the report.
- +14 ;;
- +15 ;;If you select "A" for Active Clinical Users, only patients who have had
- +16 ;;at least TWO qualifying visits in the last 3 years will be included in
- +17 ;;the report. (NOTE: The RPMS GPRA software must be installed for this
- +18 ;;selection.)
- +19 DO HELPTX("HELP1",5)
- +20 QUIT
- +21 ;
- +22 ;
- +23 ;----------
- 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 ;----------
- 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
- +5 ;
- +6 ;
- +7 ;----------
- HELPTX(BILINL,BITAB) ;
- +1 ;---> Set DIR("?") help array from the specified line label.
- +2 ;
- +3 NEW I,T,X
- SET T=""
- IF '$DATA(BITAB)
- SET BITAB=5
- FOR I=1:1:BITAB
- SET T=T_" "
- +4 FOR I=1:1
- SET X=$TEXT(@BILINL+I)
- IF X'[";;"
- QUIT
- SET DIR("?",I)=T_$PIECE(X,";;",2)
- +5 SET DIR("?")=DIR("?",I-1)
- KILL DIR("?",I-1)
- +6 QUIT