ENY2K6 ;(WASH ISC)/DH-Print Y2K Worklist Header ;8.24.98
;;7.0;ENGINEERING;**51,55**;Aug 17, 1993
HDR80 ; 10 pitch worklist
I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete Y2K work orders to print.",!
S X="" I $E(IOST,1,2)="C-" D Q:X="^"
. I 'ENPG W @IOF Q
. D HOLD
S ($X,$Y)=0 W:ENPG @IOF S ENPG=ENPG+1
W "Y2K Worklist for "_$E(ENSHOP,1,18)_" Shop thru "_ENY2DT("E")_" Printed: "_ENDATE_" Page "_ENPG
S X(1)="Order: "_ENSRT("A") I "LP"'[ENSRT D
. I ENSRT="E" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
. I ENSRT="I" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
. 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
. I ENSRT="S" D
.. I ENSRT("ALL") S X(1)=X(1)_" (All)" Q
.. 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))_")"
I ENSRT="L" S X(1)=X(1)_" " D
. F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D S:I'=$L(ENSRT("BY")) X(1)=X(1)_" "
.. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""
.. S X(1)=X(1)_K_$S($D(ENSRT(K,"ALL")):"(All)",1:"(Range)")
W !,X(1)
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)"
W !,"Entry # Equipment Category Model Serial Number"
W !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name Local ID"
W !," Status PM # Manufacturer Service"
W !,"Work Order Number"
K K S $P(K,"-",79)="-"
W !,K,!
S ENY=9
Q
;
HDR96 ; 12 or 16 pitch worklist
N X,I,K
I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete Y2K work orders to print.",!
S X="" I $E(IOST,1,2)="C-" D Q:X="^"
. I 'ENPG W @IOF Q
. D HOLD
S ($X,$Y)=0 W:ENPG @IOF S ENPG=ENPG+1
W "Y2K Worklist for "_ENSHOP_" Shop thru "_ENY2DT("E")_" Printed: "_TIME_" Page "_ENPG
S X(1)="Sort Order: "_ENSRT("A") I "LP"'[ENSRT D
. I ENSRT="E" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
. I ENSRT="I" S X(1)=X(1)_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q
. 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
. I ENSRT="S" D
.. I ENSRT("ALL") S X(1)=X(1)_" (All)" Q
.. 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))_")"
I ENSRT="L" S X(1)=X(1)_" " D
. F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D S:I'=$L(ENSRT("BY")) X(1)=X(1)_" "
.. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""
.. S X(1)=X(1)_K_$S($D(ENSRT(K,"ALL")):" (All)",1:" (Range)")
W !,X(1)
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)"
W !,"Entry # Equipment Category Model Serial Number"
W !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name",?80,"Local ID"
W !," Status",?18,"PM # Manufacturer",?60,"Service"
W !,"Work Order Number"
K K S $P(K,"-",(IOM-1))="-"
W !,K,!
S ENY=9
Q
;
HOLD R !,"Press <RETURN> to continue, '^' to escape...",X:DTIME S:'$T X=U
Q
;
;ENY2K6
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENY2K6 3366 printed Sep 23, 2025@19:33:20 Page 2
ENY2K6 ;(WASH ISC)/DH-Print Y2K Worklist Header ;8.24.98
+1 ;;7.0;ENGINEERING;**51,55**;Aug 17, 1993
HDR80 ; 10 pitch worklist
+1 IF $GET(ENPG(0))>0
IF ENPG(0)=ENPG
IF ENY'>7
WRITE !!,"There are no incomplete Y2K work orders to print.",!
+2 SET X=""
IF $EXTRACT(IOST,1,2)="C-"
Begin DoDot:1
+3 IF 'ENPG
WRITE @IOF
QUIT
+4 DO HOLD
End DoDot:1
if X="^"
QUIT
+5 SET ($X,$Y)=0
if ENPG
WRITE @IOF
SET ENPG=ENPG+1
+6 WRITE "Y2K Worklist for "_$EXTRACT(ENSHOP,1,18)_" Shop thru "_ENY2DT("E")_" Printed: "_ENDATE_" Page "_ENPG
+7 SET X(1)="Order: "_ENSRT("A")
IF "LP"'[ENSRT
Begin DoDot:1
+8 IF ENSRT="E"
SET X(1)=X(1)_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")
QUIT
+9 IF ENSRT="I"
SET X(1)=X(1)_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")
QUIT
+10 IF ENSRT="C"
SET X(1)=X(1)_$SELECT(ENSRT("ALL"):" (All)",1:" ("_$EXTRACT($PIECE($GET(^ENG(6911,ENSRT("FR"),0)),U),1,15)_")")
QUIT
+11 IF ENSRT="S"
Begin DoDot:2
+12 IF ENSRT("ALL")
SET X(1)=X(1)_" (All)"
QUIT
+13 SET X(2)=$PIECE($GET(^DIC(49,ENSRT("FR"),0)),U,1,2)
SET X(1)=X(1)_" ("_$SELECT($PIECE(X(2),U,2)]"":$PIECE(X(2),U,2),1:$EXTRACT($PIECE(X(2),U),1,15))_")"
End DoDot:2
End DoDot:1
+14 IF ENSRT="L"
SET X(1)=X(1)_" "
Begin DoDot:1
+15 FOR I=1:1:$LENGTH(ENSRT("BY"))
SET K=$EXTRACT(ENSRT("BY"),I)
Begin DoDot:2
+16 SET K=$SELECT(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"")
if K=""
QUIT
+17 SET X(1)=X(1)_K_$SELECT($DATA(ENSRT(K,"ALL")):"(All)",1:"(Range)")
End DoDot:2
if I'=$LENGTH(ENSRT("BY"))
SET X(1)=X(1)_" "
End DoDot:1
+18 WRITE !,X(1)
+19 WRITE !,$SELECT(ENSRT("OOS"):"Includes ",1:"Does not include ")_"OUT OF SERVICE Equip."
IF ENTECH'=0
WRITE " Responsible Tech: "_$SELECT($GET(ENEMP)?1A.ANP:$EXTRACT(ENEMP,1,16),1:"STAFF")
if $GET(VACANT)
WRITE " (VACNT)"
+20 WRITE !,"Entry # Equipment Category Model Serial Number"
+21 WRITE !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name Local ID"
+22 WRITE !," Status PM # Manufacturer Service"
+23 WRITE !,"Work Order Number"
+24 KILL K
SET $PIECE(K,"-",79)="-"
+25 WRITE !,K,!
+26 SET ENY=9
+27 QUIT
+28 ;
HDR96 ; 12 or 16 pitch worklist
+1 NEW X,I,K
+2 IF $GET(ENPG(0))>0
IF ENPG(0)=ENPG
IF ENY'>7
WRITE !!,"There are no incomplete Y2K work orders to print.",!
+3 SET X=""
IF $EXTRACT(IOST,1,2)="C-"
Begin DoDot:1
+4 IF 'ENPG
WRITE @IOF
QUIT
+5 DO HOLD
End DoDot:1
if X="^"
QUIT
+6 SET ($X,$Y)=0
if ENPG
WRITE @IOF
SET ENPG=ENPG+1
+7 WRITE "Y2K Worklist for "_ENSHOP_" Shop thru "_ENY2DT("E")_" Printed: "_TIME_" Page "_ENPG
+8 SET X(1)="Sort Order: "_ENSRT("A")
IF "LP"'[ENSRT
Begin DoDot:1
+9 IF ENSRT="E"
SET X(1)=X(1)_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")
QUIT
+10 IF ENSRT="I"
SET X(1)=X(1)_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")
QUIT
+11 IF ENSRT="C"
SET X(1)=X(1)_$SELECT(ENSRT("ALL"):" (All)",1:" ("_$EXTRACT($PIECE($GET(^ENG(6911,ENSRT("FR"),0)),U),1,25)_")")
QUIT
+12 IF ENSRT="S"
Begin DoDot:2
+13 IF ENSRT("ALL")
SET X(1)=X(1)_" (All)"
QUIT
+14 SET X(2)=$PIECE($GET(^DIC(49,ENSRT("FR"),0)),U,1,2)
SET X(1)=" ("_$SELECT($PIECE(X(2),U,2)]"":$PIECE(X(2),U,2),1:$EXTRACT($PIECE(X(2),U),1,25))_")"
End DoDot:2
End DoDot:1
+15 IF ENSRT="L"
SET X(1)=X(1)_" "
Begin DoDot:1
+16 FOR I=1:1:$LENGTH(ENSRT("BY"))
SET K=$EXTRACT(ENSRT("BY"),I)
Begin DoDot:2
+17 SET K=$SELECT(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"")
if K=""
QUIT
+18 SET X(1)=X(1)_K_$SELECT($DATA(ENSRT(K,"ALL")):" (All)",1:" (Range)")
End DoDot:2
if I'=$LENGTH(ENSRT("BY"))
SET X(1)=X(1)_" "
End DoDot:1
+19 WRITE !,X(1)
+20 WRITE !,$SELECT(ENSRT("OOS"):"Includes ",1:"Does not include ")_"OUT OF SERVICE Equip."
IF ENTECH'=0
WRITE " Responsible Tech: "_$SELECT($GET(ENEMP)?1A.ANP:ENEMP,1:"STAFF")
if $GET(VACANT)
WRITE " (VACATED)"
+21 WRITE !,"Entry # Equipment Category Model Serial Number"
+22 WRITE !," [ROOM-BLDG-DIV (Wing)] Manufacturer Equipment Name",?80,"Local ID"
+23 WRITE !," Status",?18,"PM # Manufacturer",?60,"Service"
+24 WRITE !,"Work Order Number"
+25 KILL K
SET $PIECE(K,"-",(IOM-1))="-"
+26 WRITE !,K,!
+27 SET ENY=9
+28 QUIT
+29 ;
HOLD READ !,"Press <RETURN> to continue, '^' to escape...",X:DTIME
if '$TEST
SET X=U
+1 QUIT
+2 ;
+3 ;ENY2K6
