ENY2REPB ;(WIRMFO)/DH-Print Y2K Cum by Funct Classification ;8.7.98
;;7.0;ENGINEERING;**51,55**;August 17,1993
PRT ; physical printing
U IO
N PAGE,DATE,PRCNT
D NOW^%DTC S Y=% X ^DD("DD") S DATE("PRNT")=$P(Y,":",1,2),PAGE=0
S STATION="" F S STATION=$O(COUNT(STATION)) Q:STATION=""!($G(ESCAPE)) D HDR D D HOLD Q:$G(ESCAPE)
. W !!,"Active Records" S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"ACT")
. W ?65,$J(COUNT,12)
. W !,"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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"Y2K")
. W ?65,$J(COUNT,12)
. W !!,"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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"FC")
. W ?65,$J(COUNT,12)
. W !,"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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"CC")
. W ?65,$J(COUNT,12)
. W !,"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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"NC")
. W ?65,$J(COUNT,12)
. W !,"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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"NA")
. W ?65,$J(COUNT,12)
. W !,"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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,0)
. W ?65,$J(COUNT,12)
. I COUNT(STATION,0,"Y2K") D
.. F J=0,"NX","BSE","EXP" S COUNT(STATION,"%",J)=$P(((100*(COUNT(STATION,"TYPE",J)/COUNT(STATION,0,"Y2K")))+.5),".") S:COUNT(STATION,"%",J)="" COUNT(STATION,"%",J)=0
.. W !!,"Of the "_COUNT(STATION,0,"Y2K")_" potential Y2K equipment records whose CLASSIFICATION"
.. W !,"is unknown, about "_COUNT(STATION,"%","NX")_"% are NX, about "_COUNT(STATION,"%","BSE")_"% are BSE, about "_COUNT(STATION,"%","EXP")_"% are EXP,"
.. W !,"and about "_COUNT(STATION,"%",0)_"% are of unknown TYPE."
. I IOSL<58 D HOLD Q:$G(ESCAPE) D HDR
. W !!,"DEVICES THAT HAVE BEEN UPDATED TO FULL Y2K COMPLIANCE:"
. W !," 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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"FC","UPG")
. W ?65,$J(COUNT,12)
. W !," 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)
. W ?49,$J(TOTAL(STATION,"TEL","FC","ECST"),8,0),?57,$J(TOTAL(STATION,0,"FC","ECST"),8,0)
. S TOTAL=0 F J=0,"MED","PC","FS","TEL" S TOTAL=TOTAL+TOTAL(STATION,J,"FC","ECST")
. W ?65,$J(TOTAL,12,0)
. W !," 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)
. W ?49,$J(TOTAL(STATION,"TEL","FC","ACST"),8,0),?57,$J(TOTAL(STATION,0,"FC","ACST"),8,0)
. S TOTAL=0 F J=0,"MED","PC","FS","TEL" S TOTAL=TOTAL+TOTAL(STATION,J,"FC","ACST")
. W ?65,$J(TOTAL,12,0)
. W !!,"DEVICES THAT ARE SCHEDULED TO BE UPDATED TO FULL Y2K COMPLIANCE:"
. W !," 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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"CC")
. W ?65,$J(COUNT,12)
. W !," 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)
. W ?49,$J(TOTAL(STATION,"TEL","CC","ECST"),8,0),?57,$J(TOTAL(STATION,0,"CC","ECST"),8,0)
. S TOTAL=0 F J=0,"MED","PC","FS","TEL" S TOTAL=TOTAL+TOTAL(STATION,J,"CC","ECST")
. W ?65,$J(TOTAL,12,0)
. W !!,"DEVICES THAT HAVE BEEN REPLACED DUE TO Y2K ISSUES:"
. W !," 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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"NC","ATD")
. W ?65,$J(COUNT,12)
. W !," 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)
. W ?49,$J(TOTAL(STATION,"TEL","NC","ETD"),8,0),?57,$J(TOTAL(STATION,0,"NC","ETD"),8,0)
. S TOTAL=0 F J=0,"MED","PC","FS","TEL" S TOTAL=TOTAL+TOTAL(STATION,J,"NC","ETD")
. W ?65,$J(TOTAL,12,0)
. W !," 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)
. W ?49,$J(TOTAL(STATION,"TEL","NC","ATD"),8,0),?57,$J(TOTAL(STATION,0,"NC","ATD"),8,0)
. S TOTAL=0 F J=0,"MED","PC","FS","TEL" S TOTAL=TOTAL+TOTAL(STATION,J,"NC","ATD")
. W ?65,$J(TOTAL,12,0)
. W !!,"DEVICES THAT ARE SCHEDULED FOR REPLACEMENT DUE TO Y2K ISSUES:"
. F J=0,"MED","PC","FS","TEL" S X(J)=COUNT(STATION,J,"NC","REP")-COUNT(STATION,J,"NC","ATD"),X1(J)=TOTAL(STATION,J,"NC","ETOT")-TOTAL(STATION,J,"NC","ETD")
. W !," 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)
. S COUNT=0 F J=0,"MED","PC","TEL","FS" S COUNT=COUNT+X(J)
. W ?65,$J(COUNT,12)
. W !," 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)
. S TOTAL=0 F J=0,"MED","PC","FS","TEL" S TOTAL=TOTAL+X1(J)
. W ?65,$J(TOTAL,12,0)
. I IOSL<58 D HOLD Q:$G(ESCAPE) D HDR
. W !!,"DEVICES THAT HAVE BEEN RETIRED DUE TO Y2K ISSUES:"
. W !," 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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"NC","RETACT")
. W ?65,$J(COUNT,12)
. W !!,"DEVICES THAT ARE SCHEDULED FOR RETIREMENT DUE TO Y2K ISSUES:"
. F J=0,"MED","PC","FS","TEL" S X(J)=COUNT(STATION,J,"NC","RET")-COUNT(STATION,J,"NC","RETACT")
. W !," 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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+X(J)
. W ?65,$J(COUNT,12)
. W !!,"DEVICES THAT ARE Y2K NON-COMPLIANT BUT ARE TO BE USED 'AS IS'."
. W !," 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)
. S COUNT=0 F J=0,"MED","PC","FS","TEL" S COUNT=COUNT+COUNT(STATION,J,"NC","USE")
. W ?65,$J(COUNT,12)
. W !!,?20,"** FUNCTIONAL CLASSIFICATIONS **"
. W !,"MED => Medical equipment PC => General purpose computer equipment"
. W !,"FS => Facility management equipment TEL => Telecommunications equipment"
Q
;
HDR ; report header
W:PAGE>0!($E(IOST,1,2)="C-") @IOF S PAGE=PAGE+1
W "Y2K Cum by Functional Classification as of "_DATE("PRNT")_" Page: "_PAGE
W !,$S(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
W !,"FUNCTIONAL CLASSIFICATION:",?30,"MED",?39,"PC",?47,"FS",?54,"TEL",?59,"Unknown",?72,"TOTAL"
K X S $P(X,"-",79)="-" W !,X
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
;ENY2REPB
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENY2REPB 8395 printed Sep 23, 2025@19:33:37 Page 2
ENY2REPB ;(WIRMFO)/DH-Print Y2K Cum by Funct Classification ;8.7.98
+1 ;;7.0;ENGINEERING;**51,55**;August 17,1993
PRT ; physical printing
+1 USE IO
+2 NEW PAGE,DATE,PRCNT
+3 DO NOW^%DTC
SET Y=%
XECUTE ^DD("DD")
SET DATE("PRNT")=$PIECE(Y,":",1,2)
SET PAGE=0
+4 SET STATION=""
FOR
SET STATION=$ORDER(COUNT(STATION))
if STATION=""!($GET(ESCAPE))
QUIT
DO HDR
Begin DoDot:1
+5 WRITE !!,"Active Records"
SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"ACT")
+6 WRITE ?65,$JUSTIFY(COUNT,12)
+7 WRITE !,"Potential Y2K Records",?25,$JUSTIFY(COUNT(STATION,"MED","Y2K"),8),?33,$JUSTIFY(COUNT(STATION,"PC","Y2K"),8),?41,$JUSTIFY(COUNT(STATION,"FS","Y2K"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","Y2K"),8),?57,$JUSTIFY(COUNT(STATION,0,"Y2K"
),8)
+8 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"Y2K")
+9 WRITE ?65,$JUSTIFY(COUNT,12)
+10 WRITE !!,"FULLY COMPLIANT",?25,$JUSTIFY(COUNT(STATION,"MED","FC"),8),?33,$JUSTIFY(COUNT(STATION,"PC","FC"),8),?41,$JUSTIFY(COUNT(STATION,"FS","FC"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","FC"),8),?57,$JUSTIFY(COUNT(STATION,0,"FC"),8)
+11 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"FC")
+12 WRITE ?65,$JUSTIFY(COUNT,12)
+13 WRITE !,"CONDITIONALLY COMPLIANT",?25,$JUSTIFY(COUNT(STATION,"MED","CC"),8),?33,$JUSTIFY(COUNT(STATION,"PC","CC"),8),?41,$JUSTIFY(COUNT(STATION,"FS","CC"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","CC"),8),?57,$JUSTIFY(COUNT(STATION,0,"CC"),8
)
+14 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"CC")
+15 WRITE ?65,$JUSTIFY(COUNT,12)
+16 WRITE !,"NON-COMPLIANT",?25,$JUSTIFY(COUNT(STATION,"MED","NC"),8),?33,$JUSTIFY(COUNT(STATION,"PC","NC"),8),?41,$JUSTIFY(COUNT(STATION,"FS","NC"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","NC"),8),?57,$JUSTIFY(COUNT(STATION,0,"NC"),8)
+17 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"NC")
+18 WRITE ?65,$JUSTIFY(COUNT,12)
+19 WRITE !,"NOT APPLICABLE",?25,$JUSTIFY(COUNT(STATION,"MED","NA"),8),?33,$JUSTIFY(COUNT(STATION,"PC","NA"),8),?41,$JUSTIFY(COUNT(STATION,"FS","NA"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","NA"),8),?57,$JUSTIFY(COUNT(STATION,0,"NA"),8)
+20 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"NA")
+21 WRITE ?65,$JUSTIFY(COUNT,12)
+22 WRITE !,"Uncategorized",?25,$JUSTIFY(COUNT(STATION,"MED",0),8),?33,$JUSTIFY(COUNT(STATION,"PC",0),8),?41,$JUSTIFY(COUNT(STATION,"FS",0),8),?49,$JUSTIFY(COUNT(STATION,"TEL",0),8),?57,$JUSTIFY(COUNT(STATION,0,0),8)
+23 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,0)
+24 WRITE ?65,$JUSTIFY(COUNT,12)
+25 IF COUNT(STATION,0,"Y2K")
Begin DoDot:2
+26 FOR J=0,"NX","BSE","EXP"
SET COUNT(STATION,"%",J)=$PIECE(((100*(COUNT(STATION,"TYPE",J)/COUNT(STATION,0,"Y2K")))+.5),".")
if COUNT(STATION,"%",J)=""
SET COUNT(STATION,"%",J)=0
+27 WRITE !!,"Of the "_COUNT(STATION,0,"Y2K")_" potential Y2K equipment records whose CLASSIFICATION"
+28 WRITE !,"is unknown, about "_COUNT(STATION,"%","NX")_"% are NX, about "_COUNT(STATION,"%","BSE")_"% are BSE, about "_COUNT(STATION,"%","EXP")_"% are EXP,"
+29 WRITE !,"and about "_COUNT(STATION,"%",0)_"% are of unknown TYPE."
End DoDot:2
+30 IF IOSL<58
DO HOLD
if $GET(ESCAPE)
QUIT
DO HDR
+31 WRITE !!,"DEVICES THAT HAVE BEEN UPDATED TO FULL Y2K COMPLIANCE:"
+32 WRITE !," Count",?25,$JUSTIFY(COUNT(STATION,"MED","FC","UPG"),8),?33,$JUSTIFY(COUNT(STATION,"PC","FC","UPG"),8),?41,$JUSTIFY(COUNT(STATION,"FS","FC","UPG"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","FC","UPG"),8),?57,$JUSTIFY(COUNT(STATION,0
,"FC","UPG"),8)
+33 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"FC","UPG")
+34 WRITE ?65,$JUSTIFY(COUNT,12)
+35 WRITE !," Estimated Cost ($)",?25,$JUSTIFY(TOTAL(STATION,"MED","FC","ECST"),8,0),?33,$JUSTIFY(TOTAL(STATION,"PC","FC","ECST"),8,0),?41,$JUSTIFY(TOTAL(STATION,"FS","FC","ECST"),8,0)
+36 WRITE ?49,$JUSTIFY(TOTAL(STATION,"TEL","FC","ECST"),8,0),?57,$JUSTIFY(TOTAL(STATION,0,"FC","ECST"),8,0)
+37 SET TOTAL=0
FOR J=0,"MED","PC","FS","TEL"
SET TOTAL=TOTAL+TOTAL(STATION,J,"FC","ECST")
+38 WRITE ?65,$JUSTIFY(TOTAL,12,0)
+39 WRITE !," Actual Cost ($)",?25,$JUSTIFY(TOTAL(STATION,"MED","FC","ACST"),8,0),?33,$JUSTIFY(TOTAL(STATION,"PC","FC","ACST"),8,0),?41,$JUSTIFY(TOTAL(STATION,"FS","FC","ACST"),8,0)
+40 WRITE ?49,$JUSTIFY(TOTAL(STATION,"TEL","FC","ACST"),8,0),?57,$JUSTIFY(TOTAL(STATION,0,"FC","ACST"),8,0)
+41 SET TOTAL=0
FOR J=0,"MED","PC","FS","TEL"
SET TOTAL=TOTAL+TOTAL(STATION,J,"FC","ACST")
+42 WRITE ?65,$JUSTIFY(TOTAL,12,0)
+43 WRITE !!,"DEVICES THAT ARE SCHEDULED TO BE UPDATED TO FULL Y2K COMPLIANCE:"
+44 WRITE !," Count",?25,$JUSTIFY(COUNT(STATION,"MED","CC"),8),?33,$JUSTIFY(COUNT(STATION,"PC","CC"),8),?41,$JUSTIFY(COUNT(STATION,"FS","CC"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","CC"),8),?57,$JUSTIFY(COUNT(STATION,0,"CC"),8)
+45 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"CC")
+46 WRITE ?65,$JUSTIFY(COUNT,12)
+47 WRITE !," Estimated Cost ($)",?25,$JUSTIFY(TOTAL(STATION,"MED","CC","ECST"),8,0),?33,$JUSTIFY(TOTAL(STATION,"PC","CC","ECST"),8,0),?41,$JUSTIFY(TOTAL(STATION,"FS","CC","ECST"),8,0)
+48 WRITE ?49,$JUSTIFY(TOTAL(STATION,"TEL","CC","ECST"),8,0),?57,$JUSTIFY(TOTAL(STATION,0,"CC","ECST"),8,0)
+49 SET TOTAL=0
FOR J=0,"MED","PC","FS","TEL"
SET TOTAL=TOTAL+TOTAL(STATION,J,"CC","ECST")
+50 WRITE ?65,$JUSTIFY(TOTAL,12,0)
+51 WRITE !!,"DEVICES THAT HAVE BEEN REPLACED DUE TO Y2K ISSUES:"
+52 WRITE !," Count",?25,$JUSTIFY(COUNT(STATION,"MED","NC","ATD"),8),?33,$JUSTIFY(COUNT(STATION,"PC","NC","ATD"),8),?41,$JUSTIFY(COUNT(STATION,"FS","NC","ATD"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","NC","ATD"),8),?57,$JUSTIFY(COUNT(STATION,0
,"NC","ATD"),8)
+53 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"NC","ATD")
+54 WRITE ?65,$JUSTIFY(COUNT,12)
+55 WRITE !," Estimated Cost ($)",?25,$JUSTIFY(TOTAL(STATION,"MED","NC","ETD"),8,0),?33,$JUSTIFY(TOTAL(STATION,"PC","NC","ETD"),8,0),?41,$JUSTIFY(TOTAL(STATION,"FS","NC","ETD"),8,0)
+56 WRITE ?49,$JUSTIFY(TOTAL(STATION,"TEL","NC","ETD"),8,0),?57,$JUSTIFY(TOTAL(STATION,0,"NC","ETD"),8,0)
+57 SET TOTAL=0
FOR J=0,"MED","PC","FS","TEL"
SET TOTAL=TOTAL+TOTAL(STATION,J,"NC","ETD")
+58 WRITE ?65,$JUSTIFY(TOTAL,12,0)
+59 WRITE !," Actual Cost ($)",?25,$JUSTIFY(TOTAL(STATION,"MED","NC","ATD"),8,0),?33,$JUSTIFY(TOTAL(STATION,"PC","NC","ATD"),8,0),?41,$JUSTIFY(TOTAL(STATION,"FS","NC","ATD"),8,0)
+60 WRITE ?49,$JUSTIFY(TOTAL(STATION,"TEL","NC","ATD"),8,0),?57,$JUSTIFY(TOTAL(STATION,0,"NC","ATD"),8,0)
+61 SET TOTAL=0
FOR J=0,"MED","PC","FS","TEL"
SET TOTAL=TOTAL+TOTAL(STATION,J,"NC","ATD")
+62 WRITE ?65,$JUSTIFY(TOTAL,12,0)
+63 WRITE !!,"DEVICES THAT ARE SCHEDULED FOR REPLACEMENT DUE TO Y2K ISSUES:"
+64 FOR J=0,"MED","PC","FS","TEL"
SET X(J)=COUNT(STATION,J,"NC","REP")-COUNT(STATION,J,"NC","ATD")
SET X1(J)=TOTAL(STATION,J,"NC","ETOT")-TOTAL(STATION,J,"NC","ETD")
+65 WRITE !," Count",?25,$JUSTIFY(X("MED"),8),?33,$JUSTIFY(X("PC"),8),?41,$JUSTIFY(X("FS"),8),?49,$JUSTIFY(X("TEL"),8),?57,$JUSTIFY(X(0),8)
+66 SET COUNT=0
FOR J=0,"MED","PC","TEL","FS"
SET COUNT=COUNT+X(J)
+67 WRITE ?65,$JUSTIFY(COUNT,12)
+68 WRITE !," Estimated Cost ($)",?25,$JUSTIFY(X1("MED"),8,0),?33,$JUSTIFY(X1("PC"),8,0),?41,$JUSTIFY(X1("FS"),8,0),?49,$JUSTIFY(X1("TEL"),8,0),?57,$JUSTIFY(X1(0),8,0)
+69 SET TOTAL=0
FOR J=0,"MED","PC","FS","TEL"
SET TOTAL=TOTAL+X1(J)
+70 WRITE ?65,$JUSTIFY(TOTAL,12,0)
+71 IF IOSL<58
DO HOLD
if $GET(ESCAPE)
QUIT
DO HDR
+72 WRITE !!,"DEVICES THAT HAVE BEEN RETIRED DUE TO Y2K ISSUES:"
+73 WRITE !," Count",?25,$JUSTIFY(COUNT(STATION,"MED","NC","RETACT"),8),?33,$JUSTIFY(COUNT(STATION,"PC","NC","RETACT"),8),?41,$JUSTIFY(COUNT(STATION,"FS","NC","RETACT"),8),?49,...
... $JUSTIFY(COUNT(STATION,"TEL","NC","RETACT"),8),?57,$JUSTIFY(COUNT(STATION,0,"NC","RETACT"),8)
+74 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"NC","RETACT")
+75 WRITE ?65,$JUSTIFY(COUNT,12)
+76 WRITE !!,"DEVICES THAT ARE SCHEDULED FOR RETIREMENT DUE TO Y2K ISSUES:"
+77 FOR J=0,"MED","PC","FS","TEL"
SET X(J)=COUNT(STATION,J,"NC","RET")-COUNT(STATION,J,"NC","RETACT")
+78 WRITE !," Count",?25,$JUSTIFY(X("MED"),8),?33,$JUSTIFY(X("PC"),8),?41,$JUSTIFY(X("FS"),8),?49,$JUSTIFY(X("TEL"),8),?57,$JUSTIFY(X(0),8)
+79 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+X(J)
+80 WRITE ?65,$JUSTIFY(COUNT,12)
+81 WRITE !!,"DEVICES THAT ARE Y2K NON-COMPLIANT BUT ARE TO BE USED 'AS IS'."
+82 WRITE !," Count",?25,$JUSTIFY(COUNT(STATION,"MED","NC","USE"),8),?33,$JUSTIFY(COUNT(STATION,"PC","NC","USE"),8),?41,$JUSTIFY(COUNT(STATION,"FS","NC","USE"),8),?49,$JUSTIFY(COUNT(STATION,"TEL","NC","USE"),8),?57,$JUSTIFY(COUNT(STATION,0
,"NC","USE"),8)
+83 SET COUNT=0
FOR J=0,"MED","PC","FS","TEL"
SET COUNT=COUNT+COUNT(STATION,J,"NC","USE")
+84 WRITE ?65,$JUSTIFY(COUNT,12)
+85 WRITE !!,?20,"** FUNCTIONAL CLASSIFICATIONS **"
+86 WRITE !,"MED => Medical equipment PC => General purpose computer equipment"
+87 WRITE !,"FS => Facility management equipment TEL => Telecommunications equipment"
End DoDot:1
DO HOLD
if $GET(ESCAPE)
QUIT
+88 QUIT
+89 ;
HDR ; report header
+1 if PAGE>0!($EXTRACT(IOST,1,2)="C-")
WRITE @IOF
SET PAGE=PAGE+1
+2 WRITE "Y2K Cum by Functional Classification as of "_DATE("PRNT")_" Page: "_PAGE
+3 WRITE !,$SELECT(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
+4 WRITE !,"FUNCTIONAL CLASSIFICATION:",?30,"MED",?39,"PC",?47,"FS",?54,"TEL",?59,"Unknown",?72,"TOTAL"
+5 KILL X
SET $PIECE(X,"-",79)="-"
WRITE !,X
+6 QUIT
+7 ;
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 ;ENY2REPB
