- 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 Mar 13, 2025@21:00:55 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
