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

BSDH01.m

Go to the documentation of this file. 
  1. BSDH01 ; IHS/ANMC/LJF - INTRO TEXT FOR APPTS MENU ;  [ 04/01/2004  12:00 PM ]
  1.  ;;5.3;PIMS;**1004,1007**;MAY 28, 2004
  1.  ;IHS/OIT/LJF 07/22/2005 PATCH 1004 added WL subroutine for waiting list option
  1.  ;cmi/anch/maw 2/20/2007 added line CL for PATCH 1007 item 1007.14
  1.  ;cmi/anch/maw 2/21/2007 modified intro text in WL to mention sort criteria PATCH 1007 item 1007.33
  1.  ;cmi/anch/maw 2/20/2007 modified AL for PATCH 1007 item 1007.34
  1.  ;cmi/anch/maw 2/23/2007 added OAS PATCH 1007 item 1007.32
  1.  ;
  1.  Q
  1. AL ;EP; intro text for app list option
  1.  ;cmi/anch/maw 2/20/2007 modified BSDX(5) and added BSDX(6) PATCH 1007 item 1007.34
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to print a list of scheduled appointments"
  1.  S BSDX(2)="for one or more clinics for a specific date.  You can ask"
  1.  S BSDX(3)="for all clinics or by principal clinic.  Optional items to"
  1.  S BSDX(4)="include are walk-ins, who made the appointment, patient's"
  1.  S BSDX(5)="phone number, work phone, current community, and primary"
  1.  S BSDX(6)="care provider assignments."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. AM ;EP; intro text for app mgt option
  1.  NEW BSDX D ^XBCLS
  1.  S BSDX(1)=$$REPEAT^XLFSTR(" ",15)_"APPOINTMENT MANAGEMENT"
  1.  S BSDX(2)=""
  1.  S BSDX(3)="Use this option to make appointments, check-in patients,"
  1.  S BSDX(4)="request charts and otherwise manage your clinic.  You can"
  1.  S BSDX(5)="select by patient to process that patient's appointments"
  1.  S BSDX(6)="OR select a clinic to process all appointments in that"
  1.  S BSDX(7)="clinic for a date range."
  1.  D DISPLAY(7)
  1.  Q
  1.  ;
  1. CR ;EP; intro text for chart requests
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to request multiple patient charts for"
  1.  S BSDX(2)="review without actually scheduling appointments.  Routing"
  1.  S BSDX(3)="slips will print when appointments are run for the date"
  1.  S BSDX(4)="requested.  If that date is today, a routing slip will"
  1.  S BSDX(5)="print immediately."
  1.  ;
  1.  ;IHS/ANMC/LJF 10/19/2001 ANMC only mod
  1.  D ENS^%ZISS
  1.  S BSDX(6)=""
  1.  S BSDX(7)=$$REPEAT^XLFSTR("*",25)_"REMINDER"_$$REPEAT^XLFSTR("*",25)
  1.  S BSDX(7)=$G(IORVON)_BSDX(7)_$G(IORVOFF)
  1.  S BSDX(8)="Chart Requests will be processed AFTER walk-ins and same"
  1.  S BSDX(9)="day appointments.  Please request charts as many days in"
  1.  S BSDX(10)="advance as possible."
  1.  D DISPLAY(10),KILL^%ZISS Q
  1.  ;IHS/ANMC/LJF 10/19/2001 end of ANMC mods
  1.  ;
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. DA ;EP; intro text for display patient appointments
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to view a patient's appointments for a date"
  1.  S BSDX(2)="range you specify.  This will also tell you who made the"
  1.  S BSDX(3)="appointment and when, along with the current status of the"
  1.  S BSDX(4)="appointment and PCC visit."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. MB ;EP; intro text for multiple appt booking
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to make multiple appointments for a patient"
  1.  S BSDX(2)="to the same clinic.  This can be used to book weekly or"
  1.  S BSDX(3)="daily appointments for a given date range."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. MC ;EP; intro text for multi clinic booking
  1.  NEW BSDX
  1.  S BSDX(1)="Allows you to display or book appts into 2-4 clinics on"
  1.  S BSDX(2)="the same day.  It automatically finds the day where all"
  1.  S BSDX(3)="chosen clinics have the necessary availability."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. MD ;EP; intro text for month-at-a-glance
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to view a clinic's available appointments"
  1.  S BSDX(2)="or to view the first available date for each clinic under"
  1.  S BSDX(3)="a principal clinic."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. OAS ;EP; intro text for original clinic setup display
  1.  ;cmi/anch/maw 2/22/2007 added PATCH 1007 item 1007.32
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to view a clinic's original availability"
  1.  S BSDX(2)="setup."
  1.  D DISPLAY(2)
  1.  Q
  1.  ;
  1. SL ;EP; intro text for print scheduling letters
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to print Pre-Appointment, No-Show, and"
  1.  S BSDX(2)="Cancellation letters.  If you choose to print letters"
  1.  S BSDX(3)="assigned to the clinics AND a clinic in your selection"
  1.  S BSDX(4)="does NOT have one assigned, no letters will print for that"
  1.  S BSDX(5)="clinic.  You can also choose one letter to print for all"
  1.  S BSDX(6)="clinics you select, ignoring the letter assignments."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. PS ;EP; intro text for View Provider's Schedule
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to view a particular provider's schedule"
  1.  S BSDX(2)="across all clinics where that provider is listed as the"
  1.  S BSDX(3)="default provider."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. WL ;EP; intro test for Waiting List Entry/Edit ;IHS/OIT/LJF 7/22/2005 PATCH 1004
  1.  ;cmi/anch/maw 2/21/2007 modified intro text to mention sort criteria PATCH 1007 item 1007.33
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to manage your waiting lists for both outpatient"
  1.  S BSDX(2)="clinics or inpatient wards.  Only application coordinators may add"
  1.  S BSDX(3)="new clinics or wards as waiting lists.  Once a list is selected, you"
  1.  S BSDX(4)="can select how the list will be displayed.  Options are Patient Name,"
  1.  S BSDX(5)="Date Added to List, Priority, and Recall Date.  From that"
  1.  S BSDX(6)="list, you may add new patients, edit or view existing entries, remove"
  1.  S BSDX(7)="patients from active status or request a listing of closed cases."
  1.  D DISPLAY(7)
  1.  Q
  1.  ;
  1. CL ;EP; intro text for customized letters
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to print out letters for a single or group"
  1.  S BSDX(2)="of patients.  The patient does not need to have an appointment"
  1.  S BSDX(3)="to print the letter.  This option can be used if you want to"
  1.  S BSDX(4)="print letters for a group of patients, ones that have a"
  1.  S BSDX(5)="designated provider, a follow up or when a doctor is leaving."
  1.  D DISPLAY(5)
  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