DENTPCD2 ;ISC2/SAW-PRINT CDR WORKSHEETS CON'T ; 11/16/88 10:29 AM ;
;VERSION 1.2
EN4 W @IOF,!,?32,"CDR WORKSHEET IV",!,?29,"EDUCATION DISTRIBUTION",!,?29,"(Trainee Salaries .11)"
W !!,?6,"Bedsection distribution by Medical, Surgical and Psychiatric Services"
W !!,?10,"MEDICAL",?38,"SURGICAL",?66,"PSYCHIATRIC" S (M,S,P)=0
W !!,?8,"01",?13,$J($P(B(1),"^"),4,4),?36,"02",?41,$J($P(B(2),"^"),4,4),?64,"03",?70,$J($P(B(3),"^"),4,4) S M=M+$P(B(1),"^"),S=S+$P(B(2),"^"),P=P+$P(B(3),"^")
W !,?8,"05",?13,$J($P(B(5),"^"),4,4),?36,15,?41,$J($P(B(15),"^"),4,4),?64,"04",?70,$J($P(B(4),"^"),4,4) S M=M+$P(B(5),"^"),S=S+$P(B(15),"^"),P=P+$P(B(4),"^")
W !,?8,"06",?13,$J($P(B(6),"^"),4,4),?64,"08",?70,$J($P(B(8),"^"),4,4) S M=M+$P(B(6),"^"),P=P+$P(B(8),"^")
W !,?8,"07",?13,$J($P(B(5),"^"),4,4),?33,"TOTAL",?41,$J(S,4,4),?64,"09",?70,$J($P(B(9),"^"),4,4) S M=M+$P(B(7),"^"),P=P+$P(B(9),"^")
W !,?8,10,?13,$J($P(B(10),"^"),4,4) S M=M+$P(B(10),"^")
W !,?8,11,?13,$J($P(B(11),"^"),4,4),?61,"TOTAL",?70,$J(P,4,4) S M=M+$P(B(10),"^")
W !,?8,12,?13,$J($P(B(12),"^"),4,4) S M=M+$P(B(12),"^")
W !,?8,14,?13,$J($P(B(14),"^"),4,4) S M=M+$P(B(14),"^") W !!,?5,"TOTAL",?13,$J(M,4,4)
W !!,"Medical Proportion (1100.11) ",$J(M,7,4),?41,"Surgical Proportion (1200.11) ",$J(S,7,4)
W !,"Psychiatric Prop. (1300.11) ",$J(P,7,4),?41,"NHCU Proportion (1400.11) ",$J($P(B(16),"^"),7,4)
W !,"DOM Proportion (1500.11) ",$J($P(B(17),"^"),7,4),?41,"Outpatient Prop. (1800.11) ",$J(O,7,4)
EN5 W @IOF,!,?32,"CDR WORKSHEET V",!,?29,"EDUCATION DISTRIBUTION",!,?4,"(Instructional .12, Administrative .13, and Continuing Education 6014.00)"
W !!,?6,"Bedsection distribution by Medical, Surgical and Psychiatric Services"
W !!,?10,"MEDICAL",?38,"SURGICAL",?66,"PSYCHIATRIC" S (M,S,P)=0
W !!,?8,"01",?13,$J($P(B(1),"^",3),4,4),?36,"02",?41,$J($P(B(2),"^",3),4,4),?64,"03",?70,$J($P(B(3),"^",3),4,4) S M=M+$P(B(1),"^",3),S=S+$P(B(2),"^",3),P=P+$P(B(3),"^",3)
W !,?8,"05",?13,$J($P(B(5),"^",3),4,4),?36,15,?41,$J($P(B(15),"^",3),4,4),?64,"04",?70,$J($P(B(4),"^",3),4,4) S M=M+$P(B(5),"^",3),S=S+$P(B(15),"^",3),P=P+$P(B(4),"^",3)
W !,?8,"06",?13,$J($P(B(6),"^",3),4,4),?64,"08",?70,$J($P(B(8),"^",3),4,4) S M=M+$P(B(6),"^",3),P=P+$P(B(8),"^",3)
W !,?8,"07",?13,$J($P(B(5),"^",3),4,4),?33,"TOTAL",?41,$J(S,4,4),?64,"09",?70,$J($P(B(9),"^",3),4,4) S M=M+$P(B(7),"^",3),P=P+$P(B(9),"^",3)
W !,?8,10,?13,$J($P(B(10),"^",3),4,4) S M=M+$P(B(10),"^",3)
W !,?8,11,?13,$J($P(B(11),"^",3),4,4),?61,"TOTAL",?70,$J(P,4,4) S M=M+$P(B(10),"^",3)
W !,?8,12,?13,$J($P(B(12),"^",3),4,4) S M=M+$P(B(12),"^",3)
W !,?8,14,?13,$J($P(B(14),"^",3),4,4) S M=M+$P(B(14),"^",3) W !!,?5,"TOTAL",?13,$J(M,4,4)
W ! S C=0 F I=1:1:6 S X=$P("Medical^Surgical^Psychiatric^NHCU^Domiciliary^Outpatient","^",I),Y=$S(I=1:M,I=2:S,I=3:P,I=4:B(16),I=5:B(17),1:B(18)) D T
W !!,"Total Continuing Education Proportion (6014.00)",?50,$J(C,4,4)
K B,C,E,F,I,M,O,P,P1,P2,P3,R,S,X,Y Q
T W !,X," Proportion "_$S(I'=6:1_I_"00.12)",1:"2800.12)"),?35,$J(Y*P1,4,4)
W !,X," Proportion "_$S(I'=6:1_I_"00.13)",1:"2800.13)"),?35,$J(Y*P2,4,4)
W !,X," Proportion (6014.00)",?35,$J(Y*.05,4,4),! S C=C+$J(Y*P3,4,4) Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDENTPCD2 3197 printed Dec 13, 2024@01:46:43 Page 2
DENTPCD2 ;ISC2/SAW-PRINT CDR WORKSHEETS CON'T ; 11/16/88 10:29 AM ;
+1 ;VERSION 1.2
EN4 WRITE @IOF,!,?32,"CDR WORKSHEET IV",!,?29,"EDUCATION DISTRIBUTION",!,?29,"(Trainee Salaries .11)"
+1 WRITE !!,?6,"Bedsection distribution by Medical, Surgical and Psychiatric Services"
+2 WRITE !!,?10,"MEDICAL",?38,"SURGICAL",?66,"PSYCHIATRIC"
SET (M,S,P)=0
+3 WRITE !!,?8,"01",?13,$JUSTIFY($PIECE(B(1),"^"),4,4),?36,"02",?41,$JUSTIFY($PIECE(B(2),"^"),4,4),?64,"03",?70,$JUSTIFY($PIECE(B(3),"^"),4,4)
SET M=M+$PIECE(B(1),"^")
SET S=S+$PIECE(B(2),"^")
SET P=P+$PIECE(B(3),"^")
+4 WRITE !,?8,"05",?13,$JUSTIFY($PIECE(B(5),"^"),4,4),?36,15,?41,$JUSTIFY($PIECE(B(15),"^"),4,4),?64,"04",?70,$JUSTIFY($PIECE(B(4),"^"),4,4)
SET M=M+$PIECE(B(5),"^")
SET S=S+$PIECE(B(15),"^")
SET P=P+$PIECE(B(4),"^")
+5 WRITE !,?8,"06",?13,$JUSTIFY($PIECE(B(6),"^"),4,4),?64,"08",?70,$JUSTIFY($PIECE(B(8),"^"),4,4)
SET M=M+$PIECE(B(6),"^")
SET P=P+$PIECE(B(8),"^")
+6 WRITE !,?8,"07",?13,$JUSTIFY($PIECE(B(5),"^"),4,4),?33,"TOTAL",?41,$JUSTIFY(S,4,4),?64,"09",?70,$JUSTIFY($PIECE(B(9),"^"),4,4)
SET M=M+$PIECE(B(7),"^")
SET P=P+$PIECE(B(9),"^")
+7 WRITE !,?8,10,?13,$JUSTIFY($PIECE(B(10),"^"),4,4)
SET M=M+$PIECE(B(10),"^")
+8 WRITE !,?8,11,?13,$JUSTIFY($PIECE(B(11),"^"),4,4),?61,"TOTAL",?70,$JUSTIFY(P,4,4)
SET M=M+$PIECE(B(10),"^")
+9 WRITE !,?8,12,?13,$JUSTIFY($PIECE(B(12),"^"),4,4)
SET M=M+$PIECE(B(12),"^")
+10 WRITE !,?8,14,?13,$JUSTIFY($PIECE(B(14),"^"),4,4)
SET M=M+$PIECE(B(14),"^")
WRITE !!,?5,"TOTAL",?13,$JUSTIFY(M,4,4)
+11 WRITE !!,"Medical Proportion (1100.11) ",$JUSTIFY(M,7,4),?41,"Surgical Proportion (1200.11) ",$JUSTIFY(S,7,4)
+12 WRITE !,"Psychiatric Prop. (1300.11) ",$JUSTIFY(P,7,4),?41,"NHCU Proportion (1400.11) ",$JUSTIFY($PIECE(B(16),"^"),7,4)
+13 WRITE !,"DOM Proportion (1500.11) ",$JUSTIFY($PIECE(B(17),"^"),7,4),?41,"Outpatient Prop. (1800.11) ",$JUSTIFY(O,7,4)
EN5 WRITE @IOF,!,?32,"CDR WORKSHEET V",!,?29,"EDUCATION DISTRIBUTION",!,?4,"(Instructional .12, Administrative .13, and Continuing Education 6014.00)"
+1 WRITE !!,?6,"Bedsection distribution by Medical, Surgical and Psychiatric Services"
+2 WRITE !!,?10,"MEDICAL",?38,"SURGICAL",?66,"PSYCHIATRIC"
SET (M,S,P)=0
+3 WRITE !!,?8,"01",?13,$JUSTIFY($PIECE(B(1),"^",3),4,4),?36,"02",?41,$JUSTIFY($PIECE(B(2),"^",3),4,4),?64,"03",?70,$JUSTIFY($PIECE(B(3),"^",3),4,4)
SET M=M+$PIECE(B(1),"^",3)
SET S=S+$PIECE(B(2),"^",3)
SET P=P+$PIECE(B(3),"^",3)
+4 WRITE !,?8,"05",?13,$JUSTIFY($PIECE(B(5),"^",3),4,4),?36,15,?41,$JUSTIFY($PIECE(B(15),"^",3),4,4),?64,"04",?70,$JUSTIFY($PIECE(B(4),"^",3),4,4)
SET M=M+$PIECE(B(5),"^",3)
SET S=S+$PIECE(B(15),"^",3)
SET P=P+$PIECE(B(4),"^",3)
+5 WRITE !,?8,"06",?13,$JUSTIFY($PIECE(B(6),"^",3),4,4),?64,"08",?70,$JUSTIFY($PIECE(B(8),"^",3),4,4)
SET M=M+$PIECE(B(6),"^",3)
SET P=P+$PIECE(B(8),"^",3)
+6 WRITE !,?8,"07",?13,$JUSTIFY($PIECE(B(5),"^",3),4,4),?33,"TOTAL",?41,$JUSTIFY(S,4,4),?64,"09",?70,$JUSTIFY($PIECE(B(9),"^",3),4,4)
SET M=M+$PIECE(B(7),"^",3)
SET P=P+$PIECE(B(9),"^",3)
+7 WRITE !,?8,10,?13,$JUSTIFY($PIECE(B(10),"^",3),4,4)
SET M=M+$PIECE(B(10),"^",3)
+8 WRITE !,?8,11,?13,$JUSTIFY($PIECE(B(11),"^",3),4,4),?61,"TOTAL",?70,$JUSTIFY(P,4,4)
SET M=M+$PIECE(B(10),"^",3)
+9 WRITE !,?8,12,?13,$JUSTIFY($PIECE(B(12),"^",3),4,4)
SET M=M+$PIECE(B(12),"^",3)
+10 WRITE !,?8,14,?13,$JUSTIFY($PIECE(B(14),"^",3),4,4)
SET M=M+$PIECE(B(14),"^",3)
WRITE !!,?5,"TOTAL",?13,$JUSTIFY(M,4,4)
+11 WRITE !
SET C=0
FOR I=1:1:6
SET X=$PIECE("Medical^Surgical^Psychiatric^NHCU^Domiciliary^Outpatient","^",I)
SET Y=$SELECT(I=1:M,I=2:S,I=3:P,I=4:B(16),I=5:B(17),1:B(18))
DO T
+12 WRITE !!,"Total Continuing Education Proportion (6014.00)",?50,$JUSTIFY(C,4,4)
+13 KILL B,C,E,F,I,M,O,P,P1,P2,P3,R,S,X,Y
QUIT
T WRITE !,X," Proportion "_$SELECT(I'=6:1_I_"00.12)",1:"2800.12)"),?35,$JUSTIFY(Y*P1,4,4)
+1 WRITE !,X," Proportion "_$SELECT(I'=6:1_I_"00.13)",1:"2800.13)"),?35,$JUSTIFY(Y*P2,4,4)
+2 WRITE !,X," Proportion (6014.00)",?35,$JUSTIFY(Y*.05,4,4),!
SET C=C+$JUSTIFY(Y*P3,4,4)
QUIT