source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENWOD3.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1ENWOD3 ;(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
4TOP4 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 ;
19PDT I X]"" D W($E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3))
20 Q
21 ;
22W(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
Note: See TracBrowser for help on using the repository browser.