source: FOIAVistA/tag/r/ENGINEERING-EN/ENEQRP5.m@ 628

ENEQRP5 ;(WASH ISC)/DH-PM Workload Report ;4-27-95
 ;;7.0;ENGINEERING;**15,22**;Aug 17, 1993
EN S DIC="^DIC(6922,",DIC(0)="AEMQ" D ^DIC Q:Y'>0  S ENSHKEY=+Y,ENSHOP=$P(^DIC(6922,ENSHKEY,0),U,1)
 S (ENTEC,ENTEC("ALL"))=0
 S DIR(0)="Y",DIR("A")="Should results be broken out by TECHNICIAN"
 S DIR("B")="NO"
 S DIR("?",1)="If you say YES, counts and totals will be reported separately for"
 S DIR("?",2)="different assigned technicians.  You will be allowed to request this"
 S DIR("?")="information for all technicians or for one particular technician."
 D ^DIR K DIR G:$D(DIRUT) EXIT
 I Y=1 D  I $D(DIRUT)!('$D(ENTEC)) G EXIT
 . S DIR(0)="Y",DIR("A")="Include ALL technicians",DIR("B")="YES"
 . S DIR("?",1)="If you say NO, you will be asked to select a technician of interest"
 . S DIR("?")="from the Eng Employee File."
 . D ^DIR K DIR Q:$D(DIRUT)  S:Y=1 ENTEC("ALL")=1
 . I 'ENTEC("ALL") D
 .. S DIR(0)="P^6929:AEMQ",DIR("A")="Select TECHNICIAN of interest"
 .. K DIR("B") D ^DIR K DIR I Y>0 S ENTEC=+Y,ENEMP=$P($G(^ENG("EMP",+Y,0)),U)
 .. I Y'>0 K ENTEC Q
 .. I ENEMP']"" K ENTEC Q
DEV D DEV^ENLIB G:POP EXIT I $D(IO("Q")) K IO("Q") S ZTRTN="EN1^ENEQRP5",ZTSAVE("EN*")="",ZTDESC="PM Workload Analysis" D ^%ZTLOAD K ZTSK D HOME^%ZIS G EXIT
EN1 S (ENC,ENT)=0 F I=1:1:12 S (ENC(I),ENT(I))=0
 I '$D(ZTQUEUED) W !!,"    compiling data"
 F ENDA=0:0 S ENDA=$O(^ENG(6914,"AB",ENSHKEY,ENDA)) Q:ENDA'>0  S ENM=$O(^ENG(6914,"AB",ENSHKEY,ENDA,0)) D NTRE I '$D(ZTQUEUED) W:'(ENDA#10) "."
 I '$D(DT) S %DT="",X="T" D ^%DT S DT=Y
PR U IO W:$E(IOST,1,2)="C-" @IOF S ENDONE=0 I ENTEC("ALL") D  G EXIT
 . S ENEMP="A" F  S ENEMP=$O(ENC(ENEMP)) Q:ENEMP']""!(ENDONE)  D
 .. F I=1:1:12 I '$D(ENC(ENEMP,I)) S ENC(ENEMP,I)=0
 .. D PR1
PR1 W "PM Workload Analysis: ",ENSHOP," Shop" S Y=DT X ^DD("DD") W ?65,Y
 I ENTEC!ENTEC("ALL") W !,"Responsible Technician: ",ENEMP
 W !,?5,"Month",?20,"Item Count*",?35,"Standard Hours",! F I=1:1:79 W "-"
 F I=1:1:12 W !,?7,$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,I),?20,$J($S(ENTEC("ALL"):ENC(ENEMP,I),1:ENC(I)),10),?35,$J($S(ENTEC("ALL"):ENT(ENEMP,I),1:ENT(I)),14,1)
 I ENTEC("ALL") S ENT=0 F I=1:1:12 S ENT=ENT+ENT(ENEMP,I)
 E  F I=1:1:12 S ENT=ENT+ENT(I)
 W !,?20,"----------",?35,"--------------",!,"COUNT**",?20,$J($S(ENTEC("ALL"):ENC(ENEMP),1:ENC),10),!,"TOTAL",?35,$J(ENT,14,1)
 W !!,"*  Count of items to be inspected in month indicated."
 W !,"**  Count of all items for which this ",$S(ENTEC:"technician",ENTEC("ALL"):"technician",1:"shop")," has PM responsibility."
 I $E(IOST,1,2)="C-" D HOLD I ENDONE,ENTEC("ALL") Q
 W @IOF I 'ENTEC("ALL") D EXIT
 Q
 ;
