| 1 | ENEWOD1 ;(WASH ISC)/DH-Display Electronic Work Order ;1.23.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**35**;Aug 17, 1993
|
|---|
| 3 | TOP ; Physical print
|
|---|
| 4 | ; Get BOLD and UNBOLD
|
|---|
| 5 | N IOINLOW,IOINHI,IOINORM D ZIS^ENUTL
|
|---|
| 6 | ;
|
|---|
| 7 | N I,J,X
|
|---|
| 8 | W:$E(IOST,1,2)="C-" @IOF
|
|---|
| 9 | S $X=1 W ?28 D W("ELECTRONIC WORK REQUEST")
|
|---|
| 10 | W ! D W(" 1) ") W "WORK ORDER #: " D W(EN(1))
|
|---|
| 11 | W ?41 D W(" 2) ") W "REQ DATE: " S X=EN(2) D PDT
|
|---|
| 12 | W ! D W(" 3) ") W "REQ MODE: " D W(EN(3)) W ?41 D W(" 4) ") W "LOCATION: " D W(EN(4))
|
|---|
| 13 | W ! D W(" 5) ") W "BED #: " D W(EN(5))
|
|---|
| 14 | W ?41 D W(" 6) ") W $S(ENDSTAT=35.2:"PM STATUS: ",1:"STATUS: ") D W(EN(6))
|
|---|
| 15 | W ! D W(" 7) ") W "TASK DESC: " D W(EN(7))
|
|---|
| 16 | W ! D W(" 8) ") W "CONTACT: " D W(EN(8)) W ?41 D W(" 9) ") W "PHONE: " D W(EN(9))
|
|---|
| 17 | W ! D W("10) ") W "ENTERED BY: " D W(EN(10)) W ?41 D W("11) ") W "SHOP: " D W(EN(11))
|
|---|
| 18 | W ! D W("12) ") W "PRIORITY: " D W(EN(12)) W ?41 D W("13) ") W "DATE ASSIGNED: " S X=EN(13) D PDT
|
|---|
| 19 | W ! D W("14) ") W "EQUIP ID#: " D W(EN(14)) W ?41 D W("15) ") W "LOCAL ID: " D W(EN(15))
|
|---|
| 20 | W ! D W("16) ") W "EQUIP CAT: " D W(EN(16)) W ?41 D W("17) ") W "MFGR: " D W(EN(17))
|
|---|
| 21 | W ! D W("18) ") W "MODEL: " D W(EN(18)) W ?41 D W("19) ") W "SERIAL #: " D W(EN(19))
|
|---|
| 22 | W ! D W("20) ") W "OWNER/DEPT: " D W(EN(20)) W ?49 D W("21) ") W "PM #: " D W(EN(21))
|
|---|
| 23 | W ! D W("22) ") W "DATE COMPLETE: " S X=EN(22) D PDT
|
|---|
| 24 | W ! D W("23) ") W "WORK PERFORMED: "
|
|---|
| 25 | I EN(23)]"" D
|
|---|
| 26 | . I $L(EN(23))<61 D W(EN(23)) Q
|
|---|
| 27 | . K ^UTILITY($J,"W") S X=EN(23),DIWL=1,DIWR=60,DIWF="" D ^DIWP
|
|---|
| 28 | . S I=0 F S I=$O(^UTILITY($J,"W",DIWL,I)) Q:'I W:I>1 !,?20 D W(^(I,0))
|
|---|
| 29 | W ! D W("24) ") W "COMMENTS: "
|
|---|
| 30 | WCO I $D(^ENG(6920,DA,6)) S DIWL=5,DIWR=(IOM-5),DIWF="|",(X,ENX)=0 D G:ENX="^" KILL
|
|---|
| 31 | . K ^UTILITY($J,"W")
|
|---|
| 32 | . S ENNX=0 F S ENNX=$O(^ENG(6920,DA,6,ENNX)) Q:ENNX'>0 S X=^(ENNX,0) D ^DIWP
|
|---|
| 33 | . W IOINHI S ENNX=0 F S ENNX=$O(^UTILITY($J,"W",DIWL,ENNX)) Q:'ENNX W !,?DIWL,^(ENNX,0) I (IOSL-$Y)'>1 D Q:ENX="^"
|
|---|
| 34 | .. W IOINLOW D HOLD W:ENX'="^" IOINHI
|
|---|
| 35 | . W IOINLOW
|
|---|
| 36 | BOTM ; Bottom of page
|
|---|
| 37 | W ! D:(IOSL-$Y)'>1 HOLD K X I EN(14)]"",$D(^ENG(6914,EN(14),2)) S X=$P(^(2),U,5) I X]"" W "WARRANTY EXPIRATION: ",IOINHI W:+X>+DT "**" W $E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) W:+X>+DT "**" W IOINLOW,?41
|
|---|
| 38 | S ENORIG=$P(^ENG(6920,DA,0),U,6) I ENORIG]"",ENORIG'=$P(^(0),U) W "(Original Work Order: "_ENORIG_")"
|
|---|
| 39 | I EN(14)>0 D
|
|---|
| 40 | . S ENUSE=$$GET1^DIQ(6914,EN(14),20) I ENUSE]"","TURNED IN^LOST OR STOLEN"[ENUSE W ! D:(IOSL-$Y)'>1 HOLD W "USE STATUS of this equipment is "_ENUSE_" and may need to be edited."
|
|---|
| 41 | . S I=9999999999 F S I=$O(^ENG(6920,"G",EN(14),I),-1) Q:'I!($G(X("HA"))) D
|
|---|
| 42 | .. Q:$E($P($G(^ENG(6920,I,0)),U),1,3)="PM-"
|
|---|
| 43 | .. Q:$P($G(^ENG(6920,I,5)),U,2)]"" ;Closed work order
|
|---|
| 44 | .. S J=0 F S J=$O(^ENG(6920,I,8,J)) Q:'J!($G(X("HA"))) I $P(^ENG(6920,I,8,J,0),U)=8 S X("HA")=I
|
|---|
| 45 | . I $G(X("HA"))>0 W ! D:(IOSL-$Y)'>1 HOLD W "Open HAZARD ALERT for this equipment. Work order: "_$P(^ENG(6920,X("HA"),0),U)_"."
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | PDT I X]"" S Y=X X ^DD("DD") D W(Y)
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | W(ENDATA) ; Bold ENDATA
|
|---|
| 52 | N X
|
|---|
| 53 | S X=$X W IOINHI S $X=X W ENDATA
|
|---|
| 54 | S X=$X W IOINLOW S $X=X
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | HOLD I $E(IOST,1,2)="C-" W !," (Press <RETURN> to continue, '^' to escape...)" R ENX:DTIME S $Y=0 Q
|
|---|
| 58 | W @IOF,"(Work Order: "_$P(^ENG(6920,DA,0),U)_")"
|
|---|
| 59 | Q
|
|---|
| 60 | ;
|
|---|
| 61 | KILL K EN,ENNX,ENORIG,ENUSE,ENX
|
|---|
| 62 | Q
|
|---|
| 63 | ;ENEWOD1
|
|---|
