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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ENEQPMS7

Package: Engineering

Routine: ENEQPMS7


Information

ENEQPMS7 ;(WIRMFO)/DH-Print PM Worklist ;4.3.98

Source Information

Source file <ENEQPMS7.m>

Entry Points

Name Comments DBIA/ICR reference
LN80 ; 10 pitch worklist
LN96 ; 12 pitch worklist
DATA ; Get data from the equipment record (file #6914)
; Expects DA as the IEN for file #6914
POST ; Writes flagging notes (if any)
; Expects that a call has just been made to NOTES^ENWOD2(DA)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DA,?11,$E(ENDVTYP,1,30),?42,$E(ENMOD,1,16),?59,$S($L(ENSN)>20:$E(ENSN,1,19)_"*",1:ENSN)
  • Line Location: LN80+3
Function Call: WRITE
  • Prompt: !," "_ENLOC
  • Line Location: LN80+4
Function Call: WRITE
  • Prompt: " ("_ENWING_")"
  • Line Location: LN80+4
Function Call: WRITE
  • Prompt: ?24,$E(ENMFGR,1,40),?65,ENLID
  • Line Location: LN80+5
Function Call: WRITE
  • Prompt: !," "_ENUSE,?10,ENPMN,?21,$E(ENMAN,1,30),?52,$E(ENSRVC,1,28)
  • Line Location: LN80+7
Function Call: WRITE
  • Prompt: !," Proc: "
  • Line Location: LN80+8
Function Call: WRITE
  • Prompt: $E(ENPROC(2),1,24)
  • Line Location: LN80+8
Function Call: WRITE
  • Prompt: $E(ENPROC(1),1,24)
  • Line Location: LN80+9
Function Call: WRITE
  • Prompt: ?37,"Crit: ",ENCRIT,?47,"Freq: ",ENHZ,?56,"Level: ",ENLVL
  • Line Location: LN80+10
Function Call: WRITE
  • Prompt: ?69,"JCAHO: YES"
  • Line Location: LN80+11
Function Call: WRITE
  • Prompt: !!,ENWOX,?17,"Initials:_____ Date:_______ Hours:_____"
  • Line Location: LN80+13
Function Call: WRITE
  • Prompt: "("_ENHRS_") "
  • Condition for execution: ENHRS]""
  • Line Location: LN80+13
Function Call: WRITE
  • Prompt: "Cost:______"
  • Line Location: LN80+13
Function Call: WRITE
  • Prompt: "("_ENMAT_")"
  • Condition for execution: ENMAT]""
  • Line Location: LN80+13
Function Call: WRITE
  • Prompt: !," PM Status (circle): P C D0 D1 D2 D3 Condition"
  • Line Location: LN80+14
Function Call: WRITE
  • Prompt: " ("_ENX(2)_")"
  • Condition for execution: $G(ENX(2))]""
  • Line Location: LN80+14
Function Call: WRITE
  • Prompt: ": LN G P Y2K: "_$P($G(^ENG(6914,DA,11)),U)
  • Line Location: LN80+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: LN80+15
Function Call: WRITE
  • Prompt: !,DA,?12,$E(ENDVTYP,1,31),?44,$E(ENMOD,1,20),?65,ENSN
  • Line Location: LN96+3
Function Call: WRITE
  • Prompt: !," "_ENLOC
  • Line Location: LN96+4
Function Call: WRITE
  • Prompt: " ("_ENWING_")"
  • Line Location: LN96+4
Function Call: WRITE
  • Prompt: ?24,$E(ENMFGR,1,55),?80,ENLID
  • Line Location: LN96+5
Function Call: WRITE
  • Prompt: !," "_ENUSE,?18,ENPMN,?29,$E(ENMAN,1,36),?65,$E(ENSRVC,1,30)
  • Line Location: LN96+7
Function Call: WRITE
  • Prompt: !," Proc: "
  • Line Location: LN96+8
Function Call: WRITE
  • Prompt: $E(ENPROC(2),1,30)
  • Line Location: LN96+8
Function Call: WRITE
  • Prompt: $E(ENPROC(1),1,30)
  • Line Location: LN96+9
Function Call: WRITE
  • Prompt: ?44,"Crit: ",ENCRIT,?53,"Freq: ",ENHZ,?62,"Level: ",ENLVL
  • Line Location: LN96+10
Function Call: WRITE
  • Prompt: ?76,"JCAHO: YES"
  • Line Location: LN96+11
Function Call: WRITE
  • Prompt: !!,ENWOX,?18,"Initials:_______ Date:___________ Hours:______"
  • Line Location: LN96+13
Function Call: WRITE
  • Prompt: "("_ENHRS_") "
  • Condition for execution: ENHRS]""
  • Line Location: LN96+13
Function Call: WRITE
  • Prompt: "Cost:________"
  • Line Location: LN96+13
Function Call: WRITE
  • Prompt: "("_ENMAT_")"
  • Condition for execution: ENMAT]""
  • Line Location: LN96+13
Function Call: WRITE
  • Prompt: !," PM Status (circle): P C D0 D1 D2 D3 Condition"
  • Line Location: LN96+14
Function Call: WRITE
  • Prompt: " ("_ENX(2)_")"
  • Condition for execution: $G(ENX(2))]""
  • Line Location: LN96+14
Function Call: WRITE
  • Prompt: ": LN G P Y2K: "_$P($G(^ENG(6914,DA,11)),U)
  • Line Location: LN96+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: LN96+15
Function Call: WRITE
  • Prompt: !," IMPORTANT: Device MUST be isolated & rendered inoperative before servicing."
  • Line Location: POST+10
Function Call: WRITE
  • Prompt: !," NOTES: "_X1(1)
  • Line Location: POST+12
Function Call: WRITE
  • Prompt: !,?8,X1(I)
  • Line Location: POST+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call