Routine: ENPRP

ENPRP ;(WIRMFO)/DH/SAB-Project Progress Reports ;6/11/97

 ;;7.0;ENGINEERING;**18,28**;Aug 17, 1993

SINGLE ; Print one project (current reports only)

 S DIC="^ENG(""PROJ"",",DIC(0)="AEQM" D ^DIC K DIC G:Y'>0 SINGLEX

 S ENDA=+Y

 S DIR(0)="S^1:FIRST PAGE;2:SECOND PAGE;B:BOTH PAGES"

 S DIR("A")="PRINT WHICH PAGES:",DIR("B")="B"

 D ^DIR K DIR G:$D(DIRUT) SINGLEX

 S ENOPT=Y

 S %ZIS="QM" D ^%ZIS G:POP SINGLEX

 I $D(IO("Q")) D  G SINGLEX

 . S ZTDESC="Print Project Report (10-0051)",ZTRTN="SINGLEQ^ENPRP"

 . S ZTSAVE("ENDA")="",ZTSAVE("ENOPT")=""

 . D ^%ZTLOAD,HOME^%ZIS K ZTSK

SINGLEQ ; Queued entry point for Display one project

 U IO

 S X="IOINLOW;IOINHI;IOINORM" D ENDR^%ZISS

 S (END,ENPG)=0 S ENDT=$$FMTE^XLFDT($$NOW^XLFDT)

 D ^ENPRP1

 W IOINORM

 D ^%ZISC

 D KILL^%ZISS

 I $D(ZTQUEUED) S ZTREQ="@" Q

 I $E(IOST,1,2)="C-" G SINGLE

SINGLEX ; Exit for Display one project

 K DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 K END,ENDA,ENDT,ENOPT,ENPG

ALL ;Print all projects (current reports)

 S DIR(0)="S^1:FIRST PAGE;2:SECOND PAGE;B:BOTH PAGES"

 S DIR("A")="PRINT WHICH PAGES:",DIR("B")="B"

 D ^DIR K DIR G:$D(DIRUT) ALLX

 S ENOPT=Y

 S %ZIS="QM" D ^%ZIS Q:POP

 I $D(IO("Q")) D  G ALLX

 . S ZTDESC="Print All Project Reports (10-0051)",ZTRTN="ALLQ^ENPRP"

 . S ZTSAVE("ENOPT")=""

 . D ^%ZTLOAD,HOME^%ZIS K ZTSK Q

ALLQ ; Queued entry point for Display all projects

 U IO

 S X="IOINLOW;IOINHI;IOINORM" D ENDR^%ZISS

 S (END,ENPG)=0 S ENDT=$$FMTE^XLFDT($$NOW^XLFDT)

 S ENPN="" F  S ENPN=$O(^ENG("PROJ","B",ENPN)) Q:ENPN=""  D  Q:END

 . S ENDA=0 F  S ENDA=$O(^ENG("PROJ","B",ENPN,ENDA)) Q:'ENDA  D:$P($G(^ENG("PROJ",ENDA,0)),U,5)="Y" ^ENPRP1 Q:END

 W IOINORM

 I 'END,$E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR

 D ^%ZISC

 D KILL^%ZISS

 I $D(ZTQUEUED) S ZTREQ="@" Q

ALLX ; Exit for Display all projects

 K DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 K END,ENDA,ENDT,ENOPT,ENPG

 ;ENPRP

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPRP   1912     printed  Mar 13, 2025@21:00:02                                                                                                                                                                                                       Page 2

ENPRP     ;(WIRMFO)/DH/SAB-Project Progress Reports ;6/11/97

 +1       ;;7.0;ENGINEERING;**18,28**;Aug 17, 1993

