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

Package: Engineering

Routine: ENY2K7


Information

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

Source Information

Source file <ENY2K7.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: !," 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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call