RCDPEAPQ ;AITC/CJE - AUTO POST REPORT -CONTINUED ;Dec 20, 2014@18:42
Source file <RCDPEAPQ.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
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 |