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

Package: Engineering

Routine: ENY2REP


Information

ENY2REP ;;(WIRMFO)/DH-Y2K Activity Report ;8.27.98

Source Information

Source file <ENY2REP.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  NOW^%DTC  ^DIR  
Engineering 1 $$EOM^ENUTL  

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

Entry Points

Name Comments DBIA/ICR reference
ACT ; periodic activity report
; counts and totals of all entries and changes within a user specified
; date range
ACT1
ACT2
DEQACT
CNTACT ; store target population in ^TMP($J,"ENY2A",
READ ; extract Y2K activity from skeleton global by date
WRITE ; build global from which report will be drawn (^TMP($J,"ENY2B",)
CCST ; store Y2K compliance costs
; loc var en contains node 11
NCST ; store replacement costs
; loc var en contains node 11
PRNTACT ; print the hard copy
HEADR ; page header
HOLD
EXIT ;

External References

Name Field # of Occurrence
^%DT ACT1+3, ACT2+2
NOW^%DTC PRNTACT+3
^%ZIS ACT2+13
HOME^%ZIS ACT2+17, EXIT+2
^%ZISC EXIT+2
^%ZTLOAD ACT2+17
^DIR ACT2+11
$$EOM^ENUTL ACT2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no STATION NUMBER in your Engineering Init Parameters file.",!,"Can't proceed.",*7
  • Line Location: ACT+4
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")_".",!,*7
  • Line Location: ACT2+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: CNTACT+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: CNTACT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?11,K
  • Condition for execution: J'=0 ?3,J W:K'=0
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?17,$J(^TMP($J,"ENY2B",STATION,J,K,"COUNT"),5),?24,"$"
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: $J(^("EST"),8)
  • Condition for execution: ^("EST")>0
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?35,"$"
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: $J(^("ACT"),8)
  • Condition for execution: ^("ACT")>0
  • Line Location: PRNTACT+8
Function Call: WRITE
  • Prompt: ?46,"$"
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: $J(^("REST"),8)_"("_COUNT(STATION,J,K,"EST")_")"
  • Condition for execution: ^TMP($J,"ENY2B",STATION,J,K,"REST")>0
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: ?62,"$"
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: $J(^("RACT"),8)_"("_COUNT(STATION,J,K,"ACT")_")"
  • Condition for execution: ^("RACT")>0
  • Line Location: PRNTACT+9
Function Call: WRITE
  • Prompt: !!,?10,"<No activity to report>"
  • Line Location: PRNTACT+14
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRNTACT+15
Function Call: WRITE
  • Prompt: !," TOTALS",?17,$J(TOTAL("COUNT"),5),?24,"$"_$J(TOTAL("EST"),8),?35,"$"_$J(TOTAL("ACT"),8),?46,"$"_$J(TOTAL("REST"),8)
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: "("_TOTAL("ECNT")_")"
  • Condition for execution: $G(TOTAL("ECNT"))
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: ?62,"$"_$J(TOTAL("RACT"),8)
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: "("_TOTAL("ACNT")_")"
  • Condition for execution: $G(TOTAL("ACNT"))
  • Line Location: PRNTACT+18
Function Call: WRITE
  • Prompt: "Y2K Net Activity Report from "_ENDATE("STARTE")_" to "_ENDATE("STOPE"),?70,"Page: "_PAGE
  • Line Location: HEADR+2
Function Call: WRITE
  • Prompt: !," Entry Change Count Est Y2K Act Y2K Est Repl(Cnt) Act Repl(Cnt)"
  • Line Location: HEADR+4
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HEADR+5
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Routine Call
  • DIR
  • Line Location:
    • ACT2+11
Routine Call
  • %ZIS
  • Line Location:
    • ACT2+13
Routine Call
  • %ZIS
  • Line Location:
    • ACT2+17
    • EXIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ACT1+2, ACT1+4, ACT2, ACT2+2, PRNTACT+3
^DIC(6910 - [#6910] ACT+4, ACT2+7, CNTACT+6
^ENG(6914 - [#6914] WRITE+1, WRITE+3, NCST+5, NCST+6, NCST+7
^ENG(6918 - [#6918] ACT2+4, CNTACT+1, CNTACT+3, CNTACT+4, READ+3, READ+6
^TMP($J DEQACT!, CNTACT+4*, CNTACT+5, CNTACT+8*, CNTACT+10!, READ+1, READ+2, READ+5, WRITE+1, WRITE+2*
, WRITE+3*, CCST+2*, CCST+3*, NCST+8*, PRNTACT+5, PRNTACT+7, PRNTACT+8, PRNTACT+9, PRNTACT+10, PRNTACT+11
, EXIT+1!

Label References

Name Line Occurrences
ACT1 ACT2+4
ACT2 ACT2+3
CCST WRITE+5, WRITE+7, WRITE+9, WRITE+11, WRITE+15, WRITE+16, WRITE+18, WRITE+19, WRITE+20
CNTACT DEQACT+2
EXIT ACT2+7, ACT2+13, ACT2+14, DEQACT+3
HEADR PRNTACT+5, PRNTACT+12
HOLD PRNTACT+5, PRNTACT+12
NCST WRITE+6, WRITE+10, WRITE+13, WRITE+14, WRITE+21
PRNTACT DEQACT+2
READ CNTACT+10
WRITE CNTACT+10

Naked Globals

Name Field # of Occurrence
^("ACT" PRNTACT+8, PRNTACT+10
^("EST" PRNTACT+8, PRNTACT+10
^("RACT" PRNTACT+9, PRNTACT+11
^("REST" PRNTACT+9
^(9 WRITE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRNTACT+3
%DT ACT+3~, ACT1*
%DT("A" ACT1*, ACT2+1*
%DT("B" ACT1+2*, ACT2*
%DT(0 ACT1*, ACT2+1!
>> %ZIS ACT2+13*
CAT DEQACT+1~
CAT("CHG" READ+1*, READ+3*, WRITE+3, WRITE+5, WRITE+6, WRITE+7, WRITE+9, WRITE+10, WRITE+11, WRITE+13
, WRITE+14, WRITE+15, WRITE+16, WRITE+18, WRITE+19, WRITE+20, WRITE+21, CCST+2, CCST+3, NCST+2
, NCST+3, NCST+5, NCST+7, NCST+8
CAT("ENT" READ+3*, READ+4*, READ+5*, READ+6*, WRITE+3, WRITE+4, WRITE+8, WRITE+12, WRITE+17, CCST+2
, CCST+3, NCST+2, NCST+3, NCST+5, NCST+7, NCST+8
COST DEQACT+1~
COST( NCST+8
COST("RACT" NCST+6*, NCST+7*
COST("REST" NCST+5*
COUNT DEQACT+1~
COUNT( NCST+2*, NCST+3*, NCST+5*, NCST+7*, PRNTACT+9, PRNTACT+16, PRNTACT+17
DA DEQACT+1~, CNTACT+3*, CNTACT+4, CNTACT+10*, READ+1, READ+2, READ+3, READ+5, READ+6, WRITE+1
, WRITE+3, NCST+5, NCST+6
DA(1 CNTACT+1*, CNTACT+2, CNTACT+3, CNTACT+4
DATE DEQACT+1~, CNTACT+1*, CNTACT+3, CNTACT+4
DATE("BEGIN" READ+5*, READ+6
DATE("END" READ+1*, READ+2
DATE("PRNT" PRNTACT+3*, HEADR+3
DIR ACT2+11!
DIR("?" ACT2+9*, ACT2+10*
DIR("A" ACT2+8*
DIR("B" ACT2+8*
DIR(0 ACT2+8*
>> DIRUT ACT2+11
DT ACT1, ACT1+1
DTIME HOLD+1
EN DEQACT+1~, WRITE+3*, CCST+2, CCST+3, NCST+4
ENDATE EXIT+4!
ENDATE("STARTE" ACT1+4*, ACT2+4, HEADR+2
ENDATE("STARTI" ACT1+4*, ACT2, ACT2+3, ACT2+4, CNTACT+1, READ+3, READ+5
ENDATE("STOPE" ACT2+2*, ACT2+4, HEADR+2
ENDATE("STOPI" ACT2+2*, ACT2+3, ACT2+4, ACT2+5*, CNTACT+1, NCST+6
ENSTN ACT2+6*, ACT2+7, ACT2+11*, ACT2+12*, WRITE+1, HEADR+3, EXIT+4!
ESCAPE DEQACT+1~, PRNTACT+5, PRNTACT+7, PRNTACT+12, PRNTACT+13, HOLD+2*
IO PRNTACT+1
IO("Q" ACT2+13!, ACT2+14
IOF PRNTACT+4, HEADR+1
ION ACT2+16
IOSL PRNTACT+12
IOST PRNTACT+4, HOLD
J CNTACT+8*, WRITE+2*, NCST+8*, PRNTACT+6*, PRNTACT+7*, PRNTACT+8, PRNTACT+9, PRNTACT+10, PRNTACT+11, PRNTACT+17*
, EXIT+4!
K CNTACT+8*, WRITE+2*, PRNTACT+7*, PRNTACT+8, PRNTACT+9, PRNTACT+10, PRNTACT+11, EXIT+4!
>> L CNTACT+8*, WRITE+2*
LINE PRNTACT+2~, PRNTACT+12*, HEADR+1*
PAGE PRNTACT+2~, PRNTACT+3*, HEADR+1*, HEADR+2
>> POP ACT2+13
STATION DEQACT+1~, CNTACT+10*, WRITE+1*, WRITE+2, WRITE+3, CCST+2, CCST+3, NCST+2, NCST+3, NCST+5
, NCST+7, NCST+8, PRNTACT+5*, PRNTACT+7, PRNTACT+8, PRNTACT+9, PRNTACT+10, PRNTACT+11, PRNTACT+16, PRNTACT+17
, HEADR+3
STATION("PARNT" CNTACT+6*, CNTACT+8, CNTACT+10, WRITE+1, HEADR+3
TOTAL DEQACT+1~, PRNTACT+7*, PRNTACT+10*, PRNTACT+14
TOTAL( PRNTACT+6*
TOTAL("ACNT" PRNTACT+16*, PRNTACT+17*, PRNTACT+18
TOTAL("ACT" PRNTACT+10*, PRNTACT+18
TOTAL("COUNT" PRNTACT+10*, PRNTACT+18
TOTAL("ECNT" PRNTACT+16*, PRNTACT+17*, PRNTACT+18
TOTAL("EST" PRNTACT+10*, PRNTACT+18
TOTAL("RACT" PRNTACT+11*, PRNTACT+18
TOTAL("REST" PRNTACT+11*, PRNTACT+18
U ACT+4, ACT2+7, CNTACT+4, CNTACT+6, READ+1, READ+5, WRITE+1, CCST+2, CCST+3, NCST+4
, NCST+5, NCST+6, NCST+7
X ACT2+4*, DEQACT+1~, NCST+6*, NCST+7, PRNTACT+15, HEADR+5!*, HOLD+1*, HOLD+2, EXIT+4!
>> Y ACT1+1*, ACT1+2, ACT1+3, ACT1+4*, ACT2*, ACT2+2*, ACT2+12, PRNTACT+3*
>> ZTDESC ACT2+16*
>> ZTIO ACT2+16*
>> ZTQUEUED CNTACT+2, CNTACT+10, EXIT+3
>> ZTREQN EXIT+3*
>> ZTRTN ACT2+14*
>> ZTSAVE("EN*" ACT2+15*
ZTSK ACT2+17!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All