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

Package: Engineering

Routine: ENY2REP5


Information

ENY2REP5 ;;(WIRMFO)/DH-Overall Y2K Status by Man~Mod ;9.30.98

Source Information

Source file <ENY2REP5.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^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: 1

Package Total Caller Graph
Engineering 1 ENY2KSTAT  

Entry Points

Name Comments DBIA/ICR reference
VIEW ; status of Y2K data base by manufacturer~model
; counts only, no costing information
VIEW1
VIEWPRT ; print the snapshot
VIEWHDR ; header for Y2K snapshot
HOLD
EXIT ;

External References

Name Field # of Occurrence
NOW^%DTC VIEW1+2
^%ZIS VIEW+17
HOME^%ZIS VIEW+21, EXIT+2
^%ZISC EXIT+2
^%ZTLOAD VIEW+21
^DIR VIEW+9, VIEW+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"** STATUS OF Y2K EQUIPMENT DATA BASE **"
  • Line Location: VIEW+2
Function Call: WRITE
  • Prompt: !!,"There is no STATION NUMBER in your Engineering Init Paramaters file.",!,"Can't proceed.",*7
  • Line Location: VIEW+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: VIEW+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: VIEW+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: VIEW1+11
Function Call: WRITE
  • Prompt: !!,?15,"<Nothing to print>"
  • Line Location: VIEWPRT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEWPRT+3
Function Call: WRITE
  • Prompt: ?48,$J(^TMP($J,STATION,MAN("E"),MOD,"NC"),5),?54,$J(^("CC"),5)
  • Line Location: VIEWPRT+5
Function Call: WRITE
  • Prompt: ?66,$J(^TMP($J,STATION,MAN("E"),MOD,0),5)
  • Line Location: VIEWPRT+6
Function Call: WRITE
  • Prompt: ?72,$J(TOTAL,5)
  • Line Location: VIEWPRT+8
Function Call: WRITE
  • Prompt: !,X
  • Line Location: VIEWPRT+12
Function Call: WRITE
  • Prompt: !,"TOTALS",?42
  • Line Location: VIEWPRT+13
Function Call: WRITE
  • Prompt: $J(TOTAL(STATION,"NA"),5)
  • Condition for execution: 'ENSUP $J(TOTAL(STATION,"FC"),5) W ?48,$J(TOTAL(STATION,"NC"),5),?54,$J(TOTAL(STATION,"CC"),5),?60 W:'ENSUP
  • Line Location: VIEWPRT+13
Function Call: WRITE
  • Prompt: ?66,$J(TOTAL(STATION,0),5),?72,$J(TOTAL(STATION,"GRAND"),5)
  • Line Location: VIEWPRT+13
Function Call: WRITE
  • Prompt: "Y2K Equipment Status - Counts Only Printed: "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: VIEWHDR+2
Function Call: WRITE
  • Prompt: !,"Equipment Records with Y2K Category of 'FC' or 'NA' are not being counted."
  • Line Location: VIEWHDR+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: VIEWHDR+5
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Routine Call
  • DIR
  • Line Location:
    • VIEW+9
    • VIEW+15
Routine Call
  • %ZIS
  • Line Location:
    • VIEW+17
Routine Call
  • %ZIS
  • Line Location:
    • VIEW+21
    • EXIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" VIEW1+2
