Routine: RCDMCR5A

RCDMCR5A ;HAF/ASF - First Party Charge IB Cancellation Reconciliation Report - Input/output; Apr 9, 2019@21:06

 ;;4.5;Accounts Receivable;**347,361**;Mar 20, 1995;Build 6

 ;;Per VA Directive 6402, this routine should not be modified.

 ;This routine is being implemented for the AR Cross-Referencing Project

 ;This report will assist users in reviewing first party charges receiving

 ;Integrated Billing (IB) cancellation for potential refund activities or charge

 ;cancellation accuracy, and to identify and monitor cancellation activity

 ;productivity so veteran customers can receive refunds due to them for

 ;retroactive eligibility exemptions.  The report provides data for first party

 ;charges receiving IB cancellation for a user defined bill cancellation

 ;date range.

MAIN ; Initial Interactive Processing

 N STOPIT,EXCEL,CANDATE,CANBEGDT,CANENDDT,BILLPAYS,RCSCR

 W !!,"*** Print the First Party Charge IB Cancellation Reconciliation Report ***",!

 S STOPIT=0 ; quit flag

 ;Prompt user for Date Range for Bill Cancellation date range

 S CANDATE=$$DATE2^RCDMCUT2("    Enter the Bill Cancellation Date Range: ")

 ;Quit is user up arrowed or timed out

 Q:CANDATE'>0

 S CANBEGDT=$P(CANDATE,U,2),CANENDDT=$P(CANDATE,U,3)

 ; Prompt user for Bills with Payments

 S BILLPAYS=$$BILLPAYS^RCDMCUT2

 Q:BILLPAYS="^"

 ; Prompt user if report will be Excel Delimited format:

 S EXCEL=$$EXCEL

 ;Quit if user up arrowed or timed out

 Q:EXCEL="^"

 D:EXCEL>0 EXMSG

 D:EXCEL'>0

 . W !!,"This report is designed to be uploaded to an Excel spreadsheet format"

 . W !,"but you have chosen non-Excel format.  Therefore, it is recommended that you"

 . W !,"adjust your screen display size and terminal settings to at least 150 characters"

  .W !,"wide to accommodate the screen output."

 ; Logic from DEVICE^RCDMCUT2 copied here

 N %ZIS,ZTRTN,ZTIO,ZTSAVE,ZTDESK,ZTSK,POP,ZTDESC

 S %ZIS="QM"

 W ! D ^%ZIS

 I POP Q

 S RCSCR=$S($E($G(IOST),1,2)="C-":1,1:0)

 I $D(IO("Q")) D  S STOPIT=1

 . S ZTRTN="RUN^RCDMCR5A"

 . S ZTIO=ION

 . S ZTSAVE("RCSCR")=""

 . S ZTSAVE("CANBEGDT")=""

 . S ZTSAVE("CANENDDT")=""

 . S ZTSAVE("BILLPAYS")=""

 . S ZTSAVE("EXCEL")=""

 . S ZTDESC="DMC 0-40 Percent SC Change Reconciliation Report Process"

 . D ^%ZTLOAD

 . W !!,$S($D(ZTSK):"Request Queued.  TASK = "_ZTSK,1:"REQUEST CANCELLED")

 . D HOME^%ZIS

 Q:STOPIT>0!($D(ZTQUEUED))

 D RUN^RCDMCR5A

 I 'STOPIT D PAUSE2^RCDMCUT2

 ; Currently, Taskman schedulable option is not being planned for this report

 ; If this is going to change later on, QUERPT^RCDMCR3A would be a good example

 ; of how to do such an option

QUERPT ; Initial Taskman Scheduled Queued processing

RUN ;Get data and Print it out

 ;If queued ensure you delete it from the TASKS file

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

 N RCPAGE

 S STOPIT=0

 K ^TMP($J,"RCDMCR5B")

 S RCPAGE=0

 ; Collect the data in ^TMP

 D COLLECT^RCDMCR5B(.STOPIT,CANBEGDT,CANENDDT,BILLPAYS)

 Q:$G(STOPIT)>0

 U IO

 ; Print Report using data in ^TMP

 D REPORT

 I 'RCSCR W !,@IOF

 D ^%ZISC

 K ^TMP($J,"RCDMCR5B")

 K EXCEL,RCSCR

