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

Package: Accounts Receivable

Routine: RCDMCR3A


Information

RCDMCR3A ;HEC/SBW - DMC Rated Disability Eligibility Change Report ; 22/OCT/2007

Source Information

Source file <RCDMCR3A.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Accounts Receivable 4 RUN^RCDMCR3A  COLLECT^RCDMCR3B  ($$DATE,$$EXCEL,$$GETBEGDT,DEVICE,EXMSG,PAUSE,PAUSE2,ULINE)^RCDMCUT2  ($$GETRDAY,$$GETRDDAY)^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 RCDMCR3 RD ELIG CHANGE REPORT  RCDMCR3 RD ELIG CHANGE TASK  RCDMCR3A  

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^RCDMCR3A MAIN+29, QUERPT+22
COLLECT^RCDMCR3B RUN+9
$$DATE^RCDMCUT2 MAIN+6
$$EXCEL^RCDMCUT2 MAIN+19
$$GETBEGDT^RCDMCUT2 MAIN+13
DEVICE^RCDMCUT2 MAIN+27
EXMSG^RCDMCUT2 MAIN+22
PAUSE^RCDMCUT2 CHKP+4
PAUSE2^RCDMCUT2 MAIN+30
ULINE^RCDMCUT2 REPORT+46, HDR+11, HDR+16
$$GETRDAY^RCMSITE QUERPT+6
$$GETRDDAY^RCMSITE QUERPT+14
$$FMADD^XLFDT MAIN+13, QUERPT+10, QUERPT+18, QUERPT+20, RUN+5
$$FMTE^XLFDT MAIN+13, REPORT+4, WRLINE+11, WRLINE+16, WRLINE+19, WRLINE+20, WRLINE+21, WRLINE2+6, WRLINE2+9, WRLINE2+11
, WRLINE2+12, WRLINE2+13, HDR+7, HDR+9
$$NOW^XLFDT REPORT+4
$$STRIP^XLFSTR WRLINE+11, WRLINE+16, WRLINE+19, WRLINE+20, WRLINE+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the Rated Disability Eligibility Change Report ***"
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+24
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+14
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+8
Function Call: WRITE
  • Prompt: !!,"SUMMARY"
  • Line Location: REPORT+45
Function Call: WRITE
  • Prompt: !,"Total Number of unique veterans: ",$J($FN($G(^TMP($J,"RCDMCR3","SUM-VET")),",P"),13)
  • Line Location: REPORT+47
Function Call: WRITE
  • Prompt: !,"Total Number of Rated Disabilities: ",$J($FN($G(^TMP($J,"RCDMCR3","SUM-RD")),",P"),13)
  • Line Location: REPORT+48
Function Call: WRITE
  • Prompt: !,"Total Number of Bills: ",$J($FN($G(^TMP($J,"RCDMCR3","SUM-BILL")),",P"),13)
  • Line Location: REPORT+49
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+3
Function Call: WRITE
  • Prompt: $E(NAME,1,14)
  • Line Location: WRLINE+5
Function Call: WRITE
  • Prompt: ?15,SSN
  • Line Location: WRLINE+6
Function Call: WRITE
  • Prompt: ?21,CNUM
  • Line Location: WRLINE+7
Function Call: WRITE
  • Prompt: ?32,CLOC
  • Line Location: WRLINE+8
Function Call: WRITE
  • Prompt: ?38,$$STRIP^XLFSTR($$FMTE^XLFDT(CHGDT,"8D")," ")
  • Line Location: WRLINE+11
Function Call: WRITE
  • Prompt: ?46,$E(RDNAME,1,29)
  • Line Location: WRLINE+14
Function Call: WRITE
  • Prompt: ?77,RDSEXTRE
  • Line Location: WRLINE+15
Function Call: WRITE
  • Prompt: ?81,$$STRIP^XLFSTR($$FMTE^XLFDT(RDORGDT,"8D")," ")
  • Line Location: WRLINE+16
Function Call: WRITE
  • Prompt: ?89,BILLNO
  • Line Location: WRLINE+18
Function Call: WRITE
  • Prompt: ?101,$$STRIP^XLFSTR($$FMTE^XLFDT(RXDT,"8D")," ")
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: ?109,$$STRIP^XLFSTR($$FMTE^XLFDT(OPTDT,"8D")," ")
  • Line Location: WRLINE+20
Function Call: WRITE
  • Prompt: ?118,$$STRIP^XLFSTR($$FMTE^XLFDT(DISCHDT,"8D")," ")
  • Line Location: WRLINE+21
Function Call: WRITE
  • Prompt: ?126,$E(STATUS,1,6)
  • Line Location: WRLINE+22
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: $$FMTE^XLFDT(CHGDT,"9D")_U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: RDNAME_U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: RDLEXTRE_U
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RDORGDT,"9D")_U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: BILLNO_U
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")_U
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(OPTDT,"9D")_U
  • Line Location: WRLINE2+12
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(DISCHDT,"9D")_U
  • Line Location: WRLINE2+13
Function Call: WRITE
  • Prompt: STATUS_U
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: @IOF,"Rated Disability Eligibility Change Report -- Run Date: ",RUNDATE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: " -- Episode of Care Data from ",$$FMTE^XLFDT(BEGDT,"9D")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?122,"Page: "_RCPAGE
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?5,"RD Change Dates from ",$$FMTE^XLFDT(RCBEGDT,"9D")," to ",$$FMTE^XLFDT(RCENDDT,"9D")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?21,"Claim",?32,"Claim",?38,"RD Chg",?74,"Extre-",?81,"RD Orig",?89,"BILL",?101,"RX Fill",?109,"Outpat",?118,"Dischar"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"Veteran Name",?15,"SSN",?21,"Number",?32,"Loc.",?38,"Date",?46,"RD Name",?75,"mity",?81,"Date",?89,"Number",?101,"Date",?109,"Visit Dt",?118,"Date",?126,"Status"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"Claim #",U,"Claim Loc",U,"RD Chg Date",U,"RD Name",U,"Extremity",U,"RD Orig Eff Date",U,"Bill #",U,"RX Fill",U,"Oupat Visit Date",U,"Discharge Date",U,"Status"
  • Line Location: HDR+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J RUN+6!, RUN+16!, REPORT+8, REPORT+10, REPORT+12, REPORT+16, REPORT+21, REPORT+23, REPORT+27, REPORT+30
