RCDPRU ;ALB/TJB - CARC REPORT ON PAYER OR CARC CODE ;9/15/14 3:00pm
Source file <RCDPRU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DISPTY() | ; function, ask display/output type
|
|
INFO | ; Useful Info for Excel capture
|
|
ASK(RCSTOP) | ; User if you want to quit or continue
|
|
UP(TEXT) | ; Translate text to upper case
|
|
DATE(X,F) | ; date in external format
|
|
NOW(F) | ; Date/Time of right now in external format
|
|
VAL(XF,CODE) | ; Validate a range or list of CARC (345), RARC (346) or PLB (345.1) Codes
; If invalid code is found VAILD = 0 and CODE will contain the offending codes |
|
ACT(XF,CODE,DATE) | ; Is the code active on Date
; If code is active return 1. If no date use today, date should be in fileman format. |
|
PUSH(VAR,VALUE) | ;
|
|
RNG(TYPE,ITEM,ARRAY) | ; EP
; Collect data in a list or range to an array ; Input: TYPE - Type of data being collected ; CARC - Carc codes ; PAYER - Payer names ; PLB - Provider Level Balance Codes ; TIN - Payer IDs ; ITEM - Comma delimitted list of codes and/or ranges to parse ; Output: ARRAY - Array containing all of the data parsed from ITEM |
|
RNGIT(TYPE,ITEM,DELIM,ZAR) | ; Process ranges for CARC/PLB/PAYER/TIN
; Input: TYPE - Type of data being collected ; CARC - Carc codes ; PAYER - Payer names ; PLB - Provider Level Balance Codes ; TIN - Payer IDs ; ITEM - Code or Code range being processed ; DELIM - Range delimitter to use ; Output: ZAR - Array containing all of the data parsed from ITEM |
|
AFTER(ZZ1,ZZ2) | ; Is ZZ1 after (or collates after) ZZ2
|
|
GLIST(FILE,IDX,GLARR) | ;Build list for this file
; Build list of available payers |
|
GETPAY(RCPAY) | ; EP
; Get selected payers using file 344.6 ; Note: Similar to GETPAY^RCDPEM9 except that method uses 344.4 or 344.31 ; Input: None ; Output: RCPAY - ALL if all payers selected ; RCPAY(DATA) - 'ALL' - all payers selected ; Returns: 1 - Payer selection made, 0 otherwise |
|
GETTIN(RCTIN) | ; EP
; Get selected Payer TINs ; Input: None ; Output: RCTIN - ALL if all payer TINs selected ; RCPAY(DATA) - 'ALL' - all payer TINs selected ; Returns: 1 - Payer selection made, 0 otherwise |
|
GETRNG(RTNARR,TYPE) | ; Allows the user to specify a payer name or TIN range
; Input: TYPE - 'P' - Payer Name range selection ; 'T' - Payer TIN range selection ; Output: RTNARR - 'ERROR' - Invalid TYPE of range selected ; RTNARR(DATA) - A1~:~A2 Where: ; A1 - External Payer Name or TIN of selected ; 344.6 Payer for range start ; A2 - External Payer Name or TIN of selected ; 344.6 Payer for range end ; RTNARR(START) - Starting Range Value A1^A2^A3^A4 Where: ; A1 - Internal IEN of selected 344.6 Payer for ; range start ; A2 - External Payer Name or TIN for range start ; A3 - Internal IEN of selected 344.6 Payer for ; range start ; A4 - External Payer Name or TIN for range end ; RTNARR(END) - Ending Range Value A1^A2^A3^A4 Where: ; A1 - Internal IEN of selected 344.6 Payer for ; range end ; A2 - External Payer Name or TIN for range end ; A3 - Internal IEN of selected 344.6 for range end ; A4 - External Payer Name or TIN for range end |
|
CHECKDT(GSTART,GSTOP,GFILE) | ; See if we have any possible data to report
|
|
SUMIT(RARR,SUBS,ZSORT) | ; Summarize data in the array reference for PLB Report
|
|
TAMT(ZIEN,XGBL,ZCODE) | ; Get Adjustment Amounts
|
|
TCD(ZIEN,XGBL,ZCODE) | ; Get PLB Description for Code & IEN given
|
|
UPDERA(DA,RECEPT,FOUND) | ;Mark ERA as posted to paper EOB
|
|
RCDATE(RECEPT) | ;
|
|
AMT(RECEPT) | ;Total Receipt amount
|
|
ML0() | ;
|
|
ML0A | ||
MLQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RCY(344.4 - [#344.4] | Classic Fileman Calls, GETS^DIQ |
^RCY(344.6 - [#344.6] | Classic Fileman Calls |