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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RCDPEAA2

Package: Accounts Receivable

Routine: RCDPEAA2


Information

RCDPEAA2 ;ALB/KML - APAR Screen - SELECTED EOB ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEAA2.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Accounts Receivable 6 $$ORI^PRCAFN  $$SEL^RCDPEAA1  $$CHECKPAY^RCDPEAP  PRERA^RCDPEWL0  GETPHARM^RCDPEWLP  $$BILL^RCJIBFN2  
VA FileMan 4 FILE^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Integrated Billing 2 $$RXST^IBARXEU  RELBILL^IBRFN  
Kernel 2 $$FMTE^XLFDT  $$TRIM^XLFSTR  
List Manager 2 (FULL,PAUSE)^VALM1  CLEAN^VALM10  
Registration 1 $$LST^DGMTU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Accounts Receivable 6 RCDPE APAR EEOB RESEARCH  RCDPE APAR SELECTED EEOB  RCDPE APAR VIEW/PRINT ERA  RCDPE MARK FOR AUTOPOST  RCDPEAA3  RCDPEWL1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
HDR ; Creates header lines for the selected EEOB display
TOPLINE(RCZ0) ; Function returns the top line of the EEOB display
; RCZ0 = the 0-node of the whole number entry line for the EEOB
RXLINES(RCZZ0,RCECME,RCT,ZZ1) ; called from BLD ; set up the Pharmacy lines
SLINE(ZIN,ZARR,FLN,SLN) ;
; ZIN - Input string; ZARR - Array output of lines ; FLN - First line length ; SLN - Subsequent line lengths
; Assumes ZIN max length is 132 characters and FLN and SLN variables will make ZIN fit in 3 lines.
COPAY(RCIFN)
UPDERA(ERAIEN,RCDUZ) ; Update MARK FOR AUTOPOST USER top level ERA with DUZ from detail line. PRCA*4.5*326
; MARK FOR AUTOPOST USER is required at ERA level for initial receipt and AR transaction crreation
; so the MARK FOR AUTOPOST USER at the top level will be equal to the last detail line marekd for autopost
PNM4(RCIFN,RCDA,RC) ; Returns either the patient name or patient name/last 4
; RCIFN = ien of file 344.4
; RCDA = ien of file 344.41
; RC = the ien of file 430
NOLOCK ; entry cannot be locked
RCPTS(RCDA,RC0) ; pull list of 'other receipt #s
; input - RCDA = ien of entry in 344.4
; RC0 = data string at zero node of entry in 344.4
; output - RCPTS = returns list of receipts stored at 344.4,.08 and 344.48 multiple
ADJLINES(RCZZ0,RCT,ZZ1) ; called from BLD; set up the adjustment lines
;
; Input - RCZZ0 = zero node data at 344.491
; RCT = sub line #
; ZZ1 = reference to the to the subline in
; file 344.49 for RCSEQ having a decimal
SET(X,RCSEQ,RCSEQ1,RCZ9) ; -- set ListManager arrays
; X = the data to set into the global
; RCSEQ = the selectable line #
; RCSEQ1 = = the sub line #
; RCZ9 = reference to the line(s) in file 344.41 or to the subline in
; file 344.49 for RCSEQ having a decimal
VALID(RCSCR,SCRLINE,RCARRAY) ;Validates Scratchpad line - Used by APAR/Mark for Auto-post - split from RCDPEAP - PRCA*4.5*326
COBN(RC,A) ; Return seq # of selected payer
; A = 'PST' or null to get current bill payer seq #
MARK(RCIENS) ;EP - Protocol action - RCDPE MARK FOR AUTO POST
; Mark for Auto-Post - EEOB on APAR gets marked for auto-post if it passes
; autoposting validation
; Input: RCIENS - Internal IEN of entry in file 344.49^ien of
; 344.491^selectable line item from listman screen
VIEWERA(RCIENS) ; View/Print ERA - protocol entry from APAR EEOB List screen and APAR - EEOB ITEM - SCRATCHPAD screen
MARKQ ;
REVLINES(RCSCR,RCZZ0,RCT,ZZ1) ;called from BLD; set up the reviewed lines
;
; Input - RCSCR = ien of 344.49 (and 344.4)
; RCZZ0 = zero node data at 344.491
; RCT = sub line #
; ZZ1 = reference to the to the subline in
; file 344.49 for RCSEQ having a decimal
INIT(RCIENS) ; Entry point for List template to build the display of the EEOB on APAR
;
; Input - RCIENS = ien of entry in file 344.49^ien of 344.491^selectable line item from listman screen
BLD(RCIENS) ; Display selected EEOB on APAR screen
CLINES(RCZZ0,RCT,ZZ1) ; called from BLD ; set up the claim information lines
;
; Input - RCZZ0 = zero node data at 344.491
; RCT = sub line #
; ZZ1 = reference to the to the subline in
; file 344.49 for RCSEQ having a decimal
EXIT ; -- Clean up list
IEN41(IEN,LINE) ; Given a scratch pad line, find the original ERA detail line. PRCA*4.5*332
; Input: IEN - Internal Entry number of ERA scratchpad from file 344.49
; LINE - Line from ERA scratchpad file 344.49
RCPTSQ ;

