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+85
^%ZTLOAD EN+21
$$PRIORITY^DGENA DQ+10
$$GET^DGENCDA DQ+13
^DIR DQ+84, HEAD+2, EXCEL+20
$$EXCEL^PRCACDRP EN+12
$$GETIB^RCDMCR4B DQ+26
$$PARENTC^RCDMCR5B DQ+41
$$PARENTE^RCDMCR5B DQ+38, DQ+40
$$BILL^RCJIBFN2 DQ+23
DIQ^RCJIBFN2 DQ+25
$$FMTE^XLFDT DQ+59, DQ+62, DQ+63, DQ+74, DQ+77, DQ+78, 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+56
Function Call: WRITE
  • Prompt: ?21,$P(IBDPT,"^",9)
  • Line Location: DQ+57
Function Call: WRITE
  • Prompt: ?31,PRGRP
  • Line Location: DQ+58
Function Call: WRITE
  • Prompt: ?33,$$FMTE^XLFDT($G(IBDG("REVDTE")),"2DZ")
  • Line Location: DQ+59
Function Call: WRITE
  • Prompt: ?42,$E($P($P(IBZ,"^",11),"-",2),1,8)
  • Line Location: DQ+60
Function Call: WRITE
  • Prompt: ?68,$E($P(IBDATA,U,6),1,8)
  • Line Location: DQ+64
Function Call: WRITE
  • Prompt: ?77,$E($P(IBDATA,U,7),1,20)
  • Line Location: DQ+65
Function Call: WRITE
  • Prompt: ?98,$J("$"_$FN($P(IBDATA,U,8),"",2),9)
  • Line Location: DQ+66
Function Call: WRITE
  • Prompt: ?108,$E($P($G(^IBE(350.21,IBSTAT,0)),U),1,10)
  • Line Location: DQ+67
Function Call: WRITE
  • Prompt: ?119,$E(ARSTAT,1,13)
  • Line Location: DQ+68
Function Call: WRITE
  • Prompt: !,"""",$P(IBDPT,"^"),""""
  • Line Location: DQ+71
Function Call: WRITE
  • Prompt: U,$P(IBDPT,"^",9)
  • Line Location: DQ+72
Function Call: WRITE
  • Prompt: U,PRGRP
  • Line Location: DQ+73
Function Call: WRITE
  • Prompt: U,$$FMTE^XLFDT($G(IBDG("REVDTE")),"2DZ")
  • Line Location: DQ+74
Function Call: WRITE
  • Prompt: U,$P($P(IBZ,"^",11),"-",2)
  • Line Location: DQ+75
Function Call: WRITE
  • Prompt: U,$P(IBDATA,U,6)
  • Line Location: DQ+79
Function Call: WRITE
  • Prompt: U,$P(IBDATA,U,7)
  • Line Location: DQ+80
Function Call: WRITE
  • Prompt: U,"$",$FN($P(IBDATA,U,8),"",2)
  • Line Location: DQ+81
Function Call: WRITE
  • Prompt: U,$P($G(^IBE(350.21,IBSTAT,0)),U)
  • Line Location: DQ+82
Function Call: WRITE
  • Prompt: U,ARSTAT
  • Line Location: DQ+83
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+84
    • 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+54
^IB - [#350] DQ+9, DQ+40, DQ+41
^IB("D" DQ+7, DQ+8
^IBE(350.1 - [#350.1] DQ+47
^IBE(350.21 - [#350.21] DQ+67, DQ+82
^PRCA(430 - [#430] DQ+22

Label References

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

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+31*, DQ+68, DQ+83
CD DQ+2~, DQ+18*, DQ+21
CDDATE DQ+2~, DQ+17*, DQ+43, DQ+53
DFN DQ+2~, DQ+9*, DQ+10, DQ+13, DQ+54
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+84*, HEAD+2*, EXCEL+12*
DIROUT HEAD+1~
DIRUT DQ+84, HEAD+1~, HEAD+2, EXCEL+11~, EXCEL+22
DTOUT HEAD+1~
DUOUT HEAD+1~
EOCDT DQ+2~, DQ+29*, DQ+45, DQ+53
FUND DQ+2~, DQ+50*
IBARBILL DQ+2~, DQ+23*, DQ+36, DQ+52
IBARDATA DQ+2~, DQ+24!
IBARDATA(430 DQ+31, DQ+50
IBARX DQ+2~, DQ+22*, DQ+23, DQ+25, DQ+31, DQ+36, DQ+50
IBBDT EN+2~, DQ+6*, DQ+7, DQ+45, HEAD+6, BDT+1*, BDT+5*, BDT+6*, EDT+1, EDT+3
IBDATA DQ+2~, DQ+26*, DQ+27, DQ+28, DQ+30, DQ+48, DQ+64, DQ+65, DQ+66, DQ+79
DQ+80, DQ+81
IBDDT DQ+2~, DQ+7*, DQ+8, DQ+11
IBDG DQ+2~, DQ+12!, DQ+13*
IBDG("REVDTE" DQ+17, DQ+59, DQ+74
IBDG("VCD" DQ+18
IBDPT DQ+2~, DQ+54*, DQ+56, DQ+57, DQ+71, DQ+72
IBDT DQ+2~, DQ+11*, DQ+16, DQ+43, DQ+45
IBEDT EN+2~, EN+11, DQ+45, HEAD+6, BDT+1*, EDT+3*
IBEXCEL EN+2~, EN+12*, EN+13, EN+14, DQ+55, DQ+70, DQ+84, HEAD+2, HEAD+4, HEAD+9
HEAD+12, EXCEL+14
IBL HEAD+1~, HEAD+12*
IBP DQ+2~, DQ+4*, DQ+84, HEAD+2, HEAD+3*, HEAD+5
IBQUIT DQ+2~, DQ+4*, DQ+7, DQ+8, DQ+84*, HEAD+2*
IBSTAT DQ+2~, DQ+30*, DQ+33, DQ+67, DQ+82
IBX DQ+2~, DQ+8*, DQ+9, DQ+26, DQ+38, DQ+40, DQ+41
IBZ DQ+2~, DQ+9*, DQ+11, DQ+22, DQ+30, DQ+34, DQ+38, DQ+40, DQ+41, DQ+47
DQ+52, DQ+60, DQ+75
IO DQ
IO("Q" EN+18, EN+21!
IOF HEAD+5
IOM HEAD+12
IOSL DQ+69
IOST DQ+84, HEAD+2
MCDT DQ+2~, DQ+27*, DQ+29, DQ+62, DQ+77
PAR DQ+2~, DQ+40*, DQ+41*
PARZ DQ+2~, DQ+40*, DQ+41*
POP EN+2~, EN+17
PRGRP DQ+2~, DQ+10*, DQ+58, DQ+73
REAS DQ+2~, DQ+15*, DQ+36*, DQ+38*, DQ+43*, DQ+45*, DQ+47*, DQ+48*, DQ+50*, DQ+52*
DQ+53*, DQ+56*, DQ+71*
RXDT DQ+2~, DQ+28*, DQ+29, DQ+63, DQ+78
U DQ+27, DQ+28, DQ+30, DQ+38, DQ+40, DQ+41, DQ+52, DQ+64, DQ+65, DQ+66
DQ+67, DQ+72, DQ+73, DQ+74, DQ+75, DQ+77, DQ+78, DQ+79, DQ+80, DQ+81
DQ+82, DQ+83, 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