source: WorldVistAEHR/trunk/r/DENTAL-DEN/DENTA4.m@ 701

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

initial load of WorldVistAEHR

File size: 2.8 KB
Line 
1DENTA4 ;ISC2/SAW-PERSONNEL SERVICE REPORT OPTION ;9/11/89 15:52 ;
2 ;;1.2;DENTAL;**8,25**;Jan 26, 1989
3 I '$D(ZTSK),IO=IO(0) W !,"One moment please while I total your non clinical time entries"
4 S Y(0)=DENTY0,A1=$E($P(Y(0),U,1),1,5)_"00",A2=$E(A1,1,5)_31.2359 F I=0:0 S A1=$O(^DENT(226,"A1",DENTSTA,A1)) Q:A1=""!(A1>A2) S A3="" F J=0:0 S A3=$O(^DENT(226,"A1",DENTSTA,A1,A3)) Q:A3="" D T
5 G P
6T S X=^DENT(226,A3,0),A4=$E($P(X,U,3),1),A4=$S(A4=0:6,A4=2:1,A4>6:6,1:A4) I '$D(G(A4)) S G(A4)="^^^"
7 S A5=$P(X,U,4),A5=$S(A5="R":1,A5="E":2,A5="F":3,1:4),$P(G(A4),U,A5)=$P(G(A4),U,A5)+$P(X,U,5) Q
8P S Z1="PERSONNEL (TYPE 4) REPORT FOR "_Z1,Z3="STATION NUMBER: "_DENTSTA F I=1:1:6 S T(I)=""
9 W @IOF,?(80-$L(Z1)/2),Z1,!,?(80-$L(Z3)/2),Z3
10 W !,?15,"(All values are in days except Consultant Visits)"
11 W !!,?37,"NON CLINICAL TIME",!,?16,"DAYS WORKED",?30,"RESEARCH EDUCATION FEE ADMIN",?65,"CLINICAL TIME",!,?16,"___________",?30,"________ _________ ___ _____",?65,"_____________"
12 F I=1:1:6 S G(I)=$S($D(G(I)):G(I),1:"^^^")
13 S A(1)=$P(Y(0),U,2),A(2)=$P(G(1),U,1)+4\8,A(3)=$P(G(1),U,2)+4\8,A(4)=$P(G(1),U,3)+4\8,A(5)=$P(G(1),U,4)+4\8,A(6)=A(2)+A(3)+A(4)+A(5)
14 W !,"DENTISTS",?20,$J(A(1),3) S T(1)=T(1)+A(1) W ?32,$J(A(2),3) S T(2)=T(2)+A(2) W ?43,$J(A(3),3) S T(3)=T(3)+A(3)
15 W ?51,$J(A(4),3) S T(4)=T(4)+A(4) W ?57,$J(A(5),3) S T(5)=T(5)+A(5) W ?69,$J((A(1)-A(6)),3) S T(6)=T(6)+(A(1)-A(6)) S:(A(1)-A(6))<0 DENTF=1
16 S A(1)=$P(Y(0),U,3),A(2)=$P(G(3),U,1)+4\8,A(3)=$P(G(3),U,2)+4\8,A(6)=A(2)+A(3)
17 W !,"RESIDENTS",?20,$J(A(1),3) S T(1)=T(1)+A(1) W ?32,$J(A(2),3) S T(2)=T(2)+A(2) W ?43,$J(A(3),3) S T(3)=T(3)+A(3) W ?69,$J((A(1)-A(6)),3) S T(6)=T(6)+(A(1)-A(6)) S:(A(1)-A(6))<0 DENTF=1
18 S A(1)=$P(Y(0),U,4),A(2)=$P(G(5),U,1)+4\8,A(3)=$P(G(5),U,2)+4\8,A(6)=A(2)+A(3)
19 W !,"HYGIENISTS",?20,$J(A(1),3) S T(1)=T(1)+A(1) W ?32,$J(A(2),3) S T(2)=T(2)+A(2) W ?43,$J(A(3),3) S T(3)=T(3)+A(3) W ?69,$J((A(1)-A(6)),3) S T(6)=T(6)+(A(1)-A(6)) S:(A(1)-A(6))<0 DENTF=1
20 S A(1)=$P(Y(0),U,5),A(2)=$P(G(4),U,1)+4\8,A(3)=$P(G(4),U,2)+4\8,A(6)=A(2)+A(3)
21 W !,"EFDAs",?20,$J(A(1),3) S T(1)=T(1)+A(1) W ?32,$J(A(2),3) S T(2)=T(2)+A(2) W ?43,$J(A(3),3) S T(3)=T(3)+A(3) W ?69,$J((A(1)-A(6)),3) S T(6)=T(6)+(A(1)-A(6)) S:(A(1)-A(6))<0 DENTF=1
22 S A(1)=$P(Y(0),U,6) W !,"ASSISTANTS",?20,$J(A(1),3) S T(1)=T(1)+A(1)
23 S A(1)=$P(Y(0),U,7) W !,"LAB TECHS",?20,$J(A(1),3) S T(1)=T(1)+A(1)
24 S A(1)=$P(Y(0),U,8) W !,"ADMIN/CLER",?20,$J(A(1),3) S T(1)=T(1)+A(1)
25 S A(2)=$P(G(6),U,1)+4\8,A(3)=$P(G(6),U,2)+4\8
26 W !,"ALL OTHERS",?32,$J(A(2),3) S T(2)=T(2)+A(2) W ?43,$J(A(3),3) S T(3)=T(3)+A(3)
27 W !!,?5,"TOTALS",?19,$J(T(1),4),?31,$J(T(2),4),?42,$J(T(3),4),?50,$J(T(4),4),?56,$J(T(5),4),?68,$J(T(6),4)
28 W !!,"CONSULTANTS VISITS: ",$J($P(Y(0),U,9),3)
29 I $D(DENTF) W *7,!!,"ERROR!!! Clinical time values cannot be negative.",!
30 K A,A1,A2,A3,A4,A5,D,DENTF,G,I,J,L,P,T,V,X Q
Note: See TracBrowser for help on using the repository browser.