External References

Name Field # of Occurrence
$$LST^DGMTU CLINES+11
FILE^DIE MARK+27, UPDERA+5
$$EXTERNAL^DILFD TOPLINE+4
$$GET1^DIQ BLD+11, BLD+15, BLD+40, BLD+41, HDR+10, IEN41+5
^DIR MARK+21, MARK+31, NOLOCK+7
$$RXST^IBARXEU CLINES+9
RELBILL^IBRFN COPAY+5
$$ORI^PRCAFN CLINES+7
$$SEL^RCDPEAA1 MARK+13, VIEWERA+3
$$CHECKPAY^RCDPEAP VALID+27
PRERA^RCDPEWL0 VIEWERA+4
GETPHARM^RCDPEWLP RXLINES+8
$$BILL^RCJIBFN2 CLINES+14
FULL^VALM1 MARK+7
PAUSE^VALM1 MARK+10
CLEAN^VALM10 INIT+5
$$FMTE^XLFDT CLINES+16, REVLINES+12
$$TRIM^XLFSTR RCPTS+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",!
  • Line Location: MARK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MARK+21
Function Call: WRITE
  • Prompt: !
  • Line Location: MARK+21
Function Call: WRITE
  • Prompt: !
  • Line Location: MARK+31
Function Call: WRITE
  • Prompt: !
  • Line Location: MARK+31
Routine Call
  • DIE
  • Line Location:
    • MARK+27
    • UPDERA+5
