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

Package: Engineering

Routine: ENY2K6


Information

ENY2K6 ;(WASH ISC)/DH-Print Y2K Worklist Header ;8.24.98

Source Information

Source file <ENY2K6.m>

Entry Points

Name Comments DBIA/ICR reference
HDR80 ; 10 pitch worklist
HDR96 ; 12 or 16 pitch worklist
HOLD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no incomplete Y2K work orders to print.",!
  • Line Location: HDR80+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR80+3
Function Call: WRITE
  • Prompt: "Y2K Worklist for "_$E(ENSHOP,1,18)_" Shop thru "_ENY2DT("E")_" Printed: "_ENDATE_" Page "_ENPG
  • Line Location: HDR80+6
Function Call: WRITE
  • Prompt: !,X(1)
  • Line Location: HDR80+18
Function Call: WRITE
  • Prompt: " Responsible Tech: "_$S($G(ENEMP)?1A.ANP:$E(ENEMP,1,16),1:"STAFF")
  • Line Location: HDR80+19
Function Call: WRITE
  • Prompt: " (VACNT)"
  • Condition for execution: $G(VACANT)
  • Line Location: HDR80+19
Function Call: WRITE
  • Prompt: !,"Entry # Equipment Category Model Serial Number"
  • Line Location: HDR80+20
Function Call: WRITE
  • Prompt: !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name Local ID"
  • Line Location: HDR80+21
Function Call: WRITE
  • Prompt: !," Status PM # Manufacturer Service"
  • Line Location: HDR80+22
Function Call: WRITE
  • Prompt: !,"Work Order Number"
  • Line Location: HDR80+23
Function Call: WRITE
  • Prompt: !,K,!
  • Line Location: HDR80+25
Function Call: WRITE
  • Prompt: !!,"There are no incomplete Y2K work orders to print.",!
  • Line Location: HDR96+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR96+4
Function Call: WRITE
  • Prompt: "Y2K Worklist for "_ENSHOP_" Shop thru "_ENY2DT("E")_" Printed: "_TIME_" Page "_ENPG
  • Line Location: HDR96+7
Function Call: WRITE
  • Prompt: !,X(1)
  • Line Location: HDR96+19
Function Call: WRITE
  • Prompt: " Responsible Tech: "_$S($G(ENEMP)?1A.ANP:ENEMP,1:"STAFF")
  • Line Location: HDR96+20
Function Call: WRITE
  • Prompt: " (VACATED)"
  • Condition for execution: $G(VACANT)
  • Line Location: HDR96+20
Function Call: WRITE
  • Prompt: !,"Entry # Equipment Category Model Serial Number"
  • Line Location: HDR96+21
Function Call: WRITE
  • Prompt: !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name",?80,"Local ID"
  • Line Location: HDR96+22
Function Call: WRITE
  • Prompt: !," Status",?18,"PM # Manufacturer",?60,"Service"
  • Line Location: HDR96+23
Function Call: WRITE
  • Prompt: !,"Work Order Number"
  • Line Location: HDR96+24
Function Call: WRITE
  • Prompt: !,K,!
  • Line Location: HDR96+26
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Info |  Source |  Entry Points |  Interaction Calls