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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENY2REPA

Package: Engineering

Routine: ENY2REPA


Information

ENY2REPA ;:(WIRMFO)/DH-Y2K Cum by Functional Category ;7.30.98

Source Information

Source file <ENY2REPA.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Engineering 1 PRT^ENY2REPB  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Engineering 2 ENY2KFCUM  ENY2VACO  

Entry Points

Name Comments DBIA/ICR reference
EN
DEQ ; get the net results to date
DEQ1
DATA
EXIT

External References

Name Field # of Occurrence
^%ZIS EN+12
HOME^%ZIS EN+16, EXIT+1
^%ZISC EXIT+1
^%ZTLOAD EN+16
^DIR EN+10
PRT^ENY2REPB DATA+42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?21,"Y2K PROFILE BY FUNCTIONAL CATEGORY"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"There are approximately "_$P(^ENG(6914,0),U,4)_" entries in your Equipment file. Inactive entries"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"(USE STATUS of 'TURNED-IN' or 'LOST OR STOLEN') will be automatically excluded",!,"from Y2K consideration (unless they were turned in due to Y2K non-compliance)."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Equipment entries without a MANUFACTURER and a MODEL will also be excluded",!,"from Y2K consideration."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"There is no STATION NUMBER in your Engineering Init Parameters file.",!,"Can't proceed.",*7
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: DATA+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+12
Routine Call
  • %ZIS
  • Line Location:
    • EN+16
    • EXIT+1
Routine Call
  • DIR
  • Line Location:
    • EN+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(6910 - [#6910] EN+4, EN+6, DEQ1
^ENG(6914 - [#6914] EN+1, DATADATA+1, DATA+2, DATA+4, DATA+14, DATA+16, DATA+19, DATA+24, DATA+32
DATA+33, DATA+35, DATA+37

Label References

Name Line Occurrences
EXIT EN+12, EN+13

Naked Globals

Name Field # of Occurrence
^(1 DATA+16
^(11 DATA+2
^(9 DATA+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+12*
CLASS DEQ+1~, DATA+14*, DATA+15, DATA+17, DATA+18, DATA+21, DATA+22, DATA+25, DATA+26, DATA+27
DATA+30, DATA+32, DATA+34, DATA+35, DATA+37, DATA+39
COST DEQ+1~
COST("E" DATA+32*, DATA+34
COUNT DEQ+1~
COUNT( DEQ1+2*, DEQ1+3*, DEQ1+4*, DEQ1+6*, DEQ1+7*, DEQ1+9*, DEQ1+10*, DATA+4, DATA+5*, DATA+6*
DATA+7*, DATA+9*, DATA+10*, DATA+12*, DATA+13*, DATA+15*, DATA+17*, DATA+20*, DATA+21*, DATA+22*
DATA+25*, DATA+26*, DATA+27*, DATA+30*, DATA+34*, DATA+37*
DA DEQ+1~, DATA*, DATA+1, DATA+2, DATA+3, DATA+4, DATA+14, DATA+16, DATA+19, DATA+24
DATA+32, DATA+33, DATA+35, DATA+37
DA(1 DATA+35*
DIR EN+10!
DIR("?" EN+8*, EN+9*
DIR("A" EN+7*
DIR("B" EN+7*
DIR(0 EN+7*
>> DIRUT EN+10
>> EN DATA+16*, DATA+21, DATA+26, DATA+27, DATA+30, DATA+39
ENSTN EN+5*, EN+6!, EN+10*, EN+11*, DATA+4, EXIT+2!
>> ENY2K("ACT" DATA+30*, DATA+31, DATA+36
>> ENY2K("CAT" DATA+21*, DATA+22, DATA+23, DATA+29, DATA+38
>> ENY2K("VACO" DATA+41
ESCAPE DEQ+1~
IO("Q" EN+12!, EN+13
IOF EN
ION EN+14
>> J DEQ1+2*, DEQ1+3*, DEQ1+5*, DEQ1+7*, DATA+5*, DATA+6*, DATA+8*, DATA+10*
>> K DEQ1+2*, DEQ1+3*, DEQ1+4*, DEQ1+5*, DEQ1+6*, DEQ1+7*, DEQ1+8*, DEQ1+9*, DEQ1+10*, DATA+5*
DATA+6*, DATA+7*, DATA+8*, DATA+9*, DATA+10*, DATA+11*, DATA+12*, DATA+13*
MONTH DEQ+1~
>> POP EN+12
STATION DEQ+1~, DEQ1*, DEQ1+2, DEQ1+3, DEQ1+4, DEQ1+5, DEQ1+6, DEQ1+7, DEQ1+8, DEQ1+9
DEQ1+10, DATA*, DATA+4*, DATA+5, DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+11
DATA+12, DATA+13, DATA+15, DATA+17, DATA+20, DATA+21, DATA+22, DATA+25, DATA+26, DATA+27
DATA+30, DATA+32, DATA+34, DATA+35, DATA+37, DATA+39
STATION("PARNT" DEQ1*, DATADATA+4
TOTAL DEQ+1~
TOTAL( DEQ1+5*, DEQ1+7*, DEQ1+8*, DATA+8*, DATA+10*, DATA+11*, DATA+26*, DATA+27*, DATA+32*, DATA+34*
DATA+35*, DATA+39*
TYPE DEQ+1~, DATA+19*, DATA+20
U EN+1, EN+4, EN+6, DEQ1DATA+2, DATA+4, DATA+14, DATA+16, DATA+19, DATA+21
DATA+24, DATA+26, DATA+27, DATA+30, DATA+32, DATA+35, DATA+37, DATA+39
>> Y EN+11
YEAR DEQ+1~
>> ZTDESC EN+14*
>> ZTIO EN+14*
>> ZTQUEUED DATA+3, EXIT
>> ZTREQN EXIT*
>> ZTRTN EN+13*
>> ZTSAVE("EN*" EN+15*
ZTSK EN+16!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All