Routine: PXRMXHLP

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 !

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMXHLP   4825     printed  Feb 18, 2025@23:16:36                                                                                                                                                                                                    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

PXRMXHLP.m