Routine: ENEQPMS6

ENEQPMS6 ;(WASH ISC)/DH-Print PMI Worklist Header ;5.16.97

 ;;7.0;ENGINEERING;**21,35,42**;Aug 17, 1993

HDR80 ;  10 pitch worklist

 N X1,X2,I,K

 I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete PM 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 $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

 S X1="Order: "_ENSRT("A") I "LP"'[ENSRT D

 . I ENSRT="E" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q

 . I ENSRT="I" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q

 . I ENSRT="C" S X1=X1_$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 X1=X1_" (All)" Q

 .. 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))_")"

 I ENSRT="L" S X1=X1_"  " D

 . F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D  S:I'=$L(ENSRT("BY")) X1=X1_" "

 .. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""

 .. S X1=X1_K_$S($D(ENSRT(K,"ALL")):"(All)",1:"(Range)")

 W !,X1

 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" I '$D(ENCRIT("ALL")) W ?36,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"

 K K S $P(K,"-",79)="-"

 W !,K,!

 S ENY=9

HDR96 ; 12 or 16 pitch worklist

 N X1,X2,I,K

 I $G(ENPG(0))>0,ENPG(0)=ENPG,ENY'>7 W !!,"There are no incomplete PM 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 $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

 S X1="Sort Order: "_ENSRT("A") I "LP"'[ENSRT D

 . I ENSRT="E" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q

 . I ENSRT="I" S X1=X1_$S(ENSRT("ALL"):" (All)",1:" (Range)") Q

 . I ENSRT="C" S X1=X1_$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 X1=X1_" (All)" Q

 .. 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))_")"

 I ENSRT="L" S X1=X1_"  " D

 . F I=1:1:$L(ENSRT("BY")) S K=$E(ENSRT("BY"),I) D  S:I'=$L(ENSRT("BY")) X1=X1_" "

 .. S K=$S(K="D":"DIV",K="B":"BLDG",K="W":"WING",K="R":"ROOM",1:"") Q:K=""

 .. S X1=X1_K_$S($D(ENSRT(K,"ALL")):" (All)",1:" (Range)")

 W !,X1

 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",?65,"Service"

 W !,"Work Order Number" I '$D(ENCRIT("ALL")) W ?44,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"

 K K S $P(K,"-",(IOM-1))="-"

 W !,K,!

 S ENY=9

HOLD R !,"Press <RETURN> to continue, '^' to escape...",X:DTIME S:'$T X=U

 ;ENEQPMS6

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENEQPMS6   3658     printed  Mar 13, 2025@20:57:38                                                                                                                                                                                                    Page 2

ENEQPMS6  ;(WASH ISC)/DH-Print PMI Worklist Header ;5.16.97

 +1       ;;7.0;ENGINEERING;**21,35,42**;Aug 17, 1993

