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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] HDR80+13, HDR96+14
^ENG(6911 - [#6911] HDR80+10, HDR96+11

Label References

Name Line Occurrences
HOLD HDR80+4, HDR96+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME HOLD
>> ENDATE HDR80+6
>> ENEMP HDR80+19, HDR96+20
>> ENPG HDR80+1, HDR80+3, HDR80+5*, HDR80+6, HDR96+2, HDR96+4, HDR96+6*, HDR96+7
>> ENPG(0 HDR80+1, HDR96+2
>> ENSHOP HDR80+6, HDR96+7
>> ENSRT HDR80+7, HDR80+8, HDR80+9, HDR80+10, HDR80+11, HDR80+14, HDR96+8, HDR96+9, HDR96+10, HDR96+11
HDR96+12, HDR96+15
>> ENSRT( HDR80+17, HDR96+18
>> ENSRT("A" HDR80+7, HDR96+8
>> ENSRT("ALL" HDR80+8, HDR80+9, HDR80+10, HDR80+12, HDR96+9, HDR96+10, HDR96+11, HDR96+13
>> ENSRT("BY" HDR80+15, HDR96+16
>> ENSRT("FR" HDR80+10, HDR80+13, HDR96+11, HDR96+14
>> ENSRT("OOS" HDR80+19, HDR96+20
>> ENTECH HDR80+19, HDR96+20
>> ENY HDR80+1, HDR80+26*, HDR96+2, HDR96+27*
>> ENY2DT("E" HDR80+6, HDR96+7
I HDR80+15*, HDR96+1~, HDR96+16*
IOF HDR80+3, HDR80+5, HDR96+4, HDR96+6
IOM HDR96+25
IOST HDR80+2, HDR96+3
K HDR80+15*, HDR80+16*, HDR80+17, HDR80+24!*, HDR80+25, HDR96+1~, HDR96+16*, HDR96+17*, HDR96+18, HDR96+25!*
HDR96+26
>> TIME HDR96+7
U HDR80+10, HDR80+13, HDR96+11, HDR96+14, HOLD
>> VACANT HDR80+19, HDR96+20
X HDR80+2*, HDR96+1~, HDR96+3*, HOLD*
X(1 HDR80+7*, HDR80+8*, HDR80+9*, HDR80+10*, HDR80+12*, HDR80+13*, HDR80+14*, HDR80+15*, HDR80+17*, HDR80+18
HDR96+8*, HDR96+9*, HDR96+10*, HDR96+11*, HDR96+13*, HDR96+14*, HDR96+15*, HDR96+16*, HDR96+18*, HDR96+19
X(2 HDR80+13*, HDR96+14*
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All