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

Package: Accounts Receivable

Routine: RCDPEAPQ


Information

RCDPEAPQ ;AITC/CJE - AUTO POST REPORT -CONTINUED ;Dec 20, 2014@18:42

Source Information

Source file <RCDPEAPQ.m>

Entry Points

Name Comments DBIA/ICR reference
SAVE(ERAIEN,RCRZ,RCTYPE,APDATE,RCSORT) ; EP - Save to ^TMP global
; Input: ERAIEN - Internal IEN into file 344.4
; RCRZ - Internal IEN into sub-file 344.41
; RCTYPE - 'D' for detail report, 'S' for summary
; APDATE - Internal Auto-Posting date
; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN
; STNAM - Division Name (Primary Sort)
; STNUM - Station Number
; ^TMP("RCDPEAPP2",$J,ERAIEN,RCRZ) - Array of detail lines
; Output: GTOTAL - A1^A2^A3^A4 Where:
; A1 - Total Count
; A2 - Total Original Amounts
; A3 - Total Payment Amounts
; A4 - Total Balance
ERASTA(ERAIEN,STA,STNUM,STNAM) ; EP - Get the station (Division) for this ERA
; Input: ERAIEN -
; Output: STA - Internal Division IEN
; STNUM - Division Number
; STNAME - Division Name
COMPILE ; Generate the Auto Posting report ^TMP array
; Input: GLOB - "^TMP("RCDPEAPP",$J)"
; RCDISP - 0 - Output to paper or screen, 1 - Output to Excel
; RCDIV - 1 - All divisions, 2 - Selected divisions
; RCDIVS()- Array of selected divisions if RCDIV=2
; RCRANGE - 1^Start Date^End Date
; RCJOB - $J
; RCLAIM - "M" - Medical Claims, "P" - Pharmacy Claims, "B" - Both
; RCPAGE - Initialized to 0
; RCPARRAY- Array of selected payers
; RCPROG - "RCDPEAPP"
; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN
; RCWHICH - 1 - Filter by Payer Name, 2 - Filter by Payer TIN
; RCTYPE - 'D' for detail report, 'S' for summary
; RCPAYMNT - 'Z' - Zero pay ERAs only, 'P' - Non-Zero ERAs only, 'A' All - PRCA*4.5*424
; ^TMP("RCSELPAY",RCJOB) - Selected Payer Names or TINs
; Ouput: GTOTAL - A1^A2^A3^A4 Where:
; A1 - Total Count
; A2 - Total Original Amounts
; A3 - Total Payment Amounts
; A4 - Total Balance
; ^TMP("RCSELPAY",RCJOB,A1)=A2/A3 Where:
; A1 - CTR
; A2 - Payer Name if RCWHICH=1 else Payer TIN
; A3 - Payer TIN if RCWHICH=1 else Payer Name
BUILD(RCSCR) ; Build cross-reference of ERA detail lines to ERA scratch-pad lines
; Input: RCSCR - Internal IEN of file 344.4/344.49
PAYMNT() ; Payment Type (Zero/Payment or Both) Selection. EP from RCDPEAPP
; Input: None
; Output: None
; Returns: A - All ERAs, P - ERAs with payments, Z - Zero payment ERAs

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYMNT+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.3 - [#344.3] GET1^DIQ
^RCY(344.31 - [#344.31] GET1^DIQ
^RCY(344.4 - [#344.4] GET1^DIQ
344.41 EXTERNAL^DILFD,  GET1^DIQ
344.491 GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ
^DGCR(399 - [#399] EXTERNAL^DILFD,  GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call