Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  MES^XPDUTL  
Accounts Receivable 4 $$EXCEL^PRCACDRP  $$GETIB^RCDMCR4B  ($$PARENTC,$$PARENTE)^RCDMCR5B  ($$BILL,DIQ)^RCJIBFN2  
Registration 2 $$PRIORITY^DGENA  $$GET^DGENCDA  
VA FileMan 2 ^%DT  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Accounts Receivable 2 PRCA CD EXEMPT COPAY CHRG RPT  PRCACDRP  

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 ;

External References

Name Field # of Occurrence
^%DT BDT+4, EDT+1
^%ZIS EN+17
HOME^%ZIS EN+21
^%ZISC DQ+88
^%ZTLOAD EN+21
$$PRIORITY^DGENA DQ+14
$$GET^DGENCDA DQ+17
^DIR DQ+87, HEAD+2, EXCEL+20
$$EXCEL^PRCACDRP EN+12
$$GETIB^RCDMCR4B DQ+30
$$PARENTC^RCDMCR5B DQ+45
$$PARENTE^RCDMCR5B DQ+42, DQ+44
$$BILL^RCJIBFN2 DQ+27
DIQ^RCJIBFN2 DQ+29
$$FMTE^XLFDT DQ+64, DQ+66, DQ+67, DQ+78, DQ+80, DQ+81, HEAD+5, HEAD+6
$$NOW^XLFDT HEAD+5
MES^XPDUTL EN+22

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
Routine Call
  • DIR
  • Line Location:
    • DQ+87
    • HEAD+2
    • EXCEL+20
Routine Call
  • %ZIS
  • Line Location:
    • EN+17
Routine Call
  • %ZIS
  • Line Location:
    • EN+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DQ+58
^IB - [#350] DQ+10, DQ+12, DQ+44, DQ+45
^IB("D" DQ+8, DQ+9
^IBE(350.1 - [#350.1] DQ+51
^IBE(350.21 - [#350.21] DQ+71, DQ+85
^PRCA(430 - [#430] DQ+26

Label References

Name Line Occurrences
BDT EDT+3
DATE EN+11
DATEQ BDT+4, EDT+2
EDT EDT+2
EXMSG EN+13
HEAD DQ+6, DQ+73

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+2~, BDT+4*!, EDT+1*, DATEQ!
%DT("A" BDT+4*, EDT+1*
%DT("B" BDT+3*, EDT+1*
%ZIS EN+2~, EN+17*
ARSTAT DQ+2~, DQ+35*, DQ+72, DQ+86
CD DQ+2~, DQ+22*, DQ+25
CDDATE DQ+2~, DQ+21*, DQ+47, DQ+57
DFN DQ+2~, DQ+10*, DQ+14, DQ+17, DQ+58
DIR HEAD+1~, EXCEL+11~, EXCEL+21!
DIR("?" EXCEL+16*, EXCEL+17*, EXCEL+18*
DIR("A" EXCEL+13*
DIR("B" EXCEL+14*, EXCEL+15*
DIR(0 DQ+87*, HEAD+2*, EXCEL+12*
DIROUT HEAD+1~
DIRUT DQ+87, HEAD+1~, HEAD+2, EXCEL+11~, EXCEL+22
DTOUT HEAD+1~
DUOUT HEAD+1~
EOCDT DQ+2~, DQ+33*, DQ+49, DQ+57
FUND DQ+2~, DQ+54*
IBARBILL DQ+2~, DQ+27*, DQ+40, DQ+56
IBARDATA DQ+2~, DQ+28!
IBARDATA(430 DQ+35, DQ+54
IBARX DQ+2~, DQ+26*, DQ+27, DQ+29, DQ+35, DQ+40, DQ+54
IBBDT EN+2~, DQ+7*, DQ+8, DQ+49, HEAD+6, BDT+1*, BDT+5*, BDT+6*, EDT+1, EDT+3
IBDATA DQ+2~, DQ+30*, DQ+31, DQ+32, DQ+34, DQ+52, DQ+68, DQ+69, DQ+70, DQ+82
, DQ+83, DQ+84
IBDDT DQ+2~, DQ+8*, DQ+9, DQ+15
IBDG DQ+2~, DQ+16!, DQ+17*
IBDG("REVDTE" DQ+21, DQ+64, DQ+78
IBDG("VCD" DQ+22
IBDPT DQ+2~, DQ+58*, DQ+61, DQ+62, DQ+75, DQ+76
IBDT DQ+2~, DQ+15*, DQ+20, DQ+47, DQ+49
IBEDT EN+2~, EN+11, DQ+49, HEAD+6, BDT+1*, EDT+3*
IBEXCEL EN+2~, EN+12*, EN+13, EN+14, DQ+60, DQ+74, DQ+87, HEAD+2, HEAD+4, HEAD+9
, HEAD+12, EXCEL+14
IBL HEAD+1~, HEAD+12*
IBP DQ+2~, DQ+5*, DQ+87, HEAD+2, HEAD+3*, HEAD+5
IBQUIT DQ+2~, DQ+5*, DQ+8, DQ+9, DQ+87*, HEAD+2*
IBSTAT DQ+2~, DQ+34*, DQ+37, DQ+71, DQ+85
IBX DQ+2~, DQ+9*, DQ+10, DQ+30, DQ+42, DQ+44, DQ+45
IBZ DQ+2~, DQ+10*, DQ+11, DQ+12, DQ+15, DQ+26, DQ+34, DQ+38, DQ+42, DQ+44
, DQ+45, DQ+51, DQ+56, DQ+65, DQ+79
IO DQ
IO("Q" EN+18, EN+21!
IOF HEAD+5
IOM HEAD+12
IOSL DQ+73
IOST DQ+87, HEAD+2
MCDT DQ+2~, DQ+31*, DQ+33, DQ+59*, DQ+66, DQ+80
PAR DQ+2~, DQ+44*, DQ+45*
PARZ DQ+2~, DQ+44*, DQ+45*
POP EN+2~, EN+17
PRCAADMT DQ+3~, DQ+10*, DQ+13*, DQ+15, DQ+59
PRCAAR1 DQ+3~, DQ+10*, DQ+12*, DQ+13
PRGRP DQ+2~, DQ+14*, DQ+63, DQ+77
REAS DQ+2~, DQ+19*, DQ+40*, DQ+42*, DQ+47*, DQ+49*, DQ+51*, DQ+52*, DQ+54*, DQ+56*
, DQ+57*, DQ+61*, DQ+75*
RXDT DQ+2~, DQ+32*, DQ+33, DQ+67, DQ+81
U DQ+11, DQ+12, DQ+13, DQ+31, DQ+32, DQ+34, DQ+42, DQ+44, DQ+45, DQ+56
, DQ+68, DQ+69, DQ+70, DQ+71, DQ+76, DQ+77, DQ+78, DQ+79, DQ+80, DQ+81
, DQ+82, DQ+83, DQ+84, DQ+85, DQ+86, HEAD+10, HEAD+11
X HEAD+1~, EDT+1*, EDT+2
Y HEAD+1~, EXCEL+11~, EXCEL+23, BDT+4, BDT+5, EDT+2, EDT+3
ZTDESC EN+2~, EN+19*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN EN+2~, EN+19*
ZTSAVE EN+2~
ZTSAVE("IBBDT" EN+20*
ZTSAVE("IBEDT" EN+20*
ZTSAVE("IBEXCEL" EN+20*
ZTSK EN+2~, EN+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All