Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RCDMCR1A

Package: Accounts Receivable

Routine: RCDMCR1A


Information

RCDMCR1A ;HEC/SBW - DMC Debt Validity Report ;28/SEP/2007

Source Information

Source file <RCDMCR1A.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
QUERPT ; Initial Taskman Scheduled Queued processing
RUN ;Get data and Print it out
REPORT ;Print report
WRLINE ; Write the data formated report line
WRLINE2 ; Write the Excel report line
CHKP(FOOTER) ;Check for End of Page
HDR ;Print Report Header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the Debt Validity Report ***"
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+18
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+14
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+7
Function Call: WRITE
  • Prompt: !!,"SUMMARY - BILLS REFERRED TO DMC"
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: !,"Total Number of Bills Referred: ",$J($FN($G(^TMP($J,"RCDMCR1","SUM-BILL")),",P"),13)
  • Line Location: REPORT+31
Function Call: WRITE
  • Prompt: !,"Total Number of unique veterans referred: ",$J($FN($G(^TMP($J,"RCDMCR1","SUM-VET")),",P"),13)
  • Line Location: REPORT+32
Function Call: WRITE
  • Prompt: !,"Total Account Receivable Dollars referred: ",$J("$"_$FN($G(^TMP($J,"RCDMCR1","SUM-$")),",P"),13)
  • Line Location: REPORT+33
Function Call: WRITE
  • Prompt: !!,"SUMMARY - TOTAL BILLS"
  • Line Location: REPORT+36
Function Call: WRITE
  • Prompt: !,"Total Number of Bills: ",$J($FN($G(^TMP($J,"RCDMCR1","TOT-BILL")),",P"),13)
  • Line Location: REPORT+38
Function Call: WRITE
  • Prompt: !,"Total Number of unique veterans: ",$J($FN($G(^TMP($J,"RCDMCR1","TOT-VET")),",P"),13)
  • Line Location: REPORT+39
Function Call: WRITE
  • Prompt: !,"Total Account Receivable Dollars: ",$J("$"_$FN($G(^TMP($J,"RCDMCR1","TOT-$")),",P"),13)
  • Line Location: REPORT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+3
Function Call: WRITE
  • Prompt: $E(NAME,1,16)
  • Line Location: WRLINE+5
Function Call: WRITE
  • Prompt: ?18,SSN
  • Line Location: WRLINE+6
Function Call: WRITE
  • Prompt: ?25,CNUM
  • Line Location: WRLINE+7
Function Call: WRITE
  • Prompt: ?37,CLOC
  • Line Location: WRLINE+8
Function Call: WRITE
  • Prompt: ?44,ELIG
  • Line Location: WRLINE+9
Function Call: WRITE
  • Prompt: ?60,BILLNO
  • Line Location: WRLINE+12
Function Call: WRITE
  • Prompt: ?73,$$STRIP^XLFSTR($$FMTE^XLFDT(RXDT,"8D")," ")
  • Line Location: WRLINE+13
Function Call: WRITE
  • Prompt: ?83,$$STRIP^XLFSTR($$FMTE^XLFDT(OPTDT,"8D")," ")
  • Line Location: WRLINE+14
Function Call: WRITE
  • Prompt: ?92,$$STRIP^XLFSTR($$FMTE^XLFDT(DISCHDT,"8D")," ")
  • Line Location: WRLINE+15
Function Call: WRITE
  • Prompt: ?101,DMCVALID
  • Line Location: WRLINE+16
Function Call: WRITE
  • Prompt: ?110,$E(STATUS,1,9)
  • Line Location: WRLINE+17
Function Call: WRITE
  • Prompt: ?121,$$STRIP^XLFSTR($$FMTE^XLFDT(DMCREFDT,"8D")," ")
  • Line Location: WRLINE+18
Function Call: WRITE
  • Prompt: !?44,$$STRIP^XLFSTR($$FMTE^XLFDT(ELIGDT,"8D")," ")
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE2+1
Function Call: WRITE
  • Prompt: NAME_U
  • Line Location: WRLINE2+2
Function Call: WRITE
  • Prompt: SSN_U
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: CNUM_U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: CLOC_U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: ELIG_U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(ELIGDT,"9D")_U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: BILLNO_U
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")_U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(OPTDT,"9D")_U
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(DISCHDT,"9D")_U
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: DMCVALID_U
  • Line Location: WRLINE2+12
Function Call: WRITE
  • Prompt: STATUS_U
  • Line Location: WRLINE2+13
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(DMCREFDT,"9D")
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: @IOF,"DMC Debt Validity Report"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?40,"Run Date: ",RUNDATE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?72,"Episode of Care Data from ",$$FMTE^XLFDT(BEGDT,"9D")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?115,"Page: "_RCPAGE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?25,"Claim",?37,"Claim",?44,"Eligibility/",?60,"Bill",?73,"RX Fill/",?83,"Outpat",?92,"Dischar",?101,"DMC Debt",?121,"DMC Ref"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"Veteran Name",?18,"SSN",?25,"Number",?37,"Loc.",?44,"SC Eff. Date",?60,"Number",?73,"ReFill Dt",?83,"Visit Dt",?92,"Date",?101,"Valid",?110,"Status",?121,"Date"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,"Veteran Name",U,"SSN",U,"Claim #",U,"Claim Loc",U,"Eligibility",U,"SC Eff Date",U,"Bill #",U,"RX Fill",U,"Outpat Visit Date",U,"Discharge Date",U,"DMC Debt Valid",U,"Status",U,"DMC Refer Date"
  • Line Location: HDR+17
Info |  Source |  Entry Points |  Interaction Calls