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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: RCDPENR4

Package: Accounts Receivable

Routine: RCDPENR4


Information

RCDPENR4 ;ALB/SAB - EPay National Reports - ERA/EFT Report Utilities ;12/14/15

Source Information

Source file <RCDPENR4.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Accounts Receivable 6 ASK^RCDPEADP  ($$BILLIEN,HEADER,SAVEDATA)^RCDPENR1  (HEADER,PRINTINS)^RCDPENR2  $$CLOSEDB^RCDPENR3  PRINTGT^RCDPENR5  ($$ISSEL,$$ISTYPE)^RCDPEU1  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Integrated Billing 1 $$DIV^IBJDF2  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Registration 1 DIVISION^VAUTOMA  

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

Package Total Caller Graph
Accounts Receivable 3 RCDPENR1  RCDPENR2  RCDPENRU  

Entry Points

Name Comments DBIA/ICR reference
SPAY() ;
M1(X,Y) ;
; first/last day of month in MMDDYYYY format (if Y=2), or date in
; external format (if Y=3).
GETERA(RCSDATE,RCEDATE,RCRATE,RCCLM,RCPUZ,RCSORT) ;
TINARY(RCSTART,RCEND) ;
INTRSCT() ;
PRINTRP(RCTITLE,RCDATA,RCRPIEN,RCDISP,RCTFLG) ;
PAYSUM(RCINSTIN,RCPUZ) ;Print the Payer Summary portion of the report for one payer. New for ; PRCA*4.5*349
; Input: RCINSTIN - Payer Name/TIN combination, key to ^TMP global.
; RCPUZ - P: Payment EEOBs, U: Unmatched EEOBs, Z: Zero Payment EEOBs, A: All ;PRCA*4.5*446
DIV(RCDIV) ; build the list of divisions to report on.
; PRCA*4.5*349 - Moved from RCDPENR2 for size
GETDIV(RCDIV) ; Retrieve the Division
; PRCA*4.5*349 - Moved from RCDPENR2 for size
ASKPUZ() ; EP from RCDPENR2 - added for PRCA*4.5*446
; Input: N/A
; Returns: -1 - User ^ or timed out
; P - Include Payment EEOBs only
; U - Include Unmatched EEOBs only
; Z - Include Zero payment EEOBs only
; A - Include All types
ASKSORT() ; EP from RCDPENR2 - added for PRCA*4.5*446
; Input: N/A
; Returns: -1 - User ^ or timed out
; P - Sort by Payer
; A - Sort by Amount of payment
GETSDATE()
GETEDATE(RCBDATE)
GETRATE() ;
; PRCA*4.5*446 - Moved from RCDPENR2 for size

External References

Name Field # of Occurrence
^DIC SPAY+7, GETRATE+8
$$GET1^DIQ GETERA+20, GETERA+52, GETERA+54, GETERA+57, GETERA+58, GETERA+59, GETERA+60, GETERA+62, GETERA+71
^DIR ASKPUZ+17, ASKSORT+13, GETSDATE+10, GETEDATE+10
$$DIV^IBJDF2 GETERA+51
ASK^RCDPEADP PRINTRP+16, PAYSUM+9
$$BILLIEN^RCDPENR1 GETERA+46
HEADER^RCDPENR1 PRINTRP+18
SAVEDATA^RCDPENR1 PRINTRP+40, PRINTRP+42, PRINTRP+44, PRINTRP+46, PRINTRP+48, PRINTRP+50, PRINTRP+52, PRINTRP+54
HEADER^RCDPENR2 PAYSUM+9
PRINTINS^RCDPENR2 PAYSUM+10
$$CLOSEDB^RCDPENR3 GETERA+49
PRINTGT^RCDPENR5 PAYSUM+39
$$ISSEL^RCDPEU1 GETERA+34
$$ISTYPE^RCDPEU1 GETERA+30
DIVISION^VAUTOMA GETDIV+6
$$FMTE^XLFDT GETEDATE+9
$$NOW^XLFDT GETSDATE+7, GETEDATE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RCTITLE,!!
  • Line Location: PRINTRP+22
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: PRINTRP+23
Function Call: WRITE
  • Prompt: "NUMBER OF 837s TRANSMITTED TO MEDICAL PAYERS",?65,$J(+$P(RCDATA,U),10)
  • Line Location: PRINTRP+29
Function Call: WRITE
  • Prompt: !,"NUMBER OF NCPDP CLAIMS TRANSMITTED TO PHARMACY PBMs",?65,$J(+$P(RCDATA,U,2),10)
  • Line Location: PRINTRP+30
Function Call: WRITE
  • Prompt: !,"NUMBER OF 835s RECEIVED FROM MEDICAL PAYERS",?65,$J(+$P(RCDATA,U,3),10)
  • Line Location: PRINTRP+31
Function Call: WRITE
  • Prompt: !,"NUMBER OF 835s RECEIVED FROM PHARMACY PBMS",?65,$J(+$P(RCDATA,U,4),10)
  • Line Location: PRINTRP+32
Function Call: WRITE
  • Prompt: !,"NUMBER OF 837s WITH A CORRESPONDING 835 (MRA Excluded)",?65,$J(+$P(RCDATA,U,5),10)
  • Line Location: PRINTRP+33
Function Call: WRITE
  • Prompt: !,"NUMBER OF NCPDP CLAIM WITH A CORRESPONDING 835",?65,$J(+$P(RCDATA,U,6),10)
  • Line Location: PRINTRP+34
Function Call: WRITE
  • Prompt: !,"AVG #DAYS BETWEEN 837 TRANSMIT AND 835 RECEIVED",?65,$J(+$P(RCDATA,U,7),10,1)
  • Line Location: PRINTRP+35
Function Call: WRITE
  • Prompt: !,"AVG #DAYS BETWEEN NCPDP CLAIM TRANSMIT AND 835 RCVD",?65,$J(+$P(RCDATA,U,8),10,1)
  • Line Location: PRINTRP+36
Function Call: WRITE
  • Prompt: !,RCLINE,!
  • Line Location: PRINTRP+37
Routine Call
  • DIC
  • Line Location:
    • SPAY+7
    • GETRATE+8
Routine Call
  • DIR
  • Line Location:
    • ASKPUZ+17
    • ASKSORT+13
    • GETSDATE+10
    • GETEDATE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GET1^DIQ
344.41 GET1^DIQ
^DIC(36 - [#36] Classic Fileman Calls
^IBM(361.1 - [#361.1] GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ
^DGCR(399.3 - [#399.3] Classic Fileman Calls
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" M1+9
^RCY(344.4 - [#344.4] GETERA+9, GETERA+11, GETERA+12, GETERA+38, GETERA+39, GETERA+65, GETERA+77
^RCY(344.6 - [#344.6] TINARY+16, TINARY+22, TINARY+24, TINARY+26
^TMP("RCDPEADP" TINARY+8!, TINARY+11*, TINARY+17*, TINARY+27*, INTRSCT+5, INTRSCT+9, INTRSCT+10, INTRSCT+11!, INTRSCT+15, INTRSCT+16
, INTRSCT+23, INTRSCT+24
^TMP("RCDPENR2" GETERA+94*, GETERA+95*, INTRSCT+5*, INTRSCT+10*, INTRSCT+16*, INTRSCT+17!, INTRSCT+25*, PAYSUM+8, PAYSUM+29, DIV+6*
, DIV+10*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ASKPUZ+8~, ASKSORT+6~
>> DEF ASKPUZ+16, ASKSORT+12
DIC SPAY+2~, SPAY+4*, SPAY+7!, GETRATE+4~, GETRATE+6*, GETRATE+8!
DIC("?" SPAY+5*
DIC("A" SPAY+6*
DIC("S" SPAY+4*, GETRATE+7*
DIC(0 SPAY+4*, GETRATE+6*
DINUM SPAY+2~
DIR ASKPUZ+8~, ASKPUZ+18!, ASKSORT+6~, ASKSORT+14!, GETSDATE+2~, GETSDATE+10!, GETEDATE+4~, GETEDATE+10!
DIR("?" ASKPUZ+10*, ASKPUZ+11*, ASKPUZ+12*, ASKPUZ+13*, ASKSORT+8*, ASKSORT+9*, GETSDATE+8*, GETEDATE+8*
DIR("A" ASKPUZ+15*, ASKSORT+11*, GETSDATE+9*, GETEDATE+10*
DIR("B" ASKPUZ+16*, ASKSORT+12*, GETEDATE+9*
DIR(0 ASKPUZ+14*, ASKSORT+10*, GETSDATE+9*, GETEDATE+10*
DIROUT ASKPUZ+8~, ASKSORT+6~, GETSDATE+2~, GETEDATE+4~
DIRUT ASKPUZ+8~, ASKSORT+6~, GETSDATE+2~, GETEDATE+4~
DLAYGO SPAY+2~
DT M1+3
DTOUT SPAY+2~, SPAY+9, ASKPUZ+8~, ASKPUZ+19, ASKSORT+6~, ASKSORT+15, GETSDATE+2~, GETSDATE+11, GETEDATE+4~, GETEDATE+11
, GETRATE+4~
DUOUT SPAY+2~, SPAY+9, ASKPUZ+8~, ASKPUZ+19, ASKSORT+6~, ASKSORT+15, GETSDATE+2~, GETSDATE+11, GETEDATE+4~, GETEDATE+11
, GETRATE+4~
I PAYSUM+4~, PAYSUM+18*, PAYSUM+25, PAYSUM+26, PAYSUM+27, PAYSUM+29, PAYSUM+30, PAYSUM+35, PAYSUM+36, PAYSUM+38
I1 PAYSUM+4~, PAYSUM+13*, PAYSUM+14*, PAYSUM+15*, PAYSUM+18
I2 PAYSUM+4~, PAYSUM+13*, PAYSUM+18
I3 PAYSUM+4~, PAYSUM+13*, PAYSUM+14*, PAYSUM+15*, PAYSUM+16*, PAYSUM+18
IOSL PRINTRP+15, PAYSUM+9
J PAYSUM+4~, PAYSUM+18*, PAYSUM+21, PAYSUM+22, PAYSUM+23, PAYSUM+25, PAYSUM+26, PAYSUM+27, PAYSUM+28, PAYSUM+29
, PAYSUM+35
NAME SPAY+2~
OKAY GETERA+2~, GETERA+29, GETERA+30*, GETERA+33, GETERA+34*
RC835 PRINTRP+13~
RC837 PRINTRP+13~
RCAMTBL GETERA+2~, GETERA+58*, GETERA+91, GETERA+94, GETERA+95
RCAMTPD GETERA+2~, GETERA+59*, GETERA+91
RCANCPDP PRINTRP+13~
>> RCAUTO PAYSUM+28
RCAVG837 PRINTRP+13~
RCBDATE GETEDATE~, GETEDATE+10
RCBDIV GETERA+2~
RCBILL GETERA+2~, GETERA+46*, GETERA+47, GETERA+49, GETERA+51, GETERA+54, GETERA+57, GETERA+60, GETERA+91, GETERA+94
, GETERA+95
RCCLM GETERA~, GETERA+49
RCDATA GETERA+2~, GETERA+12*, GETERA+13, GETERA+14, GETERA+18, GETERA+23, GETERA+24, GETERA+27, GETERA+28, GETERA+35
, GETERA+91*, GETERA+92*, GETERA+93*, GETERA+94, GETERA+95, PRINTRP~, PRINTRP+29, PRINTRP+30, PRINTRP+31, PRINTRP+32
, PRINTRP+33, PRINTRP+34, PRINTRP+35, PRINTRP+36, PRINTRP+39, PRINTRP+41, PRINTRP+43, PRINTRP+45, PRINTRP+47, PRINTRP+49
, PRINTRP+51, PRINTRP+53, PAYSUM+4~, PAYSUM+29*, PAYSUM+39
RCDISP PRINTRP~, PRINTRP+15, PRINTRP+20*, PRINTRP+21, PRINTRP+28, PRINTRP+38, PAYSUM+39
RCDIV GETERA+2~, GETERA+51*, GETERA+52*, GETERA+93, DIV~, GETDIV~, GETDIV+9*
RCDIV( DIV+10
RCDIV("A" DIV+6, GETDIV+7*
RCDOS GETERA+2~, GETERA+57*, GETERA+91
RCDTBILL GETERA+2~, GETERA+60*, GETERA+61, GETERA+91
RCDTLDT GETERA+2~, GETERA+39*, GETERA+40, GETERA+42
RCEDATE GETERA~, GETERA+7*, GETERA+9
RCEFT PAYSUM+4~, PAYSUM+34*, PAYSUM+35
RCEFTFLD GETERA+89~*, GETERA+91
RCEFTPD GETERA+2~
RCEFTST GETERA+2~, GETERA+18*, GETERA+19, GETERA+63, GETERA+68, GETERA+69, GETERA+72, GETERA+83, GETERA+84, GETERA+89
RCEFTTXT PAYSUM+4~, PAYSUM+32*, PAYSUM+34, PAYSUM+37
RCEFTTYP GETERA+2~, GETERA+72*, GETERA+73
RCEND TINARY~, TINARY+11, TINARY+14, TINARY+24
RCEOB GETERA+3~, GETERA+42*, GETERA+43, GETERA+46, GETERA+58, GETERA+59, GETERA+71, GETERA+91
RCERA PAYSUM+4~
RCERAFLG PAYSUM+4~, PAYSUM+31*, PAYSUM+37*, PAYSUM+38*, PAYSUM+39
RCERAIDX GETERA+3~, GETERA+67*, GETERA+68*, GETERA+69*, GETERA+70, GETERA+74*, GETERA+75, GETERA+94, GETERA+95
RCERANUM GETERA+3~, GETERA+35*, GETERA+93
RCERARCD GETERA+3~, GETERA+23*, GETERA+91
RCERATXT PAYSUM+4~, PAYSUM+33*, PAYSUM+35, PAYSUM+36, PAYSUM+37
RCERATYP PAYSUM+4~, PAYSUM+30*, PAYSUM+32, PAYSUM+33
>> RCEXCEL PAYSUM+39
RCFILE TINARY+5~
RCFLG PRINTRP+13~, PRINTRP+15, PRINTRP+17*
RCI TINARY+5~, TINARY+22*, TINARY+24*, TINARY+26, DIV+3~, DIV+9*, DIV+10*
RCIEN GETERA+3~, GETERA+10*, GETERA+11*, GETERA+12, GETERA+20, GETERA+30, GETERA+34, GETERA+38, GETERA+39, GETERA+62
, GETERA+77, GETERA+91, GETERA+94, GETERA+95
RCINS GETERA+3~, GETERA+28*, GETERA+78
RCINSTIN GETERA+3~, GETERA+78*, GETERA+93, GETERA+94, PAYSUM~, PAYSUM+7*, PAYSUM+8*, PAYSUM+10, PAYSUM+29
RCJ TINARY+5~, TINARY+15*, TINARY+16*, TINARY+17, TINARY+25*, TINARY+26*, TINARY+27
RCKEEP GETERA+3~, GETERA+81*, GETERA+82*, GETERA+83*, GETERA+84*, GETERA+85*
RCLDATE GETERA+3~, GETERA+6*, GETERA+9*, GETERA+11
RCLIEN GETERA+3~, GETERA+37*, GETERA+38*, GETERA+39, GETERA+62, GETERA+65
>> RCLINE PRINTRP+23, PRINTRP+37
RCLPIEN INTRSCT+2~, INTRSCT+22*, INTRSCT+23*, INTRSCT+24, INTRSCT+25
RCMETHOD GETERA+3~, GETERA+62*, GETERA+63*, GETERA+64*, GETERA+92, GETERA+94, GETERA+95
RCNCPDP PRINTRP+13~
RCNNCPDP PRINTRP+13~
RCNO837 PRINTRP+13~
RCPAPER GETERA+4~, GETERA+65*, GETERA+71*, GETERA+73
>> RCPAY GETERA+29, GETERA+33
RCPAYER GETERA+4~
RCPOSTED GETERA+4~, GETERA+77*, GETERA+92
RCPSTAT GETERA+4~, GETERA+20*, GETERA+21, GETERA+64, GETERA+89
RCPUZ GETERA~, GETERA+19, GETERA+21, GETERA+82, GETERA+83, GETERA+84, PAYSUM~, PAYSUM+14, PAYSUM+15, PAYSUM+16
, PAYSUM+21, PAYSUM+22, PAYSUM+23, PAYSUM+28, PAYSUM+39
RCPYRFLG INTRSCT+2~, INTRSCT+22*, INTRSCT+26*, INTRSCT+29
RCRATE GETERA~, GETERA+55
RCRATETP GETERA+4~, GETERA+54*, GETERA+55
RCRPIEN PRINTRP~, PRINTRP+40, PRINTRP+42, PRINTRP+44, PRINTRP+46, PRINTRP+48, PRINTRP+50, PRINTRP+52, PRINTRP+54
RCSDATE GETERA~, GETERA+6
RCSORT GETERA~, GETERA+95
RCSPACE PRINTRP+13~, PRINTRP+25*, PRINTRP+26*
RCSTART TINARY~, TINARY+11, TINARY+14, TINARY+16, TINARY+22
>> RCSTOP PRINTRP+15, PRINTRP+16, PRINTRP+17, PAYSUM+7*, PAYSUM+8, PAYSUM+9, PAYSUM+18, PAYSUM+41
RCSTR PRINTRP+13~, PRINTRP+39*, PRINTRP+40, PRINTRP+41*, PRINTRP+42, PRINTRP+43*, PRINTRP+44, PRINTRP+45*, PRINTRP+46, PRINTRP+47*
, PRINTRP+48, PRINTRP+49*, PRINTRP+50, PRINTRP+51*, PRINTRP+52, PRINTRP+53*, PRINTRP+54
RCSTRING PAYSUM+4~, PAYSUM+35*, PAYSUM+36*, PAYSUM+39
RCTFLG PRINTRP~, PRINTRP+20*, PRINTRP+21
RCTIN GETERA+4~, GETERA+27*, GETERA+78
RCTITLE PRINTRP~, PRINTRP+22
RCTODAY GETSDATE+2~, GETSDATE+7*, GETSDATE+9, GETEDATE+4~, GETEDATE+7*, GETEDATE+9, GETEDATE+10
RCTRACE GETERA+4~, GETERA+24*, GETERA+25, GETERA+26*, GETERA+92
RCTRBD GETERA+4~, GETERA+25*, GETERA+26
RCTRLN GETERA+4~, GETERA+25*, GETERA+26
RCTRNTYP GETERA+4~, GETERA+68*, GETERA+69*, GETERA+73*, GETERA+74, GETERA+93
RCTYPE GETERA+29, GETERA+30, ASKPUZ+8~, ASKPUZ+9*, ASKSORT+6~, ASKSORT+7*
RETURN ASKPUZ+8~, ASKPUZ+21*, ASKPUZ+22, ASKSORT+6~, ASKSORT+17*, ASKSORT+18
U SPAY+12, M1+5, M1+8, GETERA+14, GETERA+18, GETERA+23, GETERA+24, GETERA+27, GETERA+28, GETERA+35
, GETERA+42, GETERA+65, GETERA+77, GETERA+91, GETERA+92, GETERA+93, GETERA+95, PRINTRP+29, PRINTRP+30, PRINTRP+31
, PRINTRP+32, PRINTRP+33, PRINTRP+34, PRINTRP+35, PRINTRP+36, PRINTRP+39, PRINTRP+41, PRINTRP+43, PRINTRP+45, PRINTRP+47
, PRINTRP+49, PRINTRP+51, PRINTRP+53
VAUTD GETDIV+5~, GETDIV+7, GETDIV+8, GETDIV+9
X SPAY+2~, M1~, M1+3*, M1+4, M1+5*, M1+6*, M1+7, M1+8*, M1+9*, M1+10
, ASKPUZ+8~, ASKSORT+6~, GETSDATE+2~, GETEDATE+4~, GETRATE+4~
X1 M1+3~, M1+8*
X2 M1+3~, M1+4*, M1+5, M1+8
Y SPAY+2~, SPAY+12, M1~, M1+3*, M1+5, M1+6, M1+7, M1+9*, ASKPUZ+8~, ASKPUZ+20
, ASKPUZ+21, ASKSORT+6~, ASKSORT+16, ASKSORT+17, GETSDATE+2~, GETSDATE+11, GETSDATE+12, GETEDATE+4~, GETEDATE+11, GETEDATE+12
, GETRATE+4~, GETRATE+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All