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
