source: WorldVistAEHR/trunk/r/DENTAL-DEN/DENTAR5.m@ 724

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

initial load of WorldVistAEHR
File size: 2.4 KB
RevLine 
[613]1DENTAR5 ;ISC2/SAW,HAG-FEE BASIS SERVICE REPORT RELEASE OPTION ; 3/22/89 11:33 AM ;
2 ;VERSION 1.2
3 S Y(0)=DENTY0,Z1="FEE BASIS (TYPE 5) REPORT FOR "_Z1,Z3="STATION NUMBER: "_Z2,DENTCD=$P(Y(0),"^",29),DENT=$S(DENTCD="C":"A",DENTCD="D":"F",1:5)_DENTSTA_$E(DENT,4,5)_$E(DENT,6,7)_$E(DENT,2,3)
4 W @IOF,?(80-$L(Z1)/2),Z1,!,?(80-$L(Z3)/2),Z3
5 W !!,"TOTAL APPLICATIONS RECEIVED",?33,":",$J($P(Y(0),U,2),4) S L=3,P=1,V=$P(Y(0),U,2) D B W ?45,"FEE CASES COMP CLASS I",?71,":",$J($P(Y(0),U,14),5) S L=2,P=13,V=$P(Y(0),U,14) D B
6 W !,"CLASS II APPLICATIONS RECEIVED",?33,":",$J($P(Y(0),U,3),4) S L=3,P=2,V=$P(Y(0),U,3) D B W ?45,"FEE CASES COMP CLASS II",?71,":",$J($P(Y(0),U,15),5) S L=3,P=14,V=$P(Y(0),U,15) D B
7 W !,"TOT APP DETERM ELIG FOR EXAM",?33,":",$J($P(Y(0),U,4),4) S L=3,P=3,V=$P(Y(0),U,4) D B W ?45,"FEE CASES COMP CLASS IIA",?71,":",$J($P(Y(0),U,16),5) S L=2,P=15,V=$P(Y(0),U,16) D B
8 W !,"TOT APP PEND DETERM OF ELIG EXAM",?33,":",$J($P(Y(0),U,5),4) S L=3,P=4,V=$P(Y(0),U,5) D B W ?45,"FEE CASES COMP CLASS IIB",?71,":",$J($P(Y(0),U,17),5) S L=2,P=16,V=$P(Y(0),U,17) D B
9 W !,"TOTAL EXAM AUTH TO BE DONE BY VA",?33,":",$J($P(Y(0),U,6),4) S L=3,P=5,V=$P(Y(0),U,6) D B W ?45,"FEE CASES COMP CLASS IIC",?71,":",$J($P(Y(0),U,18),5) S L=2,P=17,V=$P(Y(0),U,18) D B
10 W !,"TOTAL FEE AUTHORIZED EXAMS",?33,":",$J($P(Y(0),U,7),4) S L=3,P=6,V=$P(Y(0),U,7) D B W ?45,"FEE CASES COMP CLASS III",?71,":",$J($P(Y(0),U,19),5) S L=3,P=18,V=$P(Y(0),U,19) D B
11 W !,"TOT FEE EXAMS PENDING COMPLETION",?33,":",$J($P(Y(0),U,8),4) S L=3,P=7,V=$P(Y(0),U,8) D B W ?45,"FEE CASES COMP CLASS IV",?71,":",$J($P(Y(0),U,20),5) S L=3,P=19,V=$P(Y(0),U,20) D B
12 W !,"TOTAL FEE EXAMS COMPLETED",?33,":",$J($P(Y(0),U,9),4) S L=3,P=8,V=$P(Y(0),U,9) D B W ?45,"FEE CASES COMP CLASS V",?71,":",$J($P(Y(0),U,21),5) S L=2,P=20,V=$P(Y(0),U,21) D B
13 W !,"TOT FEE TREAT PEND AUTHORIZATION",?33,":",$J($P(Y(0),U,10),4) S L=3,P=9,V=$P(Y(0),U,10) D B W ?45,"FEE CASES COMP CLASS VI",?71,":",$J($P(Y(0),U,22),5) S L=2,P=21,V=$P(Y(0),U,22) D B
14 W !,"TOTAL FEE TREATMENT AUTHORIZED",?33,":",$J($P(Y(0),U,11),4) S L=3,P=10,V=$P(Y(0),U,11) D B W ?45,"FEE AVG COST ALL CLASSES",?71,":",$J($P(Y(0),U,27),5) S L=4,P=22,V=$P(Y(0),U,27) D B
15 W !,"TOT FEE TREAT PEND COMPLETION",?33,":",$J($P(Y(0),U,12),4) S L=3,P=11,V=$P(Y(0),U,12) D B
16 W !,"TOTAL FEE TREATMENT COMPLETED",?33,":",$J($P(Y(0),U,13),4) S L=3,P=12,V=$P(Y(0),U,13) D B
17 F I=1:1:22 S DENT=DENT_D(I)
18 K D,DENTCD,DIC,I,L,P,V,Y Q
19B S V="0000"_V,D(P)=$E(V,$L(V)-(L-1),$L(V)) Q
Note: See TracBrowser for help on using the repository browser.