ENY2REP6 ;(WIRMFO)/DH-Print Y2K Cumulative ;8.20.98
;;7.0;ENGINEERING;**51,55**;August 17,1993
PRT ; physical printing
U IO
N PAGE,DATE,PRCNT,MONTH,ESCAPE,UL
D NOW^%DTC S Y=% X ^DD("DD") S DATE("PRNT")=$P(Y,":",1,2),PAGE=0
S MONTH="Jan^Feb^Mar^Apr^May^Jun^Jul^Aug^Sep^Oct^Nov^Dec"
S $P(UL,"-",79)="-"
I '$G(ENCLASS) D Q
. S CLASS="CON",STATION="" F S STATION=$O(COUNT(STATION)) Q:STATION="" D HDR,PRT1 D HOLD Q:$G(ESCAPE)
;
S STATION="" F S STATION=$O(COUNT(STATION)) Q:STATION=""!($G(ESCAPE)) S CLASS="" F S CLASS=$O(COUNT(STATION,CLASS)) Q:CLASS=""!($G(ESCAPE)) I CLASS'="CON" D HDR D PRT1,HOLD Q:$G(ESCAPE)
Q
;
PRT1 ; print by functional classification
W !,"Active Equipment Records: "_COUNT(STATION,CLASS,"ACT"),?40,"Potential Y2K Candidates: "_COUNT(STATION,CLASS,"Y2K")
W !," TURN-IN's with Y2K CATEGORY of 'NC' are counted as active records."
W !," Potential Y2K Candidate => Active record with a MANUFACTURER and a MODEL."
Q:'COUNT(STATION,CLASS,"Y2K") ; nothing to print
W !!,"Counts by Y2K Category:"
W !,?8,"FC",?23,"NC",?37,"CC",?51,"NA",?64,"Null"
F J=0,"FC","NC","NA","CC" S PRCNT(J)=$P((COUNT(STATION,CLASS,J)/COUNT(STATION,CLASS,"Y2K")*100)+.5,".") S:PRCNT(J)="" PRCNT(J)=0
W !,?2,$J(COUNT(STATION,CLASS,"FC"),5)_" ("_PRCNT("FC")_"%)",?17,$J(COUNT(STATION,CLASS,"NC"),5)_" ("_PRCNT("NC")_"%)"
W ?31,$J(COUNT(STATION,CLASS,"CC"),5)_" ("_PRCNT("CC")_"%)",?45,$J(COUNT(STATION,CLASS,"NA"),5)_" ("_PRCNT("NA")_"%)"
W ?59,$J(COUNT(STATION,CLASS,0),5)_" ("_PRCNT(0)_"%)"
FC D:COUNT(STATION,CLASS,"FC")
. W !!,"For FULLY COMPLIANT ("_COUNT(STATION,CLASS,"FC")_" equipment records):"
. S PRCNT("UPG")=$P((COUNT(STATION,CLASS,"FC","UPG")/COUNT(STATION,CLASS,"FC")*100)+.5,".")
. S X(0)=COUNT(STATION,CLASS,"FC")-COUNT(STATION,CLASS,"FC","UPG")
. W !,?2,X(0)_" records were entered as FULLY COMPLIANT, "_COUNT(STATION,CLASS,"FC","UPG")_" were entered as CONDITIONALLY"
. W !," COMPLIANT and then updated." I COUNT(STATION,CLASS,"FC","UPG")>0 D
.. W " 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,".")_"."
.. W !," The estimated total cost was $"_$P(^TMP($J,STATION,CLASS,"FC","ECST")+.5,".")_"."
NC D:COUNT(STATION,CLASS,"NC")
. W !!,"For NON-COMPLIANT ("_COUNT(STATION,CLASS,"NC")_" equipment records):"
. F J=0,"RET","REP","USE" S PRCNT(J)=$P((COUNT(STATION,CLASS,"NC",J)/COUNT(STATION,CLASS,"NC")*100)+.5,".") S:PRCNT(J)="" PRCNT(J)=0
. W !," Retire:",$J(COUNT(STATION,CLASS,"NC","RET"),5)_"("_PRCNT("RET")_"%) Replace:",$J(COUNT(STATION,CLASS,"NC","REP"),5)_"("_PRCNT("REP")_"%) Use as is:"
. W $J(COUNT(STATION,CLASS,"NC","USE"),5)_"("_PRCNT("USE")_"%) Unknown:",$J(COUNT(STATION,CLASS,"NC",0),5)_"("_PRCNT(0)_"%)"
. W !," ",COUNT(STATION,CLASS,"NC","ATD")_" item"_$S(COUNT(STATION,CLASS,"NC","ATD")=1:" has",1:"s have")_" been replaced to date"
. I COUNT(STATION,CLASS,"NC","ATD")'>0 W "."
. E D
.. W " at a cost of $"_$P(^TMP($J,STATION,CLASS,"NC","ATD")+.5,".")_"."
.. W !," 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")
.. W " was $"_$P(^TMP($J,STATION,CLASS,"NC","ETD")+.5,".")_"."
. I COUNT(STATION,CLASS,"NC","REP")>0 D
.. W !," 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")
.. W " was $"_$P(^TMP($J,STATION,CLASS,"NC","ETOT")+.5,".")_"."
.. I COUNT(STATION,CLASS,"NC","REP")>COUNT(STATION,CLASS,"NC","ATD") D
... W !," 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,"."))_"."
.. I IOSL<60 D HOLD,HDR Q:$G(ESCAPE)
.. I IOSL>59 W !
.. W !,?15,"REPLACEMENT SCHEDULE ("_COUNT(STATION,CLASS,"NC","SREP")_" equipment records)"
.. W !," Calendar 1998 Calendar 1999 Calendar 2000"
.. W !,"Month Count Est cost($) Count Est Cost($) Count Est Cost($)"
.. W !,UL
.. F J=1:1:12 W !,$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) D
... W ?36,$J(COUNT(STATION,CLASS,"NC","SCHDT",1999,J),5),?47,$J(^TMP($J,STATION,CLASS,"NC","ECST",1999,J),7,0)
... W ?59,$J(COUNT(STATION,CLASS,"NC","SCHDT",2000,J),5),?70,$J(^TMP($J,STATION,CLASS,"NC","ECST",2000,J),7,0)
.. W !,"Unknown",?13,$J(COUNT(STATION,CLASS,"NC","SCHDT",1998,0),5),?24,$J(^TMP($J,STATION,CLASS,"NC","ECST",1998,0),7,0) D
... W ?36,$J(COUNT(STATION,CLASS,"NC","SCHDT",1999,0),5),?47,$J(^TMP($J,STATION,CLASS,"NC","ECST",1999,0),7,0)
... W ?59,$J(COUNT(STATION,CLASS,"NC","SCHDT",2000,0),5),?70,$J(^TMP($J,STATION,CLASS,"NC","ECST",2000,0),7,0)
CC Q:'COUNT(STATION,CLASS,"CC")
I IOSL<60 D HOLD,HDR Q:$G(ESCAPE)
W:IOSL>59 !
W !,?18,"UPDATE SCHEDULE ("_COUNT(STATION,CLASS,"CC")_" equipment records)"
W !," Calendar 1998 Calendar 1999 Calendar 2000"
W !,"Month Count Est cost($) Count Est Cost($) Count Est Cost($)"
W !,UL
F J=1:1:12 W !,$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) D
. W ?36,$J(COUNT(STATION,CLASS,"CC","UPG",1999,J),5),?47,$J(^TMP($J,STATION,CLASS,"CC","ECST",1999,J),7,0)
. W ?59,$J(COUNT(STATION,CLASS,"CC","UPG",2000,J),5),?70,$J(^TMP($J,STATION,CLASS,"CC","ECST",2000,J),7,0)
W !,UL
W !,"Estimated total cost of updating "_COUNT(STATION,CLASS,"CC")_" item(s) is $"_^TMP($J,STATION,CLASS,"CC","ECST")_"."
Q
;
HDR ; report header
Q:$G(ESCAPE)
W:PAGE>0!($E(IOST,1,2)="C-") @IOF S PAGE=PAGE+1
W "Cumulative Y2K Report as of "_DATE("PRNT"),?65,"Page: "_PAGE
W !,$S(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
W ?40,"FUNCTIONAL CLASSIFICATION: "_$S('$G(ENCLASS):"ALL",CLASS=0:"Null",1:CLASS)
W !,UL
Q
;
HOLD Q:$E(IOST,1,2)'="C-"!($G(ESCAPE))
W !!,"Press <RETURN> to continue, '^' to escape..." R X:DTIME
I '$T!($E(X)="^") S ESCAPE=1
Q
;ENY2REP6
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENY2REP6 6360 printed Sep 23, 2025@19:33:33 Page 2
ENY2REP6 ;(WIRMFO)/DH-Print Y2K Cumulative ;8.20.98
+1 ;;7.0;ENGINEERING;**51,55**;August 17,1993
PRT ; physical printing
+1 USE IO
+2 NEW PAGE,DATE,PRCNT,MONTH,ESCAPE,UL
+3 DO NOW^%DTC
SET Y=%
XECUTE ^DD("DD")
SET DATE("PRNT")=$PIECE(Y,":",1,2)
SET PAGE=0
+4 SET MONTH="Jan^Feb^Mar^Apr^May^Jun^Jul^Aug^Sep^Oct^Nov^Dec"
+5 SET $PIECE(UL,"-",79)="-"
+6 IF '$GET(ENCLASS)
Begin DoDot:1
+7 SET CLASS="CON"
SET STATION=""
FOR
SET STATION=$ORDER(COUNT(STATION))
if STATION=""
QUIT
DO HDR
DO PRT1
DO HOLD
if $GET(ESCAPE)
QUIT
End DoDot:1
QUIT
+8 ;
+9 SET STATION=""
FOR
SET STATION=$ORDER(COUNT(STATION))
if STATION=""!($GET(ESCAPE))
QUIT
SET CLASS=""
FOR
SET CLASS=$ORDER(COUNT(STATION,CLASS))
if CLASS=""!($GET(ESCAPE))
QUIT
IF CLASS'="CON"
DO HDR
DO PRT1
DO HOLD
if $GET(ESCAPE)
QUIT
+10 QUIT
+11 ;
PRT1 ; print by functional classification
+1 WRITE !,"Active Equipment Records: "_COUNT(STATION,CLASS,"ACT"),?40,"Potential Y2K Candidates: "_COUNT(STATION,CLASS,"Y2K")
+2 WRITE !," TURN-IN's with Y2K CATEGORY of 'NC' are counted as active records."
+3 WRITE !," Potential Y2K Candidate => Active record with a MANUFACTURER and a MODEL."
+4 ; nothing to print
if 'COUNT(STATION,CLASS,"Y2K")
QUIT
+5 WRITE !!,"Counts by Y2K Category:"
+6 WRITE !,?8,"FC",?23,"NC",?37,"CC",?51,"NA",?64,"Null"
+7 FOR J=0,"FC","NC","NA","CC"
SET PRCNT(J)=$PIECE((COUNT(STATION,CLASS,J)/COUNT(STATION,CLASS,"Y2K")*100)+.5,".")
if PRCNT(J)=""
SET PRCNT(J)=0
+8 WRITE !,?2,$JUSTIFY(COUNT(STATION,CLASS,"FC"),5)_" ("_PRCNT("FC")_"%)",?17,$JUSTIFY(COUNT(STATION,CLASS,"NC"),5)_" ("_PRCNT("NC")_"%)"
+9 WRITE ?31,$JUSTIFY(COUNT(STATION,CLASS,"CC"),5)_" ("_PRCNT("CC")_"%)",?45,$JUSTIFY(COUNT(STATION,CLASS,"NA"),5)_" ("_PRCNT("NA")_"%)"
+10 WRITE ?59,$JUSTIFY(COUNT(STATION,CLASS,0),5)_" ("_PRCNT(0)_"%)"
FC if COUNT(STATION,CLASS,"FC")
Begin DoDot:1
+1 WRITE !!,"For FULLY COMPLIANT ("_COUNT(STATION,CLASS,"FC")_" equipment records):"
+2 SET PRCNT("UPG")=$PIECE((COUNT(STATION,CLASS,"FC","UPG")/COUNT(STATION,CLASS,"FC")*100)+.5,".")
+3 SET X(0)=COUNT(STATION,CLASS,"FC")-COUNT(STATION,CLASS,"FC","UPG")
+4 WRITE !,?2,X(0)_" records were entered as FULLY COMPLIANT, "_COUNT(STATION,CLASS,"FC","UPG")_" were entered as CONDITIONALLY"
+5 WRITE !," COMPLIANT and then updated."
IF COUNT(STATION,CLASS,"FC","UPG")>0
Begin DoDot:2
+6 WRITE " The total cost of "_$SELECT(COUNT(STATION,CLASS,"FC","UPG")=1:"this update",1:"these updates")_" was $"_$PIECE(^TMP($JOB,STATION,CLASS,"FC","ACST")+.5,".")_"."
+7 WRITE !," The estimated total cost was $"_$PIECE(^TMP($JOB,STATION,CLASS,"FC","ECST")+.5,".")_"."
End DoDot:2
End DoDot:1
NC if COUNT(STATION,CLASS,"NC")
Begin DoDot:1
+1 WRITE !!,"For NON-COMPLIANT ("_COUNT(STATION,CLASS,"NC")_" equipment records):"
+2 FOR J=0,"RET","REP","USE"
SET PRCNT(J)=$PIECE((COUNT(STATION,CLASS,"NC",J)/COUNT(STATION,CLASS,"NC")*100)+.5,".")
if PRCNT(J)=""
SET PRCNT(J)=0
+3 WRITE !," Retire:",$JUSTIFY(COUNT(STATION,CLASS,"NC","RET"),5)_"("_PRCNT("RET")_"%) Replace:",$JUSTIFY(COUNT(STATION,CLASS,"NC","REP"),5)_"("_PRCNT("REP")_"%) Use as is:"
+4 WRITE $JUSTIFY(COUNT(STATION,CLASS,"NC","USE"),5)_"("_PRCNT("USE")_"%) Unknown:",$JUSTIFY(COUNT(STATION,CLASS,"NC",0),5)_"("_PRCNT(0)_"%)"
+5 WRITE !," ",COUNT(STATION,CLASS,"NC","ATD")_" item"_$SELECT(COUNT(STATION,CLASS,"NC","ATD")=1:" has",1:"s have")_" been replaced to date"
+6 IF COUNT(STATION,CLASS,"NC","ATD")'>0
WRITE "."
+7 IF '$TEST
Begin DoDot:2
+8 WRITE " at a cost of $"_$PIECE(^TMP($JOB,STATION,CLASS,"NC","ATD")+.5,".")_"."
+9 WRITE !," The original estimate for replacing "_$SELECT(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")
+10 WRITE " was $"_$PIECE(^TMP($JOB,STATION,CLASS,"NC","ETD")+.5,".")_"."
End DoDot:2
+11 IF COUNT(STATION,CLASS,"NC","REP")>0
Begin DoDot:2
+12 WRITE !," The original estimate for replacing "_$SELECT(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")
+13 WRITE " was $"_$PIECE(^TMP($JOB,STATION,CLASS,"NC","ETOT")+.5,".")_"."
+14 IF COUNT(STATION,CLASS,"NC","REP")>COUNT(STATION,CLASS,"NC","ATD")
Begin DoDot:3
+15 WRITE !," The current estimate for replacing the remaining "_(COUNT(STATION,CLASS,"NC","REP")-COUNT(STATION,CLASS,"NC","ATD"))_" item(s) is $"_($PIECE(^TMP($JOB,STATION,CLASS,"NC","ETOT")+.5,".")-$PIECE(^TMP($JOB,STATIO
N,CLASS,"NC","ETD")+.5,"."))_"."
End DoDot:3
+16 IF IOSL<60
DO HOLD
DO HDR
if $GET(ESCAPE)
QUIT
+17 IF IOSL>59
WRITE !
+18 WRITE !,?15,"REPLACEMENT SCHEDULE ("_COUNT(STATION,CLASS,"NC","SREP")_" equipment records)"
+19 WRITE !," Calendar 1998 Calendar 1999 Calendar 2000"
+20 WRITE !,"Month Count Est cost($) Count Est Cost($) Count Est Cost($)"
+21 WRITE !,UL
+22 FOR J=1:1:12
WRITE !,$PIECE(MONTH,U,J),?13,$JUSTIFY(COUNT(STATION,CLASS,"NC","SCHDT",1998,J),5),?24,$JUSTIFY(^TMP($JOB,STATION,CLASS,"NC","ECST",1998,J),7,0)
Begin DoDot:3
+23 WRITE ?36,$JUSTIFY(COUNT(STATION,CLASS,"NC","SCHDT",1999,J),5),?47,$JUSTIFY(^TMP($JOB,STATION,CLASS,"NC","ECST",1999,J),7,0)
+24 WRITE ?59,$JUSTIFY(COUNT(STATION,CLASS,"NC","SCHDT",2000,J),5),?70,$JUSTIFY(^TMP($JOB,STATION,CLASS,"NC","ECST",2000,J),7,0)
End DoDot:3
+25 WRITE !,"Unknown",?13,$JUSTIFY(COUNT(STATION,CLASS,"NC","SCHDT",1998,0),5),?24,$JUSTIFY(^TMP($JOB,STATION,CLASS,"NC","ECST",1998,0),7,0)
Begin DoDot:3
+26 WRITE ?36,$JUSTIFY(COUNT(STATION,CLASS,"NC","SCHDT",1999,0),5),?47,$JUSTIFY(^TMP($JOB,STATION,CLASS,"NC","ECST",1999,0),7,0)
+27 WRITE ?59,$JUSTIFY(COUNT(STATION,CLASS,"NC","SCHDT",2000,0),5),?70,$JUSTIFY(^TMP($JOB,STATION,CLASS,"NC","ECST",2000,0),7,0)
End DoDot:3
End DoDot:2
End DoDot:1
CC if 'COUNT(STATION,CLASS,"CC")
QUIT
+1 IF IOSL<60
DO HOLD
DO HDR
if $GET(ESCAPE)
QUIT
+2 if IOSL>59
WRITE !
+3 WRITE !,?18,"UPDATE SCHEDULE ("_COUNT(STATION,CLASS,"CC")_" equipment records)"
+4 WRITE !," Calendar 1998 Calendar 1999 Calendar 2000"
+5 WRITE !,"Month Count Est cost($) Count Est Cost($) Count Est Cost($)"
+6 WRITE !,UL
+7 FOR J=1:1:12
WRITE !,$PIECE(MONTH,U,J),?13,$JUSTIFY(COUNT(STATION,CLASS,"CC","UPG",1998,J),5),?24,$JUSTIFY(^TMP($JOB,STATION,CLASS,"CC","ECST",1998,J),7,0)
Begin DoDot:1
+8 WRITE ?36,$JUSTIFY(COUNT(STATION,CLASS,"CC","UPG",1999,J),5),?47,$JUSTIFY(^TMP($JOB,STATION,CLASS,"CC","ECST",1999,J),7,0)
+9 WRITE ?59,$JUSTIFY(COUNT(STATION,CLASS,"CC","UPG",2000,J),5),?70,$JUSTIFY(^TMP($JOB,STATION,CLASS,"CC","ECST",2000,J),7,0)
End DoDot:1
+10 WRITE !,UL
+11 WRITE !,"Estimated total cost of updating "_COUNT(STATION,CLASS,"CC")_" item(s) is $"_^TMP($JOB,STATION,CLASS,"CC","ECST")_"."
+12 QUIT
+13 ;
HDR ; report header
+1 if $GET(ESCAPE)
QUIT
+2 if PAGE>0!($EXTRACT(IOST,1,2)="C-")
WRITE @IOF
SET PAGE=PAGE+1
+3 WRITE "Cumulative Y2K Report as of "_DATE("PRNT"),?65,"Page: "_PAGE
+4 WRITE !,$SELECT(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
+5 WRITE ?40,"FUNCTIONAL CLASSIFICATION: "_$SELECT('$GET(ENCLASS):"ALL",CLASS=0:"Null",1:CLASS)
+6 WRITE !,UL
+7 QUIT
+8 ;
HOLD if $EXTRACT(IOST,1,2)'="C-"!($GET(ESCAPE))
QUIT
+1 WRITE !!,"Press <RETURN> to continue, '^' to escape..."
READ X:DTIME
+2 IF '$TEST!($EXTRACT(X)="^")
SET ESCAPE=1
+3 QUIT
+4 ;ENY2REP6