REPORT ;Print report

 N RUNDATE,NAME,SSN,BILLNO,IBIEN,SKIP

 S RUNDATE=$$FMTE^XLFDT($$NOW^XLFDT,"9MP")

 D HDR

 I +$D(^TMP($J,"RCDMCR5B"))'>0 W !,"No data meets the criteria." Q

 K SKIP

 S NAME=""

 F  S NAME=$O(^TMP($J,"RCDMCR5B","DETAIL",NAME)) Q:NAME']""  D  Q:STOPIT

 . S SSN=""

 . F  S SSN=$O(^TMP($J,"RCDMCR5B","DETAIL",NAME,SSN)) Q:SSN']""  D  Q:STOPIT

 . . S BILLNO=""

 . . F  S BILLNO=$O(^TMP($J,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO)) Q:BILLNO']""  D  Q:STOPIT

 . . . S IBIEN=""

 . . . F  S IBIEN=$O(^TMP($J,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO,IBIEN)) Q:IBIEN']""  D  Q:STOPIT

 . . . . N NODE,CHGAMT,SERVDT,RXDT,RXNUM,RXNAM,CANCDT,CANCREAS,CANCUSER,APPR,RSC

 . . . . ; S ^TMP($J,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO,IBIEN)=SERVDT_U_RXDT_U_CHGAMT_U_RXNUM_U_RXNAM_U_CANCDT_U_CANCREAS_U_CANCUSER

 . . . . S NODE=$G(^TMP($J,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO,IBIEN))

 . . . . S SERVDT=$P(NODE,U,1)

 . . . . S RXDT=$P(NODE,U,2)

 . . . . S CHGAMT=$P(NODE,U,3)

 . . . . S RXNUM=$P(NODE,U,4)

 . . . . S RXNAM=$P(NODE,U,5)

 . . . . S CANCDT=$P(NODE,U,6)

 . . . . S CANCREAS=$P(NODE,U,7)

 . . . . S CANCUSER=$P(NODE,U,8)

 . . . . S APPR=$P(NODE,U,9)

 . . . . S RSC=$P(NODE,U,10) ;S ZZ=$G(ZZ)_", "_RSC

 . . . . I EXCEL'>0 D WRLINE Q

 . . . . I EXCEL>0 D WRLINE2 Q

WRLINE ; Write the data formated report line

 ;If Multiple Bills for Vet only print Name & SSN for 1st record on page

 ; Columns are - position, width, spacing (offset header by)

 ; Veteran Name - 0, 13, 1 (offset 1)

 ; SSN - 14, 10, 1 (offset 3)

 ; Bill Number - 25, 11, 1 (offset 1)

 ; Charge/Amount - 37, 11, 1 (offset 3,3)

 ; Appropriation Fund Number - 49, 6, 1 (offset 1)

 ; Revenue Source Code - 56, 5, 1 (offset 1)

 ; Medical/Care Date - 62, 8, 1 (offset 1, 0)

 ; RXFillDT - 72, 9, 1 (offset 0)

 ; RX # - 82, 9, 1 (offset 3)

 ; RX Name - 92, 14, 1 (offset 3)

 ; IBCXLDT - 107, 7, 1 (offset 0)

 ; IB Cancellation/Reason - 115, 16, 1 (Offset 0, 6)

 ; Cancelled By - 132, 14 (offset 1)

 D CHKP() Q:STOPIT

 ; Disable Skips for now per direction of customer with :0

W !

 I (NAME_SSN)'=$G(SKIP(1)) D

 . W $E(NAME,1,13) ; Veteran Name

 . W ?14,SSN ; SSN

 . S:0 SKIP(1)=NAME_SSN

 W ?25,BILLNO ; Bill Number

 W ?37,$J("$"_$FN(CHGAMT,",",2),11)

 W ?49,APPR

 W ?56,RSC

 W:SERVDT>0 ?62,$$STRIP^XLFSTR($$FMTE^XLFDT(SERVDT,"8D")," ")

 W:RXDT>0 ?72,$$STRIP^XLFSTR($$FMTE^XLFDT(RXDT,"8D")," ") ; Med Fill Date

 W ?82,RXNUM ; RX #

 W ?92,$E(RXNAM,1,14) ; RX Name

 W ?107,$$STRIP^XLFSTR($$FMTE^XLFDT(CANCDT,"8D")," ")

 W ?115,$E(CANCREAS,1,16)

 W ?132,$E(CANCUSER,1,14)

