ENWOD3 ;(WASH ISC)/DLM/DH-Formatted Work Order Display ;1.28.97
;;7.0;ENGINEERING;**35**;Aug 17, 1993
; Print mid-section of work order
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))
W ! D W("10) ") W "ENTERED BY: " D W(EN(10)) W ?39 D W("11) ") W "SHOP: " D W(EN(11))
W ! D W("12) ") W "DATE ASSIGNED: " S X=EN(12) D PDT
W ?39 D W("13) ") W "PRIORITY: " D W(EN(13))
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))
W ! D W("16) ") W "EQUIP CAT: " D:EN(16)]"" W($E(EN(16),1,30))
W ?49 D W("17) ") W "CONDITION: " D:EN(17)]"" W(EN(17))
W ! D W("18) ") W "MFGR: " D:EN(18)]"" W(EN(18))
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))
I EN(21)'="",$D(^DIC(49,EN(21),0)) S EN(21)=$E($P(^(0),U),1,40)
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))
W ! D W("23) ") W "PARTS ORDER: " I EN(23)]"",$D(^PRCS(410,EN(23),0)) D W($P(^(0),U))
W ?39 D W("24) ") W "WORK ACTION: " D:EN(24)]"" W(EN(24))
Q
;
PDT I X]"" D W($E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3))
Q
;
W(ENDATA) ; Bold ENDATA
N X
S X=$X W IOINHI S $X=X W ENDATA
S X=$X W IOINLOW S $X=X
Q
;ENWOD3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENWOD3 1329 printed Dec 13, 2024@01:56:15 Page 2
ENWOD3 ;(WASH ISC)/DLM/DH-Formatted Work Order Display ;1.28.97
+1 ;;7.0;ENGINEERING;**35**;Aug 17, 1993
+2 ; Print mid-section of work order
TOP4 WRITE !
DO W(" 8) ")
WRITE "CONTACT: "
if EN(8)]""
DO W(EN(8))
WRITE ?39
DO W(" 9) ")
WRITE "PHONE: "
if EN(9)]""
DO W(EN(9))
+1 WRITE !
DO W("10) ")
WRITE "ENTERED BY: "
DO W(EN(10))
WRITE ?39
DO W("11) ")
WRITE "SHOP: "
DO W(EN(11))
+2 WRITE !
DO W("12) ")
WRITE "DATE ASSIGNED: "
SET X=EN(12)
DO PDT
+3 WRITE ?39
DO W("13) ")
WRITE "PRIORITY: "
DO W(EN(13))
+4 WRITE !
DO W("14) ")
WRITE "EQUIP ID#: "
if EN(14)]""
DO W(EN(14))
WRITE ?39
DO W("15) ")
WRITE "LOCAL ID: "
if EN(15)]""
DO W(EN(15))
+5 WRITE !
DO W("16) ")
WRITE "EQUIP CAT: "
if EN(16)]""
DO W($EXTRACT(EN(16),1,30))
+6 WRITE ?49
DO W("17) ")
WRITE "CONDITION: "
if EN(17)]""
DO W(EN(17))
+7 WRITE !
DO W("18) ")
WRITE "MFGR: "
if EN(18)]""
DO W(EN(18))
+8 WRITE !
DO W("19) ")
WRITE "MODEL: "
if EN(19)]""
DO W(EN(19))
WRITE ?39
DO W("20) ")
WRITE "SERIAL #: "
if EN(20)]""
DO W(EN(20))
+9 IF EN(21)'=""
IF $DATA(^DIC(49,EN(21),0))
SET EN(21)=$EXTRACT($PIECE(^(0),U),1,40)
+10 WRITE !
DO W("21) ")
WRITE "OWNER/DEPT: "
if EN(21)]""
DO W(EN(21))
WRITE ?49
DO W("22) ")
WRITE "PM #: "
if EN(22)]""
DO W(EN(22))
+11 WRITE !
DO W("23) ")
WRITE "PARTS ORDER: "
IF EN(23)]""
IF $DATA(^PRCS(410,EN(23),0))
DO W($PIECE(^(0),U))
+12 WRITE ?39
DO W("24) ")
WRITE "WORK ACTION: "
if EN(24)]""
DO W(EN(24))
+13 QUIT
+14 ;
PDT IF X]""
DO W($EXTRACT(X,4,5)_"/"_$EXTRACT(X,6,7)_"/"_$EXTRACT(X,2,3))
+1 QUIT
+2 ;
W(ENDATA) ; Bold ENDATA
+1 NEW X
+2 SET X=$X
WRITE IOINHI
SET $X=X
WRITE ENDATA
+3 SET X=$X
WRITE IOINLOW
SET $X=X
+4 QUIT
+5 ;ENWOD3