NTRE I $D(^ENG(6914,ENDA,3)) S EN=^(3),ENA=$P(EN,U,1) I ENA>3,ENA<6 Q
 Q:'$D(^ENG(6914,ENDA,4,ENM))  S ENTEC("CURRENT")=$P($G(^(ENM,0)),U,2) I ENTEC,ENTEC'=ENTEC("CURRENT") Q
 K ENA S ENSTMN=$S($D(^ENG(6914,ENDA,4,ENM,1)):^(1),1:"") I ENSTMN="" S ENSTMN=1
 I ENTEC("ALL") S ENEMP=$S(ENTEC("CURRENT")>0:$P($G(^ENG("EMP",+ENTEC("CURRENT"),0)),U),1:"") S:ENEMP="" ENEMP="UNASSIGNED" S ENC(ENEMP)=$G(ENC(ENEMP))+1
 I 'ENTEC("ALL") S ENC=ENC+1
 F I=1:1:12 S $P(ENA,U,I)=""
 F I=0:0 S I=$O(^ENG(6914,ENDA,4,ENM,2,I)) Q:I'>0  S ENHZ=$P(^ENG(6914,ENDA,4,ENM,2,I,0),U,1),ENA(ENHZ)=$S($P(^(0),U,2)]"":$P(^(0),U,2),1:0)
 I $D(ENA("M")) F I=1:1:12 S $P(ENA,U,I)=ENA("M")
 I $D(ENA("BM")) F I=ENSTMN:2:(ENSTMN+10) S J=I S:J>12 J=J#12 S $P(ENA,U,J)=ENA("BM")
 I $D(ENA("Q")) F I=ENSTMN:3:(ENSTMN+9) S J=I S:J>12 J=J#12 S $P(ENA,U,J)=ENA("Q")
 I $D(ENA("S")) F I=ENSTMN,(ENSTMN+6) S J=I S:J>12 J=J#12 S $P(ENA,U,J)=ENA("S")
 I $D(ENA("A")) S $P(ENA,U,ENSTMN)=ENA("A")
 S ENA("WT")="" I $D(ENA("W")) S ENA("WT")=ENA("W")*4
 I $D(ENA("BW")) S ENA("WT")=ENA("WT")/2+(ENA("BW")*2)
 F I=1:1:12 S ENT(I)=ENT(I)+$P(ENA,U,I)+ENA("WT")
 I ENA("WT")]"" F I=1:1:12 S ENC(I)=ENC(I)+1
 E  F I=1:1:12 I $P(ENA,U,I)]"" S ENC(I)=ENC(I)+1
 I ENTEC("ALL") D
 . F I=1:1:12 S ENT(ENEMP,I)=$G(ENT(ENEMP,I))+$P(ENA,U,I)+ENA("WT")
 . I ENA("WT")]"" F I=1:1:12 S ENC(ENEMP,I)=$G(ENC(ENEMP,I))+1
 . E  F I=1:1:12 I $P(ENA,U,I) S ENC(ENEMP,I)=$G(ENC(ENEMP,I))+1
 Q
HOLD W ! S DIR(0)="E" D ^DIR K DIR S:'Y ENDONE=1
 Q
 ;
EXIT K EN,ENC,ENT,ENA,ENSHKEY,ENSHOP,ENHZ,ENDA,ENSTMN,ENMNB,ENM,ENTEC,ENEMP
 K ENDONE,ZTRTN,ZTSAVE,ZTDESC S:$D(ZTQUEUED) ZTREQ="@"
 K DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT
 I '$D(ZTQUEUED),$E(IOST,1,2)="P-" D ^%ZISC
 Q
 ;ENEQRP5