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 |  Caller 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: ENY2K5

Package: Engineering

Routine: ENY2K5


Information

ENY2K5 ;(WASH ISC)/DH-Generate Y2K Work Orders ;7.15.99

Source Information

Source file <ENY2K5.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 NOW^%DTC  FILE^DICN  ^DIE  
Engineering 2 TEST^ENWOCOMP  ST^ENWOINV  
Kernel 2 HOME^%ZIS  ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENY2K3  

Entry Points

Name Comments DBIA/ICR reference
PR ; Begin
PR1
PR2 ; need a work order?
PR22 ; must create a new work order from the top
; ENWO as set in line PR1+1 or from ENWO("T")
PR221
PR222 ; create a work order when you already have the number
PR3 ; do the printing
EMP
WOCST
HOLD
TRLR ; Interpret PM STATUS and CONDITION CODE
COMP ; devices with completed Y2K work orders (exception messages)
OUT

External References

Name Field # of Occurrence
NOW^%DTC PR+3, PR+10
HOME^%ZIS OUT+4
^%ZISC OUT+3
FILE^DICN PR222+1
^DIE PR222+19
TEST^ENWOCOMP PR222+18
ST^ENWOINV PR222+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"A Y2K Worklist was requested, but there's nothing to print."
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,?5,"Run time: "_Y
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: !,?5,"Shop: "_$S(ENSHKEY("SEL")="ALL":"ALL",1:$P(^DIC(6922,ENSHKEY("SEL"),0),U))
  • Line Location: PR+4
Function Call: WRITE
  • Prompt: !,?5,"Estimated Y2K Compliance Date: "_ENY2DT("E")
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: !!,"Abnormal termination. This worklist may be incomplete."
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: !!,"There are no incomplete Y2K work orders to print.",!
  • Line Location: HOLD+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TRLR+2
Function Call: WRITE
  • Prompt: K
  • Line Location: TRLR+3
Function Call: WRITE
  • Prompt: !,"FC=>Y2K compliant NC=>Y2K non-compliant NA=>Not applicable (no Y2K issues)"
  • Line Location: TRLR+4
Function Call: WRITE
  • Prompt: !,"CNL=>Could not locate TI=>Turned-in"
  • Line Location: TRLR+5
Function Call: WRITE
  • Prompt: @IOF,"DEVICES WITH COMPLETED Y2K WORK ORDERS "_ENDATE_" Page "_ENPG
  • Line Location: COMP+3
Function Call: WRITE
  • Prompt: !!,"The following device(s) have a Y2K CATEGORY of CONDITIONALLY COMPLIANT and",!,"yet their Y2K work order(s) are complete. They are not being printed on",!,"this Y2K worklist."
  • Line Location: COMP+4
Function Call: WRITE
  • Prompt: !!,"You should probably use the 'Manual Equipment Selection for Y2K' option to",!,"change their Y2K CATEGORY to COMPLIANT."
  • Line Location: COMP+5
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: COMP+6
Function Call: WRITE
  • Prompt: !,?10,DA,?25,"("_^TMP($J,"ENY2","COMP",DA)_")"
  • Line Location: COMP+7
Routine Call
  • DIE
  • Line Location:
    • PR222+19
