Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls