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 |  FileMan Files Accessed Via FileMan Db Call
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>

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) ;
TINARY(RCSTART,RCEND) ;
INTRSCT() ;
PRINTRP(RCTITLE,RCDATA,RCRPIEN,RCDISP,RCTFLG) ;
PAYSUM(RCINSTIN) ;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.
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

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

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
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call