WRLINE2 ; Write the Excel report line

W !

 W $$EXOUT^RCDMCR4A(NAME),U

 W $$EXOUT^RCDMCR4A(SSN),U

 W BILLNO,U

 W "$",$FN(CHGAMT,",",2),U

 W APPR,U

 W RSC,U

 W $$FMTE^XLFDT(SERVDT,"9D")

W U

 I RXDT W $$FMTE^XLFDT(RXDT,"9D")

W U

 W RXNUM,U

 W RXNAM,U

 W $$FMTE^XLFDT(CANCDT,"9D"),U

 W CANCREAS,U

 W $$EXOUT^RCDMCR4A(CANCUSER)

CHKP(FOOTER) ;Check for End of Page

 ;INPUT:

 ;  FOOTER - Footer value. Optional. Default to 4 if nothing passed

 I $G(FOOTER)'>0 S FOOTER=4

 I $Y>(IOSL-FOOTER) D:RCSCR PAUSE^RCDMCUT2 Q:STOPIT  D HDR

HDR ;Print Report Header

 ;RUNDATE - Current Date in human readable format

 I EXCEL>0 D  Q

 . ;ASF 8/10/19

 . W !,"Veteran Name",U,"SSN",U,"Bill Number",U,"Charge Amount",U,"APPR",U,"RSC",U,"Medical Care Date",U,"RXFillDT",U

 . W "RX #",U,"RX Name",U,"IBCXLDT",U,"IB Cancellation Reason",U,"Cancelled By"

 S RCPAGE=RCPAGE+1 K SKIP

 W @IOF,"First Party Charge IB Cancellation Reconciliation Report  -- Run Date: ",RUNDATE," --"

 W ?140,"Page "_RCPAGE

 W !?6,"Cancellation Dates from ",$$FMTE^XLFDT(CANBEGDT,"9D")," to ",$$FMTE^XLFDT(CANENDDT,"9D")

W !

 ;Print to screen or printer

 W !,?42,"Charge",?63,"Medical",?115,"IB Cancellation"

 W !," Veteran Name",?17,"SSN",?25,"Bill Number",?42,"Amount",?50,"APPR",?56,"RSC",?62,"Care Date",?72,"RXFillDT",?84,"RX #",?95,"RX Name",?107,"IBCXLDT",?120,"Reason",?132,"Cancelled By"

 D ULINE^RCDMCUT2("=",$G(IOM))

EXCEL() ; - Returns whether to capture data for Excel report.

 ;INPUT:

 ;  None

 ; Output:

 ;   Returns 1 - YES (capture data) / 0 - NO (DO NOT capture data) /

 ;           "^" - Exit report

 N EXCEL,X,Y,DIR,DIRUT,DTOUT,DUOUT,DIROUT

 S EXCEL=0

 S DIR(0)="Y",DIR("B")="YES",DIR("T")=DTIME W !

 S DIR("A")="Do you want to capture report data for an Excel document"

 S DIR("?")="^D HEXC^RCDMCUT2"

 D ^DIR

 S:$D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXCEL="^"

 S:$G(Y)>0 EXCEL=1

 Q EXCEL

EXMSG ;message if sending to excel

 W !!,"This report may take a while to run. It is recommended that you Queue it."

 W !,"To capture as an Excel format, it is recommended that you queue this"

 W !,"report to a spool device with margins of 256 and page length of 99999"

 W !,"(e.g. spoolname;256;99999). This should help avoid wrapping problems."

