- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENEQRP5 4372 printed Apr 23, 2025@18:07:34 Page 2
- ENEQRP5 ;(WASH ISC)/DH-PM Workload Report ;4-27-95
- +1 ;;7.0;ENGINEERING;**15,22**;Aug 17, 1993
- EN SET DIC="^DIC(6922,"
- SET DIC(0)="AEMQ"
- DO ^DIC
- if Y'>0
- QUIT
- SET ENSHKEY=+Y
- SET ENSHOP=$PIECE(^DIC(6922,ENSHKEY,0),U,1)
- +1 SET (ENTEC,ENTEC("ALL"))=0
- +2 SET DIR(0)="Y"
- SET DIR("A")="Should results be broken out by TECHNICIAN"
- +3 SET DIR("B")="NO"
- +4 SET DIR("?",1)="If you say YES, counts and totals will be reported separately for"
- +5 SET DIR("?",2)="different assigned technicians. You will be allowed to request this"
- +6 SET DIR("?")="information for all technicians or for one particular technician."
- +7 DO ^DIR
- KILL DIR
- if $DATA(DIRUT)
- GOTO EXIT
- +8 IF Y=1
- Begin DoDot:1
- +9 SET DIR(0)="Y"
- SET DIR("A")="Include ALL technicians"
- SET DIR("B")="YES"
- +10 SET DIR("?",1)="If you say NO, you will be asked to select a technician of interest"
- +11 SET DIR("?")="from the Eng Employee File."
- +12 DO ^DIR
- KILL DIR
- if $DATA(DIRUT)
- QUIT
- if Y=1
- SET ENTEC("ALL")=1
- +13 IF 'ENTEC("ALL")
- Begin DoDot:2
- +14 SET DIR(0)="P^6929:AEMQ"
- SET DIR("A")="Select TECHNICIAN of interest"
- +15 KILL DIR("B")
- DO ^DIR
- KILL DIR
- IF Y>0
- SET ENTEC=+Y
- SET ENEMP=$PIECE($GET(^ENG("EMP",+Y,0)),U)
- +16 IF Y'>0
- KILL ENTEC
- QUIT
- +17 IF ENEMP']""
- KILL ENTEC
- QUIT
- End DoDot:2
- End DoDot:1
- IF $DATA(DIRUT)!('$DATA(ENTEC))
- GOTO EXIT
- DEV DO DEV^ENLIB
- if POP
- GOTO EXIT
- IF $DATA(IO("Q"))
- KILL IO("Q")
- SET ZTRTN="EN1^ENEQRP5"
- SET ZTSAVE("EN*")=""
- SET ZTDESC="PM Workload Analysis"
- DO ^%ZTLOAD
- KILL ZTSK
- DO HOME^%ZIS
- GOTO EXIT
- EN1 SET (ENC,ENT)=0
- FOR I=1:1:12
- SET (ENC(I),ENT(I))=0
- +1 IF '$DATA(ZTQUEUED)
- WRITE !!," compiling data"
- +2 FOR ENDA=0:0
- SET ENDA=$ORDER(^ENG(6914,"AB",ENSHKEY,ENDA))
- if ENDA'>0
- QUIT
- SET ENM=$ORDER(^ENG(6914,"AB",ENSHKEY,ENDA,0))
- DO NTRE
- IF '$DATA(ZTQUEUED)
- if '(ENDA#10)
- WRITE "."
- +3 IF '$DATA(DT)
- SET %DT=""
- SET X="T"
- DO ^%DT
- SET DT=Y
- PR USE IO
- if $EXTRACT(IOST,1,2)="C-"
- WRITE @IOF
- SET ENDONE=0
- IF ENTEC("ALL")
- Begin DoDot:1
- +1 SET ENEMP="A"
- FOR
- SET ENEMP=$ORDER(ENC(ENEMP))
- if ENEMP']""!(ENDONE)
- QUIT
- Begin DoDot:2
- +2 FOR I=1:1:12
- IF '$DATA(ENC(ENEMP,I))
- SET ENC(ENEMP,I)=0
- +3 DO PR1
- End DoDot:2
- End DoDot:1
- GOTO EXIT
- PR1 WRITE "PM Workload Analysis: ",ENSHOP," Shop"
- SET Y=DT
- XECUTE ^DD("DD")
- WRITE ?65,Y
- +1 IF ENTEC!ENTEC("ALL")
- WRITE !,"Responsible Technician: ",ENEMP
- +2 WRITE !,?5,"Month",?20,"Item Count*",?35,"Standard Hours",!
- FOR I=1:1:79
- WRITE "-"
- +3 FOR I=1:1:12
- WRITE !,?7,$PIECE("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,I),?20,$JUSTIFY($SELECT(ENTEC("ALL"):ENC(ENEMP,I),1:ENC(I)),10),?35,$JUSTIFY($SELECT(ENTEC("ALL"):ENT(ENEMP,I),1:ENT(I)),14,1)
- +4 IF ENTEC("ALL")
- SET ENT=0
- FOR I=1:1:12
- SET ENT=ENT+ENT(ENEMP,I)
- +5 IF '$TEST
- FOR I=1:1:12
- SET ENT=ENT+ENT(I)
- +6 WRITE !,?20,"----------",?35,"--------------",!,"COUNT**",?20,$JUSTIFY($SELECT(ENTEC("ALL"):ENC(ENEMP),1:ENC),10),!,"TOTAL",?35,$JUSTIFY(ENT,14,1)
- +7 WRITE !!,"* Count of items to be inspected in month indicated."
- +8 WRITE !,"** Count of all items for which this ",$SELECT(ENTEC:"technician",ENTEC("ALL"):"technician",1:"shop")," has PM responsibility."
- +9 IF $EXTRACT(IOST,1,2)="C-"
- DO HOLD
- IF ENDONE
- IF ENTEC("ALL")
- QUIT
- +10 WRITE @IOF
- IF 'ENTEC("ALL")
- DO EXIT
- +11 QUIT
- +12 ;
- NTRE IF $DATA(^ENG(6914,ENDA,3))
- SET EN=^(3)
- SET ENA=$PIECE(EN,U,1)
- IF ENA>3
- IF ENA<6
- QUIT
- +1 if '$DATA(^ENG(6914,ENDA,4,ENM))
- QUIT
- SET ENTEC("CURRENT")=$PIECE($GET(^(ENM,0)),U,2)
- IF ENTEC
- IF ENTEC'=ENTEC("CURRENT")
- QUIT
- +2 KILL ENA
- SET ENSTMN=$SELECT($DATA(^ENG(6914,ENDA,4,ENM,1)):^(1),1:"")
- IF ENSTMN=""
- SET ENSTMN=1
- +3 IF ENTEC("ALL")
- SET ENEMP=$SELECT(ENTEC("CURRENT")>0:$PIECE($GET(^ENG("EMP",+ENTEC("CURRENT"),0)),U),1:"")
- if ENEMP=""
- SET ENEMP="UNASSIGNED"
- SET ENC(ENEMP)=$GET(ENC(ENEMP))+1
- +4 IF 'ENTEC("ALL")
- SET ENC=ENC+1
- +5 FOR I=1:1:12
- SET $PIECE(ENA,U,I)=""
- +6 FOR I=0:0
- SET I=$ORDER(^ENG(6914,ENDA,4,ENM,2,I))
- if I'>0
- QUIT
- SET ENHZ=$PIECE(^ENG(6914,ENDA,4,ENM,2,I,0),U,1)
- SET ENA(ENHZ)=$SELECT($PIECE(^(0),U,2)]"":$PIECE(^(0),U,2),1:0)
- +7 IF $DATA(ENA("M"))
- FOR I=1:1:12
- SET $PIECE(ENA,U,I)=ENA("M")
- +8 IF $DATA(ENA("BM"))
- FOR I=ENSTMN:2:(ENSTMN+10)
- SET J=I
- if J>12
- SET J=J#12
- SET $PIECE(ENA,U,J)=ENA("BM")
- +9 IF $DATA(ENA("Q"))
- FOR I=ENSTMN:3:(ENSTMN+9)
- SET J=I
- if J>12
- SET J=J#12
- SET $PIECE(ENA,U,J)=ENA("Q")
- +10 IF $DATA(ENA("S"))
- FOR I=ENSTMN,(ENSTMN+6)
- SET J=I
- if J>12
- SET J=J#12
- SET $PIECE(ENA,U,J)=ENA("S")
- +11 IF $DATA(ENA("A"))
- SET $PIECE(ENA,U,ENSTMN)=ENA("A")
- +12 SET ENA("WT")=""
- IF $DATA(ENA("W"))
- SET ENA("WT")=ENA("W")*4
- +13 IF $DATA(ENA("BW"))
- SET ENA("WT")=ENA("WT")/2+(ENA("BW")*2)
- +14 FOR I=1:1:12
- SET ENT(I)=ENT(I)+$PIECE(ENA,U,I)+ENA("WT")
- +15 IF ENA("WT")]""
- FOR I=1:1:12
- SET ENC(I)=ENC(I)+1
- +16 IF '$TEST
- FOR I=1:1:12
- IF $PIECE(ENA,U,I)]""
- SET ENC(I)=ENC(I)+1
- +17 IF ENTEC("ALL")
- Begin DoDot:1
- +18 FOR I=1:1:12
- SET ENT(ENEMP,I)=$GET(ENT(ENEMP,I))+$PIECE(ENA,U,I)+ENA("WT")
- +19 IF ENA("WT")]""
- FOR I=1:1:12
- SET ENC(ENEMP,I)=$GET(ENC(ENEMP,I))+1
- +20 IF '$TEST
- FOR I=1:1:12
- IF $PIECE(ENA,U,I)
- SET ENC(ENEMP,I)=$GET(ENC(ENEMP,I))+1
- End DoDot:1
- +21 QUIT
- HOLD WRITE !
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- if 'Y
- SET ENDONE=1
- +1 QUIT
- +2 ;
- EXIT KILL EN,ENC,ENT,ENA,ENSHKEY,ENSHOP,ENHZ,ENDA,ENSTMN,ENMNB,ENM,ENTEC,ENEMP
- +1 KILL ENDONE,ZTRTN,ZTSAVE,ZTDESC
- if $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +2 KILL DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT
- +3 IF '$DATA(ZTQUEUED)
- IF $EXTRACT(IOST,1,2)="P-"
- DO ^%ZISC
- +4 QUIT
- +5 ;ENEQRP5
