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

Package: Engineering

Routine: ENY2K7


Information

ENY2K7 ;(WIRMFO)/DH-Print Y2K Worklist ;9.14.98

Source Information

Source file <ENY2K7.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 LN80+8, LN96+8, 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: !," Estimated Y2K Compliance Date: "_$$GET1^DIQ(6914,DA,72)_" Est. Cost: $"_$P($P($G(^ENG(6914,DA,11)),U,3),".")
  • Line Location: LN80+8
Function Call: WRITE
  • Prompt: ?68,"JCAHO=YES"
  • Line Location: LN80+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LN80+10
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: $L(ENX)<80
  • Line Location: LN80+11
Function Call: WRITE
  • Prompt: ENX
  • Line Location: LN80+11
Function Call: WRITE
  • Prompt: !!,ENWOX,?16,"Initials:_______ Date:________ Hrs:______ Materials:_______"
  • Line Location: LN80+13
Function Call: WRITE
  • Prompt: !," Y2K Status (circle): FC NC NA CNL TI Vendor Cost:______"
  • 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,30),?61,$E(ENSRVC,1,35)
  • Line Location: LN96+7
Function Call: WRITE
  • Prompt: !," Estimated Y2K Compliance Date: "_$$GET1^DIQ(6914,DA,72)_" Estimated Cost: $"_$P($P($G(^ENG(6914,DA,11)),U,3),".")
  • Line Location: LN96+8
Function Call: WRITE
  • Prompt: ?72,"JCAHO=YES"
  • Line Location: LN96+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LN96+10
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: $L(ENX)<80
  • Line Location: LN96+11
Function Call: WRITE
  • Prompt: ENX
  • Line Location: LN96+11
Function Call: WRITE
  • Prompt: !!,ENWOX,?17,"Initials:________ Date___________ Hours:_______ Materials:_______"
  • Line Location: LN96+13
Function Call: WRITE
  • Prompt: !," Y2K Status (circle): FC NC NA CNL TI Vendor Cost:__________"
  • 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+8
Function Call: WRITE
  • Prompt: !," NOTES: "_X1(1)
  • Line Location: POST+10
Function Call: WRITE
  • Prompt: !,?8,X1(I)
  • Line Location: POST+11

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+8, LN80+9, LN96+8, LN96+9, DATA+3, DATA+4, DATA+12

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
^(1 DATA+12
^(3 DATA+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA LN80+3, LN80+8, LN80+9, LN80+12, LN96+3, LN96+8, LN96+9, LN96+12, DATA+3, DATA+4
, DATA+11, DATA+12
DT POST+4
>> EN DATA+4*, DATA+12*
>> ENCOND DATA+2*, DATA+4*
>> ENDTYP DATA+2*
>> ENDVTYP LN80+3, LN96+3, DATA+2*, DATA+12*
>> ENJCAHO LN80+8, LN96+8, 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 DATA+2*
>> ENMAN LN80+7, LN96+7, DATA+2*, DATA+12*
>> ENMANF DATA+2*
>> ENMFGR LN80+5, LN96+5, DATA+2*, DATA+3*
>> ENMOD LN80+3, LN96+3, DATA+2*, DATA+12*
>> ENPMN LN80+7, LN96+7, DATA+4*
>> 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+9*, LN80+11, LN80+12!, LN96+9*, LN96+11, LN96+12!
ENX("HA" POST+7
ENX("T" POST+2
ENX(1 POST+4, POST+5
ENX(3 POST+8
ENX(6 POST+7
>> ENY LN80+10*, LN80+15*, LN96+10*, LN96+15*, POST+8*, POST+10*, POST+11*
I POST+3~*, POST+6*, POST+7, POST+11*
U LN80+8, LN80+9, LN96+8, LN96+9, DATA+3, DATA+4, DATA+7, DATA+10, DATA+12
X LN80+1~, DATA+9*, DATA+10
X1 LN96+1~
X1( POST+6*, POST+7*, POST+11
X1(1 POST+9, POST+10
>> 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