Routine: BRNRU3

BRNRU3 ; IHS/OIT/LJF - MISC REPORT LOGIC

 ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003

 ;IHS/OIT/LJF 10/25/2007 PATCH 1 Added routine

TITLE ;EP; Custom Title for report

 NEW Y,LENGTH,TITLE,DIE,DA,DR

 Q:"FTCP"[BRNCTYP

 S Y=$$READ^BRNU("Y","Would you like a custom title for this report","NO") Q:Y=0

 I Y=U S BRNQUIT=1 Q

 S LENGTH=$S(BRNTCW:BRNTCW-8,1:60)

 S TITLE=$$READ^BRNU("F^3:"_LENGTH,"Enter custom title",,"    Enter from 3 to "_LENGTH_" characters")

 I (Y=U)!(Y="") D TITLE Q

 S DIE=90264.8,DA=BRNRPT,DR="1303///"_TITLE D ^DIE

SAVE ;EP; Ask user to save report logic

 Q:$D(BRNCAND)    ;--- don't ask if already a pre-defined rpt

 Q:BRNCTYP'="D"   ;--- must be a detailed report to be saved

 Q:'$$READ^BRNU("Y","Do you wish to SAVE this SEARCH/PRINT/SORT logic for future use","NO")

 NEW NAME,DIE,DR,DA

 S NAME=$$READ^BRNU("90264.8,.03","Enter NAME for this REPORT DEFINITION") Q:$L(NAME)<3

 S DIE="^BRNRPT(",DA=BRNRPT,DR=".02////1;.03///"_NAME_";.05///"_BRNCTYP D ^DIE

COUNT ;EP; Counts and Subcount logic

 W !!

 S DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed Listing;L:Delimited Output File for use in Excel"

 S DIR("A")="     Choose Type of Report",DIR("B")="D" D ^DIR K DIR W !!

 S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) S BRNQUIT=1 Q

 S BRNCTYP=Y

 I BRNCTYP="T" S $P(^BRNRPT(BRNRPT,0),U,5)="T" S BRNSORT=1,BRNSORV="Patient Name" Q

 I BRNCTYP="D" D PRINT Q:$D(BRNQUIT)  D SORT Q

 I BRNCTYP="L" D  Q

 .W !!,"You have selected to create a delimited output file, you will be"

 .W !,"asked to select the print items, the sort item and then to name the"

 .W !,"output file.",!!

 .K DIR S DIR(0)="Y",DIR("A")="Do you wish to continue",DIR("B")="Y" KILL DA D ^DIR KILL DIR

 .I $D(DIRUT) S BRNQUIT=1 Q

 .I 'Y S BRNQUIT=1 Q

 .D PRINT Q:$D(BRNQUIT)  S $P(^BRNRPT(BRNRPT,0),U,5)="F" D  Q:$D(BRNQUIT)

 .D SORT

 .D DELIMIT

 .I BRNDELT="" S BRNQUIT=1

 Q:$G(BRNQUIT)

 D SORT

PRINT ;

 S BRNCNTL="P"

 D ^BRNRU2

SORT ;EP

 K BRNSORT,BRNSORV,BRNQUIT

 I BRNCTYP="D"!(BRNCTYP="L"),'$D(^BRNRPT(BRNRPT,12)) W !!,"NO PRINT FIELDS SELECTED!!",$C(7),$C(7) S BRNQUIT=1 Q

 S BRNSORT=""

 D SHOWR^BRNRUS

 S BRNCNTL="R" D ^BRNRU2 K BRNCNTL

 I '$D(BRNSORV) S BRNQUIT=1 Q

 Q:BRNCTYP'="D"

PAGE ;

 K BRNSPAG

 Q:BRNCTYP'="D"

 S DIR(0)="Y",DIR("A")="Do you want a separate page for each "_BRNSORV,DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G SORT

 S BRNSPAG=Y,DIE="^BRNRPT(",DA=BRNRPT,DR=".04///"_BRNSPAG D ^DIE K DA,DR,DIE

