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

Package: Accounts Receivable

Routine: RCDPRU


Information

RCDPRU ;ALB/TJB - CARC REPORT ON PAYER OR CARC CODE ;9/15/14 3:00pm

Source Information

Source file <RCDPRU.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,SP_"Before continuing, please set up your terminal to capture the"
  • Line Location: INFO+2
Function Call: WRITE
  • Prompt: !,SP_"report data as this report may take a while to run."
  • Line Location: INFO+3
Function Call: WRITE
  • Prompt: !!,SP_"To avoid undesired wrapping of the data saved to the"
  • Line Location: INFO+4
Function Call: WRITE
  • Prompt: !,SP_"file, please enter '0;256;999' at the 'DEVICE:' prompt."
  • Line Location: INFO+5
Function Call: WRITE
  • Prompt: !!,SP_"It may be necessary to set the terminal's display width"
  • Line Location: INFO+6
Function Call: WRITE
  • Prompt: !,SP_"to 256 characters, which can be performed by selecting the"
  • Line Location: INFO+7
Function Call: WRITE
  • Prompt: !,SP_"Display option located within the 'Setup' menu on the"
  • Line Location: INFO+8
Function Call: WRITE
  • Prompt: !,SP_"tool bar of the terminal emulation software (e.g. KEA,"
  • Line Location: INFO+9
Function Call: WRITE
  • Prompt: !,SP_"Reflection, or Smarterm).",!!
  • Line Location: INFO+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDERA+13
Function Call: WRITE
  • Prompt: !,"Unable to update ERA for receipt "_RECEPT,!
  • Line Location: UPDERA+15
Function Call: WRITE
  • Prompt: !,"ERA is already matched please select another ERA..."
  • Line Location: ML0A+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] Classic Fileman Calls,  GETS^DIQ
^RCY(344.6 - [#344.6] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call