Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 4 ($$DISPTY,$$NMORTIN,$$SORTT,$$STADIV,ASK,HDRP,LINED,LINEP)^RCDPEAPP  INFO^RCDPEM6  COMPILE^RCDPENE1  ($$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 EN^DDIOL  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Accounts Receivable 1 RCDPE NEGATIVE ERA LINE REPORT  

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

External References

Name Field # of Occurrence
^%ZIS RPT+26
HOME^%ZIS RPT+39
^%ZISC DISP+63
^%ZTLOAD RPT+35
EN^DDIOL HDR+42
^DIR DATES+8, DATES+14
$$DISPTY^RCDPEAPP RPT+22
$$NMORTIN^RCDPEAPP RPT+7
$$SORTT^RCDPEAPP RPT+20
$$STADIV^RCDPEAPP RPT+4
ASK^RCDPEAPP DISP+60, HDR+19
HDRP^RCDPEAPP DISP+28
LINED^RCDPEAPP DISP+13
LINEP^RCDPEAPP DISP+14
INFO^RCDPEM6 RPT+23
COMPILE^RCDPENE1 REPORT+17
$$PAYRNG^RCDPEU1 RPT+9
$$RTYPE^RCDPEU1 RPT+6
$$SELPAY^RCDPEU1 RPT+18
$$FMTE^XLFDT DISP+8, HDR+17, HDR+18
$$NOW^XLFDT DISP+8

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
Routine Call
  • %ZIS
  • Line Location:
    • RPT+26
Routine Call
  • %ZIS
  • Line Location:
    • RPT+39
Routine Call
  • DIR
  • Line Location:
    • DATES+8
    • DATES+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( REPORT+15!, REPORT+16, REPORT+21!
^TMP("RCDPEAPP2" REPORT+15!, REPORT+21!
^TMP("RCDPEU1" REPORT+21!
^TMP("RCSELPAY" REPORT+21!

Label References

Name Line Occurrences
$$DTRNG RPT+21
DATES DTRNG+5
DISP REPORT+18
HDR DISP+17, DISP+20, DISP+33, DISP+57
REPORT RPT+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS RPT+26*
BDATE DATES~, DATES+5*, DATES+9*, DATES+10*, DATES+13, DATES+15*
DIR DTRNG+4~, DATES+4~, DATES+8!, DATES+14!
DIR("?" DATES+6*, DATES+11*
DIR("A" DATES+7*, DATES+13*
DIR("B" DATES+12*
DIR(0 DATES+7*, DATES+13*
DIROUT DTRNG+4~, DATES+4~
DIRUT DTRNG+4~, DATES+4~
DIVS DISP+7~, DISP+13, DISP+17, DISP+20, DISP+33, DISP+57, HDR~
DIVS( HDR+27, HDR+29
DT DATES+7, DATES+13
DTOUT DTRNG+4~, DATES+4~, DATES+9, DATES+15
DUOUT DTRNG+4~, DATES+4~, DATES+9, DATES+15
EDATE DATES~, DATES+5*, DATES+16*
END HDR+11~, HDR+18*, HDR+37
GLOB REPORT+14~, REPORT+16*, DISP+18, DISP+23, DISP+25, DISP+30, DISP+31, DISP+56
GTOTAL REPORT+14~
IO DISP+10
IO("Q" RPT+29, RPT+38!
IOF HDR+21
IOSL DISP+33
LINE1 DISP+7~, DISP+9*
LINE2 DISP+7~, DISP+9*, HDR+38, HDR+41
LN HDR+11~, HDR+25*, HDR+29*, HDR+31, HDR+32, HDR+33, HDR+34*, HDR+35, HDR+36*, HDR+37
, HDR+38*, HDR+39*, HDR+40, HDR+41*
MSG HDR+11~, HDR+42
MSG( HDR+29*, HDR+31*, HDR+32*, HDR+33*, HDR+35*, HDR+37*, HDR+38*, HDR+40*, HDR+41*
MSG(1 HDR+22*, HDR+23*
PAYERS DISP+7~, DISP+14, DISP+17, DISP+20, DISP+33, DISP+57, HDR~
POP RPT+1~, RPT+26
RCDATA DISP+7~, DISP+31*, DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+39, DISP+40, DISP+41
, DISP+42, DISP+45, DISP+47, DISP+50, DISP+52*, DISP+53
RCDISP RPT+1~, RPT+22*, RPT+23, RPT+25, RPT+29, DISP+17, DISP+19, DISP+28, DISP+32, DISP+44
, DISP+57, HDR+13
RCDIV RPT+1~, RPT+4*, DISP+13
RCDIVS RPT+1~, RPT+4, DISP+13
RCDTRNG RPT+1~, RPT+3*
RCEND DTRNG+4~, DTRNG+5, DTRNG+7
RCHDRDT DISP+7~, DISP+8*, HDR+23
RCJOB RPT+1~, RPT+3*, REPORT+21
RCLAIM RPT+1~, RPT+6*, RPT+14, HDR+32
RCPAGE RPT+1~, RPT+3*, HDR+19, HDR+20*, HDR+23
RCPAR RPT+1~, RPT+18
RCPAR("DICA" RPT+17*
RCPAR("FILE" RPT+16*
RCPAR("SELC" RPT+9*, RPT+10, RPT+11, RPT+13
RCPAR("SRCH" RPT+15*
RCPAR("TYPE" RPT+14*
RCPARRAY RPT+1~, DISP+14
RCPAY RPT+1~, RPT+11*, DISP+14, DISP+46~, DISP+47*, DISP+48, DISP+49*, DISP+50*, DISP+51*, DISP+52
, HDR+35
RCPROG RPT+1~, RPT+3*, REPORT+15, REPORT+16, REPORT+21
RCRANGE RPT+1~, RPT+21*, HDR+17, HDR+18
RCSORT RPT+2~, RPT+20*, DISP+48, DISP+49, DISP+51, HDR+33
RCSTART DTRNG+4~, DTRNG+5, DTRNG+6, DTRNG+7, DTRNG+8
RCSTOP DISP+7~, DISP+16*, DISP+18, DISP+23, DISP+25, DISP+30, DISP+32, DISP+33, DISP+60, HDR+12
, HDR+19
RCTIN DISP+46~, DISP+48*, DISP+51
RCWHICH RPT+2~, RPT+7*, RPT+9, RPT+15, RPT+17, DISP+14, HDR+35
RNGFLG DTRNG+4~
SPACES DISP+7~, DISP+15*, DISP+40
STANAM RPT+2~
STANUM RPT+2~
START HDR+11~, HDR+17*, HDR+37
SUB DISP+7~, DISP+16*, DISP+18*, DISP+21, DISP+23, DISP+25, DISP+30, DISP+31
SUB1 DISP+7~, DISP+22*, DISP+23*, DISP+25, DISP+28, DISP+30, DISP+31
SUB2 DISP+7~, DISP+24*, DISP+25*, DISP+28, DISP+30, DISP+31
SUB3 DISP+7~, DISP+29*, DISP+30*, DISP+31
U DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+39, DISP+40, DISP+41, DISP+42, HDR+17
, HDR+18
X RPT+2~, DTRNG+4~, DATES+4~
XX RPT+13, RPT+18*, HDR+11~, HDR+14*, HDR+15*, HDR+16, HDR+25*, HDR+26, HDR+27*, HDR+28
, HDR+29
Y RPT+2~, HDR+11~, DTRNG+4~, DATES+4~, DATES+9, DATES+10, DATES+15, DATES+16
Y(0 DATES+12
ZTDESC RPT+30~, RPT+32*
ZTQUEUED RPT+30~, DISP+63, DISP+64
ZTREQ REPORT+14~, DISP+64*
ZTRTN RPT+30~, RPT+31*
ZTSAVE RPT+30~
ZTSAVE("RC*" RPT+33*
ZTSAVE("^TMP(""RCDPEU1"",$J," RPT+34*
ZTSK RPT+30~, RPT+36
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All