Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BSDH02

BSDH02.m

Go to the documentation of this file. 
  1. BSDH02 ; IHS/ANMC/LJF - INTRO TEXT FOR REPORTS MENU ; 
  1.  ;;5.3;PIMS;**1007**;APR 26, 2002
  1.  ;
  1.  ;
  1.  ;cmi/anch/maw 2/20/2007 added CHK for check in status report
  1.  ;cmi/anch/maw 2/20/2007 modified FRL for File Room List update PATCH 1007 item 1007.07 and item 1007.10
  1.  ;cmi/anch/maw 2/21/2007 added reference in CHL for incomplete charts PATCH 1007 item 1007.21
  1.  ;cmi/anch/maw 2/20/2007 modified WLR PATCH 1007 item 1007.34
  1.  ;cmi/anch/maw 2/20/2007 modified CPF PATCH 1007 item 1007.34
  1.  ;
  1. AIU ;EP; intro text for Address/Insurance Update
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to print individual patient address and"
  1.  S BSDX(2)="insurance update forms.  Each clinic can be set up to"
  1.  S BSDX(3)="auotmatically prints these forms with the routing slips."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. AMR ;EP; intro text for Appt Mgt Report
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to access reports designed to assist you"
  1.  S BSDX(2)="in managing your appointment statuses.  Workload Reports"
  1.  S BSDX(3)="require knowing whether an appointment took place, so each"
  1.  S BSDX(4)="must be checked-in or marked as a no-show.  One report also"
  1.  S BSDX(5)="helps you track if all checked-in appointments are being"
  1.  S BSDX(6)="coded in PCC."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. CAR ;EP; intro text for clinic availability reports
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to select from a list of reports dealing"
  1.  S BSDX(2)="with clinic schedules and appointment availabilities.  All"
  1.  S BSDX(3)="reports can be viewed in browse mode when HOME is the print"
  1.  S BSDX(4)="device selected."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. CHL ;EP; intro text for chart locatior
  1.  ;cmi/anch/maw 2/21/2007 added reference for incomplete charts PATCH 1007 item 1007.21
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to review all appointments (scheduled and"
  1.  S BSDX(2)="walk-ins), chart requests, and incomplete charts for a"
  1.  S BSDX(3)="patient within a date range.  This option is designed to"
  1.  S BSDX(4)="assist you in finding the paper chart if not in its proper"
  1.  S BSDX(5)="place in the file room."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. CPF ;EP; intro text for Clinic Profile
  1.  ;cmi/anch/maw 2/20/2007 PATCH 1007 item 1007.34
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to view a summary of how selected clinics"
  1.  S BSDX(2)="are set up.  If you select a principal clinic (including"
  1.  S BSDX(3)="inactive ones), all clinics within that principal clinic"
  1.  S BSDX(4)="will display."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. FRL ;EP; intro text for file room list
  1.  ;cmi/anch/maw 2/20/2007 PATCH 1007 item 1007.34
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to list patients who have an appointment"
  1.  S BSDX(2)="or had their chart requested for a specific date.  You can"
  1.  S BSDX(3)="print all clinics or all divisions or just selected ones."
  1.  S BSDX(4)="You have a choice to sort by patient name, appointment time,"
  1.  S BSDX(5)="clinic code, principal clinic or by terminal digit order."
  1.  S BSDX(6)="The report also shows the patients appointments for a different"
  1.  S BSDX(7)="clinic on the same day."
  1.  D DISPLAY(7)
  1.  Q
  1.  ;
  1. HSC ;EP; intro text for health summaries by clinic
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to print all health summaries for one day's"
  1.  S BSDX(2)="appointments.  These will only print for those clinics that"
  1.  S BSDX(3)="have health summaries turned on.  This option is used when"
  1.  S BSDX(4)="the short form of routing slips is printed.  The health"
  1.  S BSDX(5)="summaries automatically print WITH the long form routing"
  1.  S BSDX(6)="slips."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. LCR ;EP; intro text for List Chart Requests
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to print a list of all chart requests for"
  1.  S BSDX(2)="a particular date.  This report lists only chart requests"
  1.  S BSDX(3)="and does not include scheduled appointments or walk-ins."
  1.  S BSDX(4)="The report may be sorted by date/time the request was made,"
  1.  S BSDX(5)="by clinic, by principal clinic or by terminal digit."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. NSR ;EP; intro text for no-show reports
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to access various reports on no-shows for"
  1.  S BSDX(2)="scheduled clinic appointments.  Reports include statistics"
  1.  S BSDX(3)="and patient listings."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. RPL ;EP; intro text for radiology pull list
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to list patients with appointments for the"
  1.  S BSDX(2)="specified date, whose previous radiology films need to be"
  1.  S BSDX(3)="pulled for the appointment.  You may choose only selected"
  1.  S BSDX(4)="divisions and clinics.  The report is sorted by chart # or"
  1.  S BSDX(5)="by terminal digit order depending on your site parameter."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. WLR ;EP; intro text for Waiting List Report
  1.  ;cmi/anch/maw 2/20/2007 modified BSDX(6), added BSDX(7) PATCH 1007 item 1007.34
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to list patients on your waiting list by"
  1.  S BSDX(2)="date added, recall date or date removed.  You can sort the"
  1.  S BSDX(3)="report by date, priority, provider, reason for adding or"
  1.  S BSDX(4)="resolution.  You can select to print for only one provider,"
  1.  S BSDX(5)="priority or reason. For a list displayed on your screen, you can"
  1.  S BSDX(6)="select any entry to review all information including the"
  1.  S BSDX(7)="comments added."
  1.  D DISPLAY(7)
  1.  Q
  1.  ;
  1. CHK ;EP; intro text for check in Report
  1.  ;cmi/anch/maw 2/20/2007 PATCH 1007 item 1007.34
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to list patients check in status for a "
  1.  S BSDX(2)="particular clinic.  This report can be set to refresh"
  1.  S BSDX(3)="itself every 60 seconds or to have a manual refresh."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. WSR ;EP; intro text for Workload/Statistical Reports
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to access various workload reports, some"
  1.  S BSDX(2)="statistical and some appointment listings.  This series"
  1.  S BSDX(3)="assumes that Appointment Management Reports have been run"
  1.  S BSDX(4)="and deemed clean.  These reports count past appointments."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. DISPLAY(N) ; -- display array with N lines
  1.  S BSDX(1,"F")="!!!?5"
  1.  F I=2:1:N S BSDX(I,"F")="!?5"
  1.  S BSDX(N+1,"F")="!!"
  1.  D EN^DDIOL(.BSDX)
  1.  Q
  1.  ;
  1. PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
  1.  Q $E(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
  1.  ;
  1. SP(N) ; -- returns N number of spaces
  1.  Q $$PAD(" ",N)