source: FOIAVistA/trunk/r/ENGINEERING-EN/ENEQPMS6.m@ 1713

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1ENEQPMS6 ;(WASH ISC)/DH-Print PMI Worklist Header ;5.16.97
2 ;;7.0;ENGINEERING;**21,35,42**;Aug 17, 1993
3HDR80 ; 10 pitch worklist
4 N X1,X2,I,K
5 I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete PM work orders to print.",!
6 S X="" I $E(IOST,1,2)="C-" D Q:X="^"
7 . I 'ENPG W @IOF Q
8 . D HOLD
9 S ($X,$Y)=0 W:ENPG @IOF S ENPG=ENPG+1
10 W $S(ENPM="M":"Monthly ",ENPM["W":"Weekly ")_"PM List: "_$E(ENSHOP,1,18)_" Shop for "_ENPMMN_"/"_$E(ENPMDT,1,2) W:ENPM["W" " Week: "_ENPMWK_" " W:ENPM="M" " Printed:" W " "_ENDATE_" Page "_ENPG
11 S X1="Order: "_ENSRT("A") I "LP"'[ENSRT D
12 . I ENSRT="E" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
13 . I ENSRT="I" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
14 . I ENSRT="C" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" ("_$E($P($G(^ENG(6911,ENSRT("FR"),0)),U),1,15)_")") Q
15 . I ENSRT="S" D
16 .. I ENSRT("ALL") S X1=X1_" (All)" Q
17 .. S X2=$P($G(^DIC(49,ENSRT("FR"),0)),U,1,2),X1=X1_" ("_$S($P(X2,U,2)]"":$P(X2,U,2),1:$E($P(X2,U),1,15))_")"
18 I ENSRT="L" S X1=X1_" " D
19 . F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D S:I'=$L(ENSRT("BY")) X1=X1_" "
20 .. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""
21 .. S X1=X1_K_$S($D(ENSRT(K,"ALL")):"(All)",1:"(Range)")
22 W !,X1
23 W !,$S(ENSRT("OOS"):"Includes ",1:"Does not include ")_"OUT OF SERVICE Equip." I ENTECH'=0 W " Responsible Tech: "_$S($G(ENEMP)?1A.ANP:$E(ENEMP,1,16),1:"STAFF") W:$G(VACANT) " (VACNT)"
24 W !,"Entry # Equipment Category Model Serial Number"
25 W !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name Local ID"
26 W !," Status PM # Manufacturer Service"
27 W !,"Work Order Number" I '$D(ENCRIT("ALL")) W ?36,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"
28 K K S $P(K,"-",79)="-"
29 W !,K,!
30 S ENY=9
31 Q
32 ;
33HDR96 ; 12 or 16 pitch worklist
34 N X1,X2,I,K
35 I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete PM work orders to print.",!
36 S X="" I $E(IOST,1,2)="C-" D Q:X="^"
37 . I 'ENPG W @IOF Q
38 . D HOLD
39 S ($X,$Y)=0 W:ENPG @IOF S ENPG=ENPG+1
40 W $S(ENPM="M":"Monthly ",ENPM["W":"Weekly ")_"PM Worklist for "_ENSHOP_" Shop for "_ENPMMN_"/"_$E(ENPMDT,1,2) W:ENPM="W" " Week: "_ENPMWK W " Printed: "_TIME_" Page "_ENPG
41 S X1="Sort Order: "_ENSRT("A") I "LP"'[ENSRT D
42 . I ENSRT="E" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
43 . I ENSRT="I" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
44 . I ENSRT="C" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" ("_$E($P($G(^ENG(6911,ENSRT("FR"),0)),U),1,25)_")") Q
45 . I ENSRT="S" D
46 .. I ENSRT("ALL") S X1=X1_" (All)" Q
47 .. S X2=$P($G(^DIC(49,ENSRT("FR"),0)),U,1,2),X1=" ("_$S($P(X2,U,2)]"":$P(X2,U,2),1:$E($P(X2,U),1,25))_")"
48 I ENSRT="L" S X1=X1_" " D
49 . F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D S:I'=$L(ENSRT("BY")) X1=X1_" "
50 .. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""
51 .. S X1=X1_K_$S($D(ENSRT(K,"ALL")):" (All)",1:" (Range)")
52 W !,X1
53 W !,$S(ENSRT("OOS"):"Includes ",1:"Does not include ")_"OUT OF SERVICE Equip." I ENTECH'=0 W " Responsible Tech: "_$S($G(ENEMP)?1A.ANP:ENEMP,1:"STAFF") W:$G(VACANT) " (VACATED)"
54 W !,"Entry # Equipment Category Model Serial Number"
55 W !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name",?80,"Local ID"
56 W !," Status",?18,"PM # Manufacturer",?65,"Service"
57 W !,"Work Order Number" I '$D(ENCRIT("ALL")) W ?44,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"
58 K K S $P(K,"-",(IOM-1))="-"
59 W !,K,!
60 S ENY=9
61 Q
62 ;
63HOLD R !,"Press <RETURN> to continue, '^' to escape...",X:DTIME S:'$T X=U
64 Q
65 ;
66 ;ENEQPMS6
Note: See TracBrowser for help on using the repository browser.