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

Package: Accounts Receivable

Routine: PRCACDRP


Information

PRCACDRP ;ALB/YG - Catastrophically Disabled Exempt Copay Charge Report; July 25, 2019@21:06

Source Information

Source file <PRCACDRP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - this will produce a report of patient's with charges that are CD.
DQ
EXIT
HEAD ;
EXCEL() ; Export the report to MS Excel?
; Function return values:
; 0 - User selected "No" at prompt.
; 1 - User selected "Yes" at prompt.
; ^ - User aborted.
; This function allows the user to indicate whether the report should be
; printed in a format that could easily be imported into an Excel
; spreadsheet. If the user wants to print in EXCEL format, the variable
; IBEXCEL will be set to '1', otherwise IBEXCEL will be set to '0' for "No"
; or "^" to abort.
DATE ;
; -get beginning and ending dates
; -output in ibbdt - beginning date
; ibedt - ending date
BDT ; -get beginning date
EDT ; -get ending date
DATEQ
EXMSG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the Catastrophically Disabled Exempt Copay Charge Report ***"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"The Catastrophically Disabled legislation effective date is May 5, 2010."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"You should not enter a date prior to that date, any date entered before"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"that will be automatically changed to May 5, 2010."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"This report includes bills for charges without an IB Status of Cancelled"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"and with an AR Status of Active, Open, Suspended, Write-Off, Cancellation,"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Collected/Closed or with an IB Status of On-Hold, and an episode of care"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"date on or after the Catastrophically Disabled exemption effective date.",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that you Queue"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"this report to a device that is 132 characters wide."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,$E($P(IBDPT,"^"),1,20)
  • Line Location: DQ+61
Function Call: WRITE
  • Prompt: ?21,$P(IBDPT,"^",9)
  • Line Location: DQ+62
Function Call: WRITE
  • Prompt: ?31,PRGRP
  • Line Location: DQ+63
Function Call: WRITE
  • Prompt: ?33,$$FMTE^XLFDT($G(IBDG("REVDTE")),"2DZ")
  • Line Location: DQ+64
Function Call: WRITE
  • Prompt: ?42,$E($P($P(IBZ,"^",11),"-",2),1,8)
  • Line Location: DQ+65
Function Call: WRITE
  • Prompt: ?68,$E($P(IBDATA,U,6),1,8)
  • Line Location: DQ+68
Function Call: WRITE
  • Prompt: ?77,$E($P(IBDATA,U,7),1,20)
  • Line Location: DQ+69
Function Call: WRITE
  • Prompt: ?98,$J("$"_$FN($P(IBDATA,U,8),"",2),9)
  • Line Location: DQ+70
Function Call: WRITE
  • Prompt: ?108,$E($P($G(^IBE(350.21,IBSTAT,0)),U),1,10)
  • Line Location: DQ+71
Function Call: WRITE
  • Prompt: ?119,$E(ARSTAT,1,13)
  • Line Location: DQ+72
Function Call: WRITE
  • Prompt: !,"""",$P(IBDPT,"^"),""""
  • Line Location: DQ+75
Function Call: WRITE
  • Prompt: U,$P(IBDPT,"^",9)
  • Line Location: DQ+76
Function Call: WRITE
  • Prompt: U,PRGRP
  • Line Location: DQ+77
Function Call: WRITE
  • Prompt: U,$$FMTE^XLFDT($G(IBDG("REVDTE")),"2DZ")
  • Line Location: DQ+78
Function Call: WRITE
  • Prompt: U,$P($P(IBZ,"^",11),"-",2)
  • Line Location: DQ+79
Function Call: WRITE
  • Prompt: U,$P(IBDATA,U,6)
  • Line Location: DQ+82
Function Call: WRITE
  • Prompt: U,$P(IBDATA,U,7)
  • Line Location: DQ+83
Function Call: WRITE
  • Prompt: U,"$",$FN($P(IBDATA,U,8),"",2)
  • Line Location: DQ+84
Function Call: WRITE
  • Prompt: U,$P($G(^IBE(350.21,IBSTAT,0)),U)
  • Line Location: DQ+85
Function Call: WRITE
  • Prompt: U,ARSTAT
  • Line Location: DQ+86
Function Call: WRITE
  • Prompt: @IOF,!,"Cross-Servicing Catastrophically Disabled Exempt Copayment Charge Report --- Run Date: ",$$FMTE^XLFDT($$NOW^XLFDT,"9MP")," ---",?122,"Page: ",IBP
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,"Episode of Care Dates from ",$$FMTE^XLFDT(IBBDT,"9MP")," to ",$$FMTE^XLFDT(IBEDT,"9MP")
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !," Pri CD Medical RX Fill Charge"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"Patient Name SSN Grp Date Bill NO Care Date Date RX # RX Name Amount IB Status AR Status",!
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"Patient Name",U,"SSN",U,"Pri Grp",U,"CD Date",U,"Bill NO",U,"Medical Care Date",U,"RX Fill Date",U,"RX #",U
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: "RX Name",U,"Charge Amount",U,"IB Status",U,"AR Status",U
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+19
Function Call: WRITE
  • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
  • Line Location: EDT+3
Function Call: WRITE
  • Prompt: !,"This report may take a while to process. To capture as an Excel"
  • Line Location: EXMSG+1
Function Call: WRITE
  • Prompt: !,"format, it is recommended that you queue this report to a spool device"
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !,"with margins of 256 and page length of 99999 (e.g. spoolname;256;99999)."
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !,"This should help avoid wrapping problems."
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !!,"Another method would be to set up your terminal to capture the detail"
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !,"report data. On some terminals, this can be done by clicking on the "
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !,"'Tools' menu above, then click on 'Capture Incoming Data' to save to"
  • Line Location: EXMSG+7
Function Call: WRITE
  • Prompt: !,"Desktop. To avoid undesired wrapping of the data saved to the file,"
  • Line Location: EXMSG+8
Function Call: WRITE
  • Prompt: !,"please enter '0;256;99999' at the 'DEVICE:' prompt."
  • Line Location: EXMSG+9
Info |  Source |  Entry Points |  Interaction Calls