PXRMXHLP ; SLC/PJH - Reminder Reports Help Routine;12/30/2002
;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
;
HELP(CALL) ;General help text routine
N HTEXT
N DIWF,DIWL,DIWR,IC
S DIWF="C70",DIWL=0,DIWR=70
;
I CALL=0 D
.S HTEXT(1)="Individual Patient: Run a report against an individual patients."
.S HTEXT(2)="Reminder Patient List: Run a report against a store patient list."
.S HTEXT(3)="Location: Run a report for a single location or multiple locations."
.S HTEXT(4)="OE/RR Team: Run a report against a OE/RR team"
.S HTEXT(5)="PCMM Provider: Run a report for patient assigned to a PCMMprovider."
.S HTEXT(6)="PCMM Team: Run a report against a PCMM Team."
I CALL=1 D
.S HTEXT(1)="Summary reports total the number of reminders applicable "
.S HTEXT(2)="and due for the above patient samples."
.S HTEXT(3)="Detailed reports list patients with reminders due in "
.S HTEXT(4)="name order or by appointment date."
I CALL=2 D
.S HTEXT(1)="DETAILED reports list in alpha order patients in the"
.S HTEXT(2)="selected patient sample with reminders due."
.S HTEXT(3)="SUMMARY reports give totals of reminders due for the"
.S HTEXT(4)="selected patient sample."
I CALL=3 D
.S HTEXT(1)="PREVIOUS will report on patients who visited the selected"
.S HTEXT(2)="locations in the date range specified"
.S HTEXT(3)="FUTURE will report on patients who have appointments at"
.S HTEXT(4)="selected locations in the date range specified."
I CALL=4 D
.S HTEXT(1)="PRIMARY CARE ONLY excludes patients who are not assigned"
.S HTEXT(2)="to the PCMM team as primary care. ALL displays all patients"
.S HTEXT(3)="assigned to the provider in PCMM."
I CALL=5 D
.S HTEXT(1)="Selecting Y will display all future appointments for"
.S HTEXT(2)="patients with reminders due. Selecting N will display"
.S HTEXT(3)="for patients with due reminders only the next appointment"
.I PXRMSEL="L" D
..S HTEXT(4)="AT THE SELECTED LOCATION"
I CALL=6 D
.S HTEXT(1)="Selecting Y will display patients with reminders in"
.S HTEXT(2)="appointment date order. Selecting N will display patients"
.S HTEXT(3)="with reminders in patient name order."
I CALL=7 D
.S HTEXT(1)="ADMISSIONS will report on inpatients admitted in the"
.S HTEXT(2)="selected locations in the date range specified. "
.S HTEXT(3)="CURRENT INPATIENTS will report on inpatients currently at"
.S HTEXT(4)="selected locations."
I CALL=8 D
.S HTEXT(1)="Reports for ALL OUTPATIENT LOCATIONS, ALL INPATIENT LOCATIONS and ALL "
.S HTEXT(2)="CLINIC STOPS produce a combined list of reminders due for"
.S HTEXT(3)="for all locations in each facility selected."
.S HTEXT(4)=""
.S HTEXT(5)="Reports for SELECTED HOSPITAL LOCATIONS, SELECTED CLINIC STOPS and"
.S HTEXT(6)="SELECTED CLINIC GROUPS list reminders due by location for "
.S HTEXT(7)="each location selected."
I CALL=9 D
.I LIT="Facilities" D
..S HTEXT(1)="Selecting Y will display one report for all facilities combining"
..S HTEXT(2)="locations/teams with the same name. Selecting N will create a"
..S HTEXT(3)="separate report for each facility."
.I LIT'="Facilities" D
..S HTEXT(1)="Selecting Y will display one report for all "_LIT_" selected."
..S HTEXT(2)="Selecting N will create a separate report for each "_LIT_"."
I CALL=10 D
.S HTEXT(1)="This option is only available if more than one location, team or provider is selected."
.S HTEXT(2)="Selecting I prints only the individual reports. Selecting R prints"
.S HTEXT(3)="the individual report plus overall totals for all locations, teams or providers."
.S HTEXT(4)="Selecting T prints only the overall totals for all locations, teams or providers."
I CALL=11 D
.S HTEXT(1)="Selecting Y will display patients with reminders in ward/bed"
.S HTEXT(2)="order. Selecting N will display patients with reminders in"
.S HTEXT(3)="patient name order."
I CALL=12 D
.S HTEXT(1)="Selecting Y will display the full patient SSN. Selecting N"
.S HTEXT(2)=" will display only the last 4 digits of the patient SSN."
I CALL=13 D
.S HTEXT(1)="Selecting Y will display the report as fields separated by"
.S HTEXT(2)="a selected delimiter character. Headings are suppressed. This"
.S HTEXT(3)="format of report is intended for import into PC spreadsheet (e.g. MS Excl)."
.S HTEXT(4)="Selecting N will display the normal report with headings"
I CALL=14 D
.S HTEXT(1)="Select the character to be output as a delimiter in the report."
I CALL=15 D
.S HTEXT(1)="Selecting Y will display the clinic name for the appointment date/time"
K ^UTILITY($J,"W")
S IC=""
F S IC=$O(HTEXT(IC)) Q:IC="" D
. S X=HTEXT(IC)
. D ^DIWP
W !
S IC=0
F S IC=$O(^UTILITY($J,"W",0,IC)) Q:IC="" D
. W !,^UTILITY($J,"W",0,IC,0)
K ^UTILITY($J,"W")
W !
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMXHLP 4825 printed Dec 13, 2024@01:50:13 Page 2
PXRMXHLP ; SLC/PJH - Reminder Reports Help Routine;12/30/2002
+1 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
+2 ;
HELP(CALL) ;General help text routine
+1 NEW HTEXT
+2 NEW DIWF,DIWL,DIWR,IC
+3 SET DIWF="C70"
SET DIWL=0
SET DIWR=70
+4 ;
+5 IF CALL=0
Begin DoDot:1
+6 SET HTEXT(1)="Individual Patient: Run a report against an individual patients."
+7 SET HTEXT(2)="Reminder Patient List: Run a report against a store patient list."
+8 SET HTEXT(3)="Location: Run a report for a single location or multiple locations."
+9 SET HTEXT(4)="OE/RR Team: Run a report against a OE/RR team"
+10 SET HTEXT(5)="PCMM Provider: Run a report for patient assigned to a PCMMprovider."
+11 SET HTEXT(6)="PCMM Team: Run a report against a PCMM Team."
End DoDot:1
+12 IF CALL=1
Begin DoDot:1
+13 SET HTEXT(1)="Summary reports total the number of reminders applicable "
+14 SET HTEXT(2)="and due for the above patient samples."
+15 SET HTEXT(3)="Detailed reports list patients with reminders due in "
+16 SET HTEXT(4)="name order or by appointment date."
End DoDot:1
+17 IF CALL=2
Begin DoDot:1
+18 SET HTEXT(1)="DETAILED reports list in alpha order patients in the"
+19 SET HTEXT(2)="selected patient sample with reminders due."
+20 SET HTEXT(3)="SUMMARY reports give totals of reminders due for the"
+21 SET HTEXT(4)="selected patient sample."
End DoDot:1
+22 IF CALL=3
Begin DoDot:1
+23 SET HTEXT(1)="PREVIOUS will report on patients who visited the selected"
+24 SET HTEXT(2)="locations in the date range specified"
+25 SET HTEXT(3)="FUTURE will report on patients who have appointments at"
+26 SET HTEXT(4)="selected locations in the date range specified."
End DoDot:1
+27 IF CALL=4
Begin DoDot:1
+28 SET HTEXT(1)="PRIMARY CARE ONLY excludes patients who are not assigned"
+29 SET HTEXT(2)="to the PCMM team as primary care. ALL displays all patients"
+30 SET HTEXT(3)="assigned to the provider in PCMM."
End DoDot:1
+31 IF CALL=5
Begin DoDot:1
+32 SET HTEXT(1)="Selecting Y will display all future appointments for"
+33 SET HTEXT(2)="patients with reminders due. Selecting N will display"
+34 SET HTEXT(3)="for patients with due reminders only the next appointment"
+35 IF PXRMSEL="L"
Begin DoDot:2
+36 SET HTEXT(4)="AT THE SELECTED LOCATION"
End DoDot:2
End DoDot:1
+37 IF CALL=6
Begin DoDot:1
+38 SET HTEXT(1)="Selecting Y will display patients with reminders in"
+39 SET HTEXT(2)="appointment date order. Selecting N will display patients"
+40 SET HTEXT(3)="with reminders in patient name order."
End DoDot:1
+41 IF CALL=7
Begin DoDot:1
+42 SET HTEXT(1)="ADMISSIONS will report on inpatients admitted in the"
+43 SET HTEXT(2)="selected locations in the date range specified. "
+44 SET HTEXT(3)="CURRENT INPATIENTS will report on inpatients currently at"
+45 SET HTEXT(4)="selected locations."
End DoDot:1
+46 IF CALL=8
Begin DoDot:1
+47 SET HTEXT(1)="Reports for ALL OUTPATIENT LOCATIONS, ALL INPATIENT LOCATIONS and ALL "
+48 SET HTEXT(2)="CLINIC STOPS produce a combined list of reminders due for"
+49 SET HTEXT(3)="for all locations in each facility selected."
+50 SET HTEXT(4)=""
+51 SET HTEXT(5)="Reports for SELECTED HOSPITAL LOCATIONS, SELECTED CLINIC STOPS and"
+52 SET HTEXT(6)="SELECTED CLINIC GROUPS list reminders due by location for "
+53 SET HTEXT(7)="each location selected."
End DoDot:1
+54 IF CALL=9
Begin DoDot:1
+55 IF LIT="Facilities"
Begin DoDot:2
+56 SET HTEXT(1)="Selecting Y will display one report for all facilities combining"
+57 SET HTEXT(2)="locations/teams with the same name. Selecting N will create a"
+58 SET HTEXT(3)="separate report for each facility."
End DoDot:2
+59 IF LIT'="Facilities"
Begin DoDot:2
+60 SET HTEXT(1)="Selecting Y will display one report for all "_LIT_" selected."
+61 SET HTEXT(2)="Selecting N will create a separate report for each "_LIT_"."
End DoDot:2
End DoDot:1
+62 IF CALL=10
Begin DoDot:1
+63 SET HTEXT(1)="This option is only available if more than one location, team or provider is selected."
+64 SET HTEXT(2)="Selecting I prints only the individual reports. Selecting R prints"
+65 SET HTEXT(3)="the individual report plus overall totals for all locations, teams or providers."
+66 SET HTEXT(4)="Selecting T prints only the overall totals for all locations, teams or providers."
End DoDot:1
+67 IF CALL=11
Begin DoDot:1
+68 SET HTEXT(1)="Selecting Y will display patients with reminders in ward/bed"
+69 SET HTEXT(2)="order. Selecting N will display patients with reminders in"
+70 SET HTEXT(3)="patient name order."
End DoDot:1
+71 IF CALL=12
Begin DoDot:1
+72 SET HTEXT(1)="Selecting Y will display the full patient SSN. Selecting N"
+73 SET HTEXT(2)=" will display only the last 4 digits of the patient SSN."
End DoDot:1
+74 IF CALL=13
Begin DoDot:1
+75 SET HTEXT(1)="Selecting Y will display the report as fields separated by"
+76 SET HTEXT(2)="a selected delimiter character. Headings are suppressed. This"
+77 SET HTEXT(3)="format of report is intended for import into PC spreadsheet (e.g. MS Excl)."
+78 SET HTEXT(4)="Selecting N will display the normal report with headings"
End DoDot:1
+79 IF CALL=14
Begin DoDot:1
+80 SET HTEXT(1)="Select the character to be output as a delimiter in the report."
End DoDot:1
+81 IF CALL=15
Begin DoDot:1
+82 SET HTEXT(1)="Selecting Y will display the clinic name for the appointment date/time"
End DoDot:1
+83 KILL ^UTILITY($JOB,"W")
+84 SET IC=""
+85 FOR
SET IC=$ORDER(HTEXT(IC))
if IC=""
QUIT
Begin DoDot:1
+86 SET X=HTEXT(IC)
+87 DO ^DIWP
End DoDot:1
+88 WRITE !
+89 SET IC=0
+90 FOR
SET IC=$ORDER(^UTILITY($JOB,"W",0,IC))
if IC=""
QUIT
Begin DoDot:1
+91 WRITE !,^UTILITY($JOB,"W",0,IC,0)
End DoDot:1
+92 KILL ^UTILITY($JOB,"W")
+93 WRITE !
+94 QUIT
