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

BSDH03.m

Go to the documentation of this file. 
  1. BSDH03 ; IHS/ANMC/LJF - INTRO TEXT FOR SUPERVISOR MENU ;
  1.  ;;5.3;PIMS;**1003,1013**;MAY 28, 2004
  1.  ;IHS/ITSC/LJF 06/17/2005 PATCH 1003 fixed typo errors under CRA
  1.  ;ihs/cmi/maw 05/03/2011 PATCH 1013 added wait list to EEL
  1.  ;
  1. CRA ;EP; intro text for Cancel/Restore Availability
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to either CANCEL or RESTORE a clinic's"
  1.  S BSDX(2)="appointment slots."
  1.  S BSDX(3)=""
  1.  S BSDX(4)="You can CANCEL a clinic's availability for either a whole"
  1.  S BSDX(5)="day or portion of a day.  If several portions of a day are"
  1.  S BSDX(6)="to be canceled you must cancel one portion first, then select"
  1.  S BSDX(7)="CANCEL again to cancel the second portion, etc."
  1.  S BSDX(8)=""
  1.  S BSDX(9)="You can RESTORE the availability for a previously canceled"
  1.  S BSDX(10)="clinic.  Appointments that were rescheduled using the"
  1.  S BSDX(11)="auto-rebook feature at the time of cancellation WILL NOT"
  1.  S BSDX(12)="be moved to their original time slots."
  1.  D DISPLAY(12)
  1.  Q
  1.  ;
  1. DSU ;EP; intro text for Display Scheduling User
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to view a user's access level in the IHS"
  1.  S BSDX(2)="Scheduling software.  It will list all major functions a"
  1.  S BSDX(3)="user can perform based on security keys.  It will also list"
  1.  S BSDX(4)="which restricted clinics the user can access and the user's"
  1.  S BSDX(5)="overbook level."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. EEL ;EP; intro text for Enter/Edit Letters
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to enter a new or edit an existing letter."
  1.  S BSDX(2)="The letter types available are:"
  1.  S BSDX(3)="  (A)ppointment Cancelled - appointment cancelled by Cancel"
  1.  S BSDX(4)="                         Appointment action under Appt Mgt."
  1.  S BSDX(5)="  (C)linic Cancelled - appointment cancelled by Cancel"
  1.  S BSDX(6)="                         Clinic Availability option."
  1.  S BSDX(7)="  (N)o-Show - reminder to patient who did not show, to make"
  1.  S BSDX(8)="                         another appointment."
  1.  S BSDX(9)="  (P)re-Appointment - reminder to patient of upcoming appt."
  1.  S BSDX(10)="  (W)ait List - patient on wait list."
  1.  D DISPLAY(10)
  1.  Q
  1.  ;
  1. LAM ;EP; intro text to List Appt Made by Clinic
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to list all appointments scheduled for a"
  1.  S BSDX(2)="date range, who made the appointment and when."
  1.  S BSDX(3)=$$SP(25)_"OR"
  1.  S BSDX(4)="Use this option to list who made appointments scheduled for"
  1.  S BSDX(5)="a given date range, how many they made and their percentage"
  1.  S BSDX(6)="of the total."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. SET ;EP; intro text for Set Up A Clinic
  1.  NEW BSDX
  1.  S BSDX(1)="Use this option to create clinics, modify their parameters,"
  1.  S BSDX(2)="and set up their appointment slots."
  1.  D DISPLAY(2)
  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)