Routine: ENETRAN1

ENETRAN1 ;(WASH ISC)/DH-Display Pending Work Orders ;12.12.97

 ;;7.0;ENGINEERING;**35,47**;Aug 17, 1993

EN S ENPG=1 I ENCNT'>0 W !!,"Nothing to process in ",ENSHOP D HLD G EXIT

 S I=0 F DA=0:0 S DA=$O(^TMP($J,DA)) Q:DA'>0  S I=I+1 D BLDARAY

 ;  Screens here

 S ENFR=1,ENCNT(0)=ENCNT

SCRN G:ENFR>ENCNT(0) EXIT S ENY=12,ENTO=1 F K=ENFR:1 Q:ENY>(IOSL-5)!($O(^TMP($J,"ENEWO",K))="")  I $D(^TMP($J,"ENEWO",K)) S ENTO=ENTO+1,ENY=ENY+3,ENDA=$P(^TMP($J,"ENEWO",K),U,5) I ENDA]"" D EQUIP

 S ENTO(0)=ENTO+1,ENTO=ENFR+ENTO

SCRN1 S (I,ENEX4)=0 F K=ENFR:1:ENTO I $D(^TMP($J,"ENEWO",K)) S I=1 Q

 I 'I S ENFR=ENTO+1,ENPG=ENPG+1 G SCRN

 D HDR S I=0 F K=ENFR:1:ENTO S I=I+1 D:$D(^TMP($J,"ENEWO",K)) LNDSP

WAIT S X="" W !,"TRANSFER NUMBERS? (Separate with ;)(Use : for Range)('ALL' for all ",ENCNT,")",!,?18,"('^' to EXIT)(RETURN to Continue) "

 R X:DTIME I X="" S ENFR=ENTO+1,ENPG=ENPG+1 G SCRN

 I X="^" G EXIT

 I $E(X)="A"!($E(X)="a") D ALL G EXIT

 I X?.N,X>0,X'>I S ENERN=ENFR+(X-1) I $D(^TMP($J,"ENEWO",ENERN)) S DA=$P(^TMP($J,"ENEWO",ENERN),U,1) D EN^ENETRAN2 G:ENEX4 EXIT G SCRN1

 I X?.NP,X[";",$P(X,";")?1.N,$P(X,";",2)?1.N,$P(X,";",3)="" S ENEX=X D MULT G SCRN1

 I X?.NP,X[":",$P(X,":")?1.N,$P(X,":",2)?1.N,$P(X,":",3)="",$D(^TMP($J,"ENEWO",$P(X,":",2))) S ENEX=X D RANGE G SCRN1

 W " ?",*7,"?",*7 H 3

 G SCRN1

LNDSP S ENEWO=^TMP($J,"ENEWO",K),ENPRI=$P(ENEWO,U,6) I $E(ENPRI,1,4)="HIGH"!($E(ENPRI,1,4)="EMER") W IOINHI

 W !,I," =>",?5,$P(ENEWO,U,2),?19,$P(ENEWO,U,3),?32,$P(ENEWO,U,4),?49,$P(ENEWO,U,5),?61,$P(ENEWO,U,6) S DA=$P(ENEWO,U,1) W ?73,$S($O(^ENG(6920,DA,6,0))]"":"YES",1:"NO")

 W !,?2,$E($P(ENEWO,U,7),1,42),?45,$E($P(ENEWO,U,8),1,15),?61,$E($P(ENEWO,U,9),1,15)

 S ENDA=$P(ENEWO,U,5) I ENDA]"",$D(^ENG(6914,ENDA,0)) S ENMAN=$P(^(0),U,2) S ENCAT=$S($D(^(1)):$P(^(1),U,1),1:"") I ENMAN]""!(ENCAT]"") W !,?2,"Name: ",$E(ENMAN,1,30),?45,"Cat: " I ENCAT]"" D CATEGRY

 W !,IOINLOW

MULT F ENEX1=1:1 S X=$P(ENEX,";",ENEX1) Q:X=""!(ENEX4)  I X?1.2N,X'>ENTO(0) S ENERN=ENFR+(X-1) I $D(^TMP($J,"ENEWO",ENERN)) S DA=$P(^TMP($J,"ENEWO",ENERN),U) D EN^ENETRAN2