Routine Call
  • %ZIS
  • Line Location:
    • OUT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6920 - [#6920] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PR+3, PR+11
^DIC(6922 - [#6922] PR+4, PR1
^ENG("EMP" - [#6929] PR222+12, PR222+13, PR222+16, EMP+1, EMP+2, EMP+3
^ENG(6914 - [#6914] PR2+1, PR2+3, PR221+1, PR222+5*, PR222+9, PR222+10, PR222+12, PR222+16
^ENG(6920 - [#6920] PR1+1, PR2+5, PR2+6, PR22+2, PR221PR222+2, PR222+3, PR222+6*, PR222+8*, PR222+9*
PR222+10*, PR222+15*, PR222+17*, PR222+22
^ENG(6920.1 - [#6920.1] PR222+7, PR222+8
^TMP($J PR+1, PR+15, PR+16, PR2+4*, PR2+6*, COMP+1, COMP+7, COMP+8!, OUT+2!

Label References

Name Line Occurrences
@( PR1+6, PR1+9, PR1+10, PR3+1, PR3+2
COMP PR+16
EMP PR1+8, PR1+10
HOLD PR+16, COMP+2
OUT PR+19
PR1 PR+16
PR2 PR1+6, PR1+9
PR22 PR2+8, PR2+9
PR221 PR221PR221+1
PR3 PR2+7, PR2+8, PR2+9
TRLR PR+18, PR1+6, PR1+9, PR1+10, PR3+1
WOCST PR222+21

Naked Globals

Name Field # of Occurrence
^(0 PR1PR222+6*, PR222+16
^(11 PR2+1, PR222+5*, PR222+10, PR222+16
^(3 PR222+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PR+3, PR+10
DA PR+6~, PR+16*, PR1+6*, PR1+9, PR1+11*, PR2+1, PR2+3, PR2+4, PR2+6, PR222+5
PR222+6, PR222+9, PR222+10, PR222+12, PR222+16, PR222+18*, PR222+20*, COMP+7*
DD PR222+1!
DIC PR+6~, PR222+1*
DIC(0 PR222+1*
DIE PR+6~, PR222+19*
DO PR222+1!
>> DR PR222+19*
DT PR1PR222+6
DTIME HOLD+1
EN PR+6~, PR222+9*, PR222+21
ENCODE PR1*, PR1+1, PR1+2, OUT!
ENCOND OUT+1!
ENDA PR222+18*, PR222+20, OUT!
ENDATE PR+10*, COMP+3, OUT+1!
ENDTYP OUT!
ENDVTYP OUT!
ENEMP PR+16*, PR1+10*, PR222+13*, EMPEMP+1, EMP+2*, OUT+1!
ENEXPAND PR+12*, PR222+19, OUT+1!
ENFNO OUT+1!
ENHRS OUT+1!
ENHZ PR+16*, PR1+6*, PR1+11*, OUT+1!
ENID OUT!
ENLABOR OUT+1!
ENLID OUT!
ENLOC PR222+9*, OUT!
ENLVL OUT+1!
ENMAN OUT!
ENMANF OUT!
ENMAT OUT+1!
ENMFGR OUT+1!
ENMOD OUT!
ENNXL PR222+1*, PR222+2, PR222+4, PR222+5, PR222+6, PR222+8, PR222+9, PR222+10, PR222+15, PR222+17
PR222+18, PR222+22, OUT+1!
ENNXT OUT+1!
ENPG PR+12*, PR1+6, PR1+9, PR1+10, HOLDTRLR+1, COMP+2*, COMP+3, OUT!
ENPG(0 PR1+6*, PR1+9*, PR1+10*, HOLD
ENPMN PR222+9*, OUT!
ENPRC OUT!
ENPROC OUT!
ENSHABR PR1*, OUT!
>> ENSHKEY PR+15*, PR+16*, PR1PR1+6, PR1+9, PR222+6
>> ENSHKEY("SEL" PR+4
>> ENSHKEY(0 PR+15*, PR+16
>> ENSHOP PR1*
ENSN OUT!
ENSRT OUT!
ENSRVC OUT+1!
ENSTAT OUT+1!
ENTECH PR+16, PR1+5, PR222+11, OUT!
ENUSE OUT!
ENWING OUT+1!
ENWO PR1+1*, PR1+2*, PR1+3*, PR2+8*, PR221*, PR221+1*, PR221+2, PR222+1, PR222+5, PR222+6
PR222+23*, OUT!
ENWO("P" PR2+1*, PR2+5, PR2+6
ENWO("T" PR2+1*, PR2+2, PR2+3, PR2+4, PR2+5, PR2+6, PR2+8, PR221+1
ENWOX PR2+1*, PR2+3*, PR2+4, PR2+5*, PR221+2*, OUT!
ENX PR+6~, OUT+1!
ENXP PR+15!
ENXP("LOCK" PR+17, PR22+2*, PR222+4*
ENY PR+12*, PR3+1, HOLD, OUT!
>> ENY2DT("E" PR+5
H PR+7~
HDR PR+7~, PR+8*, PR+9*, PR+11, PR1+6, PR1+9, PR1+10, PR3+1
I PR+6~
IO PR+13
>> IO("S" TRLR+1
IOF COMP+3
IOM PR+8, TRLR+3, COMP+6
IOSL PR3+1, TRLR+2
IOST HOLD+1, TRLR+1, OUT+3
J PR+6~, PR1+3*, PR2+3*, PR221*, PR221+1*
K PR+6~, PR222+23*, TRLR+3!*
LINE PR+7~, PR+8*, PR+9*, PR3+2
MULT PR+7~
NODE PR+7~, PR+14*, PR+16, PR1+6*, PR1+9*, PR1+10, PR1+11
SE PR+7~
SHOP PR+7~, PR222+16*, PR222+17
>> SUB PR+14*, PR+16, PR1+6, PR1+11
TECH PR+6~, PR+12*, PR222+12*, PR222+13, PR222+14, PR222+15, PR222+16, PR222+17, EMP*, EMP+1*
EMP+2*, EMP+3
TIME PR+7~, PR+11*
U PR+4, PR1PR2+1, PR2+3, PR2+6, PR222+5, PR222+6, PR222+9, PR222+10, PR222+12
PR222+13, PR222+15, PR222+16, PR222+21, EMP+3, HOLD+1
VACANT PR+7~, EMP*, EMP+3*
W PR+7~
X PR+6~, PR+13*, PR+16, PR1*, PR1+6, PR1+9, PR221+2*, PR222+1*, PR3+1, HOLD+1*
COMP+6!*
X(1 PR222+7*, PR222+8
X1 PR+6~
>> Y PR+3*, PR+10*, PR+11, PR222+1
>> ZTQUEUED OUT+3
Info |  Source |  Call Graph |  Caller 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