DENTA5 ;ISC2/SAW,HAG-FEE BASIS SERVICE REPORT OPTION ; 10/27/88 10:09 AM ;
;VERSION 1.2
S Y(0)=DENTY0,Z1="FEE BASIS (TYPE 5) REPORT FOR "_Z1,Z3="STATION NUMBER: "_DENTSTA
W @IOF,?(80-$L(Z1)/2),Z1,!,?(80-$L(Z3)/2),Z3
W !!,"TOTAL APPLICATIONS RECEIVED",?33,":",$J($P(Y(0),U,2),4) W ?45,"FEE CASES COMP CLASS I",?71,":",$J($P(Y(0),U,14),5)
W !,"CLASS II APPLICATIONS RECEIVED",?33,":",$J($P(Y(0),U,3),4) W ?45,"FEE CASES COMP CLASS II",?71,":",$J($P(Y(0),U,15),5)
W !,"TOT APP DETERM ELIG FOR EXAM",?33,":",$J($P(Y(0),U,4),4) W ?45,"FEE CASES COMP CLASS IIA",?71,":",$J($P(Y(0),U,16),5)
W !,"TOT APP PEND DETERM OF ELIG EXAM",?33,":",$J($P(Y(0),U,5),4) W ?45,"FEE CASES COMP CLASS IIB",?71,":",$J($P(Y(0),U,17),5)
W !,"TOTAL EXAM AUTH TO BE DONE BY VA",?33,":",$J($P(Y(0),U,6),4) W ?45,"FEE CASES COMP CLASS IIC",?71,":",$J($P(Y(0),U,18),5)
W !,"TOTAL FEE AUTHORIZED EXAMS",?33,":",$J($P(Y(0),U,7),4) W ?45,"FEE CASES COMP CLASS III",?71,":",$J($P(Y(0),U,19),5)
W !,"TOT FEE EXAMS PENDING COMPLETION",?33,":",$J($P(Y(0),U,8),4) W ?45,"FEE CASES COMP CLASS IV",?71,":",$J($P(Y(0),U,20),5)
W !,"TOTAL FEE EXAMS COMPLETED",?33,":",$J($P(Y(0),U,9),4) W ?45,"FEE CASES COMP CLASS V",?71,":",$J($P(Y(0),U,21),5)
W !,"TOT FEE TREAT PEND AUTHORIZATION",?33,":",$J($P(Y(0),U,10),4) W ?45,"FEE CASES COMP CLASS VI",?71,":",$J($P(Y(0),U,22),5)
W !,"TOTAL FEE TREATMENT AUTHORIZED",?33,":",$J($P(Y(0),U,11),4) W ?45,"FEE AVG COST ALL CLASSES",?71,":",$J($P(Y(0),U,27),5)
W !,"TOT FEE TREATMENT PEND COMPLETION",?33,":",$J($P(Y(0),U,12),4)
W !,"TOTAL FEE TREATMENT COMPLETED",?33,":",$J($P(Y(0),U,13),4)
K D,DIC,I,L,P,V Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTA5 1640 printed Nov 22, 2024@16:56:03 Page 2
DENTA5 ;ISC2/SAW,HAG-FEE BASIS SERVICE REPORT OPTION ; 10/27/88 10:09 AM ;
+1 ;VERSION 1.2
+2 SET Y(0)=DENTY0
SET Z1="FEE BASIS (TYPE 5) REPORT FOR "_Z1
SET Z3="STATION NUMBER: "_DENTSTA
+3 WRITE @IOF,?(80-$LENGTH(Z1)/2),Z1,!,?(80-$LENGTH(Z3)/2),Z3
+4 WRITE !!,"TOTAL APPLICATIONS RECEIVED",?33,":",$JUSTIFY($PIECE(Y(0),U,2),4)
WRITE ?45,"FEE CASES COMP CLASS I",?71,":",$JUSTIFY($PIECE(Y(0),U,14),5)
+5 WRITE !,"CLASS II APPLICATIONS RECEIVED",?33,":",$JUSTIFY($PIECE(Y(0),U,3),4)
WRITE ?45,"FEE CASES COMP CLASS II",?71,":",$JUSTIFY($PIECE(Y(0),U,15),5)
+6 WRITE !,"TOT APP DETERM ELIG FOR EXAM",?33,":",$JUSTIFY($PIECE(Y(0),U,4),4)
WRITE ?45,"FEE CASES COMP CLASS IIA",?71,":",$JUSTIFY($PIECE(Y(0),U,16),5)
+7 WRITE !,"TOT APP PEND DETERM OF ELIG EXAM",?33,":",$JUSTIFY($PIECE(Y(0),U,5),4)
WRITE ?45,"FEE CASES COMP CLASS IIB",?71,":",$JUSTIFY($PIECE(Y(0),U,17),5)
+8 WRITE !,"TOTAL EXAM AUTH TO BE DONE BY VA",?33,":",$JUSTIFY($PIECE(Y(0),U,6),4)
WRITE ?45,"FEE CASES COMP CLASS IIC",?71,":",$JUSTIFY($PIECE(Y(0),U,18),5)
+9 WRITE !,"TOTAL FEE AUTHORIZED EXAMS",?33,":",$JUSTIFY($PIECE(Y(0),U,7),4)
WRITE ?45,"FEE CASES COMP CLASS III",?71,":",$JUSTIFY($PIECE(Y(0),U,19),5)
+10 WRITE !,"TOT FEE EXAMS PENDING COMPLETION",?33,":",$JUSTIFY($PIECE(Y(0),U,8),4)
WRITE ?45,"FEE CASES COMP CLASS IV",?71,":",$JUSTIFY($PIECE(Y(0),U,20),5)
+11 WRITE !,"TOTAL FEE EXAMS COMPLETED",?33,":",$JUSTIFY($PIECE(Y(0),U,9),4)
WRITE ?45,"FEE CASES COMP CLASS V",?71,":",$JUSTIFY($PIECE(Y(0),U,21),5)
+12 WRITE !,"TOT FEE TREAT PEND AUTHORIZATION",?33,":",$JUSTIFY($PIECE(Y(0),U,10),4)
WRITE ?45,"FEE CASES COMP CLASS VI",?71,":",$JUSTIFY($PIECE(Y(0),U,22),5)
+13 WRITE !,"TOTAL FEE TREATMENT AUTHORIZED",?33,":",$JUSTIFY($PIECE(Y(0),U,11),4)
WRITE ?45,"FEE AVG COST ALL CLASSES",?71,":",$JUSTIFY($PIECE(Y(0),U,27),5)
+14 WRITE !,"TOT FEE TREATMENT PEND COMPLETION",?33,":",$JUSTIFY($PIECE(Y(0),U,12),4)
+15 WRITE !,"TOTAL FEE TREATMENT COMPLETED",?33,":",$JUSTIFY($PIECE(Y(0),U,13),4)
+16 KILL D,DIC,I,L,P,V
QUIT
