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: RCDMCR2A

Package: Accounts Receivable

Routine: RCDMCR2A


Information

RCDMCR2A ;HEC/SBW - DMC Debt Validity Management Report ;9/Oct/2007

Source Information

Source file <RCDMCR2A.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
SUMRPT ;Print Summary report (No detailed data)
TOTSUM ;Print Total Summary
VALSUM ;Print Summary Total by DMC Debt Valid value

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the DMC Debt Validity Management Report ***"
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !?5,"It is recommended that you Queue this report to a"
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !?5,"device that is 132 characters wide.",!
  • Line Location: MAIN+21
Function Call: WRITE
  • Prompt: !?5,"It is recommended that you Queue this report to run.",!
  • Line Location: MAIN+23
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+16
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+3
Function Call: WRITE
  • Prompt: $E(NAME,1,20)
  • Line Location: WRLINE+5
Function Call: WRITE
  • Prompt: ?22,SSN
  • Line Location: WRLINE+6
Function Call: WRITE
  • Prompt: ?30,CNUM
  • Line Location: WRLINE+7
Function Call: WRITE
  • Prompt: ?42,CLOC
  • Line Location: WRLINE+8
Function Call: WRITE
  • Prompt: ?50,BILLNO
  • Line Location: WRLINE+10
Function Call: WRITE
  • Prompt: ?63,$J("$"_$FN($P(PRINAMT,".",1),",P"),12)
  • Line Location: WRLINE+11
Function Call: WRITE
  • Prompt: ?77,$E(STATUS,1,13)
  • Line Location: WRLINE+12
Function Call: WRITE
  • Prompt: ?93,$E(EDITBY,1,20)
  • Line Location: WRLINE+13
Function Call: WRITE
  • Prompt: ?115,$$FMTE^XLFDT(EDITDT,"9D")
  • Line Location: WRLINE+14
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: BILLNO_U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: PRINAMT_U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: VALID_U
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: STATUS_U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: EDITBY_U
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(EDITDT,"9D")
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: @IOF,"DMC Debt Validity Management ",$$EXTTYPE^RCDMCUT2(RCTYPE)," Report"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?53,"Run Date: ",RUNDATE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?78,"Episode of Care Data from ",$$FMTE^XLFDT(BEGDT,"9D")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?120,"Page: "_RCPAGE
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: @IOF,"DMC Debt Validity Management ",$$EXTTYPE^RCDMCUT2(RCTYPE)," Report"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?70,"Page: "_RCPAGE
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"Run Date: ",RUNDATE
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?30,"Episode of Care Data from ",$$FMTE^XLFDT(BEGDT,"9D")
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !?5,"DMC Debt Valid Field Values = ",$$EXTDMC^RCDMCUT2(RCDMCVAL)
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !?30,"Claim",?42,"Claim",?50,"Bill",?65,"Receivable",?93,"DMC Debt Valid",?115,"DMC Debt Valid"
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: !,"Veteran Name",?22,"SSN",?30,"Number",?42,"Loc.",?50,"Number",?65,"Amount",?77,"Status",?93,"Edit By",?115,"Edit Date"
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: !,"*** Following data is for DMC Debt Valid Field Values of ",VALID," ***"
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"Claim #",U,"Claim Loc",U,"Bill #",U,"DMC Debt Valid",U,"Amount",U,"STATUS",U,"DMC Debt Valid Edit By",U,"DMC Debt Valid Edit Date"
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTSUM+7
Function Call: WRITE
  • Prompt: !,"SUMMARY TOTAL - ",$$EXTDMC^RCDMCUT2(RCDMCVAL)
  • Line Location: TOTSUM+10
Function Call: WRITE
  • Prompt: !,"Total Number of Bills:",?53,$J($FN($G(^TMP($J,"RCDMCR2","TOT","BILL")),",P"),13)
  • Line Location: TOTSUM+12
Function Call: WRITE
  • Prompt: !,"Total Number of unique veterans:",?53,$J($FN($G(^TMP($J,"RCDMCR2","TOT","VET")),",P"),13)
  • Line Location: TOTSUM+14
Function Call: WRITE
  • Prompt: !,"Total Account Receivable Dollars:",?53,$J("$"_$FN($P($G(^TMP($J,"RCDMCR2","TOT","$")),".",1),",P"),13)
  • Line Location: TOTSUM+16
Function Call: WRITE
  • Prompt: !,"Total Number of unique ",STAT," Bill Status:",?53,$J($FN($G(^TMP($J,"RCDMCR2","TOT-STAT",STAT)),",P"),13)
  • Line Location: TOTSUM+21
Function Call: WRITE
  • Prompt: !
  • Line Location: VALSUM+4
Function Call: WRITE
  • Prompt: !,"SUMMARY TOTAL FOR DMC Debt Valid = ",VALID
  • Line Location: VALSUM+7
Function Call: WRITE
  • Prompt: !,"Total Number of Bills (",VALID,"):",?63,$J($FN($G(^TMP($J,"RCDMCR2","SUM",VALID,"BILL")),",P"),13)
  • Line Location: VALSUM+9
Function Call: WRITE
  • Prompt: !,"Total Number of unique veterans (",VALID,"):",?63,$J($FN($G(^TMP($J,"RCDMCR2","SUM",VALID,"VET")),",P"),13)
  • Line Location: VALSUM+11
Function Call: WRITE
  • Prompt: !,"Total Account Receivable Dollars (",VALID,"):",?63,$J("$"_$FN($P($G(^TMP($J,"RCDMCR2","SUM",VALID,"$")),".",1),",P"),13)
  • Line Location: VALSUM+13
Function Call: WRITE
  • Prompt: !,"Total Number of unique ",STAT," Bill Status (",VALID,"):",?63,$J($FN($G(^TMP($J,"RCDMCR2","SUM-STAT",VALID,STAT)),",P"),13)
  • Line Location: VALSUM+18
Info |  Source |  Entry Points |  Interaction Calls