RANGE S ENEX2=$P(ENEX,":",1),ENEX3=$P(ENEX,":",2) Q:ENEX2>ENEX3  F ENERN=(ENFR+(ENEX2-1)):1:(ENFR+(ENEX3-1)) Q:ENEX4  I $D(^TMP($J,"ENEWO",ENERN)) S DA=$P(^(ENERN),U) D EN^ENETRAN2

ALL S ENERN="ALL" F DA=0:0 S DA=$O(^TMP($J,DA)) Q:DA'>0!(ENEX4)  D EN^ENETRAN2

BLDARAY ;Build global array

 S EN(0)=^ENG(6920,DA,0),EN(1)=$S($D(^(1)):^(1),1:""),EN(2)=$S($D(^(2)):^(2),1:""),EN(3)=$S($D(^(3)):^(3),1:"")

 S ENRDT="",Y=$P($P(EN(0),U,2),".") I Y>0 X ^DD("DD") S ENRDT=Y

 S ENLOC=$P(EN(0),U,4) I ENLOC=+ENLOC,$D(^ENG("SP",ENLOC,0)) S ENLOC=$P(^(0),U)

 S ENBY=$P(EN(1),U) I ENBY]"",$D(^VA(200,ENBY,0)) S ENBY=$E($P(^(0),U),1,18)

 S ENPRI=$P(EN(2),U,3) S:ENPRI]"" ENPRI=$$EXTERNAL^DILFD(6920,17,"",ENPRI)

 S ^TMP($J,"ENEWO",I)=DA_U_$P(EN(0),U,1)_U_ENRDT_U_ENLOC_U_$P(EN(3),U,8)_U_ENPRI_U_$P(EN(1),U,2)_U_$P(EN(1),U,3)_U_ENBY

HDR ;Screen header

 W @IOF,"Pending Elect Work Orders ("_ENCNT_" in "_$E(ENSHOP,1,18)_")  "_ENDATE_"  Page "_ENPG

 W !,?5,"Work Order #",?19,"Req Date",?32,"Location",?49,"Equip ID",?61,"Priority",?73,"Cmnts"

 W !,?5,"Task Description",?45,"Contact Person",?61,"Entered by"

 K X S $P(X,"-",78)="" W !,X

EQUIP S (ENMAN,ENCAT)="" S:$D(^ENG(6914,ENDA,0)) ENMAN=$P(^(0),U,2) S:$D(^(1)) ENCAT=$P(^(1),U) I ENMAN]""!(ENCAT]"") S ENY=ENY+1

CATEGRY W $S($D(^ENG(6911,ENCAT,0)):$P(^(0),U,1),1:ENCAT)

HLD S X="" W !,"Press RETURN to continue, '^' to escape..." R X:DTIME Q

EXIT ;Return to ENETRAN

 ;ENETRAN1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENETRAN1   3583     printed  Feb 18, 2025@23:19:34                                                                                                                                                                                                    Page 2

ENETRAN1  ;(WASH ISC)/DH-Display Pending Work Orders ;12.12.97

 +1       ;;7.0;ENGINEERING;**35,47**;Aug 17, 1993

EN         SET ENPG=1

           IF ENCNT'>0

               WRITE !!,"Nothing to process in ",ENSHOP

               DO HLD

               GOTO EXIT

 +1        SET I=0

           FOR DA=0:0

               SET DA=$ORDER(^TMP($JOB,DA))

               if DA'>0

                   QUIT

               SET I=I+1

               DO BLDARAY

 +2       ;  Screens here

 +3        SET ENFR=1

           SET ENCNT(0)=ENCNT

SCRN       if ENFR>ENCNT(0)

               GOTO EXIT

           SET ENY=12

           SET ENTO=1

           FOR K=ENFR:1

               if ENY>(IOSL-5)!($ORDER(^TMP($JOB,"ENEWO",K))="")

                   QUIT

               IF $DATA(^TMP($JOB,"ENEWO",K))

                   SET ENTO=ENTO+1

                   SET ENY=ENY+3

                   SET ENDA=$PIECE(^TMP($JOB,"ENEWO",K),U,5)

                   IF ENDA]""

                       DO EQUIP

 +1        SET ENTO(0)=ENTO+1

           SET ENTO=ENFR+ENTO

SCRN1      SET (I,ENEX4)=0

           FOR K=ENFR:1:ENTO

               IF $DATA(^TMP($JOB,"ENEWO",K))

                   SET I=1

                   QUIT

 +1        IF 'I

               SET ENFR=ENTO+1

               SET ENPG=ENPG+1

               GOTO SCRN

 +2        DO HDR

           SET I=0

           FOR K=ENFR:1:ENTO

               SET I=I+1

               if $DATA(^TMP($JOB,"ENEWO",K))

                   DO LNDSP

WAIT       SET X=""

           WRITE !,"TRANSFER NUMBERS? (Separate with ;)(Use : for Range)('ALL' for all ",ENCNT,")",!,?18,"('^' to EXIT)(RETURN to Continue) "

 +1        READ X:DTIME

           IF X=""

               SET ENFR=ENTO+1

               SET ENPG=ENPG+1

               GOTO SCRN

 +2        IF X="^"

               GOTO EXIT

 +3        IF $EXTRACT(X)="A"!($EXTRACT(X)="a")

               DO ALL

               GOTO EXIT

 +4        IF X?.N

               IF X>0

                   IF X'>I

                       SET ENERN=ENFR+(X-1)

                       IF $DATA(^TMP($JOB,"ENEWO",ENERN))

                           SET DA=$PIECE(^TMP($JOB,"ENEWO",ENERN),U,1)

                           DO EN^ENETRAN2

                           if ENEX4

                               GOTO EXIT

                           GOTO SCRN1

 +5        IF X?.NP

               IF X[";"

                   IF $PIECE(X,";")?1.N

                       IF $PIECE(X,";",2)?1.N

                           IF $PIECE(X,";",3)=""

                               SET ENEX=X

                               DO MULT

                               GOTO SCRN1

 +6        IF X?.NP

               IF X[":"

                   IF $PIECE(X,":")?1.N

                       IF $PIECE(X,":",2)?1.N

                           IF $PIECE(X,":",3)=""

                               IF $DATA(^TMP($JOB,"ENEWO",$PIECE(X,":",2)))

                                   SET ENEX=X

                                   DO RANGE

                                   GOTO SCRN1

 +7        WRITE " ?",*7,"?",*7

           HANG 3

 +8        GOTO SCRN1

 +9       ;

LNDSP      SET ENEWO=^TMP($JOB,"ENEWO",K)

           SET ENPRI=$PIECE(ENEWO,U,6)

           IF $EXTRACT(ENPRI,1,4)="HIGH"!($EXTRACT(ENPRI,1,4)="EMER")

               WRITE IOINHI

 +1        WRITE !,I," =>",?5,$PIECE(ENEWO,U,2),?19,$PIECE(ENEWO,U,3),?32,$PIECE(ENEWO,U,4),?49,$PIECE(ENEWO,U,5),?61,$PIECE(ENEWO,U,6)

           SET DA=$PIECE(ENEWO,U,1)

           WRITE ?73,$SELECT($ORDER(^ENG(6920,DA,6,0))]"":"YES",1:"NO")

 +2        WRITE !,?2,$EXTRACT($PIECE(ENEWO,U,7),1,42),?45,$EXTRACT($PIECE(ENEWO,U,8),1,15),?61,$EXTRACT($PIECE(ENEWO,U,9),1,15)

 +3        SET ENDA=$PIECE(ENEWO,U,5)

           IF ENDA]""

               IF $DATA(^ENG(6914,ENDA,0))

                   SET ENMAN=$PIECE(^(0),U,2)

                   SET ENCAT=$SELECT($DATA(^(1)):$PIECE(^(1),U,1),1:"")

                   IF ENMAN]""!(ENCAT]"")

                       WRITE !,?2,"Name: ",$EXTRACT(ENMAN,1,30),?45,"Cat: "

                       IF ENCAT]""

                           DO CATEGRY

 +4        WRITE !,IOINLOW

 +5        QUIT

 +6       ;

MULT       FOR ENEX1=1:1

               SET X=$PIECE(ENEX,";",ENEX1)

               if X=""!(ENEX4)

                   QUIT

               IF X?1.2N

                   IF X'>ENTO(0)

                       SET ENERN=ENFR+(X-1)

                       IF $DATA(^TMP($JOB,"ENEWO",ENERN))

                           SET DA=$PIECE(^TMP($JOB,"ENEWO",ENERN),U)

                           DO EN^ENETRAN2

 +1        QUIT

 +2       ;

RANGE      SET ENEX2=$PIECE(ENEX,":",1)

           SET ENEX3=$PIECE(ENEX,":",2)

           if ENEX2>ENEX3

               QUIT

           FOR ENERN=(ENFR+(ENEX2-1)):1:(ENFR+(ENEX3-1))

               if ENEX4

                   QUIT

               IF $DATA(^TMP($JOB,"ENEWO",ENERN))

                   SET DA=$PIECE(^(ENERN),U)

                   DO EN^ENETRAN2

 +1        QUIT

 +2       ;

ALL        SET ENERN="ALL"

           FOR DA=0:0

               SET DA=$ORDER(^TMP($JOB,DA))

               if DA'>0!(ENEX4)

                   QUIT

               DO EN^ENETRAN2

 +1        QUIT

 +2       ;

BLDARAY   ;Build global array

 +1        SET EN(0)=^ENG(6920,DA,0)

           SET EN(1)=$SELECT($DATA(^(1)):^(1),1:"")

           SET EN(2)=$SELECT($DATA(^(2)):^(2),1:"")

           SET EN(3)=$SELECT($DATA(^(3)):^(3),1:"")

 +2        SET ENRDT=""

           SET Y=$PIECE($PIECE(EN(0),U,2),".")

           IF Y>0

               XECUTE ^DD("DD")

               SET ENRDT=Y

 +3        SET ENLOC=$PIECE(EN(0),U,4)

           IF ENLOC=+ENLOC

               IF $DATA(^ENG("SP",ENLOC,0))

                   SET ENLOC=$PIECE(^(0),U)

 +4        SET ENBY=$PIECE(EN(1),U)

           IF ENBY]""

               IF $DATA(^VA(200,ENBY,0))

                   SET ENBY=$EXTRACT($PIECE(^(0),U),1,18)

 +5        SET ENPRI=$PIECE(EN(2),U,3)

           if ENPRI]""

               SET ENPRI=$$EXTERNAL^DILFD(6920,17,"",ENPRI)

 +6        SET ^TMP($JOB,"ENEWO",I)=DA_U_$PIECE(EN(0),U,1)_U_ENRDT_U_ENLOC_U_$PIECE(EN(3),U,8)_U_ENPRI_U_$PIECE(EN(1),U,2)_U_$PIECE(EN(1),U,3)_U_ENBY

 +7        QUIT

 +8       ;

HDR       ;Screen header

 +1        WRITE @IOF,"Pending Elect Work Orders ("_ENCNT_" in "_$EXTRACT(ENSHOP,1,18)_")  "_ENDATE_"  Page "_ENPG

 +2        WRITE !,?5,"Work Order #",?19,"Req Date",?32,"Location",?49,"Equip ID",?61,"Priority",?73,"Cmnts"

 +3        WRITE !,?5,"Task Description",?45,"Contact Person",?61,"Entered by"

 +4        KILL X

           SET $PIECE(X,"-",78)=""

           WRITE !,X

 +5        QUIT

 +6       ;

EQUIP      SET (ENMAN,ENCAT)=""

           if $DATA(^ENG(6914,ENDA,0))

               SET ENMAN=$PIECE(^(0),U,2)

           if $DATA(^(1))

               SET ENCAT=$PIECE(^(1),U)

           IF ENMAN]""!(ENCAT]"")

               SET ENY=ENY+1

 +1        QUIT

 +2       ;

CATEGRY    WRITE $SELECT($DATA(^ENG(6911,ENCAT,0)):$PIECE(^(0),U,1),1:ENCAT)

 +1        QUIT

 +2       ;

HLD        SET X=""

           WRITE !,"Press RETURN to continue, '^' to escape..."

           READ X:DTIME

           QUIT

 +1       ;

EXIT      ;Return to ENETRAN

 +1        QUIT

 +2       ;ENETRAN1

ENETRAN1.m