Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRWU

Package: Lab Service

Routine: LRWU


Information

LRWU ;SLC/RWF/MILW/J - UTILITY FUNTIONS ; 12/28/88 11:04 ; 9/27/19 3:32pm

Source Information

Source file <LRWU.m>

Entry Points

Name Comments DBIA/ICR reference
Z ;;set up 0th nodes for globals
LOC ;get pt. location, called by LRPDA1
ASK
INACT
QUIT
DATE ;
ADATE ;
LOCA ;
LOCE
LOCHELP
DPT ;
IO ;outputs ZTRTN
IOX
A ;
COLTY ;N DIR("A"),DIR(0)
TODIT ; Input transform for DD 64.52 TYPE OF DISPLAY

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"PATIENT LOCATION: ",LRLLOC,$S(LRLLOC]"":"// ",1:"")
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " Enter 2 - 30 alpha-numeric name"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," Location is inactive, Not allowed."
  • Line Location: INACT+1
Function Call: WRITE
  • Prompt: " You must select a standard location."
  • Line Location: INACT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE+2
Function Call: READ
  • Formatting: !
  • Prompt: "Select HOSPITAL LOCATION NAME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LOCA+2
Function Call: WRITE
  • Prompt: !,"Enter a location of 1 to 20 characters."
  • Line Location: LOCHELP+0
Function Call: WRITE
  • Prompt: !,"Only one minor header allowed if vertical."
  • Line Location: TODIT+4
Function Call: WRITE
  • Prompt: !,"No other minor headers may be defined after a vertical format minor header",!,"is defined."
  • Line Location: TODIT+8
Info |  Source |  Entry Points |  Interaction Calls