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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ENLBL6

Package: Engineering

Routine: ENLBL6


Information

ENLBL6 ;(WASH ISC)/DH-Print Bar Coded Equipment Labels ;10.10.97

Source Information

Source file <ENLBL6.m>

Entry Points

Name Comments DBIA/ICR reference
WING ;General location (Space File WING)
WING1
WB ; More than 1 BUILDING?
WB1
WING11
WING2
HWING
HWING2
RM ;Single room (from Space File)
RM1
RM2
HOLD

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Enter WING: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: WING1+0
Function Call: WRITE
  • Prompt: !!,*7,"Sorry, no such WING. Please try again or enter '^' to exit.",!
  • Line Location: WING1+6
Function Call: WRITE
  • Prompt: !,"Please select a BUILDING."
  • Line Location: WB1+2
Function Call: WRITE
  • Prompt: !,?5,"Choices are: "
  • Line Location: WB1+3
Function Call: WRITE
  • Prompt: "or ALL."
  • Line Location: WB1+4
Function Call: READ
  • Timeout: DTIME
  • Line Location: WB1+5
Function Call: WRITE
  • Prompt: !!,*7,"There does not appear to be any equipment located on this WING",!,"(",ENWNG,"). Nothing to print.",!!
  • Line Location: WING11+3
Function Call: WRITE
  • Prompt: !,*7,"Companion Printer UNAVAILABLE."
  • Line Location: WING2+1
Function Call: WRITE
  • Prompt: !,?5,I
  • Line Location: HWING+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HWING2+0
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue or ""^"" to escape..."
  • Line Location: HWING2+0
Function Call: WRITE
  • Prompt: !!,*7,"There does not appear to be any equipment in ",ENROOM("TXT"),".",!!
  • Line Location: RM1+3
Function Call: WRITE
  • Prompt: !,*7,"Companion Printer UNAVAILABLE."
  • Line Location: RM2+1
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue..."
  • Line Location: HOLD+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG("SP" - [#6928] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call