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

BDGH02.m

Go to the documentation of this file. 
  1. BDGH02 ; IHS/ANMC/LJF - INTRO TEXT FOR BED CONTROL MENU ; 
  1.  ;;5.3;PIMS;;APR 26, 2002
  1.  ;
  1.  Q
  1. ADM ;EP; intro text for admit a patient
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to admit a patient to your facility to"
  1.  S BDGX(2)="inpatient or observation status.  The treating specialty"
  1.  S BDGX(3)="you select will determine the status.  You may also use"
  1.  S BDGX(4)="this option to change admission data entered in error BUT"
  1.  S BDGX(5)="only if the patient has not yet been discharged."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. DID ;EP; intro text for detailed inpatient display
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to view all the patient movements, service"
  1.  S BDGX(2)="transfers and provider changes for a particular admission."
  1.  S BDGX(3)="Bed switches within wards only show the last entry."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. DSC ;EP; intro text for discharge a patient
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to release an inpatient or observation"
  1.  S BDGX(2)="patient from your facility.  You will be asked for IHS"
  1.  S BDGX(3)="discharge type, disposition code, transfer facility, if"
  1.  S BDGX(4)="appropriate, and discharge provider."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. EBC ;EP; intro text for extended bed control
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to edit any past admission, transfer or"
  1.  S BDGX(2)="discharge.  You will not be able to edit any item older"
  1.  S BDGX(3)="than "_(+$$GET1^DIQ(9009020.1,$$DIV^BSDU,.02))_" days.  "
  1.  S BDGX(3)=BDGX(3)_"To correct older items, please contact"
  1.  S BDGX(4)="your application coordinator."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. PCH ;EP; intro text for provider change
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to change the provider's primary provider"
  1.  S BDGX(2)="and/or attending provider during an inpatient stay.  Use"
  1.  S BDGX(3)="this option when a change of provider is NOT accompanied"
  1.  S BDGX(4)="by a treating specialty transfer."
  1.  D DISPLAY(4)
  1.  Q
  1.  ;
  1. SIE ;EP; intro text for seriously ill list
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to designate certain patients as seriously"
  1.  S BDGX(2)="ill or DNR (do not resusitate) or both.  Facilities using"
  1.  S BDGX(3)="TIU may prefer to use the CWAD function to designate DNR"
  1.  S BDGX(4)="patients.  Some wards may be set up to automatically set"
  1.  S BDGX(5)="their patients as Seriously Ill."
  1.  D DISPLAY(5)
  1.  Q
  1.  ;
  1. SWB ;EP; intro text for switch bed
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to transfer the patient to another room-bed"
  1.  S BDGX(2)="without a change in ward location."
  1.  D DISPLAY(2)
  1.  Q
  1.  ;
  1. TTX ;EP; intro text for treating specialty transfer
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to change a patient's treating specialty"
  1.  S BDGX(2)="without a corresponding change in physical location.  You"
  1.  S BDGX(3)="will also be asked if the provider changed."
  1.  D DISPLAY(3)
  1.  Q
  1.  ;
  1. WTX ;EP; intro text for ward transfer     
  1.  NEW BDGX
  1.  S BDGX(1)="Use this option to transfer an inpatient or an observation"
  1.  S BDGX(2)="patient to another ward.  If the patient's provider or"
  1.  S BDGX(3)="treating specialty also changes, you will be prompted to"
  1.  S BDGX(4)="enter that also.  An observation patient transferred to an"
  1.  S BDGX(5)="inpatient service, will be become an inpatient."
  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 optins able to run independently
  1.  Q