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

Package: Engineering

Routine: ENY2REP6


Information

ENY2REP6 ;(WIRMFO)/DH-Print Y2K Cumulative ;8.20.98

Source Information

Source file <ENY2REP6.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 ENY2REP4  

Entry Points

Name Comments DBIA/ICR reference
PRT ; physical printing
PRT1 ; print by functional classification
FC
NC
CC
HDR ; report header
HOLD

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Active Equipment Records: "_COUNT(STATION,CLASS,"ACT"),?40,"Potential Y2K Candidates: "_COUNT(STATION,CLASS,"Y2K")
  • Line Location: PRT1+1
Function Call: WRITE
  • Prompt: !," TURN-IN's with Y2K CATEGORY of 'NC' are counted as active records."
  • Line Location: PRT1+2
Function Call: WRITE
  • Prompt: !," Potential Y2K Candidate => Active record with a MANUFACTURER and a MODEL."
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: !!,"Counts by Y2K Category:"
  • Line Location: PRT1+5
Function Call: WRITE
  • Prompt: !,?8,"FC",?23,"NC",?37,"CC",?51,"NA",?64,"Null"
  • Line Location: PRT1+6
Function Call: WRITE
  • Prompt: !,?2,$J(COUNT(STATION,CLASS,"FC"),5)_" ("_PRCNT("FC")_"%)",?17,$J(COUNT(STATION,CLASS,"NC"),5)_" ("_PRCNT("NC")_"%)"
  • Line Location: PRT1+8
Function Call: WRITE
  • Prompt: ?31,$J(COUNT(STATION,CLASS,"CC"),5)_" ("_PRCNT("CC")_"%)",?45,$J(COUNT(STATION,CLASS,"NA"),5)_" ("_PRCNT("NA")_"%)"
  • Line Location: PRT1+9
Function Call: WRITE
  • Prompt: ?59,$J(COUNT(STATION,CLASS,0),5)_" ("_PRCNT(0)_"%)"
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: !!,"For FULLY COMPLIANT ("_COUNT(STATION,CLASS,"FC")_" equipment records):"
  • Line Location: FC+1
Function Call: WRITE
  • Prompt: !,?2,X(0)_" records were entered as FULLY COMPLIANT, "_COUNT(STATION,CLASS,"FC","UPG")_" were entered as CONDITIONALLY"
  • Line Location: FC+4
Function Call: WRITE
  • Prompt: !," COMPLIANT and then updated."
  • Line Location: FC+5
Function Call: WRITE
  • Prompt: " The total cost of "_$S(COUNT(STATION,CLASS,"FC","UPG")=1:"this update",1:"these updates")_" was $"_$P(^TMP($J,STATION,CLASS,"FC","ACST")+.5,".")_"."
  • Line Location: FC+6
Function Call: WRITE
  • Prompt: !," The estimated total cost was $"_$P(^TMP($J,STATION,CLASS,"FC","ECST")+.5,".")_"."
  • Line Location: FC+7
Function Call: WRITE
  • Prompt: !!,"For NON-COMPLIANT ("_COUNT(STATION,CLASS,"NC")_" equipment records):"
  • Line Location: NC+1
Function Call: WRITE
  • Prompt: !," Retire:",$J(COUNT(STATION,CLASS,"NC","RET"),5)_"("_PRCNT("RET")_"%) Replace:",$J(COUNT(STATION,CLASS,"NC","REP"),5)_"("_PRCNT("REP")_"%) Use as is:"
  • Line Location: NC+3
Function Call: WRITE
  • Prompt: $J(COUNT(STATION,CLASS,"NC","USE"),5)_"("_PRCNT("USE")_"%) Unknown:",$J(COUNT(STATION,CLASS,"NC",0),5)_"("_PRCNT(0)_"%)"
  • Line Location: NC+4
Function Call: WRITE
  • Prompt: !," ",COUNT(STATION,CLASS,"NC","ATD")_" item"_$S(COUNT(STATION,CLASS,"NC","ATD")=1:" has",1:"s have")_" been replaced to date"
  • Line Location: NC+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: NC+6
Function Call: WRITE
  • Prompt: " at a cost of $"_$P(^TMP($J,STATION,CLASS,"NC","ATD")+.5,".")_"."
  • Line Location: NC+8
Function Call: WRITE
  • Prompt: !," The original estimate for replacing "_$S(COUNT(STATION,CLASS,"NC","ATD")=1:"this item",COUNT(STATION,CLASS,"NC","ATD")=2:"both of these items",1:"these "_COUNT(STATION,CLASS,"NC","ATD")_" items")
  • Line Location: NC+9
