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 |  Local Variables  | All
Print Page as PDF
Routine: ENY2REPB

Package: Engineering

Routine: ENY2REPB


Information

ENY2REPB ;(WIRMFO)/DH-Print Y2K Cum by Funct Classification ;8.7.98

Source Information

Source file <ENY2REPB.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 NOW^%DTC  

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 ENY2REPA  

Entry Points

Name Comments DBIA/ICR reference
PRT ; physical printing
HDR ; report header
HOLD

External References

Name Field # of Occurrence
NOW^%DTC PRT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Active Records"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !,"Potential Y2K Records",?25,$J(COUNT(STATION,"MED","Y2K"),8),?33,$J(COUNT(STATION,"PC","Y2K"),8),?41,$J(COUNT(STATION,"FS","Y2K"),8),?49,$J(COUNT(STATION,"TEL","Y2K"),8),?57,$J(COUNT(STATION,0,"Y2K"),8)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !!,"FULLY COMPLIANT",?25,$J(COUNT(STATION,"MED","FC"),8),?33,$J(COUNT(STATION,"PC","FC"),8),?41,$J(COUNT(STATION,"FS","FC"),8),?49,$J(COUNT(STATION,"TEL","FC"),8),?57,$J(COUNT(STATION,0,"FC"),8)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !,"CONDITIONALLY COMPLIANT",?25,$J(COUNT(STATION,"MED","CC"),8),?33,$J(COUNT(STATION,"PC","CC"),8),?41,$J(COUNT(STATION,"FS","CC"),8),?49,$J(COUNT(STATION,"TEL","CC"),8),?57,$J(COUNT(STATION,0,"CC"),8)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !,"NON-COMPLIANT",?25,$J(COUNT(STATION,"MED","NC"),8),?33,$J(COUNT(STATION,"PC","NC"),8),?41,$J(COUNT(STATION,"FS","NC"),8),?49,$J(COUNT(STATION,"TEL","NC"),8),?57,$J(COUNT(STATION,0,"NC"),8)
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !,"NOT APPLICABLE",?25,$J(COUNT(STATION,"MED","NA"),8),?33,$J(COUNT(STATION,"PC","NA"),8),?41,$J(COUNT(STATION,"FS","NA"),8),?49,$J(COUNT(STATION,"TEL","NA"),8),?57,$J(COUNT(STATION,0,"NA"),8)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !,"Uncategorized",?25,$J(COUNT(STATION,"MED",0),8),?33,$J(COUNT(STATION,"PC",0),8),?41,$J(COUNT(STATION,"FS",0),8),?49,$J(COUNT(STATION,"TEL",0),8),?57,$J(COUNT(STATION,0,0),8)
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !!,"Of the "_COUNT(STATION,0,"Y2K")_" potential Y2K equipment records whose CLASSIFICATION"
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !,"is unknown, about "_COUNT(STATION,"%","NX")_"% are NX, about "_COUNT(STATION,"%","BSE")_"% are BSE, about "_COUNT(STATION,"%","EXP")_"% are EXP,"
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !,"and about "_COUNT(STATION,"%",0)_"% are of unknown TYPE."
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT HAVE BEEN UPDATED TO FULL Y2K COMPLIANCE:"
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","FC","UPG"),8),?33,$J(COUNT(STATION,"PC","FC","UPG"),8),?41,$J(COUNT(STATION,"FS","FC","UPG"),8),?49,$J(COUNT(STATION,"TEL","FC","UPG"),8),?57,$J(COUNT(STATION,0,"FC","UPG"),8)
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(TOTAL(STATION,"MED","FC","ECST"),8,0),?33,$J(TOTAL(STATION,"PC","FC","ECST"),8,0),?41,$J(TOTAL(STATION,"FS","FC","ECST"),8,0)
  • Line Location: PRT+35
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","FC","ECST"),8,0),?57,$J(TOTAL(STATION,0,"FC","ECST"),8,0)
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+38
Function Call: WRITE
  • Prompt: !," Actual Cost ($)",?25,$J(TOTAL(STATION,"MED","FC","ACST"),8,0),?33,$J(TOTAL(STATION,"PC","FC","ACST"),8,0),?41,$J(TOTAL(STATION,"FS","FC","ACST"),8,0)
  • Line Location: PRT+39
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","FC","ACST"),8,0),?57,$J(TOTAL(STATION,0,"FC","ACST"),8,0)
  • Line Location: PRT+40
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+42
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE SCHEDULED TO BE UPDATED TO FULL Y2K COMPLIANCE:"
  • Line Location: PRT+43
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","CC"),8),?33,$J(COUNT(STATION,"PC","CC"),8),?41,$J(COUNT(STATION,"FS","CC"),8),?49,$J(COUNT(STATION,"TEL","CC"),8),?57,$J(COUNT(STATION,0,"CC"),8)
  • Line Location: PRT+44
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+46
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(TOTAL(STATION,"MED","CC","ECST"),8,0),?33,$J(TOTAL(STATION,"PC","CC","ECST"),8,0),?41,$J(TOTAL(STATION,"FS","CC","ECST"),8,0)
  • Line Location: PRT+47
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","CC","ECST"),8,0),?57,$J(TOTAL(STATION,0,"CC","ECST"),8,0)
  • Line Location: PRT+48
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+50
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT HAVE BEEN REPLACED DUE TO Y2K ISSUES:"
  • Line Location: PRT+51
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","NC","ATD"),8),?33,$J(COUNT(STATION,"PC","NC","ATD"),8),?41,$J(COUNT(STATION,"FS","NC","ATD"),8),?49,$J(COUNT(STATION,"TEL","NC","ATD"),8),?57,$J(COUNT(STATION,0,"NC","ATD"),8)
  • Line Location: PRT+52
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+54
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(TOTAL(STATION,"MED","NC","ETD"),8,0),?33,$J(TOTAL(STATION,"PC","NC","ETD"),8,0),?41,$J(TOTAL(STATION,"FS","NC","ETD"),8,0)
  • Line Location: PRT+55
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","NC","ETD"),8,0),?57,$J(TOTAL(STATION,0,"NC","ETD"),8,0)
  • Line Location: PRT+56
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+58
Function Call: WRITE
  • Prompt: !," Actual Cost ($)",?25,$J(TOTAL(STATION,"MED","NC","ATD"),8,0),?33,$J(TOTAL(STATION,"PC","NC","ATD"),8,0),?41,$J(TOTAL(STATION,"FS","NC","ATD"),8,0)
  • Line Location: PRT+59