, REPORT+47, REPORT+48, REPORT+49

Label References

Name Line Occurrences
CHKP REPORT+44, WRLINE+1
HDR REPORT+7, CHKP+4
REPORT RUN+13
WRLINE REPORT+37
WRLINE2 REPORT+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT MAIN+16*, MAIN+27, QUERPT+1~, QUERPT+6*, QUERPT+8*, QUERPT+10*, RUN+5*, RUN+9, HDR+7
BILLNO REPORT+1~, REPORT+26*, REPORT+27*, REPORT+30, WRLINE+18, WRLINE2+10
CHGDT REPORT+1~, REPORT+15*, REPORT+16*, REPORT+21, REPORT+23, REPORT+27, REPORT+30, WRLINE+11, WRLINE2+6
CHGDTPRT REPORT+2~, REPORT+19*, WRLINE+10, WRLINE+12*, HDR+4*
CLOC REPORT+28~, REPORT+31*, WRLINE+8, WRLINE2+5
CNUM REPORT+28~, REPORT+31*, WRLINE+7, WRLINE2+4
DISCHDT REPORT+28~, REPORT+35*, WRLINE+21, WRLINE2+13
DT MAIN+13, QUERPT+10, QUERPT+18, QUERPT+20, RUN+5
EXCEL MAIN+1~, MAIN+19*, MAIN+21, MAIN+22, MAIN+23, MAIN+27, QUERPT+1~, QUERPT+2*, RUN+17!, REPORT+37
, REPORT+38, HDR+13, HDR+18
FOOTER CHKP~, CHKP+3*, CHKP+4
FULLHDR REPORT+1~, REPORT+6*, REPORT+42*, HDR+11
GETBEGDT MAIN+1~, MAIN+13*, MAIN+15, MAIN+16
IO RUN+11
IOF RUN+14, HDR+6
IOM HDR+11, HDR+16
IOSL CHKP+4
NAME REPORT+1~, REPORT+9*, REPORT+10*, REPORT+12, REPORT+16, REPORT+21, REPORT+23, REPORT+27, REPORT+30, WRLINE+5
, WRLINE2+2
NAMEPRT REPORT+2~, REPORT+14*, WRLINE+4, WRLINE+9*, HDR+4*
NODE REPORT+28~, REPORT+30*, REPORT+31, REPORT+32, REPORT+33, REPORT+34, REPORT+35, REPORT+36
OPTDT REPORT+28~, REPORT+34*, WRLINE+20, WRLINE2+12
RCBEGDT MAIN+1~, MAIN+9*, QUERPT+1~, QUERPT+18*, RUN+9, HDR+9
RCDAY QUERPT+1~, QUERPT+14*, QUERPT+16*, QUERPT+18
RCENDDT MAIN+1~, MAIN+9*, QUERPT+1~, QUERPT+20*, RUN+9, HDR+9
RCPAGE RUN+3~, RUN+7*, HDR+5*, HDR+8
RCSCR MAIN+1~, MAIN+27, QUERPT+1~, QUERPT+2*, RUN+14, RUN+17!, CHKP+4
RDDATE MAIN+1~, MAIN+6*, MAIN+8, MAIN+9
RDLEXTRE REPORT+28~, REPORT+32*, WRLINE2+8
RDNAME REPORT+1~, REPORT+20*, REPORT+21*, REPORT+23, REPORT+27, REPORT+30, WRLINE+14, WRLINE2+7
RDORGDT REPORT+28~, REPORT+33*, WRLINE+16, WRLINE2+9
RDPRT REPORT+2~, REPORT+25*, WRLINE+13, WRLINE+17*, HDR+4*
RDSEXTRE REPORT+1~, REPORT+22*, REPORT+23*, REPORT+27, REPORT+30, WRLINE+15
RUNDATE REPORT+1~, REPORT+4*, HDR+6
RXDT REPORT+28~, REPORT+34*, WRLINE+19, WRLINE2+11
SSN REPORT+1~, REPORT+11*, REPORT+12*, REPORT+16, REPORT+21, REPORT+23, REPORT+27, REPORT+30, WRLINE+6, WRLINE2+3
STATUS REPORT+1~, REPORT+29~, REPORT+36*, WRLINE+22, WRLINE2+14
STOPIT MAIN+1~, MAIN+4*, MAIN+27, MAIN+28, MAIN+30, QUERPT+1~, QUERPT+2*, RUN+9, RUN+10, REPORT+10
, REPORT+12, REPORT+16, REPORT+21, REPORT+23, REPORT+27, REPORT+40, REPORT+44, WRLINE+1, CHKP+4
TESTDATE RUN+17!
U MAIN+9, MAIN+16, REPORT+31, REPORT+32, REPORT+33, REPORT+34, REPORT+35, REPORT+36, WRLINE2+2, WRLINE2+3
, WRLINE2+4, WRLINE2+5, WRLINE2+6, WRLINE2+7, WRLINE2+8, WRLINE2+9, WRLINE2+10, WRLINE2+11, WRLINE2+12, WRLINE2+13
, WRLINE2+14, HDR+19
>> ZTQUEUED MAIN+28, 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