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

Package: Engineering

Routine: ENY2KR1


Information

ENY2KR1 ;(WASH ISC)/DH-Rapid Y2K Close Out ;6.16.98

Source Information

Source file <ENY2KR1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 DD^%DT  NOW^%DTC  %XY^%RCR  ^DIE  $$GET1^DIQ  ^DIR  
Engineering 4 GETEQ^ENUTL  (CAT1,CSN1,MFG1,MOD1)^ENY2K  LOC1^ENY2K9  MEN1^ENY2KA  
Kernel 2 ^%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: 6

Package Total Caller Graph
Engineering 6 ENY2KRCAT  ENY2KRCSN  ENY2KRLOC  ENY2KRMEN  ENY2KRMFG  ENY2KRMOD  

Entry Points

Name Comments DBIA/ICR reference
CAT ; rapid closeout by equipment category
CSN ; rapid closeout by category stock number
MEN ; rapid closeout by manufacturer equipment name (trade name)
; menu option disabled at request of TAG
MFG ; rapid closeout by manufacturer
LOC ; rapid closeout by range of local identifiers
MOD ; rapid closeout by manufacturer and model
Y2KWO ; check for open Y2K work orders
PROCS ; close the Y2K work orders
PROCD
FIRST ; close out first Y2K work order
SUBSQNT ; finish the list
HDR ; header for Y2K work order list
HOLD
EXIT

External References

Name Field # of Occurrence
DD^%DT FIRST+14
NOW^%DTC PROCS+5
%XY^%RCR SUBSQNT+5, SUBSQNT+6
^%ZIS PROCS+6
^%ZISC PROCS+12
^DIE FIRST+10, FIRST+16, SUBSQNT+8, SUBSQNT+10
$$GET1^DIQ FIRST+7
^DIR PROCS+25
GETEQ^ENUTL PROCS+20
CAT1^ENY2K CAT+3
CSN1^ENY2K CSN+3
MFG1^ENY2K MFG+3
MOD1^ENY2K MOD+3
LOC1^ENY2K9 LOC+3
MEN1^ENY2KA MEN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"None of the selected equipment entries have open Y2K work orders.",!,"Data base unchanged."
  • Line Location: PROCS+1
Function Call: WRITE
  • Prompt: !!,COUNT("Y2KWO")_" of the selected equipment records have open Y2K work orders which",!,"may now be closed."
  • Line Location: PROCS+2
Function Call: WRITE
  • Prompt: !!,"First we'll print a list of the open Y2K work orders."
  • Line Location: PROCS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCS+6
Function Call: WRITE
  • Prompt: !,WO,?34,$J(DA,10)
  • Line Location: PROCS+10
Function Call: WRITE
  • Prompt: @IOF,!,"Rapid Close Out of Y2K work orders will automatically place the affected",!,"equipment in a Y2K CATEGORY of 'FULLY COMPLIANT'."
  • Line Location: PROCS+13
Function Call: WRITE
  • Prompt: !!,"It is assumed that you have reviewed the list of open Y2K work orders just",!,"printed. You will have an opportunity to remove individual work orders from"
  • Line Location: PROCS+14
Function Call: WRITE
  • Prompt: !,"this closeout list by specifying their equipment entry numbers."
  • Line Location: PROCS+15
Function Call: WRITE
  • Prompt: !!,"If any of these equipment entries have been erroneously classified as",!,"'CONDITIONALLY COMPLIANT', then you should remove them from the closeout list."
  • Line Location: PROCS+16
Function Call: WRITE
  • Prompt: !!,"You should then use the 'Delete Y2K Work Orders' option [ENY2K_DEL] to delete",!,"the work orders instead of closing them. Finally, you should use the 'Manual"
  • Line Location: PROCS+17
Function Call: WRITE
  • Prompt: !,"Equipment Selection for Y2K' option [ENY2KIND], which is under 'Y2K Data Entry'",!,"[ENY2K_ENTRY], to enter correct Y2K information for the subject equipment."
  • Line Location: PROCS+18
Function Call: WRITE
  • Prompt: !!,"Please enter any equipment entry numbers that should be removed from the",!,"closeout list:"
  • Line Location: PROCS+19