Function Call: WRITE
  • Prompt: ?49,$J(TOTAL(STATION,"TEL","NC","ATD"),8,0),?57,$J(TOTAL(STATION,0,"NC","ATD"),8,0)
  • Line Location: PRT+60
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+62
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE SCHEDULED FOR REPLACEMENT DUE TO Y2K ISSUES:"
  • Line Location: PRT+63
Function Call: WRITE
  • Prompt: !," Count",?25,$J(X("MED"),8),?33,$J(X("PC"),8),?41,$J(X("FS"),8),?49,$J(X("TEL"),8),?57,$J(X(0),8)
  • Line Location: PRT+65
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+67
Function Call: WRITE
  • Prompt: !," Estimated Cost ($)",?25,$J(X1("MED"),8,0),?33,$J(X1("PC"),8,0),?41,$J(X1("FS"),8,0),?49,$J(X1("TEL"),8,0),?57,$J(X1(0),8,0)
  • Line Location: PRT+68
Function Call: WRITE
  • Prompt: ?65,$J(TOTAL,12,0)
  • Line Location: PRT+70
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT HAVE BEEN RETIRED DUE TO Y2K ISSUES:"
  • Line Location: PRT+72
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","NC","RETACT"),8),?33,$J(COUNT(STATION,"PC","NC","RETACT"),8),?41,$J(COUNT(STATION,"FS","NC","RETACT"),8),?49,$J(COUNT(STATION,"TEL","NC","RETACT"),8),?57,$J(COUNT(STATION,0,"NC","RETACT"),8)
  • Line Location: PRT+73
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+75
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE SCHEDULED FOR RETIREMENT DUE TO Y2K ISSUES:"
  • Line Location: PRT+76
Function Call: WRITE
  • Prompt: !," Count",?25,$J(X("MED"),8),?33,$J(X("PC"),8),?41,$J(X("FS"),8),?49,$J(X("TEL"),8),?57,$J(X(0),8)
  • Line Location: PRT+78
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+80
Function Call: WRITE
  • Prompt: !!,"DEVICES THAT ARE Y2K NON-COMPLIANT BUT ARE TO BE USED 'AS IS'."
  • Line Location: PRT+81
Function Call: WRITE
  • Prompt: !," Count",?25,$J(COUNT(STATION,"MED","NC","USE"),8),?33,$J(COUNT(STATION,"PC","NC","USE"),8),?41,$J(COUNT(STATION,"FS","NC","USE"),8),?49,$J(COUNT(STATION,"TEL","NC","USE"),8),?57,$J(COUNT(STATION,0,"NC","USE"),8)
  • Line Location: PRT+82
Function Call: WRITE
  • Prompt: ?65,$J(COUNT,12)
  • Line Location: PRT+84
