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
Print Page as PDF
Routine: RCDPENER

Package: Accounts Receivable

Routine: RCDPENER


Information

RCDPENER ;AITC/CJE - NEGATIVE ERA LINE REPORT ;Dec 20, 2014@18:42

Source Information

Source file <RCDPENER.m>

Entry Points

Name Comments DBIA/ICR reference
RPT ; entry point for Negative ERA Line Report [RCDPE NEGATIVE ERA LINE REPORT]
REPORT ; Compile and print report
; Input: 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 - "RCDPENER"
; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN
; RCWHICH - 1 - Filter by Payer Name, 2 - Filter by Payer TIN
; ^TMP("RCDPEU1",$J) - Selected payerers (see SELPAY^RCDPEU1 for details)
DISP ; Format the display for screen/printer or MS Excel
; Input: GLOB - ^TMP("RCDPENER",$J) (See SAVE^RCDPENE1 for field order)
; RCDISP - 1 - Output to Excel, 0 otherwise
; RCDIV - 1 - All Divisions selected
; RCDIVS - Array of selected Divisions (if all not selected)
; RCPARRAY- Array of selected Payers
; RCPAY - 1 - All Payers selected
HDR(DIVS,PAYERS) ; Print the report header
; Input: DIVS() - Array of selected Division lines for Header
; PAYERS() - Array of selected Payer lines for Header
; RCDISP - 1 - Output to Excel, 0 otherwise
; RCHDRDT - External Print Date/Tim
; RCPAGE - Current Page number
; RCRANGE - Selected Date Range
; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN
; RCSTOP - 1 if display aborted
; Output: RCPAGE - Updated Page Number
; RCSTOP - 1 if display aborted
DTRNG() ; Get the date range for the report
; Input: None
; Returns: 0 - User ^ or timed out
; 1^Start Date^End Date
DATES(BDATE,EDATE) ; Get a date range.
; Input: None
; Output: BDATE - Internal Begin date
; EDATE - Internal End date

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report requires 132 column display."
  • Line Location: RPT+25
Function Call: WRITE
  • Prompt: !!,"Task number "_ZTSK_" was queued."
  • Line Location: RPT+36
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: RPT+37
Function Call: WRITE
  • Prompt: !,"DIVISION: ",SUB
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !,$P(RCDATA,U,4)
  • Line Location: DISP+34
Function Call: WRITE
  • Prompt: ?30,$P(RCDATA,U,5)
  • Line Location: DISP+35
Function Call: WRITE
  • Prompt: ?37,$P(RCDATA,U,6)
  • Line Location: DISP+36
Function Call: WRITE
  • Prompt: ?48,$E($P(RCDATA,U,7),1,12)
  • Line Location: DISP+37
Function Call: WRITE
  • Prompt: ?57,$J($P(RCDATA,U,12),8)_" "
  • Line Location: DISP+38
Function Call: WRITE
  • Prompt: $J($P(RCDATA,U,8),11,2)_" "
  • Line Location: DISP+39
Function Call: WRITE
  • Prompt: $E($E($P(RCDATA,U,10),1,11)_SPACES,1,13)
  • Line Location: DISP+40
Function Call: WRITE
  • Prompt: $J($P(RCDATA,U,9),15,2)
  • Line Location: DISP+41
Function Call: WRITE
  • Prompt: !,?3,"Trace #: ",$P(RCDATA,U,11)
  • Line Location: DISP+42
Function Call: WRITE
  • Prompt: !,RCDATA
  • Line Location: DISP+53
Function Call: WRITE
  • Prompt: !!,"*** NO DATA FOUND FOR THIS DATE RANGE AND FILTER CONDITIONS ***",!!
  • Line Location: DISP+58
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+21
Info |  Source |  Entry Points |  Interaction Calls