- ENWOP ;(WASH ISC)/DLM/DH-Work Order Print ;4.7.97
- ;;7.0;ENGINEERING;**21,35**;Aug 17, 1993
- ; Expects ENSHKEY,ENBY
- ; ENSRT if ENBY="LOC"
- EN N SPC
- N IOINLOW,IOINHI D ZIS^ENUTL S ENPG=0
- S %DT="T",X="N" D ^%DT S ENTOD=Y X ^DD("DD") S ENTOD("E")=Y W:$E(IOST,1,2)="C-" @IOF
- ONE I '$D(ENSHKEY("ALL")) D
- . S ENDNX="",ENQUIT=0
- . I $O(^ENG(6920,"AINC",ENSHKEY,ENDNX))'>0 D Q
- .. S ENQUIT=1
- .. W !!,"There are no incomplete work orders for the ",$P(^DIC(6922,ENSHKEY,0),U)," shop."
- .. I $E(IOST,1,2)="C-" W !!,"Press <RETURN> to continue..." R X:DTIME
- . F Q:ENQUIT!($O(^ENG(6920,"AINC",ENSHKEY,ENDNX))'>0) D
- .. D HDR
- .. S ENDNX1=ENDNX ;I $D(XRTL) D T0^%ZOSV
- .. D FDAT^ENWOP3 ;I $D(XRT0) S XRTN=$T(+0) D T1^%ZOSV
- .. I ENWONX=0,ENPG=1 W !!,"There are no incomplete work orders that meet the search criteria",!,"in the ",$P(^DIC(6922,ENSHKEY,0),U)," Shop."
- .. I $E(IOST,1,2)="C-" D
- ... I ENWONX=0 W !!,"Press <RETURN> to continue..."
- ... E D
- .... I 'ENQUIT W !,"'^' TO EXIT; 1 TO ",ENWONX," FOR EXPANDED DISPLAY: MORE// "
- .... E W !,"1 TO ",ENWONX," FOR EXPANDED DISPLAY: EXIT//"
- ... R X:DTIME
- ... I X?1.2N,$D(ENWONX(X)) S DA=ENWONX(X) D EXPAND
- ... I $E($G(X))="^" S ENQUIT=1
- ALL I $D(ENSHKEY("ALL")) D
- . N ENSHKEY S ENABORT=0
- . F ENSHKEY=0:0 S ENSHKEY=$O(^DIC(6922,ENSHKEY)) Q:ENABORT!(ENSHKEY'>0) D
- .. S ENDNX="",ENQUIT=0 I IO'=IO(0) U IO(0) W "." U IO
- .. F Q:ENQUIT!($O(^ENG(6920,"AINC",ENSHKEY,ENDNX))'>0) D
- ... D HDR
- ... S ENDNX1=ENDNX D FDAT^ENWOP3
- ... I ENWONX=0,ENDNX1="" W !!,"There are no incomplete work orders that meet the search criteria",!,"in the ",$P(^DIC(6922,ENSHKEY,0),U)," Shop."
- ... I $E(IOST,1,2)="C-",ENQUIT D Q
- .... I ENWONX=0 W !!,"'^' TO EXIT; <RETURN> FOR NEXT SHOP: NEXT SHOP//"
- .... E W !,"'^' TO EXIT; 1 TO ",ENWONX," FOR EXPANDED DISPLAY: NEXT SHOP//"
- .... R X:DTIME
- .... I X?1.2N,$D(ENWONX(X)) S DA=ENWONX(X) D EXPAND
- .... I $E($G(X))="^" S ENABORT=1
- ... I $E(IOST,1,2)="C-",'ENQUIT D
- .... W !,"'^' FOR NEXT SHOP; '^^' TO EXIT; 1 TO ",ENWONX," FOR EXPANDED DISPLAY: MORE//"
- .... R X:DTIME
- .... I X?1.2N,$D(ENWONX(X)) S DA=ENWONX(X) D EXPAND
- .... I $E($G(X))="^" S ENQUIT=1
- .... I $E($G(X),1,2)="^^" S ENABORT=1
- G EXIT
- ;
- HDR W:$E(IOST,1,2)="C-" IOINHI W:ENPG @IOF S ENPG=ENPG+1
- W "INCOMPLETE WORK ORDERS ("_$P(^DIC(6922,ENSHKEY,0),U)_") "_ENTOD("E")_" Page "_ENPG
- W !,"WORK ORDER",?18,"REQ DATE",?27,"LOCATION",?43,"EQUIP ID#",?54,"CONTACT",?68,"PRI.",?73,"STAT"
- W !," EMPL ASSIGNED",?22,"TASK DESCRIPTION"
- W !?2,"ACC #",?20,"S/P",?27,"VENDOR",?51,"P.O. #",?59,"EST.DEL.",?69,"DEL.COMP."
- K X S $P(X,"-",79)="-" W !,X,!
- D CLEAN
- S ENY=5
- Q
- ;
- EXPAND ;Screen display work order
- S ENDNX=ENDNX1,ENPG=ENPG-1,ENQUIT=0
- D EDIT1^ENWOD
- W @IOF
- Q
- ;
- CLEAN K X,ENWONX S ENWONX=0 W:$E(IOST,1,2)="C-" IOINLOW
- Q
- EXIT ;
- K ENDNX,ENWONX,ENTOD,ENPG,ENQUIT,ENABORT,ENY,ENWO,ENDSTAT
- W @IOF
- S:$D(ZTQUEUED) ZTREQ="@"
- K ENWOR,ENRDA,ENLOC,ENRBE,ENRQR,ENPRI,ENTEC,ENDPR,ENSTAT
- K ENPMI,ENAC,DA,ENEQ,ENDNX1,ENSRT
- K ENSHKEY("ALL")
- Q
- ;ENWOP
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENWOP 3088 printed Feb 18, 2025@23:22:49 Page 2
- ENWOP ;(WASH ISC)/DLM/DH-Work Order Print ;4.7.97
- +1 ;;7.0;ENGINEERING;**21,35**;Aug 17, 1993
- +2 ; Expects ENSHKEY,ENBY
- +3 ; ENSRT if ENBY="LOC"
- EN NEW SPC
- +1 NEW IOINLOW,IOINHI
- DO ZIS^ENUTL
- SET ENPG=0
- +2 SET %DT="T"
- SET X="N"
- DO ^%DT
- SET ENTOD=Y
- XECUTE ^DD("DD")
- SET ENTOD("E")=Y
- if $EXTRACT(IOST,1,2)="C-"
- WRITE @IOF
- ONE IF '$DATA(ENSHKEY("ALL"))
- Begin DoDot:1
- +1 SET ENDNX=""
- SET ENQUIT=0
- +2 IF $ORDER(^ENG(6920,"AINC",ENSHKEY,ENDNX))'>0
- Begin DoDot:2
- +3 SET ENQUIT=1
- +4 WRITE !!,"There are no incomplete work orders for the ",$PIECE(^DIC(6922,ENSHKEY,0),U)," shop."
- +5 IF $EXTRACT(IOST,1,2)="C-"
- WRITE !!,"Press <RETURN> to continue..."
- READ X:DTIME
- End DoDot:2
- QUIT
- +6 FOR
- if ENQUIT!($ORDER(^ENG(6920,"AINC",ENSHKEY,ENDNX))'>0)
- QUIT
- Begin DoDot:2
- +7 DO HDR
- +8 ;I $D(XRTL) D T0^%ZOSV
- SET ENDNX1=ENDNX
- +9 ;I $D(XRT0) S XRTN=$T(+0) D T1^%ZOSV
- DO FDAT^ENWOP3
- +10 IF ENWONX=0
- IF ENPG=1
- WRITE !!,"There are no incomplete work orders that meet the search criteria",!,"in the ",$PIECE(^DIC(6922,ENSHKEY,0),U)," Shop."
- +11 IF $EXTRACT(IOST,1,2)="C-"
- Begin DoDot:3
- +12 IF ENWONX=0
- WRITE !!,"Press <RETURN> to continue..."
- +13 IF '$TEST
- Begin DoDot:4
- +14 IF 'ENQUIT
- WRITE !,"'^' TO EXIT; 1 TO ",ENWONX," FOR EXPANDED DISPLAY: MORE// "
- +15 IF '$TEST
- WRITE !,"1 TO ",ENWONX," FOR EXPANDED DISPLAY: EXIT//"
- End DoDot:4
- +16 READ X:DTIME
- +17 IF X?1.2N
- IF $DATA(ENWONX(X))
- SET DA=ENWONX(X)
- DO EXPAND
- +18 IF $EXTRACT($GET(X))="^"
- SET ENQUIT=1
- End DoDot:3
- End DoDot:2
- End DoDot:1
- ALL IF $DATA(ENSHKEY("ALL"))
- Begin DoDot:1
- +1 NEW ENSHKEY
- SET ENABORT=0
- +2 FOR ENSHKEY=0:0
- SET ENSHKEY=$ORDER(^DIC(6922,ENSHKEY))
- if ENABORT!(ENSHKEY'>0)
- QUIT
- Begin DoDot:2
- +3 SET ENDNX=""
- SET ENQUIT=0
- IF IO'=IO(0)
- USE IO(0)
- WRITE "."
- USE IO
- +4 FOR
- if ENQUIT!($ORDER(^ENG(6920,"AINC",ENSHKEY,ENDNX))'>0)
- QUIT
- Begin DoDot:3
- +5 DO HDR
- +6 SET ENDNX1=ENDNX
- DO FDAT^ENWOP3
- +7 IF ENWONX=0
- IF ENDNX1=""
- WRITE !!,"There are no incomplete work orders that meet the search criteria",!,"in the ",$PIECE(^DIC(6922,ENSHKEY,0),U)," Shop."
- +8 IF $EXTRACT(IOST,1,2)="C-"
- IF ENQUIT
- Begin DoDot:4
- +9 IF ENWONX=0
- WRITE !!,"'^' TO EXIT; <RETURN> FOR NEXT SHOP: NEXT SHOP//"
- +10 IF '$TEST
- WRITE !,"'^' TO EXIT; 1 TO ",ENWONX," FOR EXPANDED DISPLAY: NEXT SHOP//"
- +11 READ X:DTIME
- +12 IF X?1.2N
- IF $DATA(ENWONX(X))
- SET DA=ENWONX(X)
- DO EXPAND
- +13 IF $EXTRACT($GET(X))="^"
- SET ENABORT=1
- End DoDot:4
- QUIT
- +14 IF $EXTRACT(IOST,1,2)="C-"
- IF 'ENQUIT
- Begin DoDot:4
- +15 WRITE !,"'^' FOR NEXT SHOP; '^^' TO EXIT; 1 TO ",ENWONX," FOR EXPANDED DISPLAY: MORE//"
- +16 READ X:DTIME
- +17 IF X?1.2N
- IF $DATA(ENWONX(X))
- SET DA=ENWONX(X)
- DO EXPAND
- +18 IF $EXTRACT($GET(X))="^"
- SET ENQUIT=1
- +19 IF $EXTRACT($GET(X),1,2)="^^"
- SET ENABORT=1
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +20 GOTO EXIT
- +21 ;
- HDR if $EXTRACT(IOST,1,2)="C-"
- WRITE IOINHI
- if ENPG
- WRITE @IOF
- SET ENPG=ENPG+1
- +1 WRITE "INCOMPLETE WORK ORDERS ("_$PIECE(^DIC(6922,ENSHKEY,0),U)_") "_ENTOD("E")_" Page "_ENPG
- +2 WRITE !,"WORK ORDER",?18,"REQ DATE",?27,"LOCATION",?43,"EQUIP ID#",?54,"CONTACT",?68,"PRI.",?73,"STAT"
- +3 WRITE !," EMPL ASSIGNED",?22,"TASK DESCRIPTION"
- +4 WRITE !?2,"ACC #",?20,"S/P",?27,"VENDOR",?51,"P.O. #",?59,"EST.DEL.",?69,"DEL.COMP."
- +5 KILL X
- SET $PIECE(X,"-",79)="-"
- WRITE !,X,!
- +6 DO CLEAN
- +7 SET ENY=5
- +8 QUIT
- +9 ;
- EXPAND ;Screen display work order
- +1 SET ENDNX=ENDNX1
- SET ENPG=ENPG-1
- SET ENQUIT=0
- +2 DO EDIT1^ENWOD
- +3 WRITE @IOF
- +4 QUIT
- +5 ;
- CLEAN KILL X,ENWONX
- SET ENWONX=0
- if $EXTRACT(IOST,1,2)="C-"
- WRITE IOINLOW
- +1 QUIT
- EXIT ;
- +1 KILL ENDNX,ENWONX,ENTOD,ENPG,ENQUIT,ENABORT,ENY,ENWO,ENDSTAT
- +2 WRITE @IOF
- +3 if $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +4 KILL ENWOR,ENRDA,ENLOC,ENRBE,ENRQR,ENPRI,ENTEC,ENDPR,ENSTAT
- +5 KILL ENPMI,ENAC,DA,ENEQ,ENDNX1,ENSRT
- +6 KILL ENSHKEY("ALL")
- +7 QUIT
- +8 ;ENWOP
