Routine: BAR50P02

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	4	BAR50BPR BAR50P00 BAR50PZ1 BAREDBPR

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)	;EP - POPULATE CHECK/EFTS SUBFILE IN IMPORT FILE
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+49
$$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+26, CHKS+3, CHKS+4, CHKS+13, CHKS+14, CHKS+15, CHKS+22, CHKS+26 , CHKS+29, PLB+5, PLB+7
^BAREDT - [#90056.05]	EN+8
^DD(90056.02	CHKS+38
^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+33
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+25, LOADTR+26
ARRAY(""	LOADTR+18
>> BAR15	PLB+7*, PLB+8, PLB+9, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18, PLB+19
>> BARCCNT	CHKS+2, CHKS+8, CHKS+13, CHKS+14, CHKS+15, CHKS+26, CHKS+29, CHKS+30, CHKS+31, CHKS+32* , CHKS+34, CHKS+40, CHKS+41, CHKS+42, CHKS+43, CHKS+44, CHKS+45, CHKS+46, CHKS+47, PLB+11 , PLB+12*, PLB+13, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18, PLB+19
BARCDA	PLB+2~, PLB+3, PLB+5, PLB+7
BARCTMP	CHKS+1~
BARCTMP(	CHKS+8, CHKS+13, CHKS+14, CHKS+15, CHKS+26, CHKS+29, CHKS+30, CHKS+34, CHKS+40, CHKS+41 , CHKS+42, CHKS+43, CHKS+44, CHKS+45, CHKS+46, CHKS+47, PLB+12, PLB+13, PLB+14, PLB+15* , PLB+16, PLB+17, PLB+18, PLB+19
>> BARCTYP	LQCD+8*, LQCD+9, LQCD+10
BARI	EN+7, EN+8, EN+9, EN+10!
BARJ	EN+9*, EN+10!
>> BARQ	CHKS+19, CHKS+20, CHKS+23
BARSCK	PLB+2~, PLB+4*
BARSEG	PLB+2~, PLB+8*, PLB+9, PLB+10
BARVCK	PLB+2~, PLB+4, PLB+9, PLB+13
>> C	FIND+8*
CNT	PLB+2~, PLB+5*, PLB+6
>> 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+35!
DA(	FIND+8*
DA(1	STNDTBL+5, STNDTBL+6, CLMCODE+6, PLVCODE+6, CHKS+36, CHKS+37
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+48!
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+35!, CHKS+37
DIC("DR"	CHKS+41, CHKS+42, CHKS+43, CHKS+44, CHKS+45, CHKS+46, CHKS+47*
DIC("P"	CHKS+38*
DIC(0	STNDTBL+7, CLMCODE+7, CLMADJCD+8, HRMKCD+6, LQCD+14, PLVCODE+7, FIND+6, CHKS+39
DIE	CHKS+35!
DIR	CHKS+35!
DO	CLMADJCD+9!, HRMKCD+7!, LQCD+15!, CHKS+48!
DT	LOADTR+19
DUZ(2	LOADTR+17, LOADTR+19, LOADTR+26, CHKS+3, CHKS+4, CHKS+13, CHKS+14, CHKS+15, CHKS+22, CHKS+26 , CHKS+29, CHKS+37, PLB+5, PLB+7
>> E	LOADTR+2*, LOADTR+12, LQCD+8, CHKS+7, CHKS+8, CHKS+13, CHKS+14, CHKS+15, CHKS+22, CHKS+26 , CHKS+29, PLB+8, PLB+9, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18, PLB+19
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+24, LOADTR+25, LOADTR+26
FILE	FIND~, FIND+5
>> I	LOADTR+18, LOADTR+19, FIND+7, FIND+8, CHKS+2, CHKS+3, CHKS+4, CHKS+9, CHKS+13, CHKS+14 , CHKS+15, CHKS+16, CHKS+22, CHKS+26, CHKS+27, CHKS+29
IMPDA	EN~, LOADTR+17, LOADTR+19, LOADTR+26, CHKS~, CHKS+3, CHKS+4, CHKS+13, CHKS+14, CHKS+15 , CHKS+22, CHKS+26, CHKS+29, CHKS+36, PLB+5, PLB+7
>> IREC	CHKS+4*, CHKS+7, CHKS+8
>> 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+26
>> 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+8, CHKS+13, CHKS+14, CHKS+15, CHKS+26, CHKS+29, CHKS+30, CHKS+38 , CHKS+40, CHKS+41, CHKS+42, CHKS+43, CHKS+44, CHKS+45, CHKS+46, CHKS+47, PLB+13, PLB+14 , PLB+15, PLB+16, PLB+17, PLB+18, PLB+19
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+35!, CHKS+40*
>> 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+35!
Y(0	STNDTBL+10, FIND+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50P02

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: