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

Package: Accounts Receivable

Routine: RCDMCR7A


Information

RCDMCR7A ;ALB/YG - 10-40% SC Medical Care Copayment Exempt Charge Reconciliation Report - Input/output; Apr 9, 2019@21:06

Source Information

Source file <RCDMCR7A.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
; 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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the 10-40% SC Medical Care Copayment Exempt Charge Recon Report ***",!
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+18
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+21
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued. TASK = "_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: MAIN+34
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+10
Function Call: WRITE
  • Prompt: $E(NAME,1,23)
  • Line Location: WRLINE+14
Function Call: WRITE
  • Prompt: ?24,SSN
  • Line Location: WRLINE+15
Function Call: WRITE
  • Prompt: ?38,SCPER,"%"
  • Line Location: WRLINE+17
Function Call: WRITE
  • Prompt: ?47,$P(BILLNO,"/",1)
  • Line Location: WRLINE+18
Function Call: WRITE
  • Prompt: ?59,$$STRIP^XLFSTR($$FMTE^XLFDT(EXEMPTDT,"8D")," ")
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: ?81,$E(STATUS,1,9)
  • 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: SCPER,"%",U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: $P(BILLNO,"/",1),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(EXEMPTDT,"9D"),U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SERVDT,"9D"),U
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: STATUS,U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"SC Percent",U,"Bill #",U,"EXMPTDT",U,"Med Care Date",U,"Status"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF,"10-40% SC Medical Care Copayment Exempt Charge Reconciliation Report -- Run Date: ",RUNDATE," --"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?122,"Page "_RCPAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Veteran Name",?24,"SSN",?35,"SC Percent",?47,"Bill #",?59,"EXMPTDT",?67,"Med Care Date",?81,"Status"
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls