ENWOP1.m

ENWOP1 ;(WASH ISC)/DH-Work Order Print (cont'd) ;4.8.97

 ;;7.0;ENGINEERING;**6,21,35**;Aug 17, 1993

WDAT K EN S $P(EN," ",50)=""

 S EN(0)=$E(ENWOR_EN,1,16)

 S EN(1)=EN I ENRDA]"" S EN(1)=$E(ENRDA,4,5)_"/"_$E(ENRDA,6,7)_"/"_$E(ENRDA,2,3)_EN

 S EN(0)=EN(0)_$E(EN(1),1,9)

 S EN(1)=ENLOC_EN,EN(0)=EN(0)_$E(EN(1),1,15)_" "

 S EN(1)=ENEQ_EN,EN(0)=EN(0)_$E(EN(1),1,11)

 S EN(1)=ENRQR_EN,EN(0)=EN(0)_$E(EN(1),1,16)

 S EN(0)=EN(0)_$E(ENPRI_EN,1,4)_" "_ENSTAT

 W EN(0),!

 S EN(0)=$E(" "_ENTEC_EN,1,21)_" "_ENDPR

 W EN(0),!

 I $D(ENY) S ENY=ENY+2

FACC ;FETCH + WRITE ACCOUNTS DATA FOR WORK ORDER

 S ENAC="" I $D(^ENG(6920,DA,4))>0 S ENAC=$P(^(4),U,2)

 I ENAC="" G NEXT

 I $D(^PRCS(410,ENAC,0))>0 W ?2,$P(^(0),U,1)

 E  G NEXT

 I $D(^PRCS(410,ENAC,1)),$P(^(1),U,5) S Z=$P(^(1),U,5) I $D(^PRCS(410.2,Z,0)) W ?21,$E($P(^(0),U,1),1)

 I $D(^PRCS(410,ENAC,2)),$P(^(2),U,1)'="" W ?23,$E($P(^(2),U,1),1,26)

 I $D(^PRCS(410,ENAC,4)),$P(^(4),U,5)'="" W ?51,$P(^(4),U,5)

 I $D(^PRCS(410,ENAC,9)),$P(^(9),U,2) S X=$P(^(9),U,2) W ?59,$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)

 I $D(^PRCS(410,ENAC,9)),$P(^(9),U,3) S X=$P(^(9),U,3) W ?69,$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)

 W ! S ENY=ENY+1 K X

NEXT W:$E(IOST,1,2)="C-" @ENLO

 Q

 ;ENWOP1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENWOP1   1238     printed  Mar 13, 2025@21:01:06                                                                                                                                                                                                      Page 2

ENWOP1    ;(WASH ISC)/DH-Work Order Print (cont'd) ;4.8.97

 +1       ;;7.0;ENGINEERING;**6,21,35**;Aug 17, 1993

WDAT       KILL EN

           SET $PIECE(EN," ",50)=""

 +1        SET EN(0)=$EXTRACT(ENWOR_EN,1,16)

 +2        SET EN(1)=EN

           IF ENRDA]""

               SET EN(1)=$EXTRACT(ENRDA,4,5)_"/"_$EXTRACT(ENRDA,6,7)_"/"_$EXTRACT(ENRDA,2,3)_EN

 +3        SET EN(0)=EN(0)_$EXTRACT(EN(1),1,9)

 +4        SET EN(1)=ENLOC_EN

           SET EN(0)=EN(0)_$EXTRACT(EN(1),1,15)_" "

 +5        SET EN(1)=ENEQ_EN

           SET EN(0)=EN(0)_$EXTRACT(EN(1),1,11)

 +6        SET EN(1)=ENRQR_EN

           SET EN(0)=EN(0)_$EXTRACT(EN(1),1,16)

 +7        SET EN(0)=EN(0)_$EXTRACT(ENPRI_EN,1,4)_" "_ENSTAT

 +8        WRITE EN(0),!

 +9        SET EN(0)=$EXTRACT(" "_ENTEC_EN,1,21)_" "_ENDPR

 +10       WRITE EN(0),!

 +11       IF $DATA(ENY)

               SET ENY=ENY+2

FACC      ;FETCH + WRITE ACCOUNTS DATA FOR WORK ORDER

 +1        SET ENAC=""

           IF $DATA(^ENG(6920,DA,4))>0

               SET ENAC=$PIECE(^(4),U,2)

 +2        IF ENAC=""

               GOTO NEXT

 +3        IF $DATA(^PRCS(410,ENAC,0))>0

               WRITE ?2,$PIECE(^(0),U,1)

 +4       IF '$TEST

               GOTO NEXT

 +5        IF $DATA(^PRCS(410,ENAC,1))

               IF $PIECE(^(1),U,5)

                   SET Z=$PIECE(^(1),U,5)

                   IF $DATA(^PRCS(410.2,Z,0))

                       WRITE ?21,$EXTRACT($PIECE(^(0),U,1),1)

 +6        IF $DATA(^PRCS(410,ENAC,2))

               IF $PIECE(^(2),U,1)'=""

                   WRITE ?23,$EXTRACT($PIECE(^(2),U,1),1,26)

 +7        IF $DATA(^PRCS(410,ENAC,4))

               IF $PIECE(^(4),U,5)'=""

                   WRITE ?51,$PIECE(^(4),U,5)

 +8        IF $DATA(^PRCS(410,ENAC,9))

               IF $PIECE(^(9),U,2)

                   SET X=$PIECE(^(9),U,2)

                   WRITE ?59,$EXTRACT(X,4,5)_"/"_$EXTRACT(X,6,7)_"/"_$EXTRACT(X,2,3)

 +9        IF $DATA(^PRCS(410,ENAC,9))

               IF $PIECE(^(9),U,3)

                   SET X=$PIECE(^(9),U,3)

                   WRITE ?69,$EXTRACT(X,4,5)_"/"_$EXTRACT(X,6,7)_"/"_$EXTRACT(X,2,3)

 +10       WRITE !

           SET ENY=ENY+1

           KILL X

NEXT       if $EXTRACT(IOST,1,2)="C-"

               WRITE @ENLO

 +1        QUIT 

 +2       ;ENWOP1