source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENEWOD1.m@ 619

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

initial load of WorldVistAEHR

File size: 3.1 KB
Line 
1ENEWOD1 ;(WASH ISC)/DH-Display Electronic Work Order ;1.23.97
2 ;;7.0;ENGINEERING;**35**;Aug 17, 1993
3TOP ; 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: "
30WCO 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
36BOTM ; 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 ;
48PDT I X]"" S Y=X X ^DD("DD") D W(Y)
49 Q
50 ;
51W(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 ;
57HOLD 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 ;
61KILL K EN,ENNX,ENORIG,ENUSE,ENX
62 Q
63 ;ENEWOD1
Note: See TracBrowser for help on using the repository browser.