source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENY2K6.m@ 1351

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

initial load of WorldVistAEHR
File size: 3.2 KB
Line 
1ENY2K6 ;(WASH ISC)/DH-Print Y2K Worklist Header ;8.24.98
2 ;;7.0;ENGINEERING;**51,55**;Aug 17, 1993
3HDR80 ; 10 pitch worklist
4 I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete Y2K work orders to print.",!
5 S X="" I $E(IOST,1,2)="C-" D Q:X="^"
6 . I 'ENPG W @IOF Q
7 . D HOLD
8 S ($X,$Y)=0 W:ENPG @IOF S ENPG=ENPG+1
9 W "Y2K Worklist for "_$E(ENSHOP,1,18)_" Shop thru "_ENY2DT("E")_" Printed: "_ENDATE_" Page "_ENPG
10 S X(1)="Order: "_ENSRT("A") I "LP"'[ENSRT D
11 . I ENSRT="E" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
12 . I ENSRT="I" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
13 . I ENSRT="C" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" ("_$E($P($G(^ENG(6911,ENSRT("FR"),0)),U),1,15)_")") Q
14 . I ENSRT="S" D
15 .. I ENSRT("ALL") S X(1)=X(1)_" (All)" Q
16 .. S X(2)=$P($G(^DIC(49,ENSRT("FR"),0)),U,1,2),X(1)=X(1)_" ("_$S($P(X(2),U,2)]"":$P(X(2),U,2),1:$E($P(X(2),U),1,15))_")"
17 I ENSRT="L" S X(1)=X(1)_" " D
18 . F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D S:I'=$L(ENSRT("BY")) X(1)=X(1)_" "
19 .. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""
20 .. S X(1)=X(1)_K_$S($D(ENSRT(K,"ALL")):"(All)",1:"(Range)")
21 W !,X(1)
22 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)"
23 W !,"Entry # Equipment Category Model Serial Number"
24 W !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name Local ID"
25 W !," Status PM # Manufacturer Service"
26 W !,"Work Order Number"
27 K K S $P(K,"-",79)="-"
28 W !,K,!
29 S ENY=9
30 Q
31 ;
32HDR96 ; 12 or 16 pitch worklist
33 N X,I,K
34 I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete Y2K work orders to print.",!
35 S X="" I $E(IOST,1,2)="C-" D Q:X="^"
36 . I 'ENPG W @IOF Q
37 . D HOLD
38 S ($X,$Y)=0 W:ENPG @IOF S ENPG=ENPG+1
39 W "Y2K Worklist for "_ENSHOP_" Shop thru "_ENY2DT("E")_" Printed: "_TIME_" Page "_ENPG
40 S X(1)="Sort Order: "_ENSRT("A") I "LP"'[ENSRT D
41 . I ENSRT="E" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
42 . I ENSRT="I" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
43 . I ENSRT="C" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" ("_$E($P($G(^ENG(6911,ENSRT("FR"),0)),U),1,25)_")") Q
44 . I ENSRT="S" D
45 .. I ENSRT("ALL") S X(1)=X(1)_" (All)" Q
46 .. S X(2)=$P($G(^DIC(49,ENSRT("FR"),0)),U,1,2),X(1)=" ("_$S($P(X(2),U,2)]"":$P(X(2),U,2),1:$E($P(X(2),U),1,25))_")"
47 I ENSRT="L" S X(1)=X(1)_" " D
48 . F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D S:I'=$L(ENSRT("BY")) X(1)=X(1)_" "
49 .. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""
50 .. S X(1)=X(1)_K_$S($D(ENSRT(K,"ALL")):" (All)",1:" (Range)")
51 W !,X(1)
52 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)"
53 W !,"Entry # Equipment Category Model Serial Number"
54 W !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name",?80,"Local ID"
55 W !," Status",?18,"PM # Manufacturer",?60,"Service"
56 W !,"Work Order Number"
57 K K S $P(K,"-",(IOM-1))="-"
58 W !,K,!
59 S ENY=9
60 Q
61 ;
62HOLD R !,"Press <RETURN> to continue, '^' to escape...",X:DTIME S:'$T X=U
63 Q
64 ;
65 ;ENY2K6
Note: See TracBrowser for help on using the repository browser.