source: WorldVistAEHR/trunk/r/DENTAL-DEN/DENTA3.m@ 846

Last change on this file since 846 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.9 KB
Line 
1DENTA3 ;ISC2/SAW-CLASS I-VI SERVICE REPORT OPTION ; 10/27/88 10:09 AM ;
2 ;VERSION 1.2
3 S Y(0)=DENTY0,Z1="CLASS I TO VI (TYPE 3) REPORT FOR "_Z1,Z3="STATION NUMBER: "_DENTSTA,(T(1),T(2),T(3))=""
4 W @IOF,?(80-$L(Z1)/2),Z1,!,?(80-$L(Z3)/2),Z3
5 W !!,?15,"TREATMENT",?32,"TREATMENT CASES",?53,"TREATMENT CASES"
6 W !,?12,"CASES AUTHORIZED",?31,"PENDING INITIATION",?52,"PENDING COMPLETION"
7 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)
8 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)
9 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)
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)
11 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)
12 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)
13 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)
14 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)
15 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)
16 W !!,?5,"TOTALS",?17,$J(T(1),4),?37,$J(T(2),4),?58,$J(T(3),4),!
17 K A,D,I,L,T,V Q
Note: See TracBrowser for help on using the repository browser.