DELIMIT ;get filename for delimited output

 K BRNQUIT

 S BRNDELF="",BRNDELT=""

 W !!,"You have selected to create a '^' delimited output file.  You can have this"

 W !,"output file created as a text file in the pub directory, "

 W !,"OR you can have the delimited output display on your screen so that"

 W !,"you can do a file capture.  Keep in mind that if you choose to"

 W !,"do a screen capture you CANNOT Queue your report to run in the background!!",!!

 S DIR(0)="S^S:SCREEN - delimited output will display on screen for capture;F:FILE - delimited output will be written to a file in pub"

 S DIR("A")="Select output type",DIR("B")="S" KILL DA

 D ^DIR KILL DIR

 I $D(DIRUT) S BRNDELT="" Q

 S BRNDELT=Y

 Q:BRNDELT="S"

 S DIR(0)="F^1:40" W !,"Enter a filename for the delimited output (no more than 40 characters)"

 S DIR("A")="Filename" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G DELIMIT

 S BRNDELF=Y

 S BRNHDIR=$S($P($G(^AUTTSITE(1,1)),U,2)]"":$P(^AUTTSITE(1,1),U,2),1:$G(^XTV(8989.3,1,"DEV")))

 I $G(BRNHDIR)="" S BRNHDIR="/usr/spool/uucppublic/"

 W !!,"When the report is finished your delimited output will be found in the",!,BRNHDIR," directory.  The filename will be ",BRNDELF,".txt",!

BRNRU3    ; IHS/OIT/LJF - MISC REPORT LOGIC

 +1       ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003

 +2       ;IHS/OIT/LJF 10/25/2007 PATCH 1 Added routine

 +3       ;

 +4       ;

