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

Package: Engineering

Routine: ENEQPMS6


Information

ENEQPMS6 ;(WASH ISC)/DH-Print PMI Worklist Header ;5.16.97

Source Information

Source file <ENEQPMS6.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 PM work orders to print.",!
  • Line Location: HDR80+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR80+4
Function Call: WRITE
  • Prompt: $S(ENPM="M":"Monthly ",ENPM["W":"Weekly ")_"PM List: "_$E(ENSHOP,1,18)_" Shop for "_ENPMMN_"/"_$E(ENPMDT,1,2)
  • Line Location: HDR80+7
Function Call: WRITE
  • Prompt: " Week: "_ENPMWK_" "
  • Condition for execution: ENPM["W"
  • Line Location: HDR80+7
Function Call: WRITE
  • Prompt: " Printed:"
  • Condition for execution: ENPM="M"
  • Line Location: HDR80+7
Function Call: WRITE
  • Prompt: " "_ENDATE_" Page "_ENPG
  • Line Location: HDR80+7
Function Call: WRITE
  • Prompt: !,X1
  • Line Location: HDR80+19
Function Call: WRITE
  • Prompt: " Responsible Tech: "_$S($G(ENEMP)?1A.ANP:$E(ENEMP,1,16),1:"STAFF")
  • Line Location: HDR80+20
Function Call: WRITE
  • Prompt: " (VACNT)"
  • Condition for execution: $G(VACANT)
  • Line Location: HDR80+20
Function Call: WRITE
  • Prompt: !,"Entry # Equipment Category Model Serial Number"
  • Line Location: HDR80+21
Function Call: WRITE
  • Prompt: !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name Local ID"
  • Line Location: HDR80+22
Function Call: WRITE
  • Prompt: !," Status PM # Manufacturer Service"
  • Line Location: HDR80+23
Function Call: WRITE
  • Prompt: ?36,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"
  • Line Location: HDR80+24
Function Call: WRITE
  • Prompt: !,K,!
  • Line Location: HDR80+26
Function Call: WRITE
  • Prompt: !!,"There are no incomplete PM work orders to print.",!
  • Line Location: HDR96+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR96+4
Function Call: WRITE
  • Prompt: $S(ENPM="M":"Monthly ",ENPM["W":"Weekly ")_"PM Worklist for "_ENSHOP_" Shop for "_ENPMMN_"/"_$E(ENPMDT,1,2)
  • Line Location: HDR96+7
Function Call: WRITE
  • Prompt: " Week: "_ENPMWK
  • Condition for execution: ENPM="W"
  • Line Location: HDR96+7
Function Call: WRITE
  • Prompt: " Printed: "_TIME_" Page "_ENPG
  • Line Location: HDR96+7
Function Call: WRITE
  • Prompt: !,X1
  • 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",?65,"Service"
  • Line Location: HDR96+23
Function Call: WRITE
  • Prompt: ?44,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"
  • 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+14, HDR96+14
^ENG(6911 - [#6911] HDR80+11, HDR96+11

Label References

Name Line Occurrences
HOLD HDR80+5, HDR96+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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