| [613] | 1 | ENWOD3 ;(WASH ISC)/DLM/DH-Formatted Work Order Display ;1.28.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**35**;Aug 17, 1993
|
|---|
| 3 | ; Print mid-section of work order
|
|---|
| 4 | TOP4 W ! D W(" 8) ") W "CONTACT: " D:EN(8)]"" W(EN(8)) W ?39 D W(" 9) ") W "PHONE: " D:EN(9)]"" W(EN(9))
|
|---|
| 5 | W ! D W("10) ") W "ENTERED BY: " D W(EN(10)) W ?39 D W("11) ") W "SHOP: " D W(EN(11))
|
|---|
| 6 | W ! D W("12) ") W "DATE ASSIGNED: " S X=EN(12) D PDT
|
|---|
| 7 | W ?39 D W("13) ") W "PRIORITY: " D W(EN(13))
|
|---|
| 8 | W ! D W("14) ") W "EQUIP ID#: " D:EN(14)]"" W(EN(14)) W ?39 D W("15) ") W "LOCAL ID: " D:EN(15)]"" W(EN(15))
|
|---|
| 9 | W ! D W("16) ") W "EQUIP CAT: " D:EN(16)]"" W($E(EN(16),1,30))
|
|---|
| 10 | W ?49 D W("17) ") W "CONDITION: " D:EN(17)]"" W(EN(17))
|
|---|
| 11 | W ! D W("18) ") W "MFGR: " D:EN(18)]"" W(EN(18))
|
|---|
| 12 | W ! D W("19) ") W "MODEL: " D:EN(19)]"" W(EN(19)) W ?39 D W("20) ") W "SERIAL #: " D:EN(20)]"" W(EN(20))
|
|---|
| 13 | I EN(21)'="",$D(^DIC(49,EN(21),0)) S EN(21)=$E($P(^(0),U),1,40)
|
|---|
| 14 | W ! D W("21) ") W "OWNER/DEPT: " D:EN(21)]"" W(EN(21)) W ?49 D W("22) ") W "PM #: " D:EN(22)]"" W(EN(22))
|
|---|
| 15 | W ! D W("23) ") W "PARTS ORDER: " I EN(23)]"",$D(^PRCS(410,EN(23),0)) D W($P(^(0),U))
|
|---|
| 16 | W ?39 D W("24) ") W "WORK ACTION: " D:EN(24)]"" W(EN(24))
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | PDT I X]"" D W($E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3))
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | W(ENDATA) ; Bold ENDATA
|
|---|
| 23 | N X
|
|---|
| 24 | S X=$X W IOINHI S $X=X W ENDATA
|
|---|
| 25 | S X=$X W IOINLOW S $X=X
|
|---|
| 26 | Q
|
|---|
| 27 | ;ENWOD3
|
|---|
