Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Engineering 1 NOTES^ENWOD2  
VA FileMan 1 $$GET1^DIQ  

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)

External References

Name Field # of Occurrence
$$GET1^DIQ DATA+4, DATA+11, DATA+12
NOTES^ENWOD2 LN80+12, LN96+12

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" POST+5
^ENG("SP" - [#6928] DATA+6, DATA+7, DATA+9, DATA+10
^ENG(6914 - [#6914] LN80+14, LN96+14, DATA+3, DATA+4, DATA+12, DATA+13, DATA+14
^ENG(6914.2 - [#6914.2] DATA+14

Label References

Name Line Occurrences
DATA LN80+2, LN96+2
POST LN80+12, LN96+12

Naked Globals

Name Field # of Occurrence
^(0 DATA+7, DATA+10, DATA+14
^(1 DATA+12
^(3 DATA+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA LN80+3, LN80+12, LN80+14, LN96+3, LN96+12, LN96+14, DATA+3, DATA+4, DATA+11, DATA+12
, DATA+13, DATA+14
DT POST+4
>> EN DATA+4*, DATA+12*
>> ENCOND DATA+2*, DATA+4*
>> ENCRIT LN80+10, LN96+10, DATA+2*, DATA+13*
>> ENDTYP DATA+2*
>> ENDVTYP LN80+3, LN96+3, DATA+2*, DATA+12*
>> ENHRS LN80+13, LN96+13, DATA+2*, DATA+14*
>> ENHZ LN80+10, LN96+10
>> ENJCAHO LN80+11, LN96+11, DATA+2*, DATA+4*
>> ENLID LN80+5, LN96+5, DATA+2*, DATA+4*
>> ENLOC LN80+4, LN96+4, DATA+2*, DATA+4*, DATA+5, DATA+6, DATA+7*, DATA+9
>> ENLVL LN80+10, LN96+10, DATA+2*, DATA+14*
>> ENMAN LN80+7, LN96+7, DATA+2*, DATA+12*
>> ENMANF DATA+2*
>> ENMAT LN80+13, LN96+13, DATA+2*, DATA+14*
>> ENMFGR LN80+5, LN96+5, DATA+2*, DATA+3*
>> ENMOD LN80+3, LN96+3, DATA+2*, DATA+12*
>> ENPMN LN80+7, LN96+7, DATA+2*, DATA+4*
>> ENPRC DATA+2*, DATA+14*, DATA+15
>> ENPROC(1 LN80+9, LN96+9, DATA+2*, DATA+14*
>> ENPROC(2 LN80+8, LN96+8, DATA+2*, DATA+14*, DATA+15*
>> ENSN LN80+3, LN96+3, DATA+2*, DATA+12*
>> ENSRVC LN80+7, LN96+7, DATA+2*, DATA+11*
>> ENUSE LN80+6*, LN80+7, LN96+6*, LN96+7, DATA+2*, DATA+4*
ENWING LN80+4*, LN96+4*, DATA+2*, DATA+7*, DATA+8!, DATA+10*!
>> ENWOX LN80+13, LN96+13
ENX LN80+12!, LN96+12!
ENX("HA" POST+9
ENX("T" POST+2
ENX(1 POST+4, POST+5
ENX(2 LN80+14, LN96+14
ENX(3 POST+10
ENX(4 POST+7, POST+8
ENX(6 POST+9
>> ENY LN80+15*, LN96+15*, POST+10*, POST+12*, POST+13*
I POST+3~*, POST+6*, POST+7*, POST+8, POST+9, POST+13*
>> MULT DATA+14
>> SE DATA+13, DATA+14
U LN80+14, LN96+14, DATA+3, DATA+4, DATA+7, DATA+10, DATA+12, DATA+13, DATA+14
>> X DATA+9*, DATA+10
X1 LN80+1~, LN96+1~
X1( POST+6*, POST+7*, POST+8*, POST+9*, POST+13
X1(1 POST+11, POST+12
>> Y POST+5*, POST+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All