TITLE     ;EP; Custom Title for report

 +1        NEW Y,LENGTH,TITLE,DIE,DA,DR

 +2        IF "FTCP"[BRNCTYP

               QUIT

 +3        SET Y=$$READ^BRNU("Y","Would you like a custom title for this report","NO")

           IF Y=0

               QUIT

 +4        IF Y=U

               SET BRNQUIT=1

               QUIT

 +5        SET LENGTH=$SELECT(BRNTCW:BRNTCW-8,1:60)

 +6        SET TITLE=$$READ^BRNU("F^3:"_LENGTH,"Enter custom title",,"    Enter from 3 to "_LENGTH_" characters")

 +7        IF (Y=U)!(Y="")

               DO TITLE

               QUIT

 +8        SET DIE=90264.8

           SET DA=BRNRPT

           SET DR="1303///"_TITLE

           DO ^DIE

 +9        QUIT

 +10      ;

SAVE      ;EP; Ask user to save report logic

 +1       ;--- don't ask if already a pre-defined rpt

           IF $DATA(BRNCAND)

               QUIT

 +2       ;--- must be a detailed report to be saved

           IF BRNCTYP'="D"

               QUIT

 +3        IF '$$READ^BRNU("Y","Do you wish to SAVE this SEARCH/PRINT/SORT logic for future use","NO")

               QUIT

 +4       ;

 +5        NEW NAME,DIE,DR,DA

 +6        SET NAME=$$READ^BRNU("90264.8,.03","Enter NAME for this REPORT DEFINITION")

           IF $LENGTH(NAME)<3

               QUIT

 +7        SET DIE="^BRNRPT("

           SET DA=BRNRPT

           SET DR=".02////1;.03///"_NAME_";.05///"_BRNCTYP

           DO ^DIE

 +8        QUIT

 +9       ;

COUNT     ;EP; Counts and Subcount logic

 +1        WRITE !!

 +2        SET DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed Listing;L:Delimited Output File for use in Excel"

 +3        SET DIR("A")="     Choose Type of Report"

           SET DIR("B")="D"

           DO ^DIR

           KILL DIR

           WRITE !!

 +4        IF $DATA(DUOUT)

               SET DIRUT=1

 +5        IF $DATA(DIRUT)

               SET BRNQUIT=1

               QUIT

 +6        SET BRNCTYP=Y

 +7        IF BRNCTYP="T"

               SET $PIECE(^BRNRPT(BRNRPT,0),U,5)="T"

               SET BRNSORT=1

               SET BRNSORV="Patient Name"

               QUIT

 +8        IF BRNCTYP="D"

               DO PRINT

               IF $DATA(BRNQUIT)

                   QUIT

               DO SORT

               QUIT

 +9        IF BRNCTYP="L"

               Begin DoDot:1

 +10               WRITE !!,"You have selected to create a delimited output file, you will be"

 +11               WRITE !,"asked to select the print items, the sort item and then to name the"

 +12               WRITE !,"output file.",!!

 +13               KILL DIR

                   SET DIR(0)="Y"

                   SET DIR("A")="Do you wish to continue"

                   SET DIR("B")="Y"

                   KILL DA

                   DO ^DIR

                   KILL DIR

 +14               IF $DATA(DIRUT)

                       SET BRNQUIT=1

                       QUIT

 +15               IF 'Y

                       SET BRNQUIT=1

                       QUIT

 +16               DO PRINT

                   IF $DATA(BRNQUIT)

                       QUIT

                   SET $PIECE(^BRNRPT(BRNRPT,0),U,5)="F"

                   Begin DoDot:2

                   End DoDot:2

                   IF $DATA(BRNQUIT)

                       QUIT

 +17               DO SORT

 +18               DO DELIMIT

 +19               IF BRNDELT=""

                       SET BRNQUIT=1

               End DoDot:1

               QUIT

 +20       IF $GET(BRNQUIT)

               QUIT

 +21       DO SORT

 +22       QUIT

 +23      ;

PRINT     ;

 +1        SET BRNCNTL="P"

 +2        DO ^BRNRU2

 +3        QUIT

 +4       ;

SORT      ;EP

 +1        KILL BRNSORT,BRNSORV,BRNQUIT

 +2        IF BRNCTYP="D"!(BRNCTYP="L")

               IF '$DATA(^BRNRPT(BRNRPT,12))

                   WRITE !!,"NO PRINT FIELDS SELECTED!!",$CHAR(7),$CHAR(7)

                   SET BRNQUIT=1

                   QUIT

 +3        SET BRNSORT=""

 +4        DO SHOWR^BRNRUS

 +5        SET BRNCNTL="R"

           DO ^BRNRU2

           KILL BRNCNTL

 +6        IF '$DATA(BRNSORV)

               SET BRNQUIT=1

               QUIT

 +7        IF BRNCTYP'="D"

               QUIT

PAGE      ;

 +1        KILL BRNSPAG

 +2        IF BRNCTYP'="D"

               QUIT

 +3        SET DIR(0)="Y"

           SET DIR("A")="Do you want a separate page for each "_BRNSORV

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +4        IF $DATA(DIRUT)

               GOTO SORT

 +5        SET BRNSPAG=Y

           SET DIE="^BRNRPT("

           SET DA=BRNRPT

           SET DR=".04///"_BRNSPAG

           DO ^DIE

           KILL DA,DR,DIE

 +6        QUIT

 +7       ;

DELIMIT   ;get filename for delimited output

 +1        KILL BRNQUIT

 +2        SET BRNDELF=""

           SET BRNDELT=""

 +3        WRITE !!,"You have selected to create a '^' delimited output file.  You can have this"

 +4        WRITE !,"output file created as a text file in the pub directory, "

 +5        WRITE !,"OR you can have the delimited output display on your screen so that"

 +6        WRITE !,"you can do a file capture.  Keep in mind that if you choose to"

 +7        WRITE !,"do a screen capture you CANNOT Queue your report to run in the background!!",!!

 +8        SET DIR(0)="S^S:SCREEN - delimited output will display on screen for capture;F:FILE - delimited output will be written to a file in pub"

 +9        SET DIR("A")="Select output type"

           SET DIR("B")="S"

           KILL DA

 +10       DO ^DIR

           KILL DIR

 +11       IF $DATA(DIRUT)

               SET BRNDELT=""

               QUIT

 +12       SET BRNDELT=Y

 +13       IF BRNDELT="S"

               QUIT

 +14       SET DIR(0)="F^1:40"

           WRITE !,"Enter a filename for the delimited output (no more than 40 characters)"

 +15       SET DIR("A")="Filename"

           KILL DA

           DO ^DIR

           KILL DIR

 +16       IF $DATA(DIRUT)

               GOTO DELIMIT

 +17       SET BRNDELF=Y

 +18       SET BRNHDIR=$SELECT($PIECE($GET(^AUTTSITE(1,1)),U,2)]"":$PIECE(^AUTTSITE(1,1),U,2),1:$GET(^XTV(8989.3,1,"DEV")))

 +19       IF $GET(BRNHDIR)=""

               SET BRNHDIR="/usr/spool/uucppublic/"

 +20       WRITE !!,"When the report is finished your delimited output will be found in the",!,BRNHDIR," directory.  The filename will be ",BRNDELF,".txt",!

 +21       QUIT

BRNRU3.m