Routine: BAREDP02

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT ^DIC FILE^DICN $$GET1^DIQ
IHS VA Utilities	1	($$DIC,$$VAL,ENP,ENPM)^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAREDP00 BAREDPZ1

Entry Points

Name	Comments	DBIA/ICR reference
STNDTBL	; EP - Pull value from A/R EDI TABLES File
CONVERT	; ; Convert incoming data according to data type(s)
PLB	; EP
EN(TRDA,IMPDA)
LQCD	; EP ; This line tag called by .03 field in A/R EDI TABLES File ; Processing routine for Remark or NCPDP Reject Payment Codes. ; Whichever is passed in on LQ02
CLMADJCD	; EP ; .03 (processing routine) for this data type of this element ; Find standard claim level adjustment code
CLMCODE	; EP ; .03 (processing routine) for this data type of this element ; find claim reason code
RMKCODE	; ; find remark code
FIND(FILE,PATH,X)
TABLE	; ; perform lookup on table ; ELM(.07) contains path to table
DT	; ; Convert date to readable format for HIPAA 835 ; ISA09 comes as YYMMDD all other elements are YYYYMMDD
LOADTR	; ; load element parsing specifications
HRMKCD	; EP ; This line tag called by .03 field in A/R EDI TABLES File ; Processing routine for Remark Code elements to look up in RPMS File
CHKS(IMPDA)	;
PLVCODE	; ; find provider level reason code ; Not called for HIPAA - regular table entry.

External References