HDR80     ;  10 pitch worklist

 +1        NEW X1,X2,I,K

 +2        IF $GET(ENPG(0))>0

               IF ENPG(0)=ENPG

                   IF ENY'>7

                       WRITE !!,"There are no incomplete PM 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 $SELECT(ENPM="M":"Monthly ",ENPM["W":"Weekly ")_"PM List: "_$EXTRACT(ENSHOP,1,18)_" Shop for "_ENPMMN_"/"_$EXTRACT(ENPMDT,1,2)

           if ENPM["W"

               WRITE " Week: "_ENPMWK_" "

           if ENPM="M"

               WRITE "  Printed:"

           WRITE " "_ENDATE_"  Page "_ENPG

 +8        SET X1="Order: "_ENSRT("A")

           IF "LP"'[ENSRT

               Begin DoDot:1

 +9                IF ENSRT="E"

                       SET X1=X1_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")

                       QUIT

 +10               IF ENSRT="I"

                       SET X1=X1_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")

                       QUIT

 +11               IF ENSRT="C"

                       SET X1=X1_$SELECT(ENSRT("ALL"):" (All)",1:" ("_$EXTRACT($PIECE($GET(^ENG(6911,ENSRT("FR"),0)),U),1,15)_")")

                       QUIT

 +12               IF ENSRT="S"

                       Begin DoDot:2

 +13                       IF ENSRT("ALL")

                               SET X1=X1_" (All)"

                               QUIT

 +14                       SET X2=$PIECE($GET(^DIC(49,ENSRT("FR"),0)),U,1,2)

                           SET X1=X1_" ("_$SELECT($PIECE(X2,U,2)]"":$PIECE(X2,U,2),1:$EXTRACT($PIECE(X2,U),1,15))_")"

                       End DoDot:2

               End DoDot:1

 +15       IF ENSRT="L"

               SET X1=X1_"  "

               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 X1=X1_K_$SELECT($DATA(ENSRT(K,"ALL")):"(All)",1:"(Range)")

                       End DoDot:2

                       if I'=$LENGTH(ENSRT("BY"))

                           SET X1=X1_" "

               End DoDot:1

 +19       WRITE !,X1

 +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:$EXTRACT(ENEMP,1,16),1:"STAFF")

               if $GET(VACANT)

                   WRITE " (VACNT)"

 +21       WRITE !,"Entry #    Equipment Category             Model            Serial Number"

 +22       WRITE !," [ROOM-BLDG-DIV (Wing)]   Manufacturer Equipment Name            Local ID"

 +23       WRITE !," Status   PM #       Manufacturer                   Service"

 +24       WRITE !,"Work Order Number"

           IF '$DATA(ENCRIT("ALL"))

               WRITE ?36,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"

 +25       KILL K

           SET $PIECE(K,"-",79)="-"

 +26       WRITE !,K,!

 +27       SET ENY=9

 +28       QUIT

 +29      ;

HDR96     ; 12 or 16 pitch worklist

 +1        NEW X1,X2,I,K

 +2        IF $GET(ENPG(0))>0

               IF ENPG(0)=ENPG

                   IF ENY'>7

                       WRITE !!,"There are no incomplete PM 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 $SELECT(ENPM="M":"Monthly ",ENPM["W":"Weekly ")_"PM Worklist for "_ENSHOP_" Shop for "_ENPMMN_"/"_$EXTRACT(ENPMDT,1,2)

           if ENPM="W"

               WRITE "  Week: "_ENPMWK

           WRITE "   Printed: "_TIME_"   Page "_ENPG

 +8        SET X1="Sort Order: "_ENSRT("A")

           IF "LP"'[ENSRT

               Begin DoDot:1

 +9                IF ENSRT="E"

                       SET X1=X1_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")

                       QUIT

 +10               IF ENSRT="I"

                       SET X1=X1_$SELECT(ENSRT("ALL"):" (All)",1:" (Range)")

                       QUIT

 +11               IF ENSRT="C"

                       SET X1=X1_$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 X1=X1_" (All)"

                               QUIT

 +14                       SET X2=$PIECE($GET(^DIC(49,ENSRT("FR"),0)),U,1,2)

                           SET X1=" ("_$SELECT($PIECE(X2,U,2)]"":$PIECE(X2,U,2),1:$EXTRACT($PIECE(X2,U),1,25))_")"

                       End DoDot:2

               End DoDot:1

 +15       IF ENSRT="L"

               SET X1=X1_"  "

               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 X1=X1_K_$SELECT($DATA(ENSRT(K,"ALL")):" (All)",1:" (Range)")

                       End DoDot:2

                       if I'=$LENGTH(ENSRT("BY"))

                           SET X1=X1_" "

               End DoDot:1

 +19       WRITE !,X1

 +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",?65,"Service"

 +24       WRITE !,"Work Order Number"

           IF '$DATA(ENCRIT("ALL"))

               WRITE ?44,"(Criticality Range: "_ENCRIT("FR")_" to "_ENCRIT("TO")_")"

 +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       ;ENEQPMS6

ENEQPMS6.m