BARDYSV6.m

BARDYSV6 ; IHS/SD/SDR - DAYS TO COLLECTION detail print ; 02/09/2009

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

 ;IHS/SD/SDR - 1.8*28 - HEAT224215 - New routine to print comma-delimited detail report

 ;

 Q

 ;

PRNTDET ;EP

 S ESC=0

 S $P(EQUALS,"=",181)=""

 D VISHDR

 ;THESE ARE PAGE SUBTOTALS

 S (COLVISIT,COLWITBL,COLNUMBL,COLBILAM,COLCHKIN,COLCREDY,COLREVDY)=0

 S (COLTPBA,COLTPBX,COLTOPY,COLEARPY,COLLSTPY,COLTOTPS,PGCNT)=0

 S COLTOTPY=0  ;TOT PAY MADE

 S VISITIEN=0

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

 .S BARREC=$G(^XTMP("BARDYSVS",$J,"DAYS TO COL VISIT","DET",VISITIEN))

 .S:$D(BARY("CSV")) $P(BARREC,U,2)=$$MONTH^BARDYSPR(+$P($P(BARREC,U,2)," ",2))_" "_$P($P(BARREC,U,2)," ")  ;format to print MMM CCYY

 .S:$D(BARY("XML")) $P(BARREC,U,2)=+$P($P(BARREC,U,2)," ",1)_"-"_$P($P(BARREC,U,2)," ",2)_"-"_"01T00:00:00.000"  ;format to print MMM CCYY

 .S $P(BARREC,U,3)=$P($G(^AUTTLOC($P(BARREC,U,3),0)),U,2)  ;Location short name

 .I $D(BARY("CSV")) F I=4,5,7 S $P(BARREC,U,I)=$$CDT^BARDUTL($P(BARREC,U,I))  ;format dates

 .I $D(BARY("XML")) F I=4,5,7 S $P(BARREC,U,I)=$$XDT^BARDUTL($P(BARREC,U,I))  ;format dates

 .S BARBILLS=$P($G(BARREC),U,9)

 .I $TR(BARBILLS,";")'="" D

 ..F I=1:1:$L(BARBILLS,"~") D  ;pull out bills one at a time using second delimiter (~)

 ...S BARBILL=$P(BARBILLS,"~",I)

 ...I $D(BARY("CSV")) F J=2:2:10 S $P(BARBILL,";",J)=$P($$CDT^BARDUTL(+$P(BARBILL,";",J)),"@")  ;format bill dates

 ...I $D(BARY("XML")) F J=2:2:10 S $P(BARBILL,";",J)=$P($$XDT^BARDUTL(+$P(BARBILL,";",J)),"@")  ;format bill dates

 ...S:+$P(BARBILL,";",12) $P(BARBILL,";",12)=$P($G(^VA(200,$P(BARBILL,";",12),0)),U)  ;provider name

 ...S $P(BARBILLS,"~",I)=BARBILL

 .S $P(BARREC,U,9)=BARBILLS

 .;W !,BARREC

 .D ROWTOCOL^BARDYSV9(VISITIEN,BARREC)  ;IHS/DIT/CPC - 20180424 CR8345 HEAT224215

 D:$D(BARY("XML")) PRTXML^BARDYSV9

 D:$D(BARY("CSV")) PRTCSV^BARDYSVA

 Q

VISHDR ;EP -

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

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

 S BAR("LOC")=""

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

 D HD^BARRHD

 D:$G(BARY("SUMORDET"))="S" WHD^BARRHD

 ;W !,"VisitIEN^MonthYear^VisitLocation^VisitAdmitDate^DateCreatedPCC^NumDays^DateReviewed^NumDays^Bills(Bill#;ApprovalDate;NumDays;ExportDate;NumDays;FinalizedBatchDate;NumDays;FirstTransDate;NumDays;LastTransDate;NumDays;Provider;BilledAmount)"

 Q

 ;EOR - IHS/DIT/CPC 1.8*28

BARDYSV6  ; IHS/SD/SDR - DAYS TO COLLECTION detail print ; 02/09/2009

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

 +2       ;IHS/SD/SDR - 1.8*28 - HEAT224215 - New routine to print comma-delimited detail report

 +3       ;

 +4        QUIT 

 +5       ;

