Routine: APCLVL3

APCLVL3 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;LAB added help text to dir call

TITLE ;EP

 Q:"FTCP"[APCLCTYP

 K DIR,X,Y S DIR(0)="Y",DIR("A")="Would you like a custom title for this report",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) S APCLQUIT=1 Q

 Q:Y=0

 S APCLLENG=$S(APCLTCW:APCLTCW-8,1:60)

 I Y=1 K DIR,X,Y S DIR(0)="F^3:"_APCLLENG,DIR("A")="Enter custom title",DIR("?")="    Enter from 3 to "_APCLLENG_" characters" D ^DIR K DIR

 G:$D(DIRUT) TITLE

 S APCLTITL=Y

 S $P(^APCLVRPT(APCLRPT,13),U,3)=APCLTITL

SAVE ;EP

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

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

 S APCLSAVE=""

 K DIR,X,Y S DIR(0)="Y",DIR("A")="Do you wish to SAVE this "_$S('$D(APCLEP1):"SEARCH/",1:"")_"PRINT/SORT logic for future use",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 Q:$D(DIRUT)

 Q:'Y

 K DIR,X,Y S DIR(0)="9001003.8,.03",DIR("A")="Enter NAME for this REPORT DEFINITION" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 G:$D(DIRUT) SAVE

 S APCLNAME=Y

 S DIE="^APCLVRPT(",DA=APCLRPT,DR=".02////1;.03///"_APCLNAME_";.06///"_APCLPTVS_";.05///"_APCLCTYP S:$D(APCLEP1) DR=DR_";.09///"_APCLPACK D ^DIE K DIE,DA,DR

COUNT ;EP

 W !!

 S DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;C:Cohort/Template Save;D:Detailed "_$S(APCLPTVS="V":"Visit",1:"Patient")_" Listing"_$S(APCLPTVS="V":";F:Flat file of Area Database formatted records",1:"")

 S DIR(0)=DIR(0)_$S(APCLPTVS="V":";P:Unduplicated Patient Cohort/Template",1:"")

 S DIR(0)=DIR(0)_";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 APCLQUIT=1 Q

 S APCLCTYP=Y

 I APCLCTYP="F" D FLAT Q:$D(APCLQUIT)  S $P(^APCLVRPT(APCLRPT,0),U,5)="F" S:APCLPTVS="V" APCLSORT=19,APCLSORV="Visit Date" Q

 I APCLCTYP="T" S $P(^APCLVRPT(APCLRPT,0),U,5)="T" S:APCLPTVS="V" APCLSORT=19,APCLSORV="Visit Date" S:APCLPTVS="P" APCLSORT=1,APCLSORV="Patient Name" Q

 I APCLCTYP="D" D PRINT Q:$D(APCLQUIT)  D SORT Q

 I APCLCTYP="C"&(APCLPTVS="P") D ^APCLSTMP G:$D(APCLQUIT) COUNT D  Q

 .S $P(^APCLVRPT(APCLRPT,0),U,5)="C"

 .S:APCLPTVS="P" APCLSORT=1,APCLSORV="Patient Name"

 I APCLCTYP="C"&(APCLPTVS="V") D ^APCLSTMV G:$D(APCLQUIT) COUNT D  Q

 .S $P(^APCLVRPT(APCLRPT,0),U,5)="C"

 .S:APCLPTVS="V" APCLSORT=19,APCLSORV="Visit Date"

 I APCLCTYP="P" D ^APCLSTMP G:$D(APCLQUIT) COUNT D  Q

 .S $P(^APCLVRPT(APCLRPT,0),U,5)="P"

 .S APCLSORT=1,APCLSORV="Patient Name"

.Q

 I APCLCTYP="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 APCLQUIT=1 Q

 .I 'Y S APCLQUIT=1 Q

 .D PRINT Q:$D(APCLQUIT)  S $P(^APCLVRPT(APCLRPT,0),U,5)="F" D  Q:$D(APCLQUIT)

 .D SORT

 .D DELIMIT

 .I APCLDELT="" S APCLQUIT=1

 Q:$G(APCLQUIT)

 D SORT

PRINT ;

 S APCLCNTL="P"

 D ^APCLVL4

SORT ;EP

 K APCLSORT,APCLSORV,APCLQUIT

 I APCLCTYP="D"!(APCLCTYP="L"),'$D(^APCLVRPT(APCLRPT,12)) W !!,"NO PRINT FIELDS SELECTED!!",$C(7),$C(7) S APCLQUIT=1 Q

 S APCLSORT=""

 D SHOWR^APCLVLS

 S APCLCNTL="R" D ^APCLVL4 K APCLCNTL

 I '$D(APCLSORV) S APCLQUIT=1 Q

 Q:APCLCTYP'="D"

PAGE ;

 K APCLSPAG

 Q:APCLCTYP'="D"

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

 I $D(DIRUT) G SORT

 S APCLSPAG=Y,DIE="^APCLVRPT(",DA=APCLRPT,DR=".04///"_APCLSPAG D ^DIE K DA,DR,DIE

FLAT ;

 S APCLOUTF="APCL"_DUZ_"."

 S X2=$E(DT,1,3)_"0101",X1=DT D ^%DTC S APCLJD=X+1

 S APCLOUTF=APCLOUTF_APCLJD

 W !!,"I am going to create a file called ",APCLOUTF," which will reside in ",!,"the ",$S($P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",!

 W "Actually, the file will be placed in the same directory that the data export"

 W !,"globals are placed.  See your site manager for assistance in finding the file",!,"after it is created.  PLEASE jot down and remember the following file name:",!?15,"**********    ",APCLOUTF,"    **********",!

 W "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",!

 W !,"As a reminder, the records that are generated and placed in file ",APCLOUTF,!

 W !,"are in a standard, pre-defined record format.  For a definition of the format",!,"please see your user manual.",!

 S DIR(0)="Y",DIR("A")="Is everything ok?  Do you want to continue?",DIR("B")="Y" K DA D ^DIR K DIR

 I $D(DIRUT)!(Y'=1) S APCLQUIT=1 Q

 S DA=APCLRPT,DR=".12///"_APCLOUTF,DIE="^APCLVRPT(" D ^DIE

 K DIE,DA,DR

DELIMIT ;get filename for delimited output

 K APCLQUIT

 S APCLDELF="",APCLDELT=""

 W !!,"You have selected to create a '^' delimited output file.  You can have this",!,"output file created as a text file in the pub directory, ",!,"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",!,"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",DIR("A")="Select output type",DIR("B")="S" KILL DA D ^DIR KILL DIR

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

 S APCLDELT=Y

 Q:APCLDELT="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 APCLDELF=Y

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

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

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

APCLVL3   ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;LAB added help text to dir call

 +3       ;

 +4       ;

TITLE     ;EP

 +1        IF "FTCP"[APCLCTYP

               QUIT

 +2        KILL DIR,X,Y

           SET DIR(0)="Y"

           SET DIR("A")="Would you like a custom title for this report"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        IF $DATA(DIRUT)

               SET APCLQUIT=1

               QUIT

 +4        IF Y=0

               QUIT

 +5        SET APCLLENG=$SELECT(APCLTCW:APCLTCW-8,1:60)

 +6        IF Y=1

               KILL DIR,X,Y

               SET DIR(0)="F^3:"_APCLLENG

               SET DIR("A")="Enter custom title"

               SET DIR("?")="    Enter from 3 to "_APCLLENG_" characters"

               DO ^DIR

               KILL DIR

 +7        IF $DATA(DIRUT)

               GOTO TITLE

 +8        SET APCLTITL=Y

 +9        SET $PIECE(^APCLVRPT(APCLRPT,13),U,3)=APCLTITL

 +10       QUIT

SAVE      ;EP

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

           IF $DATA(APCLCAND)

               QUIT

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

           IF APCLCTYP'="D"

               QUIT

 +3        SET APCLSAVE=""

 +4        KILL DIR,X,Y

           SET DIR(0)="Y"

           SET DIR("A")="Do you wish to SAVE this "_$SELECT('$DATA(APCLEP1):"SEARCH/",1:"")_"PRINT/SORT logic for future use"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +5        IF $DATA(DIRUT)

               QUIT

 +6        IF 'Y

               QUIT

 +7        KILL DIR,X,Y

           SET DIR(0)="9001003.8,.03"

           SET DIR("A")="Enter NAME for this REPORT DEFINITION"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +8        IF $DATA(DIRUT)

               GOTO SAVE

 +9        SET APCLNAME=Y

 +10       SET DIE="^APCLVRPT("

           SET DA=APCLRPT

           SET DR=".02////1;.03///"_APCLNAME_";.06///"_APCLPTVS_";.05///"_APCLCTYP

           IF $DATA(APCLEP1)

               SET DR=DR_";.09///"_APCLPACK

           DO ^DIE

           KILL DIE,DA,DR

 +11       QUIT

COUNT     ;EP

 +1        WRITE !!

 +2        SET DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;C:Cohort/Template Save;D:Detailed "_$SELECT(APCLPTVS="V":"Visit",1:"Patient")_" Listing"_$SELECT(APCLPTVS="V":";F:Flat file of Area Database formatted records",1:"")

 +3        SET DIR(0)=DIR(0)_$SELECT(APCLPTVS="V":";P:Unduplicated Patient Cohort/Template",1:"")

 +4        SET DIR(0)=DIR(0)_";L:Delimited Output File for use in Excel"

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

           SET DIR("B")="D"

           DO ^DIR

           KILL DIR

           WRITE !!

 +6        IF $DATA(DUOUT)

               SET DIRUT=1

 +7        IF $DATA(DIRUT)

               SET APCLQUIT=1

               QUIT

 +8        SET APCLCTYP=Y

 +9        IF APCLCTYP="F"

               DO FLAT

               IF $DATA(APCLQUIT)

                   QUIT

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

               IF APCLPTVS="V"

                   SET APCLSORT=19

                   SET APCLSORV="Visit Date"

               QUIT

 +10       IF APCLCTYP="T"

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

               IF APCLPTVS="V"

                   SET APCLSORT=19

                   SET APCLSORV="Visit Date"

               IF APCLPTVS="P"

                   SET APCLSORT=1

                   SET APCLSORV="Patient Name"

               QUIT

 +11       IF APCLCTYP="D"

               DO PRINT

               IF $DATA(APCLQUIT)

                   QUIT

               DO SORT

               QUIT

 +12       IF APCLCTYP="C"&(APCLPTVS="P")

               DO ^APCLSTMP

               IF $DATA(APCLQUIT)

                   GOTO COUNT

               Begin DoDot:1

 +13               SET $PIECE(^APCLVRPT(APCLRPT,0),U,5)="C"

 +14               IF APCLPTVS="P"

                       SET APCLSORT=1

                       SET APCLSORV="Patient Name"

               End DoDot:1

               QUIT

 +15       IF APCLCTYP="C"&(APCLPTVS="V")

               DO ^APCLSTMV

               IF $DATA(APCLQUIT)

                   GOTO COUNT

               Begin DoDot:1

 +16               SET $PIECE(^APCLVRPT(APCLRPT,0),U,5)="C"

 +17               IF APCLPTVS="V"

                       SET APCLSORT=19

                       SET APCLSORV="Visit Date"

               End DoDot:1

               QUIT

 +18       IF APCLCTYP="P"

               DO ^APCLSTMP

               IF $DATA(APCLQUIT)

                   GOTO COUNT

               Begin DoDot:1

 +19               SET $PIECE(^APCLVRPT(APCLRPT,0),U,5)="P"

 +20               SET APCLSORT=1

                   SET APCLSORV="Patient Name"

 +21               QUIT

               End DoDot:1

               QUIT

 +22       IF APCLCTYP="L"

               Begin DoDot:1

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

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

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

 +26               KILL DIR

                   SET DIR(0)="Y"

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

                   SET DIR("B")="Y"

                   KILL DA

                   DO ^DIR

                   KILL DIR

 +27               IF $DATA(DIRUT)

                       SET APCLQUIT=1

                       QUIT

 +28               IF 'Y

                       SET APCLQUIT=1

                       QUIT

 +29               DO PRINT

                   IF $DATA(APCLQUIT)

                       QUIT

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

                   Begin DoDot:2

                   End DoDot:2

                   IF $DATA(APCLQUIT)

                       QUIT

 +30               DO SORT

 +31               DO DELIMIT

 +32               IF APCLDELT=""

                       SET APCLQUIT=1

               End DoDot:1

               QUIT

 +33       IF $GET(APCLQUIT)

               QUIT

 +34       DO SORT

 +35       QUIT

PRINT     ;

 +1        SET APCLCNTL="P"

 +2        DO ^APCLVL4

 +3        QUIT

SORT      ;EP

 +1        KILL APCLSORT,APCLSORV,APCLQUIT

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

               IF '$DATA(^APCLVRPT(APCLRPT,12))

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

                   SET APCLQUIT=1

                   QUIT

 +3        SET APCLSORT=""

 +4        DO SHOWR^APCLVLS

 +5        SET APCLCNTL="R"

           DO ^APCLVL4

           KILL APCLCNTL

 +6        IF '$DATA(APCLSORV)

               SET APCLQUIT=1

               QUIT

 +7        IF APCLCTYP'="D"

               QUIT

PAGE      ;

 +1        KILL APCLSPAG

 +2        IF APCLCTYP'="D"

               QUIT

 +3        SET DIR(0)="Y"

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

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +4        IF $DATA(DIRUT)

               GOTO SORT

 +5        SET APCLSPAG=Y

           SET DIE="^APCLVRPT("

           SET DA=APCLRPT

           SET DR=".04///"_APCLSPAG

           DO ^DIE

           KILL DA,DR,DIE

 +6        QUIT

FLAT      ;

 +1        SET APCLOUTF="APCL"_DUZ_"."

 +2        SET X2=$EXTRACT(DT,1,3)_"0101"

           SET X1=DT

           DO ^%DTC

           SET APCLJD=X+1

 +3        SET APCLOUTF=APCLOUTF_APCLJD

 +4        WRITE !!,"I am going to create a file called ",APCLOUTF," which will reside in ",!,"the ",$SELECT($PIECE(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",!

 +5        WRITE "Actually, the file will be placed in the same directory that the data export"

 +6        WRITE !,"globals are placed.  See your site manager for assistance in finding the file",!,"after it is created.  PLEASE jot down and remember the following file name:",!?15,"**********    ",APCLOUTF,"    **********",!

 +7        WRITE "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",!

 +8        WRITE !,"As a reminder, the records that are generated and placed in file ",APCLOUTF,!

 +9        WRITE !,"are in a standard, pre-defined record format.  For a definition of the format",!,"please see your user manual.",!

 +10       SET DIR(0)="Y"

           SET DIR("A")="Is everything ok?  Do you want to continue?"

           SET DIR("B")="Y"

           KILL DA

           DO ^DIR

           KILL DIR

 +11       IF $DATA(DIRUT)!(Y'=1)

               SET APCLQUIT=1

               QUIT

 +12       SET DA=APCLRPT

           SET DR=".12///"_APCLOUTF

           SET DIE="^APCLVRPT("

           DO ^DIE

 +13       KILL DIE,DA,DR

 +14       QUIT

DELIMIT   ;get filename for delimited output

 +1        KILL APCLQUIT

 +2        SET APCLDELF=""

           SET APCLDELT=""

 +3        WRITE !!,"You have selected to create a '^' delimited output file.  You can have this",!,"output file created as a text file in the pub directory, ",!,"OR you can have the delimited output display on your screen so that"

 +4        WRITE !,"you can do a file capture.  Keep in mind that if you choose to",!,"do a screen capture you CANNOT Queue your report to run in the background!!",!!

 +5        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"

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

           SET DIR("B")="S"

           KILL DA

           DO ^DIR

           KILL DIR

 +6        IF $DATA(DIRUT)

               SET APCLDELT=""

               QUIT

 +7        SET APCLDELT=Y

 +8        IF APCLDELT="S"

               QUIT

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

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

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

           KILL DA

           DO ^DIR

           KILL DIR

 +11       IF $DATA(DIRUT)

               GOTO DELIMIT

 +12       SET APCLDELF=Y

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

 +14       IF $GET(APCLHDIR)=""

               SET APCLHDIR="/usr/spool/uucppublic/"

 +15       WRITE !!,"When the report is finished your delimited output will be found in the",!,APCLHDIR," directory.  The filename will be ",APCLDELF,".txt",!

 +16       QUIT

APCLVL3.m