W !

 W !,"Another method would be to set up your terminal to capture the detail"

 W !,"report data. On some terminals, this can be done by clicking on the"

 W !,"'Tools' menu above, then click on 'Capture Incoming Data' to save to"

 W !,"Desktop.  To avoid undesired wrapping of the data saved to the file,"

 W !,"please enter '0;256;99999' at the 'DEVICE:' prompt."

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCDMCR5A   8407     printed  Apr 23, 2025@17:58:04                                                                                                                                                                                                    Page 2

RCDMCR5A  ;HAF/ASF - First Party Charge IB Cancellation Reconciliation Report - Input/output; Apr 9, 2019@21:06

 +1       ;;4.5;Accounts Receivable;**347,361**;Mar 20, 1995;Build 6

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ;This routine is being implemented for the AR Cross-Referencing Project

 +5       ;

 +6       ;This report will assist users in reviewing first party charges receiving

 +7       ;Integrated Billing (IB) cancellation for potential refund activities or charge

 +8       ;cancellation accuracy, and to identify and monitor cancellation activity

 +9       ;productivity so veteran customers can receive refunds due to them for

 +10      ;retroactive eligibility exemptions.  The report provides data for first party

 +11      ;charges receiving IB cancellation for a user defined bill cancellation

 +12      ;date range.

MAIN      ; Initial Interactive Processing

 +1        NEW STOPIT,EXCEL,CANDATE,CANBEGDT,CANENDDT,BILLPAYS,RCSCR

 +2        WRITE !!,"*** Print the First Party Charge IB Cancellation Reconciliation Report ***",!

 +3       ; quit flag

           SET STOPIT=0

 +4       ;Prompt user for Date Range for Bill Cancellation date range

 +5        SET CANDATE=$$DATE2^RCDMCUT2("    Enter the Bill Cancellation Date Range: ")

 +6       ;Quit is user up arrowed or timed out

 +7        if CANDATE'>0

               QUIT

 +8        SET CANBEGDT=$PIECE(CANDATE,U,2)

           SET CANENDDT=$PIECE(CANDATE,U,3)

 +9       ; Prompt user for Bills with Payments

 +10       SET BILLPAYS=$$BILLPAYS^RCDMCUT2

 +11       if BILLPAYS="^"

               QUIT

 +12      ; Prompt user if report will be Excel Delimited format:

 +13       SET EXCEL=$$EXCEL

 +14      ;Quit if user up arrowed or timed out

 +15       if EXCEL="^"

               QUIT

 +16       if EXCEL>0

               DO EXMSG

 +17       if EXCEL'>0

               Begin DoDot:1

 +18               WRITE !!,"This report is designed to be uploaded to an Excel spreadsheet format"

 +19               WRITE !,"but you have chosen non-Excel format.  Therefore, it is recommended that you"

 +20               WRITE !,"adjust your screen display size and terminal settings to at least 150 characters"

 +21               WRITE !,"wide to accommodate the screen output."

               End DoDot:1

 +22      ; Logic from DEVICE^RCDMCUT2 copied here

 +23       NEW %ZIS,ZTRTN,ZTIO,ZTSAVE,ZTDESK,ZTSK,POP,ZTDESC

 +24       SET %ZIS="QM"

 +25       WRITE !

           DO ^%ZIS

 +26       IF POP

               QUIT

 +27       SET RCSCR=$SELECT($EXTRACT($GET(IOST),1,2)="C-":1,1:0)

 +28      ;

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

               Begin DoDot:1

 +30               SET ZTRTN="RUN^RCDMCR5A"

 +31               SET ZTIO=ION

 +32               SET ZTSAVE("RCSCR")=""

 +33               SET ZTSAVE("CANBEGDT")=""

 +34               SET ZTSAVE("CANENDDT")=""

 +35               SET ZTSAVE("BILLPAYS")=""

 +36               SET ZTSAVE("EXCEL")=""

 +37               SET ZTDESC="DMC 0-40 Percent SC Change Reconciliation Report Process"

 +38               DO ^%ZTLOAD

 +39               WRITE !!,$SELECT($DATA(ZTSK):"Request Queued.  TASK = "_ZTSK,1:"REQUEST CANCELLED")

 +40               DO HOME^%ZIS

               End DoDot:1

               SET STOPIT=1

 +41      ;

 +42       if STOPIT>0!($DATA(ZTQUEUED))

               QUIT

 +43       DO RUN^RCDMCR5A

 +44       IF 'STOPIT

               DO PAUSE2^RCDMCUT2

 +45       QUIT

 +46      ; Currently, Taskman schedulable option is not being planned for this report

 +47      ; If this is going to change later on, QUERPT^RCDMCR3A would be a good example

 +48      ; of how to do such an option