Function Call: WRITE
  • Prompt: " was $"_$P(^TMP($J,STATION,CLASS,"NC","ETD")+.5,".")_"."
  • Line Location: NC+10
Function Call: WRITE
  • Prompt: !," The original estimate for replacing "_$S(COUNT(STATION,CLASS,"NC","REP")=1:"this item",COUNT(STATION,CLASS,"NC","REP")=2:"both of these items",1:"all of these "_COUNT(STATION,CLASS,"NC","REP")_" items")
  • Line Location: NC+12
Function Call: WRITE
  • Prompt: " was $"_$P(^TMP($J,STATION,CLASS,"NC","ETOT")+.5,".")_"."
  • Line Location: NC+13
Function Call: WRITE
  • Prompt: !," The current estimate for replacing the remaining "_(COUNT(STATION,CLASS,"NC","REP")-COUNT(STATION,CLASS,"NC","ATD"))_" item(s) is $"_($P(^TMP($J,STATION,CLASS,"NC","ETOT")+.5,".")-$P(^TMP($J,STATION,CLASS,"NC","ETD")+.5,"."))_"."
  • Line Location: NC+15
Function Call: WRITE
  • Prompt: !
  • Line Location: NC+17
Function Call: WRITE
  • Prompt: !,?15,"REPLACEMENT SCHEDULE ("_COUNT(STATION,CLASS,"NC","SREP")_" equipment records)"
  • Line Location: NC+18
Function Call: WRITE
  • Prompt: !," Calendar 1998 Calendar 1999 Calendar 2000"
  • Line Location: NC+19
Function Call: WRITE
  • Prompt: !,"Month Count Est cost($) Count Est Cost($) Count Est Cost($)"
  • Line Location: NC+20
Function Call: WRITE
  • Prompt: !,UL
  • Line Location: NC+21
Function Call: WRITE
  • Prompt: !,$P(MONTH,U,J),?13,$J(COUNT(STATION,CLASS,"NC","SCHDT",1998,J),5),?24,$J(^TMP($J,STATION,CLASS,"NC","ECST",1998,J),7,0)
  • Line Location: NC+22
Function Call: WRITE
  • Prompt: ?36,$J(COUNT(STATION,CLASS,"NC","SCHDT",1999,J),5),?47,$J(^TMP($J,STATION,CLASS,"NC","ECST",1999,J),7,0)
  • Line Location: NC+23
Function Call: WRITE
  • Prompt: ?59,$J(COUNT(STATION,CLASS,"NC","SCHDT",2000,J),5),?70,$J(^TMP($J,STATION,CLASS,"NC","ECST",2000,J),7,0)
  • Line Location: NC+24
Function Call: WRITE
  • Prompt: !,"Unknown",?13,$J(COUNT(STATION,CLASS,"NC","SCHDT",1998,0),5),?24,$J(^TMP($J,STATION,CLASS,"NC","ECST",1998,0),7,0)
  • Line Location: NC+25
Function Call: WRITE
  • Prompt: ?36,$J(COUNT(STATION,CLASS,"NC","SCHDT",1999,0),5),?47,$J(^TMP($J,STATION,CLASS,"NC","ECST",1999,0),7,0)
  • Line Location: NC+26
Function Call: WRITE
  • Prompt: ?59,$J(COUNT(STATION,CLASS,"NC","SCHDT",2000,0),5),?70,$J(^TMP($J,STATION,CLASS,"NC","ECST",2000,0),7,0)
  • Line Location: NC+27
Function Call: WRITE
  • Prompt: !,?18,"UPDATE SCHEDULE ("_COUNT(STATION,CLASS,"CC")_" equipment records)"
  • Line Location: CC+3
Function Call: WRITE
  • Prompt: !," Calendar 1998 Calendar 1999 Calendar 2000"
  • Line Location: CC+4
Function Call: WRITE
  • Prompt: !,"Month Count Est cost($) Count Est Cost($) Count Est Cost($)"
  • Line Location: CC+5
Function Call: WRITE
  • Prompt: !,UL
  • Line Location: CC+6
Function Call: WRITE
  • Prompt: !,$P(MONTH,U,J),?13,$J(COUNT(STATION,CLASS,"CC","UPG",1998,J),5),?24,$J(^TMP($J,STATION,CLASS,"CC","ECST",1998,J),7,0)
  • Line Location: CC+7
