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: 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
Info |  Source |  Entry Points |  Interaction Calls