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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCDPEAR1

Package: Accounts Receivable

Routine: RCDPEAR1


Information

RCDPEAR1 ;ALB/TMK/PJH - ERA Unmatched Aging Report (file #344.4) ;Dec 20, 2014@18:41:35

Source Information

Source file <RCDPEAR1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Accounts Receivable 10 ($$ASKLM,$$ENDORPRT,$$NOW,ASK,HDRLST,LMRPT,SL)^RCDPEARL  $$DISPTY^RCDPEM3  ($$DTRNG,ERASTA)^RCDPEM4  INFO^RCDPEM6  DISP^RCDPESR0  DISPADJ^RCDPESR8  ($$ADJ,$$HACERA)^RCDPEU  ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1  
$$XCEPT^RCDPEWLP  $$PAYTIN^RCDPRU2  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMDIFF,$$FMTE)^XLFDT  
List Manager 1 $$SETSTR^VALM1  
Registration 1 DIVISION^VAUTOMA  
VA FileMan 1 ^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 RCDPEAR  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; entry point - ERA Unmatched Aging Report [RCDPE ERA AGING REPORT]
; data from ELECTRONIC REMITTANCE ADVICE file (#344.4)
EN1Q ; exit and clean up
RPTOUT ; Entry point for listing report
; RCTMPND = name of the subscript for ^TMP to use to return all lines
; (for bulletin). If undefined or null, output is printed
; Return global if RCTMPND not null: ^TMP($J,RCTMPND,line#)=line text
EXIT ;
; PRCA*4.5*298, added ListMan check
HDRBLD ; Create the report header
; Input: RCDISPTY - 1 - Output to excel, 0 otherwise
; RCDTRNG - Date range selected
; RCXCLUDE - TRICARE /CHAMPVA flags
; VAUTD - Divisions to include in report (if listed in VAUTD array)
; Output: RCHDR(0) - Header text line count
; RCHDR(1) - Excel column data (only set If DISPTY=1)
; RCHDR("XECUTE") - M code for page number
; RCHDR("RUNDATE")- Date/time report generated, external format
; RCPGNUM - Page counter
; RCSTOP - Flag to exit
HDRLM ; Create the list manager version of the report header
; Input: RCDTRNG - Date range filter value to be printed as part of the
; header
; RCPAY - 1 - All Payers
; 2 - Selected Payers
; RCPAY() - Array of selected Payers if RCPAY=2
; RCLSTMGR -
; VAUTD - 1 - All divisions
; 2 - Selected divisions
; VAUTD() - Array of selected divisions (if VAUTD=2)
; Output: RCHDR(0) - Header text line count
HDRNM()
EXCEL ; Print report to screen, one record per line for export to MS Excel.
LSTXCEL ; Display repeat info line before each EEOB detail section.
; First detail line does not need it
PRTQ2
ZROBAL() ; function, Get Zero Payment Filter
; returns 1 for yes, zero for no, -1 on '^' or timeout

External References

Name Field # of Occurrence
^%ZIS EN1+62
HOME^%ZIS EN1+70
^%ZISC EN1Q+2, RPTOUT+40, EXIT+4, PRTQ2+2
^%ZTLOAD EN1+68
$$S^%ZTLOAD RPTOUT+61, EXCEL+5
^DIR ZROBAL+4
$$ASKLM^RCDPEARL EN1+48
$$ENDORPRT^RCDPEARL RPTOUT+99, EXCEL+32
$$NOW^RCDPEARL HDRBLD+14
ASK^RCDPEARL EXIT+3, PRTQ2
HDRLST^RCDPEARL RPTOUT+50, RPTOUT+63, RPTOUT+87, RPTOUT+95, EXCEL+3
LMRPT^RCDPEARL EN1+59
SL^RCDPEARL RPTOUT+53, RPTOUT+55, RPTOUT+57, RPTOUT+58, RPTOUT+62, RPTOUT+68, RPTOUT+70, RPTOUT+76, RPTOUT+77, RPTOUT+81
RPTOUT+82, RPTOUT+90, RPTOUT+93, RPTOUT+96, RPTOUT+99
$$DISPTY^RCDPEM3 EN1+41
$$DTRNG^RCDPEM4 EN1+22
ERASTA^RCDPEM4 RPTOUT+23
INFO^RCDPEM6 EN1+43
DISP^RCDPESR0 RPTOUT+92, EXCEL+27
DISPADJ^RCDPESR8 RPTOUT+80, EXCEL+16
$$ADJ^RCDPEU RPTOUT+77, EXCEL+13
$$HACERA^RCDPEU RPTOUT+74
$$ISSEL^RCDPEU1 RPTOUT+26
$$ISTYPE^RCDPEU1 RPTOUT+28
$$PAYRNG^RCDPEU1 EN1+29
$$RTYPE^RCDPEU1 EN1+26
$$SELPAY^RCDPEU1 EN1+36
$$XCEPT^RCDPEWLP RPTOUT+65, EXCEL+7
$$PAYTIN^RCDPRU2 RPTOUT+69
$$SETSTR^VALM1 RPTOUT+66, RPTOUT+67, RPTOUT+69, RPTOUT+71, RPTOUT+72, RPTOUT+73, RPTOUT+74, RPTOUT+75
DIVISION^VAUTOMA EN1+18
$$FMDIFF^XLFDT RPTOUT+32
$$FMTE^XLFDT RPTOUT+71, RPTOUT+75, HDRBLD+49, HDRLM+15, HDRLM+16, EXCEL+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$HDRNM
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: "^** CLAIM LEVEL ADJUSTMENTS EXIST FOR THIS ERA ***"
  • Line Location: EXCEL+13
Function Call: WRITE
  • Prompt: "^** GENERAL ADJUSTMENT DATA EXISTS FOR ERA **"
  • Line Location: EXCEL+17
Function Call: WRITE
  • Prompt: "^"_$G(^TMP($J,"RCERA_ADJ",Q))
  • Line Location: EXCEL+18
Function Call: WRITE
  • Prompt: "^",D
  • Line Location: EXCEL+25
Function Call: WRITE
  • Prompt: "^NO DETAIL FOUND"
  • Line Location: EXCEL+28
Function Call: WRITE
  • Prompt: "^*"_RCOUT(Z)
  • Line Location: EXCEL+30
Function Call: WRITE
  • Prompt: !!,$$ENDORPRT^RCDPEARL
  • Line Location: EXCEL+32
Function Call: WRITE
  • Prompt: !,RCLN
  • Line Location: LSTXCEL+2
Routine Call
  • %ZIS
  • Line Location:
    • EN1+62
Routine Call
  • %ZIS
  • Line Location:
    • EN1+70
Routine Call
  • DIR
  • Line Location:
    • ZROBAL+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] RPTOUT+89, EXCEL+24
^IBM(361.1 - [#361.1] RPTOUT+89, EXCEL+24
^RCY(344.4 - [#344.4] RPTOUT+14, RPTOUT+15, RPTOUT+45, RPTOUT+64, RPTOUT+78, RPTOUT+85, RPTOUT+88, EXCEL+6, EXCEL+14, EXCEL+20
EXCEL+23
^TMP("RCDPEU1" EN1Q+1!, EXIT+7!
^TMP("RCPAYER" EN1Q+1!
^TMP("RCSELPAY" EN1Q+1!, EXIT+7!
^TMP($J EN1+17!, EN1+51!, EN1+57*, EN1+59, RPTOUT+10!, RPTOUT+12!, RPTOUT+32*, RPTOUT+34*, RPTOUT+44, RPTOUT+47*
RPTOUT+52, RPTOUT+54, RPTOUT+57, RPTOUT+60, RPTOUT+81, RPTOUT+82, EXIT+7!, EXCEL+4, EXCEL+17, EXCEL+18
PRTQ2+3!

Label References

Name Line Occurrences
$$HDRNM EN1+18, EN1+54
$$ZROBAL EN1+39
EN1Q EN1+19, EN1+22, EN1+27, EN1+30, EN1+39, EN1+41, EN1+44, EN1+48, EN1+50, EN1+62
EN1+63
EXCEL RPTOUT+40
EXIT RPTOUT+40, RPTOUT+60
HDRBLD RPTOUT+36
HDRLM RPTOUT+37
LSTXCEL EXCEL+13, EXCEL+17, EXCEL+18, EXCEL+25, EXCEL+28, EXCEL+30
PRTQ2 EXCEL+4
RPTOUT EN1+52, EN1+72

Naked Globals

Name Field # of Occurrence
^( RPTOUT+85, EXCEL+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN1+62~*
CHATRI HDRBLD+12~
D RPTOUT+84~, RPTOUT+88*, RPTOUT+89*, RPTOUT+90, EXCEL+1~, EXCEL+21~, EXCEL+23*, EXCEL+24*, EXCEL+25
DATE HDRLM+12~
DIR ZROBAL+2~
DIR("A" ZROBAL+3*
DIR("B" ZROBAL+3*
DIR(0 ZROBAL+3*
DIRUT ZROBAL+2~, ZROBAL+5
DIV HDRBLD+12~, HDRLM+12~
DT RPTOUT+32
DTOUT EN1+44, ZROBAL+2~, ZROBAL+5
DUOUT EN1+44, ZROBAL+2~, ZROBAL+5
ERADT RPTOUT+4~, RPTOUT+17*, RPTOUT+18, RPTOUT+20, RPTOUT+32
H EN1+53~, EN1+55*, EN1+57*
HCNT HDRBLD+12~, HDRBLD+24*, HDRBLD+25*, HDRBLD+26, HDRBLD+30*, HDRBLD+36*, HDRBLD+39*, HDRBLD+46*, HDRBLD+51*, HDRBLD+53*
HDRBLD+55*, HDRBLD+57*, HDRBLD+59*, HDRBLD+61*, HDRBLD+62*, HDRBLD+63, HDRLM+12~, HDRLM+17*, HDRLM+20*, HDRLM+26*
HDRLM+29*, HDRLM+36*, HDRLM+39*, HDRLM+41*, HDRLM+43*, HDRLM+45*, HDRLM+46
HDR EN1+53~, EN1+59
HDR( EN1+55*
HDR("TITLE" EN1+54*
IO EN1+72
IO("Q" EN1+63, EN1+70!
IOSL RPTOUT+63, RPTOUT+87, RPTOUT+95
J RPTOUT+4~, RPTOUT+57*
L EN1+53~*, EN1+55*, EN1+56, EN1+57
MSG HDRLM+12~
N EN1+57~*
>> POP EN1+62
PYMNTFRM RPTOUT+4~
Q RPTOUT+79~, RPTOUT+82*, EXCEL+15~, EXCEL+18*
RC0 RPTOUT+4~, RPTOUT+45*, RPTOUT+64*, RPTOUT+67, RPTOUT+69, RPTOUT+71, RPTOUT+72, RPTOUT+73, RPTOUT+74, RPTOUT+75
EXCEL+6*, EXCEL+8, EXCEL+9
RC1ST EXCEL+1~, EXCEL+11*, LSTXCEL+2, LSTXCEL+3*
RCDATA RPTOUT+86~
RCDISPTY EN1+2~, EN1+41*, EN1+43, RPTOUT+40, RPTOUT+95, HDRBLD+15
RCDT EN1+2~
RCDT("BEG" EN1+23*, RPTOUT+20
RCDT("END" EN1+23*, RPTOUT+20
RCDTRNG EN1+2~, EN1+22*, EN1+23, HDRBLD+48, HDRLM+15, HDRLM+16
RCEDT RPTOUT+4~
RCEXCEP RPTOUT+4~, RPTOUT+65*, RPTOUT+66, EXCEL+1~, EXCEL+7*, EXCEL+8
RCFLIEN RPTOUT+4~, RPTOUT+13*, RPTOUT+14*, RPTOUT+15, RPTOUT+23, RPTOUT+26, RPTOUT+28, RPTOUT+32, RPTOUT+44*, RPTOUT+45
RPTOUT+60*, RPTOUT+64, RPTOUT+65, RPTOUT+74, RPTOUT+77, RPTOUT+78, RPTOUT+80, RPTOUT+85, RPTOUT+88, RPTOUT+92
EXCEL+1~, EXCEL+4*, EXCEL+6, EXCEL+7, EXCEL+13, EXCEL+14, EXCEL+16, EXCEL+20, EXCEL+23, EXCEL+27
RCHDR EN1+2~, RPTOUT+50, RPTOUT+63, RPTOUT+87, RPTOUT+95, HDRBLD+13!, HDRLM+13!, EXCEL+3
RCHDR( EN1+55, EN1+56, EN1+57, HDRBLD+26*, HDRBLD+30*, HDRBLD+36*, HDRBLD+39*, HDRBLD+46*, HDRBLD+51*, HDRBLD+53*
HDRBLD+55*, HDRBLD+57*, HDRBLD+59*, HDRBLD+61*, HDRBLD+62*, HDRLM+20*, HDRLM+26*, HDRLM+29*, HDRLM+36*, HDRLM+39*
HDRLM+41*, HDRLM+43*, HDRLM+45*
RCHDR("RUNDATE" HDRBLD+14*, HDRBLD+25
RCHDR("XECUTE" HDRBLD+16*, HDRBLD+23*
RCHDR(0 RPTOUT+87, RPTOUT+95, HDRBLD+16*, HDRBLD+63*, HDRLM+46*
RCHDR(1 HDRBLD+19*, HDRLM+15*, HDRLM+16*
RCITM RPTOUT+4~, RPTOUT+15!*
RCITM(0 RPTOUT+17, RPTOUT+31
RCITM(6 RPTOUT+16
RCJOB EN1+2~, EN1+45*
RCLN EXCEL+1~, EXCEL+11*, LSTXCEL+2
RCLNCNT EN1+2~, RPTOUT+49*, RPTOUT+53, RPTOUT+55, RPTOUT+57, RPTOUT+58, RPTOUT+62, RPTOUT+68, RPTOUT+70, RPTOUT+76
RPTOUT+77, RPTOUT+81, RPTOUT+82, RPTOUT+90, RPTOUT+93, RPTOUT+96, RPTOUT+99
RCLSTMGR EN1+2~, EN1+20*, EN1+43*, EN1+48*, EN1+50, EN1Q+2, RPTOUT+36, RPTOUT+37, RPTOUT+50, RPTOUT+63
RPTOUT+87, RPTOUT+95, EXIT+2
RCNT RPTOUT+4~, RPTOUT+13*, RPTOUT+32*, RPTOUT+34
RCOUT EN1+2~, RPTOUT+86~, EXCEL+22!
RCOUT( RPTOUT+94, RPTOUT+96, EXCEL+29, EXCEL+30
RCOUT(0 RPTOUT+93, EXCEL+28
RCPAR EN1+2~, EN1+36
RCPAR("DICA" EN1+35*
RCPAR("SELC" EN1+29*, EN1+30, EN1+31, EN1+33
RCPAR("TYPE" EN1+34*
RCPAY EN1+2~, EN1+31*, RPTOUT+25, HDRBLD+43, HDRLM+33
RCPGNUM EN1+2~, RPTOUT+61, RPTOUT+62, RPTOUT+63, EXIT+3, HDRBLD+14*, HDRBLD+16*, HDRLM+14*, EXCEL+5, PRTQ2
RCPYRLST EN1+2~
RCSF0 RPTOUT+4~, RPTOUT+85*, RPTOUT+88, RPTOUT+89, RPTOUT+91, EXCEL+1~, EXCEL+20*, EXCEL+23, EXCEL+24, EXCEL+26
RCSFIEN RPTOUT+84~*, RPTOUT+85*, RPTOUT+88, RPTOUT+92, EXCEL+1~, EXCEL+20*, EXCEL+23, EXCEL+27
RCSTOP EN1+3~, RPTOUT+36*, RPTOUT+50, RPTOUT+60, RPTOUT+61*, RPTOUT+63, RPTOUT+85, RPTOUT+87, RPTOUT+94, RPTOUT+95
RPTOUT+99, EXIT+3, HDRBLD+14*, HDRLM+14*, EXCEL+3, EXCEL+4, EXCEL+5*, EXCEL+20, EXCEL+29, PRTQ2
RCTMPND EN1+3~, EN1+51*, EN1+57, EN1+59, EN1+72*, RPTOUT+10*, RPTOUT+53, RPTOUT+55, RPTOUT+57, RPTOUT+58
RPTOUT+61, RPTOUT+62, RPTOUT+68, RPTOUT+70, RPTOUT+76, RPTOUT+77, RPTOUT+81, RPTOUT+82, RPTOUT+90, RPTOUT+93
RPTOUT+96, RPTOUT+99, EXIT+3, EXCEL+5, PRTQ2
RCTYPE EN1+3~, EN1+26*, EN1+27, EN1+34, RPTOUT+27, RPTOUT+28, HDRBLD+45, HDRLM+35
RCXCLUDE EN1+3~
RCXCLUDE( RPTOUT+57
RCXCLUDE("CHAMPVA" EN1+21*
RCXCLUDE("TRICARE" EN1+21*
RCZ RPTOUT+4~, RPTOUT+44*, RPTOUT+60*, RPTOUT+66, EXCEL+1~, EXCEL+4*, EXCEL+8
RCZROBAL EN1+3~, EN1+39*, RPTOUT+31
S HDRBLD+32~*, HDRBLD+33*, HDRBLD+34, HDRLM+22~, HDRLM+23*, HDRLM+24*, HDRLM+25
STA RPTOUT+4~, RPTOUT+23
STNAM RPTOUT+4~, RPTOUT+23
STNUM RPTOUT+4~, RPTOUT+23
T RPTOUT+43~*, RPTOUT+45*, RPTOUT+47
U EN1+23, RPTOUT+16, RPTOUT+17, RPTOUT+31, RPTOUT+45, RPTOUT+67, RPTOUT+69, RPTOUT+71, RPTOUT+72, RPTOUT+73
RPTOUT+74, RPTOUT+75, RPTOUT+88, RPTOUT+89, RPTOUT+91, HDRBLD+48, HDRLM+15, HDRLM+16, EXCEL+8, EXCEL+9
EXCEL+23, EXCEL+24, EXCEL+26
VAUTD EN1+3~, EN1+19, RPTOUT+23, HDRBLD+30, HDRBLD+31, HDRLM+20, HDRLM+21
VAUTD( RPTOUT+23, HDRBLD+33, HDRBLD+34, HDRLM+24, HDRLM+25
X RPTOUT+4~, HDRBLD+32~, HDRBLD+34*, HDRBLD+35, HDRBLD+37, HDRLM+22~, HDRLM+25*, HDRLM+26, HDRLM+27, ZROBAL+2~
XX EN1+33, EN1+36*, RPTOUT+4~, RPTOUT+25, RPTOUT+26*, RPTOUT+27, RPTOUT+28*, HDRBLD+12~, HDRBLD+17*, HDRBLD+18*
HDRBLD+19, HDRBLD+21*, HDRBLD+22*, HDRBLD+23
Y EN1+3~, RPTOUT+4~, RPTOUT+52*, RPTOUT+53, RPTOUT+54*, RPTOUT+55, RPTOUT+57*, HDRBLD+12~, HDRBLD+25*, HDRBLD+26
HDRBLD+29*, HDRBLD+30*, HDRBLD+35, HDRBLD+36*, HDRBLD+37*, HDRBLD+39, HDRBLD+42*, HDRBLD+43*, HDRBLD+44*, HDRBLD+45*
HDRBLD+46, HDRBLD+49*, HDRBLD+50*, HDRBLD+51, HDRBLD+54*, HDRBLD+55, HDRBLD+56*, HDRBLD+57, HDRBLD+58*, HDRBLD+59
HDRBLD+60*, HDRBLD+61, HDRBLD+62*, HDRLM+12~, HDRLM+19*, HDRLM+20*, HDRLM+26*, HDRLM+27*, HDRLM+29, HDRLM+32*
HDRLM+33*, HDRLM+34*, HDRLM+35*, HDRLM+36, HDRLM+38*, HDRLM+39, HDRLM+40*, HDRLM+41, HDRLM+42*, HDRLM+43
HDRLM+44*, HDRLM+45, ZROBAL+2~, ZROBAL+5*, ZROBAL+6
Y( HDRBLD+49*
Y("1ST" HDRBLD+48*, HDRBLD+50
Y("LST" HDRBLD+48*, HDRBLD+50
Z RPTOUT+4~, RPTOUT+66*, RPTOUT+67*, RPTOUT+68, RPTOUT+69*, RPTOUT+70, RPTOUT+71*, RPTOUT+72*, RPTOUT+73*, RPTOUT+74*
RPTOUT+75*, RPTOUT+76, RPTOUT+94*, RPTOUT+96, EXCEL+1~, EXCEL+8*, EXCEL+9*, EXCEL+10, EXCEL+11, EXCEL+12!
EXCEL+29*, EXCEL+30
Z0 RPTOUT+4~, HDRLM+12~, HDRLM+14*
ZTDESC EN1+64~, EN1+65*
ZTQUEUED EN1+64~, RPTOUT+61, EXIT+2, EXIT+6, EXCEL+5, PRTQ2PRTQ2+1, PRTQ2+2
ZTREQ RPTOUT+61!, EXIT+6*, EXCEL+5!, PRTQ2+1*
ZTRTN EN1+64~, EN1+65*
ZTSAVE EN1+64~
ZTSAVE("RC*" EN1+66*
ZTSAVE("VAUTD" EN1+66*
ZTSAVE("^TMP(""RCDPEU1"",$J," EN1+67*
ZTSK EN1+64~, EN1+69, EN1+70!
ZTSTOP EN1+64~, RPTOUT+61*, EXCEL+5*

Marked Items

Name Field # of Occurrence
$T( EN1+51, HDRBLD+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All