Function Call: WRITE
  • Prompt: !!,?20,"** FUNCTIONAL CLASSIFICATIONS **"
  • Line Location: PRT+85
Function Call: WRITE
  • Prompt: !,"MED => Medical equipment PC => General purpose computer equipment"
  • Line Location: PRT+86
Function Call: WRITE
  • Prompt: !,"FS => Facility management equipment TEL => Telecommunications equipment"
  • Line Location: PRT+87
Function Call: WRITE
  • Prompt: "Y2K Cum by Functional Classification as of "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$S(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"FUNCTIONAL CLASSIFICATION:",?30,"MED",?39,"PC",?47,"FS",?54,"TEL",?59,"Unknown",?72,"TOTAL"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRT+3

Label References

Name Line Occurrences
HDR PRT+4, PRT+30, PRT+71
HOLD PRT+4, PRT+30, PRT+71

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRT+3
>> COUNT PRT+5*, PRT+6, PRT+8*, PRT+9, PRT+11*, PRT+12, PRT+14*, PRT+15, PRT+17*, PRT+18
, PRT+20*, PRT+21, PRT+23*, PRT+24, PRT+33*, PRT+34, PRT+45*, PRT+46, PRT+53*, PRT+54
, PRT+66*, PRT+67, PRT+74*, PRT+75, PRT+79*, PRT+80, PRT+83*, PRT+84
>> COUNT( PRT+4, PRT+5, PRT+7, PRT+8, PRT+10, PRT+11, PRT+13, PRT+14, PRT+16, PRT+17
, PRT+19, PRT+20, PRT+22, PRT+23, PRT+25, PRT+26*, PRT+27, PRT+28, PRT+29, PRT+32
, PRT+33, PRT+44, PRT+45, PRT+52, PRT+53, PRT+64, PRT+73, PRT+74, PRT+77, PRT+82
, PRT+83
DATE PRT+2~
DATE("PRNT" PRT+3*, HDR+2
DTIME HOLD+1
>> ENSTN HDR+3
>> ESCAPE PRT+4, PRT+30, PRT+71, HOLD, HOLD+2*
IO PRT+1
IOF HDR+1
IOSL PRT+30, PRT+71
IOST HDR+1, HOLD
>> J PRT+5*, PRT+8*, PRT+11*, PRT+14*, PRT+17*, PRT+20*, PRT+23*, PRT+26*, PRT+33*, PRT+37*
, PRT+41*, PRT+45*, PRT+49*, PRT+53*, PRT+57*, PRT+61*, PRT+64*, PRT+66*, PRT+69*, PRT+74*
, PRT+77*, PRT+79*, PRT+83*
PAGE PRT+2~, PRT+3*, HDR+1*, HDR+2
PRCNT PRT+2~
>> STATION PRT+4*, PRT+5, PRT+7, PRT+8, PRT+10, PRT+11, PRT+13, PRT+14, PRT+16, PRT+17
, PRT+19, PRT+20, PRT+22, PRT+23, PRT+25, PRT+26, PRT+27, PRT+28, PRT+29, PRT+32
, PRT+33, PRT+35, PRT+36, PRT+37, PRT+39, PRT+40, PRT+41, PRT+44, PRT+45, PRT+47
, PRT+48, PRT+49, PRT+52, PRT+53, PRT+55, PRT+56, PRT+57, PRT+59, PRT+60, PRT+61
, PRT+64, PRT+73, PRT+74, PRT+77, PRT+82, PRT+83, HDR+3
>> STATION("PARNT" HDR+3
>> TOTAL PRT+37*, PRT+38, PRT+41*, PRT+42, PRT+49*, PRT+50, PRT+57*, PRT+58, PRT+61*, PRT+62
, PRT+69*, PRT+70
>> TOTAL( PRT+35, PRT+36, PRT+37, PRT+39, PRT+40, PRT+41, PRT+47, PRT+48, PRT+49, PRT+55
, PRT+56, PRT+57, PRT+59, PRT+60, PRT+61, PRT+64
X HDR+5!*, HOLD+1*, HOLD+2
X( PRT+64*, PRT+66, PRT+77*, PRT+79
X("FS" PRT+65, PRT+78
X("MED" PRT+65, PRT+78
X("PC" PRT+65, PRT+78
X("TEL" PRT+65, PRT+78
X(0 PRT+65, PRT+78
>> X1( PRT+64*, PRT+69
>> X1("FS" PRT+68
>> X1("MED" PRT+68
>> X1("PC" PRT+68
>> X1("TEL" PRT+68
>> X1(0 PRT+68
>> Y PRT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All