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

BDGH03.m

Go to the documentation of this file. 
  1. BDGH03 ; IHS/ANMC/LJF - INTRO TEXT FOR ADT REPORTS ; 
  1.  ;;5.3;PIMS;**1005**;MAY 28, 2004
  1.  ;IHS/OIT/LJF 02/15/2006 PATHC 1005 added PIC subroutine
  1.  ;
  1.  Q
  1.  ;
  1. AFM ;EP; intro text for admission forms option
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to print one of the various admission forms"
  1.  S BDGX(2)="avaiable.  A locator card is printed to show the current"
  1.  S BDGX(3)="ward and room-bed of a patient and is usually used by a"
  1.  S BDGX(4)="site's operators or information desk.  You may also print"
  1.  S BDGX(5)="an A Sheet for one patient, for all patients admitted on"
  1.  S BDGX(6)="one admission date, or if you have the key, a final, coded"
  1.  S BDGX(7)="A Sheet for a patient."
  1.  D DISPLAY(7)
  1.  Q
  1.  ;
  1. ASR ;EP; intro text for ADT statistical reports
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to review ADT census and other statistics"
  1.  S BDGX(2)="by ward or by service.  Each report gives a different view"
  1.  S BDGX(3)="of the ADT activity at your facility."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. BED ;EP; intro text for bed availability
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to view a list of empty beds by ward.  The"
  1.  S BDGX(2)="abbreviated view can optionally include bed descriptions."
  1.  S BDGX(3)="The expanded view can include scheduled admissions for the"
  1.  S BDGX(4)="next 2 weeks, lodgers occupying beds on the ward as well as"
  1.  S BDGX(5)="bed descriptions.  Any bed with an asterisk (*) can be used"
  1.  S BDGX(6)="by multiple wards.  These can include OR and RR beds."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. CIC ;EP; intro text for current inpatient census
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to view the current number of inpatients"
  1.  S BDGX(2)="and observation patients admitted to your facility.  The"
  1.  S BDGX(3)="report breaks down the counts by ward and by service."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. ILD ;EP; intro text for inpt lists by date
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option view past admissions, ICU transfers, and"
  1.  S BDGX(2)="discharges for a given date range.  Each report offers"
  1.  S BDGX(3)="several ways to sort the information.  All reports are"
  1.  S BDGX(4)="available in browse mode in addition to printing on paper."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. IPL ;EP; intro text for current inpatient listings
  1.  NEW BDGX
  1.  S BDGX(1)=$$SP^BDGF(10)_"CURRENT INPATIENT LISTINGS"
  1.  S BDGX(2)="Use this option to print any of nine various inpatient"
  1.  S BDGX(3)="listings based on current inpatients.  Complete on-line"
  1.  S BDGX(4)="help is available as choice #10."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. IWA ;EP; intro text for inpts with appts
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to print appointment lists for inpatients."
  1.  S BDGX(2)="You can choose from listing just those patients admitted"
  1.  S BDGX(3)="on a certain day or to list all current inpatients."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. OPL ;EP; intro text for operator's inpatient listing
  1.  NEW BDGX
  1.  S BDGX(1)="This option is an alphabetical listing of currents"
  1.  S BDGX(2)="inpatients for use in locating a particular patient."
  1.  S BDGX(3)="It lists the patient's ward and room but no clinical"
  1.  S BDGX(4)="information.  This option is designed to be placed on"
  1.  S BDGX(5)="any menu used by the phone operators at your facility."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. PIC ;EP; intro text for provider's IC list;IHS/OIT/LJF 02/15/2006 PATCH 1005
  1.  NEW BDGX
  1.  S BDGX(1)="Providers can use this option to print out a copy of their"
  1.  S BDGX(2)="own current Incomplete Charts Listing. You are not asked for"
  1.  S BDGX(3)="a provider name; it knows who is currently signed in.  This"
  1.  S BDGX(4)="prevents providers from viewing each other's list."
  1.  D DISPLAY(4)
  1.  D PAUSE^BDGF
  1.  Q
  1.  ;
  1. PMR ;EP; intro text for patient movement reports
  1.  NEW BDGX
  1.  S BDGX(1)="This option gives you a choice of reports detailing ward"
  1.  S BDGX(2)="transfers and other movements affecting census data."
  1.  S BDGX(3)="These reports are designed for use by inpatient unit staff"
  1.  S BDGX(4)="For more information, see the on-line help option below."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. SVL ;EP; intro text for scheduled visit list
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to print out a listing of patients with"
  1.  S BDGX(2)="visits by date range.  You can choose to print all types or"
  1.  S BDGX(3)="just admissions, just day surgeries or just outpatients."
  1.  S BDGX(4)="Depending on the type of visits chosen, you have customized"
  1.  S BDGX(5)="choices for primary and secondary sorts. Either a brief or"
  1.  S BDGX(6)="detailed report can be chosen."
  1.  D DISPLAY(6)
  1.  Q
  1.  ;
  1. VAH ;EP; intro text for view admission history
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to view a condensed list of all inpatient"
  1.  S BDGX(2)="and observation stays for a patient at your facility.  You"
  1.  S BDGX(3)="will be asked to choose the patient and the list will be"
  1.  S BDGX(4)="presented in browse mode.  Use the PL - Print List function"
  1.  S BDGX(5)="if you need a paper copy."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. DISPLAY(N) ; -- display array with N lines
  1.  S BDGX(1,"F")="!!!?5"
  1.  F I=2:1:N S BDGX(I,"F")="!?5"
  1.  S BDGX(N+1,"F")="!!"
  1.  D EN^DDIOL(.BDGX)
  1.  D VAR^BDGVAR     ;makes all options able to run independently
  1.  Q