Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Accounts Receivable 4 RUN^RCDMCR2A  COLLECT^RCDMCR2B  ($$EXTDMC,$$EXTTYPE,$$GETBEGDT,$$GETDMC,$$GETTYPE,DEVICE,EXMSG,PAUSE,PAUSE2,ULINE)^RCDMCUT2  $$GETRDAY^RCMSITE  
Kernel 2 ^%ZISC  ($$FMADD,$$FMTE,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Accounts Receivable 3 RCDMCR2 DEBT VALID MGMT TASK  RCDMCR2 DEBT VALIDITY MGMT RPT  RCDMCR2A  

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

External References

Name Field # of Occurrence
^%ZISC RUN+17
RUN^RCDMCR2A MAIN+28, QUERPT+14
COLLECT^RCDMCR2B RUN+11
$$EXTDMC^RCDMCUT2 RUN+9, HDR+17, TOTSUM+10
$$EXTTYPE^RCDMCUT2 HDR+6, HDR+12
$$GETBEGDT^RCDMCUT2 MAIN+11
$$GETDMC^RCDMCUT2 MAIN+17
$$GETTYPE^RCDMCUT2 MAIN+15
DEVICE^RCDMCUT2 MAIN+26
EXMSG^RCDMCUT2 MAIN+24
PAUSE^RCDMCUT2 REPORT+34, CHKP+4
PAUSE2^RCDMCUT2 MAIN+29
ULINE^RCDMCUT2 HDR+20, HDR+27, TOTSUM+11, VALSUM+8
$$GETRDAY^RCMSITE QUERPT+8
$$FMADD^XLFDT MAIN+11, QUERPT+12, RUN+5
$$FMTE^XLFDT MAIN+11, REPORT+4, WRLINE+14, WRLINE2+11, HDR+8, HDR+15
$$NOW^XLFDT REPORT+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J RUN+6!, RUN+18!, REPORT+6, REPORT+12, REPORT+17, REPORT+19, REPORT+23, REPORT+24, REPORT+34, SUMRPT+9
, TOTSUM+12, TOTSUM+14, TOTSUM+16, TOTSUM+19, TOTSUM+21, VALSUM+9, VALSUM+11, VALSUM+13, VALSUM+16, VALSUM+18

Label References

Name Line Occurrences
CHKP WRLINE+1, TOTSUM+6, TOTSUM+9, TOTSUM+13, TOTSUM+15, TOTSUM+20, VALSUM+3, VALSUM+6, VALSUM+10, VALSUM+12
, VALSUM+17
HDR REPORT+6, REPORT+10, REPORT+15, CHKP+4, SUMRPT+2
REPORT RUN+15
SUMRPT REPORT+9
TOTSUM REPORT+36, SUMRPT+4, SUMRPT+11
VALSUM REPORT+32, SUMRPT+10
WRLINE REPORT+27
WRLINE2 REPORT+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT MAIN+1~, MAIN+13*, MAIN+26, QUERPT+1~, QUERPT+8*, QUERPT+10*, QUERPT+12*, RUN+5*, RUN+11, HDR+8
, HDR+15
BILLNO REPORT+1~, REPORT+22*, REPORT+23*, REPORT+24, WRLINE+10, WRLINE2+6
CLOC REPORT+2~, REPORT+25*, WRLINE+8, WRLINE2+5
CNUM REPORT+2~, REPORT+25*, WRLINE+7, WRLINE2+4
DT MAIN+11, QUERPT+12, RUN+5
EDITBY REPORT+2~, REPORT+26*, WRLINE+13, WRLINE2+10
EDITDT REPORT+2~, REPORT+26*, WRLINE+14, WRLINE2+11
FOOTER CHKP~, CHKP+3*, CHKP+4
FULLHDR REPORT+1~, REPORT+3*, REPORT+6*, REPORT+10*, REPORT+15*, REPORT+27*, REPORT+28*, REPORT+35*, HDR+19, HDR+22
, SUMRPT+1*, TOTSUM+5*
GETBEGDT MAIN+1~, MAIN+11*, MAIN+12, MAIN+13
IO RUN+13
IOF RUN+16, HDR+6, HDR+12
IOM HDR+20, HDR+27
IOSL CHKP+4
NAME REPORT+1~, REPORT+16*, REPORT+17*, REPORT+19, REPORT+23, REPORT+24, WRLINE+5, WRLINE2+2
NAMEPRT REPORT+1~, REPORT+21*, WRLINE+4, WRLINE+9*, HDR+2*
NODE REPORT+2~, REPORT+24*, REPORT+25, REPORT+26
PRINAMT REPORT+2~, REPORT+25*, WRLINE+11, WRLINE2+7
RCDMCVAL MAIN+1~, MAIN+17*, MAIN+18, MAIN+26, QUERPT+1~, QUERPT+4*, RUN+8, RUN+9, RUN+11, RUN+19!
, REPORT+31, HDR+17, HDR+28, SUMRPT+4, TOTSUM+10
RCDMCVAL( RUN+9*
RCDMCVAL("BLANK/NULL" RUN+8*
RCDMCVAL("NO" RUN+8*
RCDMCVAL("PENDING" RUN+8*
RCDMCVAL("YES" RUN+8*
RCPAGE RUN+3~, RUN+7*, HDR+3*, HDR+9, HDR+13
RCSCR MAIN+1~, MAIN+26, QUERPT+1~, QUERPT+4*, RUN+16, RUN+19!, REPORT+34, CHKP+4
RCTYPE MAIN+1~, MAIN+15*, MAIN+16, MAIN+19, MAIN+22, MAIN+24, MAIN+26, QUERPT+1~, QUERPT+4*, RUN+19!
, REPORT+9, REPORT+10, REPORT+15, REPORT+27, REPORT+28, REPORT+31, HDR+5, HDR+6, HDR+11, HDR+12
, HDR+19, HDR+24, HDR+30
RUNDATE REPORT+1~, REPORT+4*, HDR+7, HDR+14
SSN REPORT+1~, REPORT+18*, REPORT+19*, REPORT+23, REPORT+24, WRLINE+6, WRLINE2+3
STAT TOTSUM+1~, TOTSUM+18*, TOTSUM+19*, TOTSUM+21, VALSUM+15*, VALSUM+16*, VALSUM+18
STATUS REPORT+1~, REPORT+2~, REPORT+26*, WRLINE+12, WRLINE2+9
STOPIT MAIN+1~, MAIN+6*, MAIN+15, MAIN+16, MAIN+17, MAIN+18, MAIN+26, MAIN+27, MAIN+29, QUERPT+1~
, QUERPT+4*, RUN+11, RUN+12, REPORT+12, REPORT+17, REPORT+19, REPORT+23, WRLINE+1, CHKP+4, SUMRPT+9
, TOTSUM+3, TOTSUM+6, TOTSUM+9, TOTSUM+13, TOTSUM+15, TOTSUM+19, TOTSUM+20, VALSUM+2, VALSUM+3, VALSUM+6
, VALSUM+10, VALSUM+12, VALSUM+16, VALSUM+17
TESTDATE RUN+19!
U MAIN+13, REPORT+25, REPORT+26, WRLINE2+2, WRLINE2+3, WRLINE2+4, WRLINE2+5, WRLINE2+6, WRLINE2+7, WRLINE2+8
, WRLINE2+9, WRLINE2+10, HDR+31
VALID REPORT+1~, REPORT+11*, REPORT+12*, REPORT+17, REPORT+19, REPORT+23, REPORT+24, REPORT+34, WRLINE2+8, HDR+28
, SUMRPT+8*, SUMRPT+9*, VALSUM+7, VALSUM+9, VALSUM+11, VALSUM+13, VALSUM+16, VALSUM+18
>> ZTQUEUED MAIN+27, RUN+2
>> ZTREQ RUN+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All