QUERPT    ; Initial Taskman Scheduled Queued processing

 +1        QUIT

 +2       ;

RUN       ;Get data and Print it out

 +1       ;If queued ensure you delete it from the TASKS file

 +2        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +3        NEW RCPAGE

 +4        SET STOPIT=0

 +5        KILL ^TMP($JOB,"RCDMCR5B")

 +6        SET RCPAGE=0

 +7       ; Collect the data in ^TMP

 +8        DO COLLECT^RCDMCR5B(.STOPIT,CANBEGDT,CANENDDT,BILLPAYS)

 +9        if $GET(STOPIT)>0

               QUIT

 +10       USE IO

 +11      ; Print Report using data in ^TMP

 +12       DO REPORT

 +13       IF 'RCSCR

               WRITE !,@IOF

 +14       DO ^%ZISC

 +15       KILL ^TMP($JOB,"RCDMCR5B")

 +16       KILL EXCEL,RCSCR

 +17       QUIT

 +18      ;

REPORT    ;Print report

 +1        NEW RUNDATE,NAME,SSN,BILLNO,IBIEN,SKIP

 +2       ;

 +3        SET RUNDATE=$$FMTE^XLFDT($$NOW^XLFDT,"9MP")

 +4        DO HDR

 +5        IF +$DATA(^TMP($JOB,"RCDMCR5B"))'>0

               WRITE !,"No data meets the criteria."

               QUIT

 +6        KILL SKIP

 +7        SET NAME=""

 +8        FOR

               SET NAME=$ORDER(^TMP($JOB,"RCDMCR5B","DETAIL",NAME))

               if NAME']""

                   QUIT

               Begin DoDot:1

 +9                SET SSN=""

 +10               FOR

                       SET SSN=$ORDER(^TMP($JOB,"RCDMCR5B","DETAIL",NAME,SSN))

                       if SSN']""

                           QUIT

                       Begin DoDot:2

 +11                       SET BILLNO=""

 +12                       FOR

                               SET BILLNO=$ORDER(^TMP($JOB,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO))

                               if BILLNO']""

                                   QUIT

                               Begin DoDot:3

 +13                               SET IBIEN=""

 +14                               FOR

                                       SET IBIEN=$ORDER(^TMP($JOB,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO,IBIEN))

                                       if IBIEN']""

                                           QUIT

                                       Begin DoDot:4

 +15                                       NEW NODE,CHGAMT,SERVDT,RXDT,RXNUM,RXNAM,CANCDT,CANCREAS,CANCUSER,APPR,RSC

 +16      ; S ^TMP($J,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO,IBIEN)=SERVDT_U_RXDT_U_CHGAMT_U_RXNUM_U_RXNAM_U_CANCDT_U_CANCREAS_U_CANCUSER

 +17                                       SET NODE=$GET(^TMP($JOB,"RCDMCR5B","DETAIL",NAME,SSN,BILLNO,IBIEN))

 +18                                       SET SERVDT=$PIECE(NODE,U,1)

 +19                                       SET RXDT=$PIECE(NODE,U,2)

 +20                                       SET CHGAMT=$PIECE(NODE,U,3)

 +21                                       SET RXNUM=$PIECE(NODE,U,4)

 +22                                       SET RXNAM=$PIECE(NODE,U,5)

 +23                                       SET CANCDT=$PIECE(NODE,U,6)

 +24                                       SET CANCREAS=$PIECE(NODE,U,7)

 +25                                       SET CANCUSER=$PIECE(NODE,U,8)

 +26                                       SET APPR=$PIECE(NODE,U,9)

 +27      ;S ZZ=$G(ZZ)_", "_RSC

                                           SET RSC=$PIECE(NODE,U,10)

 +28                                       IF EXCEL'>0

                                               DO WRLINE

                                               QUIT

 +29                                       IF EXCEL>0

                                               DO WRLINE2

                                               QUIT

                                       End DoDot:4

                                       if STOPIT

                                           QUIT

                               End DoDot:3

                               if STOPIT

                                   QUIT

                       End DoDot:2

                       if STOPIT

                           QUIT

               End DoDot:1

               if STOPIT

                   QUIT

 +30       QUIT

 +31      ;

