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

Package Total Call Graph
Accounts Receivable 11 RPTOUT2^RCDPEAR4  ($$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: 2

Package Total Caller Graph
Accounts Receivable 2 RCDPE ERA AGING REPORT  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
; Input: RCTMPND - Name of the subscript for ^TMP to use to return all lines
; (for bulletin). If undefined or null, output is printed
; Returns: Global if RCTMPND not null: ^TMP($J,RCTMPND,line#)=line text
EXIT ; Exit the report
; PRCA*4.5*298, added ListMan check
HDRBLD ; Create the report header
; Input: RCADJ - 1 - Display Adjustment/Code information, 0 otherwise ;PRCA*4.5*409 Added RCADJ
; 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: RCDADJ - 1 - Display Adjustment/Code info 0 otherwise ;PRCA*4.5*409 Added RCDADJ
; 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() ; Extrinsic variable, name for header PRCA*4.5*298
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() ; Get Zero Payment Filter
; Returns: 1 for yes, zero for no, -1 on '^' or timeout
DADJCDE() ; Get Adjustment/Code Filter ;PRCA*4.5*409 Added method
; Returns: 1 for yes, zero for no, -1 on '^' or timeout

External References

Name Field # of Occurrence
^%ZIS EN1+77
HOME^%ZIS EN1+87
^%ZISC EN1Q+2, RPTOUT+50, EXIT+4, PRTQ2+2
^%ZTLOAD EN1+84
$$S^%ZTLOAD RPTOUT+80, EXCEL+9
^DIR ZROBAL+4, DADJCDE+4
RPTOUT2^RCDPEAR4 RPTOUT+107
$$ASKLM^RCDPEARL EN1+59
$$ENDORPRT^RCDPEARL RPTOUT+110, EXCEL+49
$$NOW^RCDPEARL HDRBLD+15
ASK^RCDPEARL EXIT+3, PRTQ2
HDRLST^RCDPEARL RPTOUT+65, RPTOUT+82, EXCEL+4
LMRPT^RCDPEARL EN1+72
SL^RCDPEARL RPTOUT+69, RPTOUT+71, RPTOUT+76, RPTOUT+77, RPTOUT+81, RPTOUT+87, RPTOUT+89, RPTOUT+103, RPTOUT+110
$$DISPTY^RCDPEM3 EN1+50
$$DTRNG^RCDPEM4 EN1+26
ERASTA^RCDPEM4 RPTOUT+31
INFO^RCDPEM6 EN1+54
DISP^RCDPESR0 EXCEL+42
DISPADJ^RCDPESR8 EXCEL+31
$$ADJ^RCDPEU EXCEL+28
$$HACERA^RCDPEU RPTOUT+98
$$ISSEL^RCDPEU1 RPTOUT+34
$$ISTYPE^RCDPEU1 RPTOUT+36
$$PAYRNG^RCDPEU1 EN1+34
$$RTYPE^RCDPEU1 EN1+31
$$SELPAY^RCDPEU1 EN1+41
$$XCEPT^RCDPEWLP RPTOUT+84, EXCEL+11
$$PAYTIN^RCDPRU2 RPTOUT+88
$$SETSTR^VALM1 RPTOUT+85, RPTOUT+86, RPTOUT+88, RPTOUT+90, RPTOUT+91, RPTOUT+95, RPTOUT+98, RPTOUT+102
DIVISION^VAUTOMA EN1+22
$$FMDIFF^XLFDT RPTOUT+40
$$FMTE^XLFDT RPTOUT+90, RPTOUT+102, HDRBLD+55, HDRLM+15, HDRLM+16, EXCEL+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$HDRNM
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" has been queued.",1:"Unable to queue this task.")
  • Line Location: EN1+85
Function Call: WRITE
  • Prompt: !,Z
  • Line Location: EXCEL+22
Function Call: WRITE
  • Prompt: "^** CLAIM LEVEL ADJUSTMENTS EXIST FOR THIS ERA ***"
  • Line Location: EXCEL+28
Function Call: WRITE
  • Prompt: "^** GENERAL ADJUSTMENT DATA EXISTS FOR ERA **"
  • Line Location: EXCEL+32
Function Call: WRITE
  • Prompt: "^"_$G(^TMP($J,"RCERA_ADJ",Q))
  • Line Location: EXCEL+33
Function Call: WRITE
  • Prompt: "^",D
  • Line Location: EXCEL+40
Function Call: WRITE
  • Prompt: "^NO DETAIL FOUND"
  • Line Location: EXCEL+43
Function Call: WRITE
  • Prompt: "^*"_RCOUT(Z)
  • Line Location: EXCEL+45
Function Call: WRITE
  • Prompt: !!,$$ENDORPRT^RCDPEARL
  • Line Location: EXCEL+49
Function Call: WRITE
  • Prompt: !,RCLN
  • Line Location: LSTXCEL+2
Routine Call
  • %ZIS
  • Line Location:
    • EN1+77
Routine Call
  • %ZIS
  • Line Location:
    • EN1+87
Routine Call
  • DIR
  • Line Location:
    • ZROBAL+4
    • DADJCDE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EXCEL+39
^IBM(361.1 - [#361.1] EXCEL+39
^RCY(344.4 - [#344.4] RPTOUT+19, RPTOUT+21, RPTOUT+60, RPTOUT+83, EXCEL+10, EXCEL+29, EXCEL+35, EXCEL+38
^TMP("RCDPEU1" EN1Q+1!, EXIT+7!
^TMP("RCPAYER" EN1Q+1!
^TMP("RCSELPAY" EN1Q+1!, EXIT+7!
^TMP($J EN1+20!, EN1+63!, EN1+69*, EN1+72, RPTOUT+16!, RPTOUT+17!, RPTOUT+40*, RPTOUT+42*, RPTOUT+56, RPTOUT+59
, RPTOUT+62*, RPTOUT+68, RPTOUT+70, RPTOUT+75, RPTOUT+79, EXIT+7!, EXCEL+6, EXCEL+8, EXCEL+32, EXCEL+33
, PRTQ2+3!

Label References

Name Line Occurrences
$$DADJCDE EN1+46
$$HDRNM EN1+21, EN1+66
$$ZROBAL EN1+43
EN1Q EN1+23, EN1+27, EN1+32, EN1+35, EN1+44, EN1+47, EN1+51, EN1+55, EN1+59, EN1+73
, EN1+78, EN1+88
EXCEL RPTOUT+50
EXIT RPTOUT+50, RPTOUT+79, RPTOUT+111
HDRBLD RPTOUT+45
HDRLM RPTOUT+47
LSTXCEL EXCEL+28, EXCEL+32, EXCEL+33, EXCEL+40, EXCEL+43, EXCEL+45
PRTQ2 EXCEL+8
RPTOUT EN1+64, EN1+92

Naked Globals

Name Field # of Occurrence
^( EXCEL+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

Name Field # of Occurrence
$T( EN1+63, HDRBLD+28
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