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

Package: Accounts Receivable

Routine: RCDMCR5A


Information

RCDMCR5A ;HAF/ASF - First Party Charge IB Cancellation Reconciliation Report - Input/output; Apr 9, 2019@21:06

Source Information

Source file <RCDMCR5A.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
EXCEL() ; - Returns whether to capture data for Excel report.
EXMSG ;message if sending to excel

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the First Party Charge IB Cancellation Reconciliation Report ***",!
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to be uploaded to an Excel spreadsheet format"
  • Line Location: MAIN+18
Function Call: WRITE
  • Prompt: !,"but you have chosen non-Excel format. Therefore, it is recommended that you"
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !,"adjust your screen display size and terminal settings to at least 150 characters"
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued. TASK = "_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: MAIN+39
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+13
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: $E(NAME,1,13)
  • Line Location: WRLINE+21
Function Call: WRITE
  • Prompt: ?14,SSN
  • Line Location: WRLINE+22
Function Call: WRITE
  • Prompt: ?25,BILLNO
  • Line Location: WRLINE+24
Function Call: WRITE
  • Prompt: ?37,$J("$"_$FN(CHGAMT,",",2),11)
  • Line Location: WRLINE+25
Function Call: WRITE
  • Prompt: ?49,APPR
  • Line Location: WRLINE+26
Function Call: WRITE
  • Prompt: ?56,RSC
  • Line Location: WRLINE+27
Function Call: WRITE
  • Prompt: ?82,RXNUM
  • Line Location: WRLINE+30
Function Call: WRITE
  • Prompt: ?92,$E(RXNAM,1,14)
  • Line Location: WRLINE+31
Function Call: WRITE
  • Prompt: ?107,$$STRIP^XLFSTR($$FMTE^XLFDT(CANCDT,"8D")," ")
  • Line Location: WRLINE+32
Function Call: WRITE
  • Prompt: ?115,$E(CANCREAS,1,16)
  • Line Location: WRLINE+33
Function Call: WRITE
  • Prompt: ?132,$E(CANCUSER,1,14)
  • Line Location: WRLINE+34
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE2+1
Function Call: WRITE
  • Prompt: $$EXOUT^RCDMCR4A(NAME),U
  • Line Location: WRLINE2+2
Function Call: WRITE
  • Prompt: $$EXOUT^RCDMCR4A(SSN),U
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: BILLNO,U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: "$",$FN(CHGAMT,",",2),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: APPR,U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: RSC,U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SERVDT,"9D")
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")
  • Line Location: WRLINE2+10
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: $$FMTE^XLFDT(CANCDT,"9D"),U
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: CANCREAS,U
  • Line Location: WRLINE2+15
Function Call: WRITE
  • Prompt: $$EXOUT^RCDMCR4A(CANCUSER)
  • Line Location: WRLINE2+16
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"Bill Number",U,"Charge Amount",U,"APPR",U,"RSC",U,"Medical Care Date",U,"RXFillDT",U
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "RX #",U,"RX Name",U,"IBCXLDT",U,"IB Cancellation Reason",U,"Cancelled By"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: @IOF,"First Party Charge IB Cancellation Reconciliation Report -- Run Date: ",RUNDATE," --"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?140,"Page "_RCPAGE
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?6,"Cancellation Dates from ",$$FMTE^XLFDT(CANBEGDT,"9D")," to ",$$FMTE^XLFDT(CANENDDT,"9D")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?42,"Charge",?63,"Medical",?115,"IB Cancellation"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !," Veteran Name",?17,"SSN",?25,"Bill Number",?42,"Amount",?50,"APPR",?56,"RSC",?62,"Care Date",?72,"RXFillDT",?84,"RX #",?95,"RX Name",?107,"IBCXLDT",?120,"Reason",?132,"Cancelled By"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+10
Function Call: WRITE
  • Prompt: !!,"This report may take a while to run. It is recommended that you Queue it."
  • Line Location: EXMSG+1
Function Call: WRITE
  • Prompt: !,"To capture as an Excel format, it is recommended that you queue this"
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !,"report to a spool device with margins of 256 and page length of 99999"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !,"(e.g. spoolname;256;99999). This should help avoid wrapping problems."
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !,"Another method would be to set up your terminal to capture the detail"
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !,"report data. On some terminals, this can be done by clicking on the"
  • Line Location: EXMSG+7
Function Call: WRITE
  • Prompt: !,"'Tools' menu above, then click on 'Capture Incoming Data' to save to"
  • Line Location: EXMSG+8
Function Call: WRITE
  • Prompt: !,"Desktop. To avoid undesired wrapping of the data saved to the file,"
  • Line Location: EXMSG+9
Function Call: WRITE
  • Prompt: !,"please enter '0;256;99999' at the 'DEVICE:' prompt."
  • Line Location: EXMSG+10
Info |  Source |  Entry Points |  Interaction Calls