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

Package: Engineering

Routine: ENY2REP9


Information

ENY2REP9 ;(WIRMFO)/DH-Y2K Equipment w/o Y2K Category ;8.18.98

Source Information

Source file <ENY2REP9.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 ENY2KNULL  

Entry Points

Name Comments DBIA/ICR reference
NULL ; prints list of equipment with man and mod but no Y2K category
LIST ;
PRT ; physical print
HDR ; header print
HOLD
EXIT ;

External References

Name Field # of Occurrence
NOW^%DTC PRT+2
^%ZIS NULL+10
HOME^%ZIS NULL+13, EXIT+2
^%ZISC EXIT+2
^%ZTLOAD NULL+13
^DIR NULL+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?17,"List of Active Equipment Records with MANUFACTURER"
  • Line Location: NULL+1
Function Call: WRITE
  • Prompt: !,?23,"and MODEL, but without a Y2K CATEGORY"
  • Line Location: NULL+2
Function Call: WRITE
  • Prompt: !!,"From glancing at your data base, it appears that less than half of your",!,"equipment records have a Y2K CATEGORY of any kind on file."
  • Line Location: NULL+6
Function Call: WRITE
  • Prompt: !!,"Are you sure this report is worth printing?",*7
  • Line Location: NULL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: NULL+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!!,?20,"<Nothing to print>"
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!,DA,?10,$E(MFG,1,30),?41,$E(MOD,1,20),?62,LID
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !,$E(EC,1,22),?23,$E(SRVC,1,20),?44,$E(LOC,1,15),?60,$E(SN,1,20)
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !!,DA,?11,MFG,?46,MOD,?76,LID
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !,$E(EC,1,22),?23,$E(SRVC,1,20),?44,LOC,?65,$E(SN,1,30)
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: "Null Equipment List (MAN & MODEL but no Y2K) "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"ENTRY #",?15,"MANUFACTURER",?48,"MODEL",?64,"LOCAL ID"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"EQUIPMENT CATEGORY",?25,"SERVICE",?45,"LOCATION",?62,"SERIAL NUMBER"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "Null Equipment List (MANUFACTURER & MODEL, but no Y2K CATEGORY) "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"ENTRY #",?18,"MANUFACTURER",?54,"MODEL",?78,"LOCAL ID"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"EQUIPMENT CATEGORY",?26,"SERVICE",?47,"LOCATION",?68,"SERIAL NUMBER"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HOLD+0
Routine Call
  • DIR
  • Line Location:
    • NULL+9
Routine Call
  • %ZIS
  • Line Location:
    • NULL+10
Routine Call
  • %ZIS
  • Line Location:
    • NULL+13
    • EXIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRT+2
^DIC(49 - [#49] PRT+10
^ENG("MFG" - [#6912] LIST+6
^ENG("SP" - [#6928] PRT+12
^ENG(6911 - [#6911] PRT+8
^ENG(6914 - [#6914] NULL+4, LIST+3, LIST+5, LIST+9
^ENG(6918 - [#6918] NULL+4
^TMP($J LIST+2!, LIST+11*, PRT+3, PRT+4, PRT+6, EXIT+1!

Label References

Name Line Occurrences
EXIT PRT+3, PRT+20
HDR PRT+3, PRT+16, PRT+19
HOLD PRT+16, PRT+19

Naked Globals

Name Field # of Occurrence
^(0 PRT+8, PRT+10, PRT+12
^(11 LIST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRT+2
>> %ZIS NULL+10*
COUNT NULL+3~
COUNT("EQ" NULL+4*, NULL+5
COUNT("Y2K" NULL+4*, NULL+5
DA LIST+1~, LIST+3*, LIST+4, LIST+5, LIST+9, LIST+11, PRT+4*, PRT+5, PRT+6, PRT+14
PRT+17
DATE LIST+1~
DATE("PRNT" PRT+2*, HDR+3, HDR+7
DIR NULL+9!
DIR("B" NULL+8*
DIR(0 NULL+8*
>> DIRUT NULL+9
DTIME HOLD
EC LIST+1~, PRT+7*, PRT+8*, PRT+15, PRT+18
EC(0 LIST+8*, LIST+11, PRT+6*, PRT+7, PRT+8
EN LIST+1~, PRT+6*
EN(1 LIST+5*, LIST+7, LIST+8
EN(3 LIST+9*, LIST+10
ESCAPE LIST+1~, PRT+4, PRT+16, PRT+19, HOLD*
IO PRT+1, PRT+5
IO("Q" NULL+10!, NULL+11
>> IO(0 PRT+5
IOF NULL+1, HDR+1
IOM PRT+13, HDR+2
ION NULL+12
IOSL PRT+16, PRT+19
IOST HDR+1, HOLD
LID LIST+1~, LIST+10*, LIST+11, PRT+6*, PRT+14, PRT+17
LOC LIST+1~, PRT+11*, PRT+12*, PRT+15, PRT+18
LOC(0 LIST+10*, LIST+11, PRT+6*, PRT+11, PRT+12
MFG LIST+1~, LIST+6*, LIST+11, PRT+4*, PRT+6, PRT+14, PRT+17
MFG(0 LIST+5*, LIST+6
MOD LIST+1~, LIST+7*, LIST+11, PRT+4*, PRT+6, PRT+14, PRT+17
PAGE LIST+1~, PRT+2*, HDR+1*, HDR+3, HDR+7
>> POP NULL+10
SN LIST+1~, LIST+8*, LIST+11, PRT+6*, PRT+15, PRT+18
SRVC LIST+1~, PRT+9*, PRT+10*, PRT+15, PRT+18
SRVC(0 LIST+10*, LIST+11, PRT+6*, PRT+9, PRT+10
U NULL+4, LIST+3, LIST+5, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10, LIST+11, PRT+6
PRT+8, PRT+10, PRT+12
X HDR+6!*, HDR+10!*, HOLD*
>> Y NULL+5, NULL+9*, PRT+2*
>> ZTDESC NULL+12*
>> ZTION NULL+12*
>> ZTQUEUED LIST+4, PRT+5, EXIT+3
>> ZTREQN EXIT+3*
>> ZTRTN NULL+11*
ZTSK NULL+13!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All