Name	Field # of Occurrence
^%DT	DT+5
DD^%DT	DT+5
^DIC	STNDTBL+8, CLMCODE+8, CLMADJCD+10, HRMKCD+8, LQCD+16, PLVCODE+8, FIND+9
FILE^DICN	CHKS+42
$$GET1^DIQ	EN+1, EN+9, TABLE+3, STNDTBL+1, CLMADJCD+13, HRMKCD+11, LQCD+19
$$DIC^XBDIQ1	CLMCODE+5, PLVCODE+5, FIND+5
$$VAL^XBDIQ1	CLMCODE+11, PLVCODE+10
ENP^XBDIQ1	EN+31, LOADTR+10
ENPM^XBDIQ1	EN+5, EN+21, LOADTR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Processing Segment Elements into Values",! Line Location: EN+20
Function Call: WRITE	Prompt: " ",COUNT,! Line Location: EN+34
Routine Call	DIC Line Location: STNDTBL+8 CLMCODE+8 CLMADJCD+10 HRMKCD+8 LQCD+16 PLVCODE+8 FIND+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPF(9002313.93 - [#9002313.93]	Classic Fileman Calls, GET1^DIQ
^BAREDI("1T" - [#90056.01]	GET1^DIQ
90056.0105	GET1^DIQ
^BARETBL - [#90056.04]	GET1^DIQ
^BAREDT - [#90056.05]	GET1^DIQ
^BARADJ - [#90056.06]	Classic Fileman Calls, GET1^DIQ
^BARMKCD - [#90056.23]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("I"	LOADTR+17!, LOADTR+19, LOADTR+20, CHKS+4, CHKS+5, CHKS+9, CHKS+10, CHKS+11, CHKS+17, CHKS+20 , CHKS+22, PLB+4, PLB+6
^BAREDT - [#90056.05]	EN+8
^DD(90056.02	CHKS+31
^TMP($J	EN+19!, LOADTR+3!, LOADTR+8

Label References

Name	Line Occurrences
$$FIND	TABLE+6
CONVERT	LOADTR+13
HRMKCD	LQCD+9
LOADTR	EN+33
PLB	CHKS+26
STNDTBL	CONVERT+3
TABLE	CONVERT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DT+4*
ARRAY	LOADTR+3!
ARRAY(	LOADTR+15*, LOADTR+20
ARRAY(""	LOADTR+18
>> BAR15	PLB+6*, PLB+7, PLB+8, PLB+13, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18
>> BARCCNT	CHKS+2, CHKS+7, CHKS+9, CHKS+10, CHKS+11, CHKS+20, CHKS+22, CHKS+23, CHKS+24, CHKS+25* , CHKS+27, CHKS+33, CHKS+34, CHKS+35, CHKS+36, CHKS+37, CHKS+38, CHKS+39, CHKS+40, PLB+10 , PLB+11*, PLB+12, PLB+13, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18
BARCDA	PLB+1~, PLB+2, PLB+4, PLB+6
BARCTMP	CHKS+1~
BARCTMP(	CHKS+7, CHKS+9, CHKS+10, CHKS+11, CHKS+20, CHKS+22, CHKS+23, CHKS+27, CHKS+33, CHKS+34 , CHKS+35, CHKS+36, CHKS+37, CHKS+38, CHKS+39, CHKS+40, PLB+11, PLB+12, PLB+13, PLB+14* , PLB+15, PLB+16, PLB+17, PLB+18
>> BARCTYP	LQCD+8*, LQCD+9, LQCD+10
BARI	EN+7, EN+8, EN+9, EN+10!
BARJ	EN+9*, EN+10!
>> BARQ	CHKS+15, CHKS+16, CHKS+18
BARSCK	PLB+1~, PLB+3*
BARSEG	PLB+1~, PLB+7*, PLB+8, PLB+9
BARVCK	PLB+1~, PLB+3, PLB+8, PLB+12
>> C	FIND+8*
CNT	PLB+1~, PLB+4*, PLB+5
>> COUNT	EN+24, EN+27, EN+28, EN+29, EN+34
DA	CLMCODE+4!, CLMADJCD+5!, HRMKCD+4!, LQCD+12!, PLVCODE+4!, FIND+2!, CHKS+28!
DA(	FIND+8*
DA(1	STNDTBL+5, STNDTBL+6, CLMCODE+6, PLVCODE+6, CHKS+29, CHKS+30
DAT	EN+4!, EN+6
DAT(	EN+9, EN+14, EN+16, CONVERT+4
DAT("ID"	EN+11!
>> DATDA	EN+13, EN+14, EN+16
>> DAZ(	FIND+7*, FIND+8
DD	CLMADJCD+9!, HRMKCD+7!, LQCD+15!, CHKS+41!
DIC	STNDTBL+6, CLMCODE+4!, CLMCODE+5, CLMADJCD+5!, CLMADJCD+7, HRMKCD+4!, HRMKCD+5, LQCD+12!, LQCD+13, PLVCODE+4! , PLVCODE+5, FIND+2!, FIND+5, CHKS+28!, CHKS+30
DIC("DR"	CHKS+34, CHKS+35, CHKS+36, CHKS+37, CHKS+38, CHKS+39, CHKS+40*
DIC("P"	CHKS+31*
DIC(0	STNDTBL+7, CLMCODE+7, CLMADJCD+8, HRMKCD+6, LQCD+14, PLVCODE+7, FIND+6, CHKS+32
DIE	CHKS+28!
DIR	CHKS+28!
DO	CLMADJCD+9!, HRMKCD+7!, LQCD+15!, CHKS+41!
DT	LOADTR+19
DUZ(2	LOADTR+17, LOADTR+19, LOADTR+20, CHKS+4, CHKS+5, CHKS+9, CHKS+10, CHKS+11, CHKS+17, CHKS+20 , CHKS+22, CHKS+30, PLB+4, PLB+6
>> E	LOADTR+2*, LOADTR+12, LQCD+8, CHKS+6, CHKS+7, CHKS+9, CHKS+10, CHKS+11, CHKS+17, CHKS+20 , CHKS+22, PLB+7, PLB+8, PLB+13, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18
ELM	LOADTR+9!
ELM(	LOADTR+11, CONVERT+2, CONVERT+3, CONVERT+4, TABLE+3, TABLE+6, STNDTBL+1, STNDTBL+5
>> ELMDA	LOADTR+7, LOADTR+8, LOADTR+20*
FILE	FIND~, FIND+5
>> I	LOADTR+18, LOADTR+19, LOADTR+20, FIND+7, FIND+8, CHKS+2, CHKS+4, CHKS+5, CHKS+8, CHKS+9 , CHKS+10, CHKS+11, CHKS+12, CHKS+17, CHKS+20, CHKS+21, CHKS+22
IMPDA	EN~, LOADTR+17, LOADTR+19, LOADTR+20, CHKS~, CHKS+4, CHKS+5, CHKS+9, CHKS+10, CHKS+11 , CHKS+17, CHKS+20, CHKS+22, CHKS+29, PLB+4, PLB+6
>> IREC	CHKS+5*, CHKS+6, CHKS+7
>> MCODE	TABLE+3, TABLE+4, TABLE+5, STNDTBL+1, STNDTBL+2, STNDTBL+3
PATH	FIND~, FIND+7
>> PATHS	EN+32*, LOADTR+4
REC	EN+30!
REC(	EN+32, LOADTR+12, LQCD+8
>> RECDA	EN+25, EN+26, LOADTR+17, LOADTR+19, LOADTR+20
>> RECM	EN+22*, EN+26
>> SEGXDA	LOADTR+4*
>> SEQ	LOADTR+11*, LOADTR+12, LOADTR+15
>> TABID	EN+1*
TRDA	EN~, EN+1, CLMCODE+6, PLVCODE+6
U	STNDTBL+10, FIND+11, CHKS+7, CHKS+9, CHKS+10, CHKS+11, CHKS+20, CHKS+22, CHKS+23, CHKS+31 , CHKS+33, CHKS+34, CHKS+35, CHKS+36, CHKS+37, CHKS+38, CHKS+39, CHKS+40, PLB+12, PLB+13 , PLB+14, PLB+15, PLB+16, PLB+17, PLB+18
X	LOADTR+12, LOADTR+15, CONVERT+5, TABLE+6, STNDTBL+9, STNDTBL+10, DT+3, DT+6, CLMCODE+3, CLMCODE+9 , CLMCODE+11, CLMADJCD+3, CLMADJCD+4, CLMADJCD+6, CLMADJCD+11, CLMADJCD+13, RMKCODE+2, RMKCODE+3, HRMKCD+3, HRMKCD+9* , HRMKCD+11, LQCD+7, LQCD+11, LQCD+17, LQCD+19, PLVCODE+3, PLVCODE+9, PLVCODE+10, FIND~, FIND+3 , FIND+10, FIND+11, FIND+12, CHKS+28!, CHKS+33*
>> XDA	CLMCODE+10, CLMADJCD+12, CLMADJCD+13, HRMKCD+10, HRMKCD+11, LQCD+18, LQCD+19, PLVCODE+10*
>> XX	CONVERT+4*
Y	STNDTBL+9, DT+6, CLMCODE+9, CLMCODE+10, CLMADJCD+11, CLMADJCD+12, HRMKCD+9, HRMKCD+10, LQCD+17, LQCD+18 , PLVCODE+9, PLVCODE+10, FIND+10, CHKS+28!
Y(0	STNDTBL+10, FIND+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREDP02

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: