BARDYSVA.m

BARDYSVA ; IHS/DIT/CPC - DAYS TO COLLECTION detail print ; 04/26/2018

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**28**;OCT 26,2005;Build 92

 ;IHS/DIT/CPC - 1.8*28 - HEAT224215 - New routine to print Spreadsheet XML detail report

 ;

 Q

 ;

PRTCSV ;Walks through data and outputs data elements

 S GLOBAL="",VISITIEN=0,PIECE=2,C=","

 D CSVCHDR

 F  S VISITIEN=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DET","COL",VISITIEN)) Q:+VISITIEN=0  D

 .S GLOBAL="^XTMP("_""""_"BARDYSVS"_""""_C_$J_C_""""_"DAYS TO COL VISIT"_""""_C_""""_"DET"_""""_C_""""_"COL"_""""_")"

 .D CSVROW(GLOBAL,VISITIEN,2)

 Q

CSVCHDR  ;Generate Column Headers 

 K COLHDR

 D CSVBANNR

 S I=""

 F  S I=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DET","COL",I)) Q:I=""  D

 .S J=""

 .F  S J=$O(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DET","COL",I,J)) Q:J=""  S COLHDR(J)=$P(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DET","COL",I,J),U,1)

 S I="",J=0

 F  S I=$O(COLHDR(I)) Q:I=""  D

 .S J=J+1

 .W """"_COLHDR(I)_"""",U

 W !

 Q

 ;

CSVROW(GLOBAL,ROW,PIECE) ;Generate Excel Delimited Row

 ;Example data - ^XTMP("BARDYSVS",4252,"DAYS TO COL VISIT","DET","COL",1495550,120) = "PROVIDER 1^DYER,ROBIN MARGARET^D^s65"

 ;Example GLOBAL - ^XTMP("BARDYSVS",4252,"DAYS TO COL VISIT","DET","COL")

 ;Example ROW - 149550

 ;Example PIECE - 2 

 S BARCOL=0

 S J=""

 F  S J=$O(@GLOBAL@(ROW,J)) Q:J=""  D

 .W $P(@GLOBAL@(ROW,J),U,PIECE)_U

 W !

 Q

CSVBANNR ; PRINTS THE REPORT BANNER

 S BAR("PG")=""

 S BAR("HD",0)=""

 S BAR("LOC")=""

 S BAR("OPT")="BAR RPT DAYS IN AR"

 D HD^BARRHD

 D NOW^%DTC

 S Y=%

 X ^DD("DD")

 D WRAP($P(Y,":",1,2))

 D WRAP("WARNING: Confidential Patient Information, Privacy Act Applies")

 K BAR("LINE")

 S $P(BAR("LINE"),"=",70)=""

 D WRAP(BAR("LINE"))

 D WRAP(BAR("HD",0))

 S BAR("TMPLVL")=0

 F  S BAR("TMPLVL")=$O(BAR("HD",BAR("TMPLVL"))) Q:'BAR("TMPLVL")&(BAR("TMPLVL")'=0)  D:$G(BAR("HD",BAR("TMPLVL")))]"" WRAP(BAR("HD",BAR("TMPLVL")))

 D WRAP(BAR("LINE"))

 K BAR("LINE")

 Q

WRAP(X) ;Method

 W """"_X_"""",!

 Q

BARDYSVA  ; IHS/DIT/CPC - DAYS TO COLLECTION detail print ; 04/26/2018

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**28**;OCT 26,2005;Build 92

 +2       ;IHS/DIT/CPC - 1.8*28 - HEAT224215 - New routine to print Spreadsheet XML detail report

 +3       ;

 +4        QUIT 

 +5       ;

PRTCSV    ;Walks through data and outputs data elements

 +1        SET GLOBAL=""

           SET VISITIEN=0

           SET PIECE=2

           SET C=","

 +2        DO CSVCHDR

 +3        FOR 

               SET VISITIEN=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DET","COL",VISITIEN))

               IF +VISITIEN=0

                   QUIT 

               Begin DoDot:1

 +4                SET GLOBAL="^XTMP("_""""_"BARDYSVS"_""""_C_$JOB_C_""""_"DAYS TO COL VISIT"_""""_C_""""_"DET"_""""_C_""""_"COL"_""""_")"

 +5                DO CSVROW(GLOBAL,VISITIEN,2)

               End DoDot:1

 +6        QUIT 

CSVCHDR   ;Generate Column Headers 

 +1        KILL COLHDR

 +2        DO CSVBANNR

 +3        SET I=""

 +4        FOR 

               SET I=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DET","COL",I))

               IF I=""

                   QUIT 

               Begin DoDot:1

 +5                SET J=""

 +6                FOR 

                       SET J=$ORDER(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DET","COL",I,J))

                       IF J=""

                           QUIT 

                       SET COLHDR(J)=$PIECE(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DET","COL",I,J),U,1)

               End DoDot:1

 +7        SET I=""

           SET J=0

 +8        FOR 

               SET I=$ORDER(COLHDR(I))

               IF I=""

                   QUIT 

               Begin DoDot:1

 +9                SET J=J+1

 +10               WRITE """"_COLHDR(I)_"""",U

               End DoDot:1

 +11       WRITE !

 +12       QUIT 

 +13      ;

CSVROW(GLOBAL,ROW,PIECE) ;Generate Excel Delimited Row

 +1       ;Example data - ^XTMP("BARDYSVS",4252,"DAYS TO COL VISIT","DET","COL",1495550,120) = "PROVIDER 1^DYER,ROBIN MARGARET^D^s65"

 +2       ;Example GLOBAL - ^XTMP("BARDYSVS",4252,"DAYS TO COL VISIT","DET","COL")

 +3       ;Example ROW - 149550

 +4       ;Example PIECE - 2 

 +5        SET BARCOL=0

 +6        SET J=""

 +7        FOR 

               SET J=$ORDER(@GLOBAL@(ROW,J))

               IF J=""

                   QUIT 

               Begin DoDot:1

 +8                WRITE $PIECE(@GLOBAL@(ROW,J),U,PIECE)_U

               End DoDot:1

 +9        WRITE !

 +10       QUIT 

CSVBANNR  ; PRINTS THE REPORT BANNER

 +1        SET BAR("PG")=""

 +2        SET BAR("HD",0)=""

 +3        SET BAR("LOC")=""

 +4        SET BAR("OPT")="BAR RPT DAYS IN AR"

 +5        DO HD^BARRHD

 +6        DO NOW^%DTC

 +7        SET Y=%

 +8        XECUTE ^DD("DD")

 +9        DO WRAP($PIECE(Y,":",1,2))

 +10       DO WRAP("WARNING: Confidential Patient Information, Privacy Act Applies")

 +11       KILL BAR("LINE")

 +12       SET $PIECE(BAR("LINE"),"=",70)=""

 +13       DO WRAP(BAR("LINE"))

 +14       DO WRAP(BAR("HD",0))

 +15       SET BAR("TMPLVL")=0

 +16       FOR 

               SET BAR("TMPLVL")=$ORDER(BAR("HD",BAR("TMPLVL")))

               IF 'BAR("TMPLVL")&(BAR("TMPLVL")'=0)

                   QUIT 

               IF $GET(BAR("HD",BAR("TMPLVL")))]""

                   DO WRAP(BAR("HD",BAR("TMPLVL")))

 +17       DO WRAP(BAR("LINE"))

 +18       KILL BAR("LINE")

 +19       QUIT 

WRAP(X)   ;Method

 +1        WRITE """"_X_"""",!

 +2        QUIT