Routine Call
  • DIR
  • Line Location:
    • MARK+21
    • MARK+31
    • NOLOCK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.31 - [#344.31] GET1^DIQ
344.41 GET1^DIQ
344.491 EXTERNAL^DILFD,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] CLINES+7, CLINES+17, PNM4+8, COBN+2
^DPT - [#2] PNM4+8, PNM4+12
^IBM(361.1 - [#361.1] PNM4+8
^PRCA(430 - [#430] PNM4+11, COPAY+8, VALID+25, VALID+29
^RCY(344 - [#344] RCPTS+6, RCPTS+9
^RCY(344.31 - [#344.31] HDR+9
^RCY(344.4 - [#344.4] BLD+10, HDR+4, RCPTS+9, PNM4+7, MARK+23, MARK+32
^RCY(344.49 - [#344.49] BLD+2, BLD+3, BLD+4, BLD+9, BLD+25, BLD+27, BLD+30, BLD+43, REVLINES+11, REVLINES+13
, ADJLINES+9, MARK+24, VALID+18, VALID+19, VALID+21, IEN41+4
^TMP("IBRBF" COPAY+4!, COPAY+6, COPAY+7!, COPAY+8!, COPAY+9, COPAY+10!
^TMP("RCDPE-APAR_EEOB_WLDX" HDR+6, HDR+7
^TMP("RCDPE-EOB_WL" INIT+6!, SET+6*, SET+7*
^TMP("RCDPE-EOB_WLDX" INIT+6!, SET+8*
^TMP("RCS" INIT+6!, BLD+5*, BLD+6*, BLD+8, BLD+24
^TMP("RC_BILL" CLINES+15*
^TMP($J BLD+44, BLD+48!, TOPLINE+4, COPAY+4!, COPAY+10!
^VA(200 - [#200] REVLINES+9, REVLINES+12
^XUSEC("RCDPEPP" MARK+6

Label References

Name Line Occurrences
$$COBN CLINES+17
$$IEN41 BLD+28
$$PNM4 BLD+30
$$RCPTS HDR+12
$$TOPLINE BLD+12
$$VALID MARK+15
ADJLINES BLD+43
BLD INIT+8
CLINES BLD+32
MARKQ MARK+15, MARK+23
NOLOCK MARK+23
RCPTSQ RCPTS+7
REVLINES BLD+44
RXLINES BLD+36
SET BLD+13, BLD+19, BLD+21, BLD+31, BLD+34, BLD+39, BLD+40, BLD+41, BLD+45, BLD+46
, BLD+47, CLINES+14, CLINES+18, REVLINES+10, REVLINES+12, REVLINES+14, REVLINES+15, ADJLINES+8, ADJLINES+17, ADJLINES+18
, RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12
SLINE BLD+17
UPDERA MARK+28

Naked Globals

Name Field # of Occurrence
^( REVLINES+11, REVLINES+13, ADJLINES+9, RCPTS+9, COPAY+6
^(0 CLINES+7, PNM4+8, PNM4+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A BLD+46*, TOPLINE+2~, TOPLINE+3*, TOPLINE+4*, TOPLINE+5, CLINES+6~, REVLINES+7~, REVLINES+8*, REVLINES+9*, REVLINES+10
, REVLINES+11*, REVLINES+13, COBN~, COBN+2*, COBN+3*, COBN+4
A("DFN" CLINES+7*, CLINES+9, CLINES+11
A("ENRPR" CLINES+7*
A("M/T" CLINES+11*, CLINES+12*, CLINES+18
A("OA" CLINES+7*, CLINES+13
A("RXCP" CLINES+9*, CLINES+18
A("SDT" CLINES+7*, CLINES+9, CLINES+11, CLINES+16
A0 REVLINES+7~, REVLINES+11*, REVLINES+12
B REVLINES+7~, REVLINES+13*
B0 REVLINES+7~, REVLINES+13*, REVLINES+14*, REVLINES+15
CLAIM VALID+16~, VALID+23*, VALID+25, VALID+27, VALID+29
CLARRAY VALID+17!, VALID+27
CLARRAY( VALID+27*
DIR MARK+12~, MARK+21!, MARK+31!, NOLOCK+1~
DIR("A" MARK+18*, MARK+19*, MARK+20*, MARK+29*, MARK+30*, NOLOCK+3*, NOLOCK+4*, NOLOCK+5*, NOLOCK+6*
DIR(0 MARK+18*, MARK+29*, NOLOCK+2*
DONE VALID+16~, VALID+18*, VALID+19, VALID+21*
DUZ MARK+6, MARK+26, MARK+28
ERADA1 MARK+12~, MARK+24*, MARK+25, MARK+26, MARK+29
ERAIEN UPDERA~, UPDERA+4
FDA UPDERA+3~
FDA( UPDERA+4*
FDTTM INIT+4~
FIRST COPAY+3~, COPAY+9*, COPAY+11
FLN SLINE~, SLINE+4, SLINE+6
IEN IEN41~, IEN41+4, IEN41+5
IEN2 IEN41+3~, IEN41+4*, IEN41+5
IENS UPDERA+3~
LINE MARK+12~, MARK+16*, MARK+17, IEN41~, IEN41+4
Q CLINES+6~, ADJLINES+10*, ADJLINES+18, PNM4+4~, PNM4+8*, PNM4+11*, PNM4+12
QQ CLINES+6~, CLINES+13*, CLINES+14, CLINES+15
RC PNM4~, PNM4+10, PNM4+11, COBN~, COBN+2
RC0 BLD+1~, HDR+1~, HDR+4*, HDR+5, HDR+8, HDR+10, HDR+12, RCPTS~, RCPTS+6
RC4 HDR+1~, HDR+4*
RC5 HDR+1~, HDR+4*, HDR+11
RCARRAY VALID~, VALID+17!
RCARRAY( VALID+25*, VALID+27*, VALID+29*, VALID+31*
RCARRAY("" VALID+33
RCAZ ADJLINES+6~, ADJLINES+9*
RCAZ0 ADJLINES+6~, ADJLINES+9*, ADJLINES+10, ADJLINES+11, ADJLINES+12, ADJLINES+13, ADJLINES+14, ADJLINES+15, ADJLINES+16, ADJLINES+18
RCCL BLD+1~, BLD+15*, BLD+16, BLD+17
RCCL1 BLD+1~, BLD+21
RCCL1(1 BLD+18
RCCL1(2 BLD+21
RCCL1(3 BLD+21
RCDA HDR+1~, HDR+3*, HDR+4, HDR+9, HDR+12, RCPTS~, RCPTS+9, PNM4~, PNM4+7
RCDFDA MARK+12~
RCDFDA( MARK+25*, MARK+26*
RCDUZ UPDERA~, UPDERA+4
RCECME BLD+1~, BLD+10*, BLD+36, RXLINES~, RXLINES+9
RCERA BLD+1~, BLD+27*, BLD+28, BLD+30
RCERROR MARK+12~
RCFASTXT EXIT+1!
RCIENS INIT~, INIT+8, BLD~, BLD+2, HDR+2, HDR+3, MARK~, MARK+13*, MARK+14, MARK+15
, MARK+23, MARK+24, MARK+25, MARK+26, MARK+28, MARK+29, MARK+32, VIEWERA~, VIEWERA+2
RCIFN PNM4~, PNM4+6, PNM4+7, COPAY~, COPAY+5, COPAY+6, COPAY+7, COPAY+8, COPAY+9
RCLI1 BLD+1~, BLD+30*, BLD+31
>> RCPROG BLD+2*, VIEWERA+2, VIEWERA+3
RCPTS RCPTS+4~, RCPTS+6*, RCPTS+7, RCPTS+8*, RCPTS+9*, RCPTS+10*, RCPTSQ+1
RCSCR BLD+1~, BLD+2*, BLD+3, BLD+4, BLD+9, BLD+10, BLD+11, BLD+15, BLD+25, BLD+27
, BLD+30, BLD+40, BLD+41, BLD+43, BLD+44, REVLINES~, REVLINES+11, REVLINES+13, ADJLINES+9, VIEWERA+1~
, VIEWERA+2*, VIEWERA+3*, VIEWERA+4, VALID~, VALID+18, VALID+19, VALID+21
RCSEQ SET~, SET+7, HDR+1~, HDR+3*, HDR+6, HDR+7
RCSEQ1 SET~, SET+8
RCT BLD+26*, BLD+28, BLD+31, BLD+32, BLD+34, BLD+36, BLD+39, BLD+40, BLD+41, BLD+43
, BLD+44, BLD+45, BLD+46, CLINES~, CLINES+14, CLINES+15, CLINES+18, REVLINES~, REVLINES+10, REVLINES+12
, REVLINES+14, REVLINES+15, ADJLINES~, ADJLINES+8, ADJLINES+17, ADJLINES+18, RXLINES~, RXLINES+9, RXLINES+10, RXLINES+11
, RXLINES+12
RCTL BLD+1~, BLD+26*, BLD+34, CLINES+14, CLINES+16, ADJLINES+8, ADJLINES+10
RCTP0 COPAY+3~, COPAY+6*, COPAY+7, COPAY+8
RCTP1 COPAY+3~, COPAY+6*, COPAY+7, COPAY+8
RCTP2 COPAY+3~, COPAY+8*
RCTS BLD+1~, BLD+7*, BLD+40, BLD+41
RCX CLINES+6~, CLINES+11*, CLINES+12
RCZ0 BLD+1~, BLD+9*, BLD+10, BLD+11, BLD+12, BLD+13, BLD+15, BLD+19, BLD+21, TOPLINE~
, TOPLINE+3, TOPLINE+4
RCZ41 BLD+1~, BLD+28*, BLD+30
RCZ9 SET~, SET+8
RCZZ0 BLD+25*, BLD+26, BLD+29, BLD+30, BLD+31, BLD+32, BLD+34, BLD+36, BLD+38, BLD+39
, BLD+43, BLD+44, CLINES~, CLINES+7, CLINES+13, CLINES+14, CLINES+15, CLINES+17, CLINES+18, REVLINES~
, REVLINES+8, REVLINES+9, REVLINES+10, REVLINES+12, REVLINES+14, REVLINES+15, ADJLINES~, ADJLINES+8, ADJLINES+14, ADJLINES+17
, ADJLINES+18, RXLINES~, RXLINES+8, RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12
REASON BLD+1~, BLD+11*, BLD+45, MARK+12~, MARK+17*, MARK+19
RESULT MARK+12~, MARK+15
RESULT( MARK+17
RESULT("" MARK+16
RIEN RCPTS+4~, RCPTS+9*
RXARRAY RXLINES+7~, RXLINES+8, RXLINES+10
RXARRAY("DOS" RXLINES+12
RXARRAY("FILL" RXLINES+11
RXARRAY("RELE ASED STATUS" , RXLINES+11
RXARRAY("RX" RXLINES+11
SCRLINE VALID~, VALID+18
SEQ VALID+16~, VALID+18*, VALID+21
SEQ1 VALID+16~, VALID+21*, VALID+25, VALID+27, VALID+29, VALID+31
SLN SLINE~, SLINE+8, SLINE+10
STATUS VALID+16~, VALID+25*
SUB VALID+16~, VALID+18*, VALID+19*, VALID+21
TLINE BLD+1~, BLD+12*, BLD+13, BLD+18*, BLD+19
U BLD+2, BLD+10, BLD+11, BLD+13, BLD+15, BLD+19, BLD+21, BLD+26, BLD+29, BLD+30
, BLD+31, BLD+32, BLD+34, BLD+38, BLD+39, SET+8, TOPLINE+3, TOPLINE+4, CLINES+7, CLINES+9
, CLINES+11, CLINES+13, CLINES+14, CLINES+15, CLINES+17, CLINES+18, REVLINES+8, REVLINES+9, REVLINES+10, REVLINES+12
, REVLINES+14, REVLINES+15, ADJLINES+8, ADJLINES+11, ADJLINES+12, ADJLINES+13, ADJLINES+14, ADJLINES+15, ADJLINES+16, ADJLINES+17
, ADJLINES+18, RXLINES+8, RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12, HDR+3, HDR+5, HDR+6, HDR+7
, HDR+8, HDR+10, HDR+11, RCPTS+6, RCPTS+9, PNM4+8, PNM4+9, PNM4+11, PNM4+12, COBN+2
, COPAY+7, COPAY+8, MARK+15, MARK+17, MARK+23, MARK+24, MARK+25, MARK+26, MARK+28, MARK+29
, MARK+32, VIEWERA+2, VALID+18, VALID+23, VALID+25, VALID+27, VALID+29, VALID+31
V1 BLD+1~, BLD+29*, BLD+30
>> VALMBCK MARK+8*
>> VALMBG INIT+7*
>> VALMCNT INIT+7*, BLD+47, SET+6*, SET+7, SET+8
>> VALMHDR(1 HDR+5*
>> VALMHDR(2 HDR+6*, HDR+7*
>> VALMHDR(3 HDR+8*
>> VALMHDR(4 HDR+10*, HDR+11*
>> VALMHDR(5 HDR+12*
>> VALMQUIT HDR+2*
WLINE VALID+16~, VALID+21*, VALID+23, VALID+25, VALID+27, VALID+29, VALID+31
X SET~, SET+6, RCPTS+4~, RCPTS+5*, RCPTS+9*, MARK+12~
XX MARK+12~
Y MARK+12~
Z BLD+1~, BLD+2*, BLD+3, BLD+4*, HDR+1~, HDR+9*, HDR+10, HDR+11, PNM4+4~, PNM4+5*
, PNM4+7*, PNM4+8*, PNM4+9*, PNM4+12*, PNM4+13
Z0 BLD+1~, BLD+4*, PNM4+4~, PNM4+7*, PNM4+8, PNM4+9
Z3 CLINES+16*, CLINES+17*, CLINES+18, ADJLINES+6~, ADJLINES+7*, ADJLINES+10*, ADJLINES+11*, ADJLINES+12*, ADJLINES+14*, ADJLINES+15*
, ADJLINES+16*, ADJLINES+17
ZARR SLINE~, SLINE+4, SLINE+7, SLINE+8, SLINE+11, SLINE+12
ZI SLINE+3~, SLINE+6*, SLINE+7, SLINE+10*, SLINE+11
ZIN SLINE~, SLINE+4, SLINE+6, SLINE+7
ZL SLINE+3~, SLINE+6*, SLINE+7*, SLINE+8, SLINE+10, SLINE+11
ZM SLINE+3~, SLINE+10*, SLINE+11*, SLINE+12
ZZ BLD+1~, BLD+3*, BLD+5, BLD+6, BLD+7*, BLD+8*, BLD+9, BLD+13, BLD+19, BLD+21
, BLD+24
ZZ1 BLD+1~, BLD+4*, BLD+5, BLD+24*, BLD+25, BLD+30, BLD+31, BLD+32, BLD+34, BLD+36
, BLD+39, BLD+40, BLD+41, BLD+43, BLD+44, BLD+45, BLD+46, CLINES~, CLINES+14, CLINES+18
, REVLINES~, REVLINES+10, REVLINES+11, REVLINES+12, REVLINES+13, REVLINES+14, REVLINES+15, ADJLINES~, ADJLINES+8, ADJLINES+9
, ADJLINES+17, ADJLINES+18, RXLINES~, RXLINES+9, RXLINES+10, RXLINES+11, RXLINES+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All