^DIC(6910 - [#6910] VIEW+3, VIEW+5, VIEW1+3
^ENG("MFG" - [#6912] VIEW1+6
^ENG(6914 - [#6914] VIEW1+6, VIEW1+7, VIEW1+8!, VIEW1+9, VIEW1+10, VIEW1+13
^TMP($J VIEW1!, VIEW1+15*, VIEW1+16*, VIEWPRT+2, VIEWPRT+3, VIEWPRT+4, VIEWPRT+5, VIEWPRT+6, VIEWPRT+7, VIEWPRT+9!
VIEWPRT+10, EXIT+1!

Label References

Name Line Occurrences
EXIT VIEW+18, VIEWPRT+2, VIEWPRT+14
HOLD VIEWPRT+2, VIEWPRT+3, VIEWPRT+10
VIEWHDR VIEWPRT+2, VIEWPRT+3, VIEWPRT+10

Naked Globals

Name Field # of Occurrence
^( VIEW1+16
^("CC" VIEWPRT+5
^(9 VIEW1+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VIEW1+2
>> %ZIS VIEW+17*
ALLSTN VIEW+4*, VIEW+9*, VIEW+10*, VIEW+11!, VIEW+15!, VIEW+17!, VIEW+18!, VIEW1+13, VIEWHDR+4, EXIT+4!
CAT VIEW1+1~, VIEW1+10*, VIEW1+12, VIEW1+15, VIEW1+16
>> DA VIEW1+7*, VIEW1+8*, VIEW1+9, VIEW1+10, VIEW1+11, VIEW1+13
DATE VIEW1+1~
DATE("PRNT" VIEW1+2*, VIEWHDR+2
DIR VIEW+9!, VIEW+15!
DIR("?" VIEW+7*, VIEW+8*, VIEW+13*, VIEW+14*
DIR("A" VIEW+6*, VIEW+12*
DIR("B" VIEW+6*, VIEW+12*
DIR(0 VIEW+6*, VIEW+12*
>> DIRUT VIEW+9, VIEW+15
DTIME HOLD+1
ENSUP VIEW+16*, VIEW+17!, VIEW+18!, VIEW1+12, VIEWPRT+5, VIEWPRT+6, VIEWPRT+13, VIEWHDR+3, EXIT+4!
ESCAPE VIEW1+1~, VIEWPRT+3, VIEWPRT+4*, VIEWPRT+10, VIEWPRT+11, HOLD+2*
IO VIEWPRT+1
IO("Q" VIEW+17!, VIEW+18
IOF VIEW+2, VIEWPRT+3, VIEWHDR+1
ION VIEW+19
IOSL VIEWPRT+10
IOST VIEWHDR+1, HOLD
J VIEW1+5*, VIEW1+14*, VIEW1+15*, VIEWPRT+7*, EXIT+4!
K EXIT+4!
LINE VIEW1+1~, VIEWPRT+10*, VIEWHDR+1*, VIEWHDR+3*
MAN VIEW1+1~, VIEW1+6*, VIEW1+7, VIEW1+8
MAN("E" VIEW1+6*, VIEW1+15, VIEW1+16, VIEWPRT+4*, VIEWPRT+5, VIEWPRT+6, VIEWPRT+7, VIEWPRT+9
MAN("PRNT" VIEWPRT+4*, VIEWPRT+5
MOD VIEW1+1~, VIEW1+7*, VIEW1+15, VIEW1+16, VIEWPRT+4*, VIEWPRT+5, VIEWPRT+6, VIEWPRT+7, VIEWPRT+9
MOD("E" VIEWPRT+4*, VIEWPRT+5
PAGE VIEW1+1~, VIEW1+2*, VIEWHDR+1*, VIEWHDR+2
>> POP VIEW+17
STATION VIEW1+1~, VIEW1+4*, VIEW1+5, VIEW1+13*, VIEW1+14, VIEW1+15, VIEW1+16, VIEW1+17, VIEWPRT+3*, VIEWPRT+4
VIEWPRT+5, VIEWPRT+6, VIEWPRT+7, VIEWPRT+9, VIEWPRT+13, VIEWHDR+4
STATION("PARNT" VIEW1+3*, VIEW1+4, VIEW1+13, VIEWHDR+4
TOTAL VIEW1+1~, VIEWPRT+7*, VIEWPRT+8
TOTAL( VIEW1+5*, VIEW1+13, VIEW1+14*, VIEW1+16*, VIEW1+17*, VIEWPRT+13
U VIEW+3, VIEW+5, VIEW+11, VIEW1+3, VIEW1+6, VIEW1+7, VIEW1+8, VIEW1+9, VIEW1+10, VIEW1+12
VIEW1+13
X VIEWPRT+12!*, VIEWHDR+5!*, HOLD+1*, HOLD+2, EXIT+4!
>> Y VIEW+10, VIEW+16, VIEW1+2*
>> ZTDESC VIEW+19*
>> ZTIO VIEW+19*
>> ZTQUEUED VIEW1+11, EXIT+3
>> ZTREQN EXIT+3*
>> ZTRTN VIEW+18*
>> ZTSAVE("ALLSTN" VIEW+20*
>> ZTSAVE("ENSUP" VIEW+20*
ZTSK VIEW+21!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All