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

Package: Accounts Receivable

Routine: RCDMCR1A


Information

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

Source Information

Source file <RCDMCR1A.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Accounts Receivable 4 RUN^RCDMCR1A  COLLECT^RCDMCR1B  ($$EXCEL,$$GETBEGDT,DEVICE,EXMSG,PAUSE,PAUSE2,ULINE)^RCDMCUT2  $$GETRDAY^RCMSITE  
Kernel 3 ^%ZISC  ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$STRIP^XLFSTR  

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 RCDMCR1 DEBT VALIDITY REPORT  RCDMCR1 DEBT VALIDITY TASK RPT  RCDMCR1A  

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

External References

Name Field # of Occurrence
^%ZISC RUN+15
RUN^RCDMCR1A MAIN+23, QUERPT+12
COLLECT^RCDMCR1B RUN+9
$$EXCEL^RCDMCUT2 MAIN+13
$$GETBEGDT^RCDMCUT2 MAIN+9
DEVICE^RCDMCUT2 MAIN+21
EXMSG^RCDMCUT2 MAIN+16
PAUSE^RCDMCUT2 CHKP+4
PAUSE2^RCDMCUT2 MAIN+24
ULINE^RCDMCUT2 REPORT+30, REPORT+37, HDR+9, HDR+14
$$GETRDAY^RCMSITE QUERPT+6
$$FMADD^XLFDT MAIN+9, QUERPT+10, RUN+5
$$FMTE^XLFDT MAIN+9, REPORT+3, WRLINE+13, WRLINE+14, WRLINE+15, WRLINE+18, WRLINE+19, WRLINE2+7, WRLINE2+9, WRLINE2+10
, WRLINE2+11, WRLINE2+14, HDR+6
$$NOW^XLFDT REPORT+3
$$STRIP^XLFSTR WRLINE+13, WRLINE+14, WRLINE+15, WRLINE+18, WRLINE+19

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J RUN+6!, RUN+16!, REPORT+7, REPORT+9, REPORT+11, REPORT+15, REPORT+16, REPORT+31, REPORT+32, REPORT+33
, REPORT+38, REPORT+39, REPORT+40

Label References

Name Line Occurrences
CHKP REPORT+28, REPORT+35, WRLINE+1
HDR REPORT+6, CHKP+4
REPORT RUN+13
WRLINE REPORT+21
WRLINE2 REPORT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT MAIN+1~, MAIN+11*, MAIN+21, QUERPT+1~, QUERPT+6*, QUERPT+8*, QUERPT+10*, RUN+5*, RUN+9, HDR+6
BILLNO REPORT+1~, REPORT+14*, REPORT+15*, REPORT+16, WRLINE+12, WRLINE2+8
CLOC REPORT+2~, REPORT+17*, WRLINE+8, WRLINE2+5
CNUM REPORT+2~, REPORT+17*, WRLINE+7, WRLINE2+4
DISCHDT REPORT+2~, REPORT+19*, WRLINE+15, WRLINE2+11
DMCREFDT REPORT+2~, REPORT+19*, WRLINE+18, WRLINE2+14
DMCVALID REPORT+2~, REPORT+19*, WRLINE+16, WRLINE2+12
DT MAIN+9, QUERPT+10, RUN+5
ELIG REPORT+2~, REPORT+17*, WRLINE+9, WRLINE2+6
ELIGDT REPORT+2~, REPORT+18*, WRLINE+10, WRLINE+19, WRLINE2+7
EXCEL MAIN+1~, MAIN+13*, MAIN+15, MAIN+16, MAIN+17, MAIN+21, QUERPT+1~, QUERPT+2*, RUN+17!, REPORT+21
, REPORT+22, HDR+11, HDR+16
FOOTER CHKP~, CHKP+3*, CHKP+4
FULLHDR REPORT+1~, REPORT+5*, REPORT+26*, HDR+9
GETBEGDT MAIN+1~, MAIN+9*, MAIN+10, MAIN+11
IEN REPORT+1~
IO RUN+11
IOF RUN+14, HDR+4
IOM HDR+9, HDR+14
IOSL CHKP+4
NAME REPORT+1~, REPORT+8*, REPORT+9*, REPORT+11, REPORT+15, REPORT+16, WRLINE+5, WRLINE2+2
NAMEPRT REPORT+1~, REPORT+13*, WRLINE+4, WRLINE+11*, WRLINE+19*, HDR+2*
NODE REPORT+1~, REPORT+16*, REPORT+17, REPORT+18, REPORT+19, REPORT+20
OPTDT REPORT+2~, REPORT+18*, WRLINE+14, WRLINE2+10
RCPAGE RUN+3~, RUN+7*, HDR+3*, HDR+7
RCSCR MAIN+1~, MAIN+21, QUERPT+1~, QUERPT+2*, RUN+14, RUN+17!, CHKP+4
RUNDATE REPORT+1~, REPORT+3*, HDR+5
RXDT REPORT+2~, REPORT+18*, WRLINE+13, WRLINE2+9
SSN REPORT+1~, REPORT+10*, REPORT+11*, REPORT+15, REPORT+16, WRLINE+6, WRLINE2+3
STATUS REPORT+1~, REPORT+20*, WRLINE+17, WRLINE2+13
STOPIT MAIN+1~, MAIN+4*, MAIN+21, MAIN+22, MAIN+24, QUERPT+1~, QUERPT+2*, RUN+9, RUN+10, REPORT+9
, REPORT+11, REPORT+15, REPORT+24, REPORT+28, REPORT+35, WRLINE+1, CHKP+4
TESTDATE RUN+17!
U MAIN+11, REPORT+17, REPORT+18, REPORT+19, REPORT+20, WRLINE2+2, WRLINE2+3, WRLINE2+4, WRLINE2+5, WRLINE2+6
, WRLINE2+7, WRLINE2+8, WRLINE2+9, WRLINE2+10, WRLINE2+11, WRLINE2+12, WRLINE2+13, HDR+17
>> ZTQUEUED MAIN+22, 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