Function Call: WRITE
  • Prompt: ?36,$J(COUNT(STATION,CLASS,"CC","UPG",1999,J),5),?47,$J(^TMP($J,STATION,CLASS,"CC","ECST",1999,J),7,0)
  • Line Location: CC+8
Function Call: WRITE
  • Prompt: ?59,$J(COUNT(STATION,CLASS,"CC","UPG",2000,J),5),?70,$J(^TMP($J,STATION,CLASS,"CC","ECST",2000,J),7,0)
  • Line Location: CC+9
Function Call: WRITE
  • Prompt: !,UL
  • Line Location: CC+10
Function Call: WRITE
  • Prompt: !,"Estimated total cost of updating "_COUNT(STATION,CLASS,"CC")_" item(s) is $"_^TMP($J,STATION,CLASS,"CC","ECST")_"."
  • Line Location: CC+11
Function Call: WRITE
  • Prompt: "Cumulative Y2K Report as of "_DATE("PRNT"),?65,"Page: "_PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$S(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,UL
  • Line Location: HDR+6
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
^TMP($J FC+6, FC+7, NC+8, NC+10, NC+13, NC+15, NC+22, NC+23, NC+24, NC+25
NC+26, NC+27, CC+7, CC+8, CC+9, CC+11

Label References

Name Line Occurrences
HDR PRT+7, PRT+9, NC+16, CC+1
HOLD PRT+7, PRT+9, NC+16, CC+1
PRT1 PRT+7, PRT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRT+3
>> CLASS PRT+7*, PRT+9*, PRT1+1, PRT1+4, PRT1+7, PRT1+8, PRT1+9, PRT1+10, FCFC+1
FC+2, FC+3, FC+4, FC+5, FC+6, FC+7, NCNC+1, NC+2, NC+3
NC+4, NC+5, NC+6, NC+8, NC+9, NC+10, NC+11, NC+12, NC+13, NC+14
NC+15, NC+18, NC+22, NC+23, NC+24, NC+25, NC+26, NC+27, CCCC+3
CC+7, CC+8, CC+9, CC+11, HDR+5
>> COUNT( PRT+7, PRT+9, PRT1+1, PRT1+4, PRT1+7, PRT1+8, PRT1+9, PRT1+10, FCFC+1
FC+2, FC+3, FC+4, FC+5, FC+6, NCNC+1, NC+2, NC+3, NC+4
NC+5, NC+6, NC+9, NC+11, NC+12, NC+14, NC+15, NC+18, NC+22, NC+23
NC+24, NC+25, NC+26, NC+27, CCCC+3, CC+7, CC+8, CC+9, CC+11
DATE PRT+2~
DATE("PRNT" PRT+3*, HDR+3
DTIME HOLD+1
>> ENCLASS PRT+6, HDR+5
>> ENSTN HDR+4
ESCAPE PRT+2~, PRT+7, PRT+9, NC+16, CC+1, HDR+1, HOLDHOLD+2*
IO PRT+1
IOF HDR+2
IOSL NC+16, NC+17, CC+1, CC+2
IOST HDR+2, HOLD
>> J PRT1+7*, NC+2*, NC+22*, NC+23, NC+24, CC+7*, CC+8, CC+9
MONTH PRT+2~, PRT+4*, NC+22, CC+7
PAGE PRT+2~, PRT+3*, HDR+2*, HDR+3
PRCNT PRT+2~
PRCNT( PRT1+7*, NC+2*
PRCNT("CC" PRT1+9
PRCNT("FC" PRT1+8
PRCNT("NA" PRT1+9
PRCNT("NC" PRT1+8
PRCNT("REP" NC+3
PRCNT("RET" NC+3
PRCNT("UPG" FC+2*
PRCNT("USE" NC+4
PRCNT(0 PRT1+10, NC+4
>> STATION PRT+7*, PRT+9*, PRT1+1, PRT1+4, PRT1+7, PRT1+8, PRT1+9, PRT1+10, FCFC+1
FC+2, FC+3, FC+4, FC+5, FC+6, FC+7, NCNC+1, NC+2, NC+3
NC+4, NC+5, NC+6, NC+8, NC+9, NC+10, NC+11, NC+12, NC+13, NC+14
NC+15, NC+18, NC+22, NC+23, NC+24, NC+25, NC+26, NC+27, CCCC+3
CC+7, CC+8, CC+9, CC+11, HDR+4
>> STATION("PARNT" HDR+4
U NC+22, CC+7
UL PRT+2~, PRT+5*, NC+21, CC+6, CC+10, HDR+6
>> X HOLD+1*, HOLD+2
>> X(0 FC+3*, FC+4
>> Y PRT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All