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: ENLBL10

Package: Engineering

Routine: ENLBL10


Information

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

Source Information

Source file <ENLBL10.m>

Entry Points

Name Comments DBIA/ICR reference
PM ;Range of PM numbers
PM1
PM2
PM21
PM3
PMNSRT
HOLD

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Starting with: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PM1+0
Function Call: WRITE
  • Prompt: !!,"Property Management (PM) numbers should consist of four numbers, followed",!,"by a dash (-), followed by four more numbers. There may be an alphabetic"
  • Line Location: PM1+2
Function Call: WRITE
  • Prompt: !,"at the end (for a grand total of ten characters), but there usually isn't."
  • Line Location: PM1+3
Function Call: WRITE
  • Prompt: !!,"The first four numbers correspond to the Federal Supply Classification Code."
  • Line Location: PM1+4
Function Call: WRITE
  • Prompt: !,"The next four numbers are assigned at the site, usually by the Property",!,"Management Section in A&MM."
  • Line Location: PM1+5
Function Call: WRITE
  • Prompt: !!,"It is the intent of VACO Program Offices to phase out PM numbers in favor of",!,"the AEMS/MERS entry number, but no official timetable has been established.",!
  • Line Location: PM1+6
Function Call: WRITE
  • Prompt: !,"Doesn't look like a standard PM number. Are you sure",*7
  • Line Location: PM1+7
Function Call: WRITE
  • Prompt: !,"PM #'s look like '7025-5001'."
  • Line Location: PM1+7
Function Call: READ
  • Formatting: !
  • Prompt: "and ending with: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PM2+0
Function Call: WRITE
  • Prompt: !!,"Your ending point does not follow your starting point. I'm confused.",*7
  • Line Location: PM2+0
Function Call: WRITE
  • Prompt: !,"Are you sure"
  • Line Location: PM2+1
Function Call: WRITE
  • Prompt: !,"PM numbers look like '7025-5001'."
  • Line Location: PM2+1
Function Call: WRITE
  • Prompt: !!,*7,"Sorry, but there doesn't appear to be any equipment in specified range."
  • Line Location: PM2+2
Function Call: WRITE
  • Prompt: !,"Sort labels by LOCATION"
  • Line Location: PM21+0
Function Call: WRITE
  • Prompt: !,"Say YES to sort labels by DIVISION, BUILDING, then by ROOM.",!,"If you say NO, labels will be sorted by VA PM #."
  • Line Location: PM21+0
Function Call: WRITE
  • Prompt: !,*7,"Companion Printer UNAVAILABLE."
  • Line Location: PM3+1
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue..."
  • Line Location: HOLD+0
Info |  Source |  Entry Points |  Interaction Calls