source: FOIAVistA/tag/r/ENGINEERING-EN/ENY2K7.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version
File size: 3.1 KB
Line 
1ENY2K7 ;(WIRMFO)/DH-Print Y2K Worklist ;9.14.98
2 ;;7.0;ENGINEERING;**51,55**;Aug 17, 1993
3 ; Physically prints the Y2K worklist
4LN80 ; 10 pitch worklist
5 N X
6 D DATA
7 W !,DA,?11,$E(ENDVTYP,1,30),?42,$E(ENMOD,1,16),?59,$S($L(ENSN)>20:$E(ENSN,1,19)_"*",1:ENSN)
8 W !," "_ENLOC I $G(ENWING)]"" S ENWING=$E(ENWING,1,(24-$L(ENLOC))) W " ("_ENWING_")"
9 W ?24,$E(ENMFGR,1,40),?65,ENLID
10 I ENUSE]"" S ENUSE=$S(ENUSE="IN USE":"IN USE",ENUSE="OUT OF SERVICE":"OOS",ENUSE="LOANED OUT":"ON LOAN",1:"OTHER")
11 W !," "_ENUSE,?10,ENPMN,?21,$E(ENMAN,1,30),?52,$E(ENSRVC,1,28)
12 W !," Estimated Y2K Compliance Date: "_$$GET1^DIQ(6914,DA,72)_" Est. Cost: $"_$P($P($G(^ENG(6914,DA,11)),U,3),".") I ENJCAHO="Y" W ?68,"JCAHO=YES"
13 S ENX=$P(^ENG(6914,DA,11),U,12) D:ENX]""
14 . W ! S ENY=ENY+1
15 . W:$L(ENX)<80 " " W ENX
16 K ENX D NOTES^ENWOD2(DA),POST
17 W !!,ENWOX,?16,"Initials:_______ Date:________ Hrs:______ Materials:_______"
18 W !," Y2K Status (circle): FC NC NA CNL TI Vendor Cost:______"
19 W !! S ENY=ENY+9
20 Q
21 ;
22LN96 ; 12 pitch worklist
23 N X1
24 D DATA
25 W !,DA,?12,$E(ENDVTYP,1,31),?44,$E(ENMOD,1,20),?65,ENSN
26 W !," "_ENLOC I $G(ENWING)]"" S ENWING=$E(ENWING,1,(24-$L(ENLOC))) W " ("_ENWING_")"
27 W ?24,$E(ENMFGR,1,55),?80,ENLID
28 I ENUSE]"" S ENUSE=$S(ENUSE="IN USE":"IN USE",ENUSE="OUT OF SERVICE":"OUT OF SERVICE",ENUSE="LOANED OUT":"ON LOAN",1:"OTHER")
29 W !," "_ENUSE,?18,ENPMN,?29,$E(ENMAN,1,30),?61,$E(ENSRVC,1,35)
30 W !," Estimated Y2K Compliance Date: "_$$GET1^DIQ(6914,DA,72)_" Estimated Cost: $"_$P($P($G(^ENG(6914,DA,11)),U,3),".") I ENJCAHO="Y" W ?72,"JCAHO=YES"
31 S ENX=$P(^ENG(6914,DA,11),U,12) D:ENX]""
32 . W ! S ENY=ENY+1
33 . W:$L(ENX)<80 " " W ENX
34 K ENX D NOTES^ENWOD2(DA),POST
35 W !!,ENWOX,?17,"Initials:________ Date___________ Hours:_______ Materials:_______"
36 W !," Y2K Status (circle): FC NC NA CNL TI Vendor Cost:__________"
37 W !! S ENY=ENY+9
38 Q
39 ;
40DATA ; Get data from the equipment record (file #6914)
41 ; Expects DA as the IEN for file #6914
42 S (ENMAN,ENMANF,ENMOD,ENSN,ENLID,ENLOC,ENDTYP,ENDVTYP,ENLVL,ENSRVC,ENWING,ENUSE,ENCOND,ENJCAHO,ENMFGR)=""
43 S ENMFGR=$P(^ENG(6914,DA,0),U,2)
44 I $D(^ENG(6914,DA,3)) S EN=^(3),ENLOC=$P(EN,U,5),ENPMN=$P(EN,U,6),ENLID=$P(EN,U,7),ENJCAHO=$P(EN,U,9),ENUSE=$$GET1^DIQ(6914,DA,20),ENCOND=$$GET1^DIQ(6914,DA,53)
45 I ENLOC]"" D
46 . I ENLOC=+ENLOC,$D(^ENG("SP",ENLOC,0)) D Q
47 .. S ENLOC=$P(^ENG("SP",ENLOC,0),U),ENWING=$P(^(0),U,3)
48 .. K:ENWING="" ENWING
49 . S X=$O(^ENG("SP","B",ENLOC,0))
50 . I X>0,$D(^ENG("SP",X,0)) S ENWING=$P(^(0),U,3) K:ENWING="" ENWING
51 S ENSRVC=$$GET1^DIQ(6914,DA,21)
52 I $D(^ENG(6914,DA,1)) S EN=^(1),ENMAN=$$GET1^DIQ(6914,DA,1),ENMOD=$P(EN,U,2),ENSN=$P(EN,U,3),ENDVTYP=$$GET1^DIQ(6914,DA,6)
53 Q
54 ;
55POST ; Writes flagging notes (if any)
56 ; Expects that a call has just been made to NOTES^ENWOD2(DA)
57 I ENX("T")>0 D
58 . N I S I=1
59 . I $G(ENX(1))>DT D
60 .. S Y=ENX(1) X ^DD("DD")
61 .. S X1(I)="Unexpired Warranty ("_Y_")",I=I+1
62 . I $G(ENX(6))="O" S X1(I)="HAZARD ALERT("_ENX("HA")_")"
63 . I $G(ENX(3))=1 W !," IMPORTANT: Device MUST be isolated & rendered inoperative before servicing." S ENY=ENY+1
64 . I $G(X1(1))]"" D
65 .. W !," NOTES: "_X1(1) S ENY=ENY+1
66 .. S I=1 F S I=$O(X1(I)) Q:I'>0 W !,?8,X1(I) S ENY=ENY+1
67 Q
68 ;ENY2K7
Note: See TracBrowser for help on using the repository browser.