SINGLE    ; Print one project (current reports only)

 +1        SET DIC="^ENG(""PROJ"","

           SET DIC(0)="AEQM"

           DO ^DIC

           KILL DIC

           if Y'>0

               GOTO SINGLEX

 +2        SET ENDA=+Y

 +3        SET DIR(0)="S^1:FIRST PAGE;2:SECOND PAGE;B:BOTH PAGES"

 +4        SET DIR("A")="PRINT WHICH PAGES:"

           SET DIR("B")="B"

 +5        DO ^DIR

           KILL DIR

           if $DATA(DIRUT)

               GOTO SINGLEX

 +6        SET ENOPT=Y

 +7        SET %ZIS="QM"

           DO ^%ZIS

           if POP

               GOTO SINGLEX

 +8        IF $DATA(IO("Q"))

               Begin DoDot:1

 +9                SET ZTDESC="Print Project Report (10-0051)"

                   SET ZTRTN="SINGLEQ^ENPRP"

 +10               SET ZTSAVE("ENDA")=""

                   SET ZTSAVE("ENOPT")=""

 +11               DO ^%ZTLOAD

                   DO HOME^%ZIS

                   KILL ZTSK

               End DoDot:1

               GOTO SINGLEX

SINGLEQ   ; Queued entry point for Display one project

 +1        USE IO

 +2        SET X="IOINLOW;IOINHI;IOINORM"

           DO ENDR^%ZISS

 +3        SET (END,ENPG)=0

           SET ENDT=$$FMTE^XLFDT($$NOW^XLFDT)

 +4        DO ^ENPRP1

 +5        WRITE IOINORM

 +6        DO ^%ZISC

 +7        DO KILL^%ZISS

 +8        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT

 +9        IF $EXTRACT(IOST,1,2)="C-"

               GOTO SINGLE

SINGLEX   ; Exit for Display one project

 +1        KILL DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 +2        KILL END,ENDA,ENDT,ENOPT,ENPG

 +3        QUIT

 +4       ;

ALL       ;Print all projects (current reports)

 +1        SET DIR(0)="S^1:FIRST PAGE;2:SECOND PAGE;B:BOTH PAGES"

 +2        SET DIR("A")="PRINT WHICH PAGES:"

           SET DIR("B")="B"

 +3        DO ^DIR

           KILL DIR

           if $DATA(DIRUT)

               GOTO ALLX

 +4        SET ENOPT=Y

 +5        SET %ZIS="QM"

           DO ^%ZIS

           if POP

               QUIT

 +6        IF $DATA(IO("Q"))

               Begin DoDot:1

 +7                SET ZTDESC="Print All Project Reports (10-0051)"

                   SET ZTRTN="ALLQ^ENPRP"

 +8                SET ZTSAVE("ENOPT")=""

 +9                DO ^%ZTLOAD

                   DO HOME^%ZIS

                   KILL ZTSK

                   QUIT

               End DoDot:1

               GOTO ALLX

ALLQ      ; Queued entry point for Display all projects

 +1        USE IO

 +2        SET X="IOINLOW;IOINHI;IOINORM"

           DO ENDR^%ZISS

 +3        SET (END,ENPG)=0

           SET ENDT=$$FMTE^XLFDT($$NOW^XLFDT)

 +4        SET ENPN=""

FOR

               SET ENPN=$ORDER(^ENG("PROJ","B",ENPN))

               if ENPN=""

                   QUIT

               Begin DoDot:1

 +5                SET ENDA=0

FOR

                       SET ENDA=$ORDER(^ENG("PROJ","B",ENPN,ENDA))

                       if 'ENDA

                           QUIT

                       if $PIECE($GET(^ENG("PROJ",ENDA,0)),U,5)="Y"

                           DO ^ENPRP1

                       if END

                           QUIT

               End DoDot:1

               if END

                   QUIT

 +6        WRITE IOINORM

 +7        IF 'END

               IF $EXTRACT(IOST,1,2)="C-"

                   SET DIR(0)="E"

                   DO ^DIR

                   KILL DIR

 +8        DO ^%ZISC

 +9        DO KILL^%ZISS

 +10       IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT

ALLX      ; Exit for Display all projects

 +1        KILL DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 +2        KILL END,ENDA,ENDT,ENOPT,ENPG

 +3        QUIT

 +4       ;

 +5       ;ENPRP

ENPRP.m