Function Call: WRITE
  • Prompt: !!,"There's nothing left to close out. Data base unchanged."
  • Line Location: PROCS+22
Function Call: WRITE
  • Prompt: !!,COUNT("Y2KWO")-COUNT("Y2KWO","REMOVE")_" Y2K work orders are about to be closed out. Are you sure that",!,"you want to proceed?"
  • Line Location: PROCS+23
Function Call: WRITE
  • Prompt: !,COUNT_" Y2K work orders were closed."
  • Line Location: PROCD+2
Function Call: WRITE
  • Prompt: !,"Work orders for the following "_COUNT("LOCK")_" equipment records could not be",!,"locked and were, therefore, not processed:"
  • Line Location: PROCD+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCD+6
Function Call: WRITE
  • Prompt: !,?10,EQDA
  • Line Location: PROCD+7
Function Call: WRITE
  • Prompt: !!,"There are no open Y2K work orders that can be closed. Data base unchanged."
  • Line Location: FIRST+5
Function Call: WRITE
  • Prompt: !!,"You will be prompted to close the first Y2K work order manually, after which",!,"the system will take care of the others automatically."
  • Line Location: FIRST+6
Function Call: WRITE
  • Prompt: !!,"EQUIPMENT ID#: "_EQDA_" "_SORT_" "_$E($$GET1^DIQ(6914,EQDA,1),1,20)_" "_$E($$GET1^DIQ(6914,EQDA,4),1,20)
  • Line Location: FIRST+7
Function Call: WRITE
  • Prompt: !,"The work order was not closed out. Terminating the option."
  • Line Location: FIRST+10
Function Call: WRITE
  • Prompt: "Y2K Work Orders Now Subject to Rapid Closeout "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Work Order Number",?25,"Equipment Entry Number"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+4
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Routine Call
  • DIE
  • Line Location:
    • FIRST+10
    • FIRST+16
    • SUBSQNT+8
    • SUBSQNT+10
Routine Call
  • DIR
  • Line Location:
    • PROCS+25
Routine Call
  • %ZIS
  • Line Location:
    • PROCS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls,  GET1^DIQ