PRNTDET   ;EP

 +1        SET ESC=0

 +2        SET $PIECE(EQUALS,"=",181)=""

 +3        DO VISHDR

 +4       ;THESE ARE PAGE SUBTOTALS

 +5        SET (COLVISIT,COLWITBL,COLNUMBL,COLBILAM,COLCHKIN,COLCREDY,COLREVDY)=0

 +6        SET (COLTPBA,COLTPBX,COLTOPY,COLEARPY,COLLSTPY,COLTOTPS,PGCNT)=0

 +7       ;TOT PAY MADE

           SET COLTOTPY=0

 +8        SET VISITIEN=0

 +9        FOR 

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

               IF 'VISITIEN

                   QUIT 

               Begin DoDot:1

 +10               SET BARREC=$GET(^XTMP("BARDYSVS",$JOB,"DAYS TO COL VISIT","DET",VISITIEN))

 +11      ;format to print MMM CCYY

                   IF $DATA(BARY("CSV"))

                       SET $PIECE(BARREC,U,2)=$$MONTH^BARDYSPR(+$PIECE($PIECE(BARREC,U,2)," ",2))_" "_$PIECE($PIECE(BARREC,U,2)," ")

 +12      ;format to print MMM CCYY

                   IF $DATA(BARY("XML"))

                       SET $PIECE(BARREC,U,2)=+$PIECE($PIECE(BARREC,U,2)," ",1)_"-"_$PIECE($PIECE(BARREC,U,2)," ",2)_"-"_"01T00:00:00.000"

 +13      ;Location short name

                   SET $PIECE(BARREC,U,3)=$PIECE($GET(^AUTTLOC($PIECE(BARREC,U,3),0)),U,2)

 +14      ;format dates

                   IF $DATA(BARY("CSV"))

                       FOR I=4,5,7

                           SET $PIECE(BARREC,U,I)=$$CDT^BARDUTL($PIECE(BARREC,U,I))

 +15      ;format dates

                   IF $DATA(BARY("XML"))

                       FOR I=4,5,7

                           SET $PIECE(BARREC,U,I)=$$XDT^BARDUTL($PIECE(BARREC,U,I))

 +16               SET BARBILLS=$PIECE($GET(BARREC),U,9)

 +17               IF $TRANSLATE(BARBILLS,";")'=""

                       Begin DoDot:2

 +18      ;pull out bills one at a time using second delimiter (~)

                           FOR I=1:1:$LENGTH(BARBILLS,"~")

                               Begin DoDot:3

 +19                               SET BARBILL=$PIECE(BARBILLS,"~",I)

 +20      ;format bill dates

                                   IF $DATA(BARY("CSV"))

                                       FOR J=2:2:10

                                           SET $PIECE(BARBILL,";",J)=$PIECE($$CDT^BARDUTL(+$PIECE(BARBILL,";",J)),"@")

 +21      ;format bill dates

                                   IF $DATA(BARY("XML"))

                                       FOR J=2:2:10

                                           SET $PIECE(BARBILL,";",J)=$PIECE($$XDT^BARDUTL(+$PIECE(BARBILL,";",J)),"@")

 +22      ;provider name

                                   IF +$PIECE(BARBILL,";",12)

                                       SET $PIECE(BARBILL,";",12)=$PIECE($GET(^VA(200,$PIECE(BARBILL,";",12),0)),U)

 +23                               SET $PIECE(BARBILLS,"~",I)=BARBILL

                               End DoDot:3

                       End DoDot:2

 +24               SET $PIECE(BARREC,U,9)=BARBILLS

 +25      ;W !,BARREC

 +26      ;IHS/DIT/CPC - 20180424 CR8345 HEAT224215

                   DO ROWTOCOL^BARDYSV9(VISITIEN,BARREC)

               End DoDot:1

 +27       IF $DATA(BARY("XML"))

               DO PRTXML^BARDYSV9

 +28       IF $DATA(BARY("CSV"))

               DO PRTCSV^BARDYSVA

 +29       QUIT 

VISHDR    ;EP -

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

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

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

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

 +5        DO HD^BARRHD

 +6        IF $GET(BARY("SUMORDET"))="S"

               DO WHD^BARRHD

 +7       ;W !,"VisitIEN^MonthYear^VisitLocation^VisitAdmitDate^DateCreatedPCC^NumDays^DateReviewed^NumDays^Bills(Bill#;ApprovalDate;NumDays;ExportDate;NumDays;FinalizedBatchDate;NumDays;FirstTransDate;NumDays;LastTransDate;NumDays;Provider;BilledAmount)"

 +8        QUIT 

 +9       ;EOR - IHS/DIT/CPC 1.8*28