WRLINE    ; Write the data formated report line

 +1       ;If Multiple Bills for Vet only print Name & SSN for 1st record on page

 +2       ;

 +3       ; Columns are - position, width, spacing (offset header by)

 +4       ; Veteran Name - 0, 13, 1 (offset 1)

 +5       ; SSN - 14, 10, 1 (offset 3)

 +6       ; Bill Number - 25, 11, 1 (offset 1)

 +7       ; Charge/Amount - 37, 11, 1 (offset 3,3)

 +8       ; Appropriation Fund Number - 49, 6, 1 (offset 1)

 +9       ; Revenue Source Code - 56, 5, 1 (offset 1)

 +10      ; Medical/Care Date - 62, 8, 1 (offset 1, 0)

 +11      ; RXFillDT - 72, 9, 1 (offset 0)

 +12      ; RX # - 82, 9, 1 (offset 3)

 +13      ; RX Name - 92, 14, 1 (offset 3)

 +14      ; IBCXLDT - 107, 7, 1 (offset 0)

 +15      ; IB Cancellation/Reason - 115, 16, 1 (Offset 0, 6)

 +16      ; Cancelled By - 132, 14 (offset 1)

 +17       DO CHKP()

           if STOPIT

               QUIT

 +18      ; Disable Skips for now per direction of customer with :0

 +19       WRITE !

 +20       IF (NAME_SSN)'=$GET(SKIP(1))

               Begin DoDot:1

 +21      ; Veteran Name

                   WRITE $EXTRACT(NAME,1,13)

 +22      ; SSN

                   WRITE ?14,SSN

 +23               if 0

                       SET SKIP(1)=NAME_SSN

               End DoDot:1

 +24      ; Bill Number

           WRITE ?25,BILLNO

 +25       WRITE ?37,$JUSTIFY("$"_$FNUMBER(CHGAMT,",",2),11)

 +26       WRITE ?49,APPR

 +27       WRITE ?56,RSC

 +28       if SERVDT>0

               WRITE ?62,$$STRIP^XLFSTR($$FMTE^XLFDT(SERVDT,"8D")," ")

 +29      ; Med Fill Date

           if RXDT>0

               WRITE ?72,$$STRIP^XLFSTR($$FMTE^XLFDT(RXDT,"8D")," ")

 +30      ; RX #

           WRITE ?82,RXNUM

 +31      ; RX Name

           WRITE ?92,$EXTRACT(RXNAM,1,14)

 +32       WRITE ?107,$$STRIP^XLFSTR($$FMTE^XLFDT(CANCDT,"8D")," ")

 +33       WRITE ?115,$EXTRACT(CANCREAS,1,16)

 +34       WRITE ?132,$EXTRACT(CANCUSER,1,14)

 +35       QUIT

 +36      ;

WRLINE2   ; Write the Excel report line

 +1        WRITE !

 +2        WRITE $$EXOUT^RCDMCR4A(NAME),U

 +3        WRITE $$EXOUT^RCDMCR4A(SSN),U

 +4        WRITE BILLNO,U

 +5        WRITE "$",$FNUMBER(CHGAMT,",",2),U

 +6        WRITE APPR,U

 +7        WRITE RSC,U

 +8        WRITE $$FMTE^XLFDT(SERVDT,"9D")

 +9        WRITE U

 +10       IF RXDT

               WRITE $$FMTE^XLFDT(RXDT,"9D")

 +11       WRITE U

 +12       WRITE RXNUM,U

 +13       WRITE RXNAM,U

 +14       WRITE $$FMTE^XLFDT(CANCDT,"9D"),U

 +15       WRITE CANCREAS,U

 +16       WRITE $$EXOUT^RCDMCR4A(CANCUSER)

 +17       QUIT

 +18      ;

