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

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 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
Info |  Source |  Entry Points |  Interaction Calls