DENTA3 ;ISC2/SAW-CLASS I-VI SERVICE REPORT OPTION ; 10/27/88 10:09 AM ;
;VERSION 1.2
S Y(0)=DENTY0,Z1="CLASS I TO VI (TYPE 3) REPORT FOR "_Z1,Z3="STATION NUMBER: "_DENTSTA,(T(1),T(2),T(3))=""
W @IOF,?(80-$L(Z1)/2),Z1,!,?(80-$L(Z3)/2),Z3
W !!,?15,"TREATMENT",?32,"TREATMENT CASES",?53,"TREATMENT CASES"
W !,?12,"CASES AUTHORIZED",?31,"PENDING INITIATION",?52,"PENDING COMPLETION"
W !,"CLASS I",?18,$J($P(Y(0),U,2),3) S T(1)=T(1)+$P(Y(0),U,2) W ?38,$J($P(Y(0),U,3),3) S T(2)=T(2)+$P(Y(0),U,3) W ?59,$J($P(Y(0),U,4),3) S T(3)=T(3)+$P(Y(0),U,4)
W !,"CLASS II",?18,$J($P(Y(0),U,5),3) S T(1)=T(1)+$P(Y(0),U,5) W ?38,$J($P(Y(0),U,6),3) S T(2)=T(2)+$P(Y(0),U,6) W ?59,$J($P(Y(0),U,7),3) S T(3)=T(3)+$P(Y(0),U,7)
W !,"CLASS IIA",?18,$J($P(Y(0),U,8),3) S T(1)=T(1)+$P(Y(0),U,8) W ?38,$J($P(Y(0),U,9),3) S T(2)=T(2)+$P(Y(0),U,9) W ?59,$J($P(Y(0),U,10),3) S T(3)=T(3)+$P(Y(0),U,10)
W !,"CLASS IIB",?18,$J($P(Y(0),U,11),3) S T(1)=T(1)+$P(Y(0),U,11) W ?38,$J($P(Y(0),U,12),3) S T(2)=T(2)+$P(Y(0),U,12) W ?59,$J($P(Y(0),U,13),3) S T(3)=T(3)+$P(Y(0),U,13)
W !,"CLASS IIC",?18,$J($P(Y(0),U,14),3) S T(1)=T(1)+$P(Y(0),U,14) W ?38,$J($P(Y(0),U,15),3) S T(2)=T(2)+$P(Y(0),U,15) W ?59,$J($P(Y(0),U,16),3) S T(3)=T(3)+$P(Y(0),U,16)
W !,"CLASS III",?18,$J($P(Y(0),U,17),3) S T(1)=T(1)+$P(Y(0),U,17) W ?38,$J($P(Y(0),U,18),3) S T(2)=T(2)+$P(Y(0),U,18) W ?59,$J($P(Y(0),U,19),3) S T(3)=T(3)+$P(Y(0),U,19)
W !,"CLASS IV",?18,$J($P(Y(0),U,20),3) S T(1)=T(1)+$P(Y(0),U,20) W ?38,$J($P(Y(0),U,21),3) S T(2)=T(2)+$P(Y(0),U,21) W ?59,$J($P(Y(0),U,22),3) S T(3)=T(3)+$P(Y(0),U,22)
W !,"CLASS V",?18,$J($P(Y(0),U,23),3) S T(1)=T(1)+$P(Y(0),U,23) W ?38,$J($P(Y(0),U,24),3) S T(2)=T(2)+$P(Y(0),U,24) W ?59,$J($P(Y(0),U,25),3) S T(3)=T(3)+$P(Y(0),U,25)
W !,"CLASS VI",?18,$J($P(Y(0),U,26),3) S T(1)=T(1)+$P(Y(0),U,26) W ?38,$J($P(Y(0),U,27),3) S T(2)=T(2)+$P(Y(0),U,27) W ?59,$J($P(Y(0),U,28),3) S T(3)=T(3)+$P(Y(0),U,28)
W !!,?5,"TOTALS",?17,$J(T(1),4),?37,$J(T(2),4),?58,$J(T(3),4),!
K A,D,I,L,T,V Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTA3 2000 printed Nov 22, 2024@16:56 Page 2
DENTA3 ;ISC2/SAW-CLASS I-VI SERVICE REPORT OPTION ; 10/27/88 10:09 AM ;
+1 ;VERSION 1.2
+2 SET Y(0)=DENTY0
SET Z1="CLASS I TO VI (TYPE 3) REPORT FOR "_Z1
SET Z3="STATION NUMBER: "_DENTSTA
SET (T(1),T(2),T(3))=""
+3 WRITE @IOF,?(80-$LENGTH(Z1)/2),Z1,!,?(80-$LENGTH(Z3)/2),Z3
+4 WRITE !!,?15,"TREATMENT",?32,"TREATMENT CASES",?53,"TREATMENT CASES"
+5 WRITE !,?12,"CASES AUTHORIZED",?31,"PENDING INITIATION",?52,"PENDING COMPLETION"
+6 WRITE !,"CLASS I",?18,$JUSTIFY($PIECE(Y(0),U,2),3)
SET T(1)=T(1)+$PIECE(Y(0),U,2)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,3),3)
SET T(2)=T(2)+$PIECE(Y(0),U,3)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,4),3)
SET T(3)=T(3)+$PIECE(Y(0),U,4)
+7 WRITE !,"CLASS II",?18,$JUSTIFY($PIECE(Y(0),U,5),3)
SET T(1)=T(1)+$PIECE(Y(0),U,5)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,6),3)
SET T(2)=T(2)+$PIECE(Y(0),U,6)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,7),3)
SET T(3)=T(3)+$PIECE(Y(0),U,7)
+8 WRITE !,"CLASS IIA",?18,$JUSTIFY($PIECE(Y(0),U,8),3)
SET T(1)=T(1)+$PIECE(Y(0),U,8)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,9),3)
SET T(2)=T(2)+$PIECE(Y(0),U,9)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,10),3)
SET T(3)=T(3)+$PIECE(Y(0),U,10)
+9 WRITE !,"CLASS IIB",?18,$JUSTIFY($PIECE(Y(0),U,11),3)
SET T(1)=T(1)+$PIECE(Y(0),U,11)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,12),3)
SET T(2)=T(2)+$PIECE(Y(0),U,12)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,13),3)
SET T(3)=T(3)+$PIECE(Y(0),U,13)
+10 WRITE !,"CLASS IIC",?18,$JUSTIFY($PIECE(Y(0),U,14),3)
SET T(1)=T(1)+$PIECE(Y(0),U,14)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,15),3)
SET T(2)=T(2)+$PIECE(Y(0),U,15)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,16),3)
SET T(3)=T(3)+$PIECE(Y(0),U,16)
+11 WRITE !,"CLASS III",?18,$JUSTIFY($PIECE(Y(0),U,17),3)
SET T(1)=T(1)+$PIECE(Y(0),U,17)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,18),3)
SET T(2)=T(2)+$PIECE(Y(0),U,18)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,19),3)
SET T(3)=T(3)+$PIECE(Y(0),U,19)
+12 WRITE !,"CLASS IV",?18,$JUSTIFY($PIECE(Y(0),U,20),3)
SET T(1)=T(1)+$PIECE(Y(0),U,20)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,21),3)
SET T(2)=T(2)+$PIECE(Y(0),U,21)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,22),3)
SET T(3)=T(3)+$PIECE(Y(0),U,22)
+13 WRITE !,"CLASS V",?18,$JUSTIFY($PIECE(Y(0),U,23),3)
SET T(1)=T(1)+$PIECE(Y(0),U,23)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,24),3)
SET T(2)=T(2)+$PIECE(Y(0),U,24)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,25),3)
SET T(3)=T(3)+$PIECE(Y(0),U,25)
+14 WRITE !,"CLASS VI",?18,$JUSTIFY($PIECE(Y(0),U,26),3)
SET T(1)=T(1)+$PIECE(Y(0),U,26)
WRITE ?38,$JUSTIFY($PIECE(Y(0),U,27),3)
SET T(2)=T(2)+$PIECE(Y(0),U,27)
WRITE ?59,$JUSTIFY($PIECE(Y(0),U,28),3)
SET T(3)=T(3)+$PIECE(Y(0),U,28)
+15 WRITE !!,?5,"TOTALS",?17,$JUSTIFY(T(1),4),?37,$JUSTIFY(T(2),4),?58,$JUSTIFY(T(3),4),!
+16 KILL A,D,I,L,T,V
QUIT