CHKP(FOOTER) ;Check for End of Page

 +1       ;INPUT:

 +2       ;  FOOTER - Footer value. Optional. Default to 4 if nothing passed

 +3        IF $GET(FOOTER)'>0

               SET FOOTER=4

 +4        IF $Y>(IOSL-FOOTER)

               if RCSCR

                   DO PAUSE^RCDMCUT2

               if STOPIT

                   QUIT

               DO HDR

 +5        QUIT

 +6       ;

HDR       ;Print Report Header

 +1       ;RUNDATE - Current Date in human readable format

 +2        IF EXCEL>0

               Begin DoDot:1

 +3       ;ASF 8/10/19

 +4                WRITE !,"Veteran Name",U,"SSN",U,"Bill Number",U,"Charge Amount",U,"APPR",U,"RSC",U,"Medical Care Date",U,"RXFillDT",U

 +5                WRITE "RX #",U,"RX Name",U,"IBCXLDT",U,"IB Cancellation Reason",U,"Cancelled By"

               End DoDot:1

               QUIT

 +6        SET RCPAGE=RCPAGE+1

           KILL SKIP

 +7        WRITE @IOF,"First Party Charge IB Cancellation Reconciliation Report  -- Run Date: ",RUNDATE," --"

 +8        WRITE ?140,"Page "_RCPAGE

 +9        WRITE !?6,"Cancellation Dates from ",$$FMTE^XLFDT(CANBEGDT,"9D")," to ",$$FMTE^XLFDT(CANENDDT,"9D")

 +10       WRITE !

 +11      ;Print to screen or printer

 +12       WRITE !,?42,"Charge",?63,"Medical",?115,"IB Cancellation"

 +13       WRITE !," Veteran Name",?17,"SSN",?25,"Bill Number",?42,"Amount",?50,"APPR",?56,"RSC",?62,"Care Date",?72,"RXFillDT",?84,"RX #",?95,"RX Name",?107,"IBCXLDT",?120,"Reason",?132,"Cancelled By"

 +14       DO ULINE^RCDMCUT2("=",$GET(IOM))

 +15       QUIT

EXCEL()   ; - Returns whether to capture data for Excel report.

 +1       ;INPUT:

 +2       ;  None

 +3       ; Output:

 +4       ;   Returns 1 - YES (capture data) / 0 - NO (DO NOT capture data) /

 +5       ;           "^" - Exit report

 +6       ;

 +7        NEW EXCEL,X,Y,DIR,DIRUT,DTOUT,DUOUT,DIROUT

 +8       ;

 +9        SET EXCEL=0

 +10       SET DIR(0)="Y"

           SET DIR("B")="YES"

           SET DIR("T")=DTIME

           WRITE !

 +11       SET DIR("A")="Do you want to capture report data for an Excel document"

 +12       SET DIR("?")="^D HEXC^RCDMCUT2"

 +13       DO ^DIR

 +14       if $DATA(DIRUT)!$DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               SET EXCEL="^"

 +15       if $GET(Y)>0

               SET EXCEL=1

 +16      ;

 +17       QUIT EXCEL

EXMSG     ;message if sending to excel

 +1        WRITE !!,"This report may take a while to run. It is recommended that you Queue it."

 +2        WRITE !,"To capture as an Excel format, it is recommended that you queue this"

 +3        WRITE !,"report to a spool device with margins of 256 and page length of 99999"

 +4        WRITE !,"(e.g. spoolname;256;99999). This should help avoid wrapping problems."

 +5        WRITE !

 +6        WRITE !,"Another method would be to set up your terminal to capture the detail"

 +7        WRITE !,"report data. On some terminals, this can be done by clicking on the"

 +8        WRITE !,"'Tools' menu above, then click on 'Capture Incoming Data' to save to"

 +9        WRITE !,"Desktop.  To avoid undesired wrapping of the data saved to the file,"

 +10       WRITE !,"please enter '0;256;99999' at the 'DEVICE:' prompt."

RCDMCR5A.m