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

Package: Accounts Receivable

Routine: RCDMCR8A


Information

RCDMCR8A ;ALB/YG - Pension Report Exempt Charge Reconciliation Report - Input/output; Jun 16, 2021@14:23

Source Information

Source file <RCDMCR8A.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
RUN ;Get data and Print it out
REPORT ;Print report
WRLINE ; Write the data formated report line
; Columns are - position, width, spacing (offset header by)
WRLINE2 ; Write the Excel report line
CHKP(FOOTER) ;Check for End of Page
HDR ;Print Report Header
ARSTAT(STOPIT) ;Chose AR status
MENU ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the Pension Exempt Charge Recon Report ***",!
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+26
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+27
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+31
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued. TASK = "_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: MAIN+44
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+12
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+15
Function Call: WRITE
  • Prompt: $E(NAME,1,23)
  • Line Location: WRLINE+16
Function Call: WRITE
  • Prompt: ?24,$E(NAME,1)_$E(SSN,$L(SSN)-3,$L(SSN))
  • Line Location: WRLINE+17
Function Call: WRITE
  • Prompt: ?31,$P(BILLNO,"/",1)
  • Line Location: WRLINE+18
Function Call: WRITE
  • Prompt: ?43,EXEMPTDT
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: ?43,$$STRIP^XLFSTR($$FMTE^XLFDT(EXEMPTDT,"8D")," ")
  • Line Location: WRLINE+20
Function Call: WRITE
  • Prompt: ?89,RXNUM
  • Line Location: WRLINE+25
Function Call: WRITE
  • Prompt: ?99,$E(RXNAM,1,22)
  • Line Location: WRLINE+26
Function Call: WRITE
  • Prompt: ?122,$E(STATUS,1,9)
  • Line Location: WRLINE+27
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE2+2
Function Call: WRITE
  • Prompt: NAME,U
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: $E(NAME,1)_$E(SSN,$L(SSN)-3,$L(SSN)),U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: $P(BILLNO,"/",1),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: EXEMPTDT,U,U,U,U,U,U,U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(EXEMPTDT,"9D")
  • Condition for execution: EXEMPTDT
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(PNTERMDT,"9D")
  • Condition for execution: PNTERMDT
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SERVDT,"9D")
  • Condition for execution: SERVDT
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(DISCHDT,"9D")
  • Condition for execution: DISCHDT
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")
  • Condition for execution: RXDT
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: RXNUM,U
  • Line Location: WRLINE2+12
Function Call: WRITE
  • Prompt: RXNAM,U
  • Line Location: WRLINE2+13
Function Call: WRITE
  • Prompt: STATUS,U
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"Pat/ID",U
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "Bill #",U,"EXMPTDT",U,"PenTermDt",U,"Med Care Date",U,"D/C Date",U,"RXFillDT",U,"RX #",U,"RX Name",U,"Status"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: @IOF,"Pension Exempt Charge Reconciliation Report -- Run Date: ",RUNDATE," --"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?122,"Page "_RCPAGE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Veteran Name",?24,"Pat/ID",?31,"Bill #",?43,"EXMPTDT",?52,"PenTermDt",?62,"MedC DT",?70,"D/C Date",?80,"RXFillDT",?89,"RX #",?99,"RX Name",?122,"Status"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?5,"1 - Active"
  • Line Location: MENU+1
Function Call: WRITE
  • Prompt: !,?5,"2 - Open"
  • Line Location: MENU+2
Function Call: WRITE
  • Prompt: !,?5,"3 - Suspended"
  • Line Location: MENU+3
Function Call: WRITE
  • Prompt: !,?5,"4 - Collected/Closed"
  • Line Location: MENU+4
Function Call: WRITE
  • Prompt: !,?5,"5 - IB On-Hold"
  • Line Location: MENU+5
Function Call: WRITE
  • Prompt: !,?5,"6 - Write-Off"
  • Line Location: MENU+6
Function Call: WRITE
  • Prompt: !,?5,"7 - ALL (Includes 1-6 and AR CANCELLATIONS)",!
  • Line Location: MENU+7
Info |  Source |  Entry Points |  Interaction Calls