| [613] | 1 | SOWKCDR ;B'HAM ISC/SAB,DLR cost distribution percentage report; 16 Dec 93 / 10:25 AM
|
|---|
| 2 | ;;3.0; Social Work ;**17**;27 Apr 93
|
|---|
| 3 | DEV ;
|
|---|
| 4 | K %ZIS,IOP,ZTSK S SOWKION=ION,%ZIS="QM",%ZIS("B")="" D ^%ZIS K %ZIS I POP S IOP=SOWKION D ^%ZIS K IOP,SOWKION G CLOS
|
|---|
| 5 | K SOWKION I $D(IO("Q")) S ZTDESC="SOCIAL WORK COST DISTRIBUTION FTEE REPORT",ZTRTN="EN^SOWKCDR" K IO("Q") D ^%ZTLOAD W:$D(ZTSK) !!,"Task Queued to Print",! K POP,ZTSK G CLOS
|
|---|
| 6 | EN K ^TMP($J) S (OUT,TOT,TOP)=0 F S=0:0 S S=$O(^SOWK(650.1,S)) Q:'S F I=0:0 S I=$O(^SOWK(650.1,S,3,"B",I)) Q:'I F H=0:0 S H=$O(^SOWK(650.1,S,3,"B",I,H)) Q:'H D COM
|
|---|
| 7 | D NOW^%DTC S Y=% X ^DD("DD") S RD=Y
|
|---|
| 8 | W:$Y @IOF
|
|---|
| 9 | D HDR K I,G,H F I="" F G=0:0 S I=$O(^TMP($J,I)) Q:I=""!(OUT=1) D:($Y+5)>IOSL FF,HDR Q:OUT=1 U IO W !,I,?50,$P(^TMP($J,I,0),"^"),?60,$J($P(^(0),"^",2),3,2),?70,$J(($P(^(0),"^",2)/TOT)*100,5,2) S TOP=TOP+($P(^(0),"^",2)/TOT)
|
|---|
| 10 | Q:OUT=1 W !!?50,"TOTALS",?59,$J(TOT,5,2),?69,$J(TOP*100,5,2)
|
|---|
| 11 | CLOS W:$E(IOST)'["C" @IOF D ^%ZISC K ^TMP($J),IOP,OUT,XX,TOT,TOP,%I,S,I,X,Y,RD,H,G D:$D(ZTSK) KILL^%ZTLOAD
|
|---|
| 12 | Q
|
|---|
| 13 | COM S:'$D(^TMP($J,$P(^SOWK(651,I,0),"^"),0)) ^TMP($J,$P(^SOWK(651,I,0),"^"),0)=$P(^SOWK(651,I,0),"^",4)_"^0"
|
|---|
| 14 | F G=0:0 S G=$O(^SOWK(650.1,S,3,H,1,G)) Q:'G S $P(^TMP($J,$P(^SOWK(651,I,0),"^"),0),"^",2)=$P(^SOWK(650.1,S,3,H,1,G,0),"^",2)+$P(^TMP($J,$P(^SOWK(651,I,0),"^"),0),"^",2),TOT=TOT+$P(^SOWK(650.1,S,3,H,1,G,0),"^",2)
|
|---|
| 15 | Q
|
|---|
| 16 | HDR Q:OUT=1
|
|---|
| 17 | U IO W $P(^DD("SITE"),"^")_" ("_^DD("SITE",1)_")",?35,"COST DISTRIBUTION CENTER FTEE REPORT" W:$O(^SOWK(650.1,1)) !?47,"FOR ALL DIVISIONS" W !!,"Run Date/Time: "_RD
|
|---|
| 18 | W !!,?50,"ACCOUNT",?60,"FTEE",!,"COST CENTER",?50,"NUMBER",?60,"TOTALS",?70,"% FTEE",!
|
|---|
| 19 | Q
|
|---|
| 20 | FF I $E(IOST)["C" R !,"Press <RETURN> to continue: ",XX:DTIME I XX="^" S OUT=1
|
|---|
| 21 | W @IOF Q
|
|---|