^ENG(6920 - [#6920] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PROCS+5
^DIE("B" FIRST+9
^ENG(6914 - [#6914] Y2KWO+2, FIRST+1, FIRST+2, SUBSQNT+1
^ENG(6920 - [#6920] Y2KWO+3, FIRST+1, FIRST+2, FIRST+3, FIRST+4, FIRST+10, FIRST+11, FIRST+12, FIRST+13, SUBSQNT+1
SUBSQNT+2, SUBSQNT+3, SUBSQNT+4
^TMP($J CAT+4, CSN+4, MEN+5, MFG+4, LOC+4, MOD+4, Y2KWO+1, Y2KWO+3*, PROCS+1, PROCS+8
PROCS+21, PROCD+1, PROCD+5, FIRST+1, FIRST+2, FIRST+4*, SUBSQNT+3*, EXIT!

Label References

Name Line Occurrences
EXIT CAT+7, CSN+7, MEN+8, MFG+7, LOC+7, MOD+7, PROCS+1, PROCS+6, PROCS+11, PROCS+12
PROCS+22, PROCS+25
FIRST PROCD
HDR PROCS+8, PROCS+9
HOLD PROCS+9, PROCS+11, PROCD+6, FIRST+10
PROCS CAT+6, CSN+6, MEN+7, MFG+6, LOC+6, MOD+6
SUBSQNT PROCD+1
Y2KWO CAT+6, CSN+6, MEN+7, MFG+6, LOC+6, MOD+6

Naked Globals

Name Field # of Occurrence
^( PROCS+8, PROCS+21!
^(4 FIRST+13
^(5 Y2KWO+3, FIRST+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PROCS+5
>> %X SUBSQNT+5*, SUBSQNT+6*
>> %Y SUBSQNT+5*, SUBSQNT+6*
>> %ZIS PROCS+6*
CAT CAT+1~, CAT+5
COST CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, FIRST+15*
COST("L" FIRST+13*, FIRST+15
COST("M" FIRST+13*, FIRST+15
COST("V" FIRST+13*, FIRST+15
COUNT CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, PROCD+1*, PROCD+2, SUBSQNT+4*
COUNT("LOCK" PROCD+1*, PROCD+3, PROCD+4, FIRST+4*
COUNT("Y2KWO" Y2KWO+1*, Y2KWO+3*, PROCS+2, PROCS+20*, PROCS+21*, PROCS+22, PROCS+23
CRITER CAT+1~, CAT+2*, CSN+1~, CSN+2*, MEN+2~, MEN+3*, MFG+1~, MFG+2*, LOC+1~, LOC+2*
MOD+1~, MOD+2*
CSN CSN+1~, CSN+5
DA CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, Y2KWO+1*, Y2KWO+2, Y2KWO+3, PROCS+8*
PROCS+10, FIRST+1*, FIRST+2*, FIRST+3*, FIRST+4*, FIRST+5, FIRST+8, FIRST+10, FIRST+11, FIRST+12
FIRST+13, FIRST+16*, SUBSQNT+1*, SUBSQNT+2, SUBSQNT+3, SUBSQNT+4, SUBSQNT+5, SUBSQNT+6, SUBSQNT+9*
DATE CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, FIRST+13*, FIRST+14
DATE("E" FIRST+14*
DATE("PRNT" PROCS+5*, HDR+2
DIC CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~
DIE CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, FIRST+9*, FIRST+16*, SUBSQNT+5*, SUBSQNT+9*
DIR PROCS+25!
DIR("B" PROCS+24*
DIR(0 PROCS+24*
>> DIRUT PROCS+25
DR CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, FIRST+9*, FIRST+16*, SUBSQNT+7*, SUBSQNT+9*
DTIME HOLD
END LOC+1~, LOC+5
ENY2K CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~
ENY2K("CONT" CAT+4, CSN+4, MEN+5, MFG+4, LOC+4, MOD+4
ENY2K("HOURS" FIRST+11*
ENY2K("PRIM" FIRST+12*
ENY2K("WORK" FIRST+11*
ENY2WO SUBSQNT+4*, EXIT+1!
EQDA PROCD+1*, PROCD+5*, PROCD+7, FIRST+1*, FIRST+2*, FIRST+4, FIRST+7, FIRST+16, SUBSQNT+1, SUBSQNT+3
SUBSQNT+9, EXIT+1!
ESCAPE CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, PROCS+8, PROCS+11, PROCS+12, PROCD
PROCD+5, PROCD+6, FIRST+5*, FIRST+10*, HOLD*
IO PROCS+7, PROCS+11, PROCS+12
IO(0 PROCS+11, PROCS+12
IOF PROCS+13, PROCD+6, HDR+1
IOSL PROCS+9, PROCD+6
IOST HDR+1, HOLD
LOC LOC+1~, LOC+5
MEN MEN+2~, MEN+6
MFG MFG+1~, MFG+5, MOD+1~, MOD+5
MOD MOD+1~, MOD+5
PAGE PROCS+4~, PROCS+6*, HDR+1*, HDR+2
>> POP PROCS+6
SORT CAT+1~, CAT+5*, CSN+1~, CSN+5*, MEN+2~, MEN+6*, MFG+1~, MFG+5*, LOC+1~, LOC+5*
MOD+1~, MOD+5*, FIRST+7
U Y2KWO+2, Y2KWO+3, FIRST+1, FIRST+2, FIRST+3, FIRST+10, FIRST+11, FIRST+12, FIRST+13, SUBSQNT+1
SUBSQNT+2, SUBSQNT+4
WO CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, Y2KWO+2*, Y2KWO+3, PROCS+8*, PROCS+10
X FIRST+11*, HDR+4!*, HOLD*
>> Y PROCS+5*, PROCS+20, PROCS+21, PROCS+25, FIRST+14*
Y2DA CAT+1~, CSN+1~, MEN+2~, MFG+1~, LOC+1~, MOD+1~, FIRST+8*, SUBSQNT+5, SUBSQNT+6
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