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

ASDH01.m

Go to the documentation of this file. 
  1. ASDH01 ; IHS/ADC/PDW/ENM - INTRO TEXT FOR OPTIONS ; [ 03/25/1999  11:48 AM ]
  1.  ;;5.0;IHS SCHEDULING;;MAR 25, 1999
  1.  ;
  1. MA ;EP; intro text for Make Appointment
  1.  D ^XBCLS W !!?20,"MAKE APPOINTMENT",!!
  1.  W !?5,"Use this option to make clinic appointments for a patient."
  1.  W !?5,"You may be asked to edit selected patient demographics and"
  1.  W !?5,"then you will be asked for the clinic.  If you choose a "
  1.  W !?5,"Principal Clinic, the first available for each individual"
  1.  W !?5,"clinic under it will display.  You can select a clinic from"
  1.  W !?5,"that list if appropriate.  The patient's pending appointments"
  1.  W !?5,"also display to assist in scheduling appointments convenient"
  1.  W !?5,"to the patient.",!
  1.  Q
  1.  ;
  1. AT ;EP; intro text for Append Ancillary Test
  1.  D ^XBCLS W !!?20,"APPEND ANCILLARY TEST TO APPOINTMENT",!!
  1.  W !?5,"Use this option to add to a previously scheduled appointment,"
  1.  W !?5,"any ancillary test which may have been overlooked when the"
  1.  W !?5,"appointment was made.",!
  1.  Q
  1.  ;
  1. DT ;EP; intro text for Delete Ancillary Test
  1.  D ^XBCLS W !!?20,"DELETE ANCILLARY TEST FROM APPOINTMENT",!!
  1.  W !?5,"Use this option to delete any ancillary tests scheduled by"
  1.  W !?5,"mistake which are attached to a clinic appointment.",!
  1.  Q
  1.  ;
  1. CA ;EP; intro text for Cancel Appt
  1.  D ^XBCLS W !!?25,"CANCEL APPOINTMENTS",!!
  1.  W !?5,"Use this option to cancel clinic appointments that were"
  1.  W !?5,"either cancelled by the patient or by the clinic.",!
  1.  Q
  1.  ;
  1. CR ;EP; intro text for Chart Request
  1.  D ^XBCLS W !!?20,"CHART REQUESTS (future dates)",!!
  1.  W !?5,"Use this option to request charts for chart review purposes."
  1.  W !?5,"You will be asked to enter the date you would like the charts"
  1.  W !?5,"to be available.  The minimum waiting period is determined by"
  1.  W !?5,"your facility giving Medical Records time to ready your charts"
  1.  W !?5,"while also pulling charts for patient appointments.",!
  1.  W !?5,"The minimum waiting period for this facility is ",$$CRDAY
  1.  W " days.",!
  1.  Q
  1.  ;
  1. CRDAY() ; -- return chart request waiting period
  1.  Q $$VAL^XBDIQ1(40.8,$$DIV^ASDUT,9999999.07)
  1.  ;
  1. CV ;EP; intro text for CHeck-in/Unsched Appt/CR for today
  1.  D ^XBCLS W !!?15,"CHECK-IN/UNSCHED APPT/CR FOR TODAY",!!
  1.  W !?5,"Use this option to perform any one of these functions:"
  1.  W !?5,"  > Check-in a patient for a scheduled appointment;"
  1.  W !?5,"  > Make an unscheduled appointment for a walk-in;"
  1.  W !?5,"  > Ask for a chart to be pulled for review today."
  1.  W !?5,"       (use if you need chart now; otherwise use CR)",!
  1.  Q
  1. DA ;EP; intro text for Display Appt
  1.  D ^XBCLS W !!?20,"DISPLAY PATIENT'S APPOINTMENTS",!!
  1.  W !?5,"Use this option to view a specific patient's past and/or"
  1.  W !?5,"future appointments.  You are also given the opportunity"
  1.  W !?5,"to print the list to paper.",!
  1.  Q
  1.  ;
  1. MB ;EP; intro text for Multi Appt Booking
  1.  D ^XBCLS W !!?20,"MULTIPLE APPOINTMENT BOOKING",!!
  1.  W !?5,"Use this option to make a series of multiple daily or weekly"
  1.  W !?5,"appointments to a clinic for a specific patient.",!
  1.  Q
  1.  ;
  1. MC ;EP; intro tedxt for Multi Clinic Booking
  1.  D ^XBCLS W !!?20,"MULTIPLE CLINIC DISPLAY/BOOKING",!!
  1.  W !?5,"Use this option to make appointments in up to 4 clinics for"
  1.  W !?5,"a patient within the same day.  The option will automatically"
  1.  W !?5,"find the day all clinics you've specified have appointments"
  1.  W !?5,"available.",!
  1.  Q
  1.  ;
  1. MD ;EP; intro text for Month-at-a-glance
  1.  D ^XBCLS W !!?20,"MONTH-AT-A-GLANCE DISPLAY",!!
  1.  W !?5,"Use this option to display on your screen or print to paper"
  1.  W !?5,"a snapshot of the appointment schedule for a particular"
  1.  W !?5,"clinic.",!
  1.  Q
  1.  ;
  1. OI ;EP; intro text for Add/Edit Other Info
  1.  D ^XBCLS W !!?20,"ADD/EDIT OTHER INFO ON PENDING APPTS",!!
  1.  W !?5,"Use the option to add to or change the ""Other Information"" "
  1.  W !?5,"section of a patient's pending appointment.",!
  1.  Q
  1.  ;
  1. PR ;EP; intro text for Pat Mini-Registration
  1.  D ^XBCLS W !!?20,"PATIENT MINI-REGISTRATION",!!
  1.  W !?5,"Use this option to temporarily register a new patient who"
  1.  W !?5,"needs a clinic appointment.  The eligibility status will be"
  1.  W !?5,"set to ""Pending Verification"" until the patient arrives for"
  1.  W !?5,"the appointment and is assigned an official chart number.",!
  1.  K DIR S DIR(0)="E" D ^DIR K DIR I X=U S XQUIT=1
  1.  Q
  1.  ;
  1. PREND ;EP; called to clean up variables for pat mini reg
  1.  K AG,AGDTS,AGOPT,AGE,AGDOG,DOG,DFN,DR,DIC,SEX,SSN Q
  1.  ;
  1. NS ;EP; intro text for no-shows
  1.  D ^XBCLS W !!?25,"NO-SHOWS",!!
  1.  W !?5,"Use this option to record your clinic's no-shows by date."
  1.  W !?5,"You are also given the opportunity to print no-show letters"
  1.  W !?5,"now, if desired.  There is also an option to print no-show"
  1.  W !?5,"letters on the Reports Menu.",!
  1.  Q
  1.  ;
  1. WL ;EP; intro text for Waiting list edit
  1.  D ^XBCLS W !!?20,"WAITING LIST ENTER/EDIT",!!
  1.  W !?5,"Use this option to enter patients into a waiting list for"
  1.  W !?5,"selected clinics.  Any active clinic can be used.  You will"
  1.  W !?5,"be asked to set a priority for each patient.  There is also"
  1.  W !?5,"a comments section.  The Reports Menu has an option to print"
  1.  W !?5,"out the waiting lists.",!
  1.  Q