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

Package: Engineering

Routine: ENY2VACO


Information

ENY2VACO ;;(WIRMFO)/DH-Y2K Activity Report ;10.9.98

Source Information

Source file <ENY2VACO.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Engineering 8 $$LTZ^ENPLUTL  $$EOM^ENUTL  CNTACT^ENY2REP  DEQ1^ENY2REP4  DEQ1^ENY2REPA  SUM1^ENY2USRS  ROLLCUM^ENY2VAC1  (ROLLFC,ROLLUTL)^ENY2VAC2  
Kernel 3 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  NOW^%DTC  ^DIR  
MailMan 1 ^XMD  

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 ENY2K_NATIONAL  ENY2K_NATIONAL_QUEUED  

Entry Points

Name Comments DBIA/ICR reference
EN ; national roll-up of Y2K information
; may be selected manually or scheduled to run automatically
; at a user specified frequency
ACT1
ACT2
DEQVACO ; use ENX( as root of NetWork mail message
ROLLACT ; add Y2K activity to national roll-up
SEND ; send NetWork mail
HOLD
EXIT ;

External References

Name Field # of Occurrence
^%DT ACT1+4, ACT2+2
NOW^%DTC DEQVACO+7
HOME^%ZIS ACT2+12, EXIT+2
^%ZISC EXIT+2
^%ZTLOAD ACT2+12
^DIR ACT2+8
$$LTZ^ENPLUTL DEQVACO+8
$$EOM^ENUTL ACT2, DEQVACO+5
CNTACT^ENY2REP DEQVACO+9
DEQ1^ENY2REP4 DEQVACO+12
DEQ1^ENY2REPA DEQVACO+14
SUM1^ENY2USRS DEQVACO+16
ROLLCUM^ENY2VAC1 DEQVACO+12
ROLLFC^ENY2VAC2 DEQVACO+14
ROLLUTL^ENY2VAC2 DEQVACO+16
^XMD SEND+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?20,"NATIONAL ROLL-UP OF Y2K INFORMATION"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"There is no STATION NUMBER in your Engineering Init Parameters file.",!,"Can't proceed.",*7
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"You must hold security key ENY2K_ROLL_UP in order to execute this option.",*7
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Please enter starting and stopping dates for activity reporting",!," (or '^' to escape...)",!
  • Line Location: ACT1+0
Function Call: WRITE
  • Prompt: !!,"STOPPING DATE must follow the STARTING DATE",*7
  • Line Location: ACT2+3
Function Call: WRITE
  • Prompt: !!,"There was no Y2K activity between "_ENDATE("STARTE")_" and "_ENDATE("STOPE")_".",!,"Cumulative information will be transmitted anyway.",*7
  • Line Location: ACT2+4
Function Call: WRITE
  • Prompt: !!,"The system is now prepared to send a Y2K report to VACO."
  • Line Location: ACT2+6
Function Call: WRITE
  • Prompt: !!,"A national roll-up of Y2K information has been tasked to run via NetWork",!,"Mail. You will receive a copy of the message."
  • Line Location: ACT2+13
Routine Call
  • DIR
  • Line Location:
    • ACT2+8
Routine Call
  • %ZIS
  • Line Location:
    • ACT2+12
    • EXIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ACT1+3, ACT1+5, ACT2, ACT2+2
^DIC(6910 - [#6910] EN+5, DEQVACO+8
^ENG(6918 - [#6918] ACT2+4
^TMP($J DEQVACO+1!, DEQVACO+11!, ROLLACT+1, ROLLACT+4, ROLLACT+5, ROLLACT+6, EXIT+1!
^XUSEC("ENY2K_ROLL_UP" EN+6

Label References

Name Line Occurrences
ACT2 ACT2+3
EXIT DEQVACO+19
HOLD EN+5, EN+6
ROLLACT DEQVACO+9
SEND DEQVACO+18

Naked Globals

Name Field # of Occurrence
^("ACT" ROLLACT+5
^("EST" ROLLACT+5
^("REST" ROLLACT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEQVACO+7, DEQVACO+8
%DT EN+3~, ACT1+1*
%DT("A" ACT1+1*, ACT2+1*
%DT("B" ACT1+3*, ACT2*
%DT(0 ACT1+1*, ACT2+1!
ALLSTN DEQVACO+6~, DEQVACO+9*
CAT DEQVACO+6~
COST DEQVACO+6~
COUNT DEQVACO+6~, DEQVACO+10!, DEQVACO+13!, DEQVACO+15!, ROLLACT+2*, ROLLACT+4*, ROLLACT+5
COUNT( ROLLACT+5, ROLLACT+6
DA DEQVACO+6~
DIR ACT2+8!
DIR("A" ACT2+7*
DIR("B" ACT2+7*
DIR(0 ACT2+7*
>> DIRUT ACT2+8
DT ACT1+1, ACT1+2, DEQVACO+3
DTIME HOLD+1
DUZ EN+6, SEND+1
EN DEQVACO+6~
>> ENC( DEQVACO+17*, ROLLACT+5*, ROLLACT+6*
>> ENC(1 DEQVACO+8*
>> ENC(2 ROLLACT+2*
ENCLASS DEQVACO+6~, DEQVACO+9*
ENDATE ACT2+8!, ACT2+14!, EXIT+4!
ENDATE("STARTE" ACT1+5*, ACT2+4
ENDATE("STARTI" ACT1+5*, ACT2, ACT2+3, ACT2+4, DEQVACO+2, DEQVACO+4*, DEQVACO+5, ROLLACT+2
ENDATE("STOPE" ACT2+2*, ACT2+4
ENDATE("STOPI" ACT2+2*, ACT2+3, ACT2+4, ACT2+5*, DEQVACO+5*, ROLLACT+2
ENSTN DEQVACO+6~, DEQVACO+9*, EXIT+4!
ENX DEQVACO+6~
ENY DEQVACO+6~, DEQVACO+7*, DEQVACO+8
>> ENY2K("VACO" DEQVACO+9*
IOF EN+4
IOST HOLD
J ACT2+10*, ROLLACT+3*, ROLLACT+4, ROLLACT+5, ROLLACT+6, EXIT+4!
K ROLLACT+3*, ROLLACT+4, ROLLACT+5, ROLLACT+6, EXIT+4!
KOUNT DEQVACO+6~, DEQVACO+8*, DEQVACO+17*, ROLLACT+2*, ROLLACT+5*, ROLLACT+6
STATION DEQVACO+6~, ROLLACT+1*, ROLLACT+4, ROLLACT+5, ROLLACT+6
TOTAL DEQVACO+6~, DEQVACO+10!, DEQVACO+13!, DEQVACO+15!
U EN+5, DEQVACO+8, ROLLACT+2, ROLLACT+5, ROLLACT+6
X ACT2+4*, HOLD+1*, EXIT+4!
XMDUZ SEND+1*, SEND+5!
XMSUB SEND+3*, SEND+5!
XMTEXT SEND+3*, SEND+5!
XMY SEND+5!
XMY( SEND+1*
XMY("S.EN_UPDATE_Y2K@DOMAIN.EXT" SEND+1*
>> Y ACT1+2*, ACT1+3, ACT1+4, ACT1+5*, ACT2*, ACT2+2*, ACT2+8, DEQVACO+3*, DEQVACO+4*
>> ZTDESC ACT2+11*
>> ZTDTH ACT2+12*
>> ZTIO ACT2+9*
>> ZTQUEUED EXIT+3
>> ZTREQN EXIT+3*
>> ZTRTN ACT2+9*
>> ZTSAVE( ACT2+10*
ZTSK ACT2+12!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All