Routine: BAREDP04

Information

BAREDP04 ; IHS/SD/LSL - MATCH REASONS AND CLAIMS ; 01/09/2009

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
IHS Accounts Receivable	11	(INS,NOMATCH,PRT)^BAR50DET NEGBAL^BAR50EB $$SDT^BARDUTL ($$OVERIDE,NONPAYCH)^BAREDEP1 $$EN^BAREDP0Z (CLM,TRANSCK)^BAREDP4A (ADDREAS,DELREAS)^BAREDP4B EN^BARPST5 ($$IHSCANCB,$$IHSNEGB)^BARUFUT ($$FIND3PB,INIT)^BARUTL $$EN^BARVDF
VA Fileman	5	^%DT ^DIC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	2	($$DIC,$$VAL,$$VALI)^XBDIQ1 DIQ^XBLM

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
IHS Accounts Receivable	6	BAREDEB BAREDEP BAREDEP1 BAREDP00 BAREDP05 BAREDP08

Entry Points

Name	Comments	DBIA/ICR reference
INDEX
RABILL
HIPAAREA(IMPDA,CLMDA,ERRORS)	;BAR1.85 SRS-80 TPF ERRORS CAN BE MULTIPLE ; Match HIPAA std codes to RPMS
CHOOSE
ADDREAS(IMPDA,CLMDA,ERRORS)	;EP - ADD RSN NOT SENT TO 'RSN NOT TO POST MULTIPLE'
ARBILL
FTYPE()	;
EN(TRDA,IMPDA)
CLM2
GETBBILL(BARTMP)	;----------------------------------------------
HIPAACLM(IMPDA,CLMDA,ERRORS)	;BAR1.85 SRS-80 TPF ERRORS CAN BE MULTIPLE
HIPAAR2
REA(CLMDA)	;EP ;LOOP MATCH/SET/FLAG RSN CODES OF E-CLM
LINE()	;
DELREAS(IMPDA,CLMDA)	;EP -CLR 'RSN NOT TO POST' MULTIPLES IN ERA FILE
CLMFLG(CLMDA,ERRORS)	;
CLM(CLMDA)	;EP ;MATCH/SET/FLAG E-CLM TO A/R BILL
SETREA
HDR

External References

Name	Field # of Occurrence
^%DT	CLM2+26, RABILL+5
INS^BAR50DET	INDEX+7, CLMFLG+8, CLMFLG+10, CLMFLG+12, CLMFLG+14, CLMFLG+16, REA+18, HIPAACLM+20, HIPAACLM+28, HIPAACLM+31
NOMATCH^BAR50DET	HIPAACLM+21
PRT^BAR50DET	EN+6, EN+7
NEGBAL^BAR50EB	INDEX+17
$$SDT^BARDUTL	RABILL+7, ARBILL+7
$$OVERIDE^BAREDEP1	CLMFLG+13
NONPAYCH^BAREDEP1	INDEX+21
$$EN^BAREDP0Z	INDEX+15
CLM^BAREDP4A	HIPAACLM+16
TRANSCK^BAREDP4A	CLM2+39
ADDREAS^BAREDP4B	ADDREAS+2
DELREAS^BAREDP4B	DELREAS+1
EN^BARPST5	CHOOSE+17
$$IHSCANCB^BARUFUT	CLM2+33
$$IHSNEGB^BARUFUT	INDEX+21
$$FIND3PB^BARUTL	CLM2+30
INIT^BARUTL	EN+2
$$EN^BARVDF	HDR+1, HDR+2, RABILL+1, RABILL+11
^DIC	CLM+5, REA+15, HIPAAR2+13
^DIE	CLMFLG+44, CLM+12, SETREA+6, HIPAAR2+33, CLM2+49
$$GET1^DIQ	HIPAACLM+6, HIPAACLM+22, HIPAACLM+27, CLM2+3, CLM2+25, CLM2+27, CLM2+40, RABILL+3, RABILL+4, RABILL+9 , RABILL+10, ARBILL+4, ARBILL+6, ARBILL+8, ARBILL+9, ARBILL+10
^DIR	CLM2+15, CHOOSE+5, CHOOSE+13
$$DIC^XBDIQ1	CLMFLG+40, CLM+8, REA+11, SETREA+2, HIPAAR2+27, CLM2+43
$$VAL^XBDIQ1	CLM+1, REA+7
$$VALI^XBDIQ1	REA+5, REA+6, REA+25, REA+26
DIQ^XBLM	CHOOSE+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Matching E-Claims to A/R Bills and Reason Codes",! Line Location: EN+3
Function Call: WRITE	Prompt: !,"Processing Claim Status using claim Index ",INDEX,! Line Location: INDEX+2
Function Call: WRITE	Prompt: !,BARMSG Line Location: INDEX+6
Function Call: WRITE	Prompt: " 1ST CHK - SKIP" Line Location: CLMFLG+3
Function Call: WRITE	Prompt: !,BARMSG Line Location: CLMFLG+9
Function Call: WRITE	Prompt: !,"PERFORMING TRADITIONAL HIPAA CHECKS FOR CLAIM ",$P($G(^BAREDI("I",DUZ(2),IMPDA,30,CLMDA,0)),U) Line Location: CLMFLG+21
Function Call: WRITE	Prompt: !,BARMSG Line Location: REA+17
Function Call: WRITE	Prompt: !,BARMSG Line Location: HIPAACLM+27
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("ULN"),?4,"BILL #",?23,"DOS",?31,"PATIENT NAME" Line Location: HDR+1
Function Call: WRITE	Prompt: ?57,"BILLED AMT",?71,"BALANCE",$$EN^BARVDF("ULF") Line Location: HDR+2
Function Call: WRITE	Prompt: !,$$EN^BARVDF("RVN") Line Location: RABILL+1
Function Call: WRITE	Prompt: "ERA" Line Location: RABILL+2
Function Call: WRITE	Prompt: ?4,$E($$GET1^DIQ(90056.0205,BAREIENS,.01),1,15) Line Location: RABILL+3
Function Call: WRITE	Prompt: ?20,$$SDT^BARDUTL(BARRADT) Line Location: RABILL+7
Function Call: WRITE	Prompt: ?20,"DOS <nil>" Line Location: RABILL+8
Function Call: WRITE	Prompt: ?31,$E($$GET1^DIQ(90056.0205,BAREIENS,.06),1,25) Line Location: RABILL+9
Function Call: WRITE	Prompt: ?57,$J($FN($$GET1^DIQ(90056.0205,BAREIENS,.05),",",2),10) Line Location: RABILL+10
Function Call: WRITE	Prompt: $$EN^BARVDF("RVF") Line Location: RABILL+11
Routine Call	DIE Line Location: CLMFLG+44 CLM+12 SETREA+6 HIPAAR2+33 CLM2+49
Routine Call	DIC Line Location: CLM+5 REA+15 HIPAAR2+13
Routine Call	DIR Line Location: CLM2+15 CHOOSE+5 CHOOSE+13

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ
90056.0205	GET1^DIQ
^BARADJ - [#90056.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	CLM2+36
^BARBL(	REA+22, HIPAACLM+29
^BAREDI("I"	INDEX+9, INDEX+10, CLMFLG+2, CLMFLG+6, CLMFLG+11, CLMFLG+15, REA+4, HIPAAREA+5, HIPAAR2+1, HIPAAR2+7 , HIPAAR2+8, HIPAACLM+18
^XTMP("BAR-LIST"	INDEX+4!, INDEX+10*, INDEX+11, INDEX+12
^XTMP("BAR-LIST_DETAIL"	INDEX+3!

Label References

Name	Line Occurrences
$$CLM	CLMFLG+29
$$FTYPE	INDEX+6
$$GETBBILL	HIPAACLM+9
$$HIPAACLM	CLMFLG+23
$$HIPAAREA	CLMFLG+25
$$LINE	CLMFLG+8
$$REA	CLMFLG+30
ADDREAS	CLMFLG+57, CLM2+35
ARBILL	CLM2+7
CHOOSE	CLM2+8
CLMFLG	INDEX+13
DELREAS	CLMFLG+17
HDR	CLM2+5
HIPAAR2	HIPAAREA+5
INDEX	EN+6, EN+7
RABILL	CLM2+6
SETREA	REA+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACAT	REA+5, REA+25, REA+27, HIPAAR2+7*
ADJ	REA+1!, HIPAAREA+2!
>> ADJDA	REA+3, REA+4, SETREA+4, HIPAAREA+4, HIPAAREA+5, HIPAAR2+1, HIPAAR2+7, HIPAAR2+8, HIPAAR2+30
>> AREA	REA+6, REA+26, REA+27, HIPAAR2+8*
>> BAR3PIEN	CLM2+30*, CLM2+31, CLM2+36
BARAMT	HIPAACLM+1~
>> BARANS	CLM2+10, CLM2+16, CLM2+21, CLM2+22, CLM2+23, CHOOSE+6, CHOOSE+8, CHOOSE+14, CHOOSE+15*
>> BARANS1	CHOOSE+15*, CHOOSE+17, CHOOSE+19
>> BARBDT	CLM2+27, CLM2+28, ARBILL+4, ARBILL+7
>> BARBIEN	HIPAACLM+8, HIPAACLM+9, HIPAACLM+24, HIPAACLM+26, HIPAACLM+29, CLM2+23, CLM2+27, CLM2+30, ARBILL+1, ARBILL+2* , ARBILL+4, ARBILL+6, ARBILL+8, ARBILL+9, ARBILL+10, ARBILL+11
>> BARBILL	HIPAACLM+8, HIPAACLM+9, HIPAACLM+16
>> BARBL	INDEX+11*, INDEX+12
>> BARBLDA	CLM+7*, REA+22
BARBLNUM	GETBBILL+1~, GETBBILL+2, GETBBILL+3, GETBBILL+4, GETBBILL+5
>> BARBSTAT	CLM2+36*, CLM2+38
>> BARCKIEN	CLMFLG+2
>> BARCNT	HIPAACLM+22, HIPAACLM+23, HIPAACLM+24, HIPAACLM+26, CLM2+3
>> BARCNT2	ARBILL+1, ARBILL+3, ARBILL+5, ARBILL+11, CHOOSE+10, CHOOSE+12
>> BARDBG	INDEX+5*, INDEX+7, CLMFLG+7, CLMFLG+12, CLMFLG+14, CLMFLG+16, REA+18, HIPAACLM+28, HIPAACLM+31
BARDOS	HIPAACLM+1~
>> BAREIENS	HIPAACLM+5*, HIPAACLM+6, HIPAACLM+16, HIPAACLM+22, HIPAACLM+27, CLM2+3, CLM2+25, CLM2+40, RABILL+3, RABILL+4 , RABILL+9, RABILL+10
BARFLG	INDEX+8!, INDEX+15*
BARFND	HIPAACLM+1~, HIPAACLM+15*, HIPAACLM+17
>> BARMMFLG	HIPAACLM+16
BARMSG	INDEX+6, INDEX+7, CLMFLG+9, CLMFLG+10, CLMFLG+59!, REA+17, REA+18, HIPAACLM+18, HIPAACLM+19, HIPAACLM+20 , HIPAACLM+27, HIPAACLM+28, HIPAACLM+29, HIPAACLM+30, HIPAACLM+31
>> BARRADT	CLM2+25, CLM2+26, CLM2+28, RABILL+6*, RABILL+7
>> BARRVW	CLM2+3
>> BARSEL	CLM2+4, CLM2+9, CLM2+10, CLM2+16, CLM2+17, CLM2+19, CLM2+20, CLM2+21, CHOOSE+7*, CHOOSE+8 , CHOOSE+16, CHOOSE+18
>> BARTEST	HIPAACLM+6*, HIPAACLM+9, HIPAACLM+10
BARTMP	HIPAACLM+1~, HIPAACLM+14!, GETBBILL~, GETBBILL+2
BARTMP(	ARBILL+2
BARTMP(0	HIPAACLM+24
>> BARTMP2(	CLM2+23, ARBILL+11*, CHOOSE+15
BARTMPCL	CLMFLG+4~, CLMFLG+6*, CLMFLG+9
BARTMPM	CLMFLG+4~
>> BARX	HIPAACLM+15*, HIPAACLM+16, HIPAACLM+29
>> BILMATCH	CLMFLG+5*, HIPAACLM+25
>> BILMATCH(""	HIPAACLM+26
CH	GETBBILL+1~, GETBBILL+2*, GETBBILL+3
>> CLMCNT	INDEX+11, CLMFLG+22
CLMDA	INDEX+9, INDEX+10, INDEX+12, INDEX+13, CLMFLG~, CLMFLG+2, CLMFLG+6, CLMFLG+9, CLMFLG+11, CLMFLG+13 , CLMFLG+15, CLMFLG+17, CLMFLG+23, CLMFLG+25, CLMFLG+29, CLMFLG+30, CLMFLG+43, CLMFLG+57, CLM~, CLM+9 , REA~, REA+4, SETREA+4, HIPAAREA~, HIPAAREA+5, HIPAAR2+1, HIPAAR2+7, HIPAAR2+8, HIPAAR2+29, HIPAACLM~ , HIPAACLM+5, HIPAACLM+18, CLM2+35, CLM2+44, ADDREAS~, ADDREAS+2, DELREAS~, DELREAS+1
>> CLMFLG	CLMFLG+23, CLMFLG+29, CLMFLG+35, CLMFLG+36, CLMFLG+37, CLMFLG+38, CLMFLG+50, CLMFLG+51, CLMFLG+52, CLMFLG+53 , REA+22
CLMTYP	CLMFLG+50, CLMFLG+51, CLMFLG+52, CLMFLG+53, CLMFLG+59!, HIPAACLM+11, HIPAACLM+23, CLM2+22, CLM2+28, CLM2+38*
DA	CLMFLG+39!, CLMFLG+43, CLM+2!, CLM+9, REA+10!, SETREA+1!, SETREA+4, HIPAAR2+9!, HIPAAR2+26!, HIPAAR2+30 , CLM2+44*
DA(1	CLMFLG+42, CLM+10, REA+12, SETREA+4, HIPAAR2+29, CLM2+45
DA(2	SETREA+3, HIPAAR2+28
DIC	CLM+2!, CLM+3, REA+10!, REA+11, SETREA+1!, HIPAAR2+9!, HIPAAR2+10*, HIPAAR2+26!
DIC(0	CLM+4, REA+14, HIPAAR2+12*
DIE	CLMFLG+39!, CLMFLG+40, CLM+8, SETREA+1!, SETREA+2, HIPAAR2+26!, HIPAAR2+27, CLM2+43*
DIR	CLM2+11!, CHOOSE+2!, CHOOSE+9!
DIR("?"	CHOOSE+12*
DIR("A"	CLM2+13, CHOOSE+4, CHOOSE+11*
DIR("B"	CLM2+14*
DIR(0	CLM2+12, CHOOSE+3, CHOOSE+10*
>> DIROUT	CHOOSE+6, CHOOSE+14
>> DIRUT	CHOOSE+6, CHOOSE+14
DR	CLMFLG+39!, CLMFLG+41, CLM+2!, CLM+11, REA+10!, SETREA+1!, SETREA+5, HIPAAR2+9!, HIPAAR2+26!, HIPAAR2+31 , HIPAAR2+32, CLM2+46, CLM2+48*
>> DTOUT	CHOOSE+6, CHOOSE+14
>> DUOUT	CHOOSE+6, CHOOSE+14
DUZ(2	INDEX+3, INDEX+4, INDEX+9, INDEX+10, INDEX+11, INDEX+12, INDEX+21, CLMFLG+2, CLMFLG+6, CLMFLG+11 , CLMFLG+15, REA+4, REA+22, HIPAAREA+5, HIPAAR2+1, HIPAAR2+7, HIPAAR2+8, HIPAACLM+18, HIPAACLM+29, CLM2+30 , CLM2+33
ERAAMT	HIPAACLM+1~
ERACHECK	EN+1~
ERADOS	HIPAACLM+1~
ERATYPE	HIPAACLM+1~
ERRORS	INDEX+13!, INDEX+22!, CLMFLG~, CLMFLG+23, CLMFLG+25, CLMFLG+55!, CLMFLG+56!, CLMFLG+57, CLMFLG+59!, HIPAAREA~ , HIPAACLM~, CLM2+35, CLM2+41, ADDREAS~, ADDREAS+2
ERRORS("CC"	CLM2+34, CLM2+38
ERRORS("CD"	CLM2+28*
ERRORS("CF"	HIPAACLM+13*
ERRORS("CT"	CLMFLG+55, HIPAACLM+23, CLM2+22*
ERRORS("DUPB"	CLMFLG+56, CLM2+20
ERRORS("RF"	HIPAAR2+6*
ERRORS("RT"	HIPAAR2+18*
ERRORS("RU"	HIPAAR2+25*
I	GETBBILL+1~, GETBBILL+2, LINE+1~, LINE+2
IMPDA	EN~, INDEX+9, INDEX+10, INDEX+15, INDEX+17, INDEX+21, CLMFLG+2, CLMFLG+6, CLMFLG+11, CLMFLG+15 , CLMFLG+17, CLMFLG+23, CLMFLG+25, CLMFLG+42, CLMFLG+57, CLM+10, REA+4, SETREA+3, HIPAAREA~, HIPAAREA+5 , HIPAAR2+1, HIPAAR2+7, HIPAAR2+8, HIPAAR2+28, HIPAACLM~, HIPAACLM+5, HIPAACLM+18, CLM2+35, CLM2+45, ADDREAS~ , ADDREAS+2, DELREAS~, DELREAS+1
>> INDEX	EN+5, EN+7, INDEX+2
>> MATCH	CLM2+47*
>> NEWSTAT	CLM2+2, CLM2+20, CLM2+40
>> QFLG	INDEX+1, INDEX+11, INDEX+12, INDEX+14, CLMFLG+24, CLMFLG+26, CLM2+9
REA	CLMFLG+59!, REA+7, REA+8, REA+13, HIPAAR2+1, HIPAAR2+2, HIPAAR2+11
READA	CLMFLG+59!, REA+20, HIPAAR2+19
REAFLG	CLMFLG+25, CLMFLG+30, CLMFLG+35, CLMFLG+36, CLMFLG+37, CLMFLG+38, CLMFLG+47, CLMFLG+48, CLMFLG+49, CLMFLG+59! , REA+2, REA+8, REA+19, REA+28, REA+29, HIPAAREA+3, HIPAAREA+6, HIPAAR2+4, HIPAAR2+16, HIPAAR2+23
REASDA	CLMFLG+59!
REATYP	CLMFLG+47, CLMFLG+48, CLMFLG+49, CLMFLG+59!, HIPAAR2+5, HIPAAR2+17, HIPAAR2+24*
REVERSAL	EN+1~
>> SHOWMSG	CLM2+35, ADDREAS+1*
STAT	CLMFLG+34, CLMFLG+35, CLMFLG+36, CLMFLG+37, CLMFLG+38, CLMFLG+47, CLMFLG+48, CLMFLG+49, CLMFLG+50, CLMFLG+51 , CLMFLG+52, CLMFLG+53, CLMFLG+59!
STR	LINE+1~, LINE+2*, LINE+3
TRDA	EN~, REA+12
>> TRNAME	EN+4, CLMFLG+20, CLMFLG+28, CLMFLG+46
U	INDEX+10, CLMFLG+2, CLMFLG+6, CLMFLG+11, CLMFLG+15, REA+22, REA+23, HIPAAR2+1, HIPAAR2+7, HIPAAR2+8 , HIPAAR2+21, HIPAACLM+18, HIPAACLM+29, CLM2+36
>> X	CLM+1, REA+13, REA+17, HIPAAR2+11, HIPAAR2+15, HIPAAR2+22, CLM2+25, CLM2+26, RABILL+4*, RABILL+7 , RABILL+8
>> Y	CLM+6, CLM+7, REA+16, REA+20, REA+22, REA+23, HIPAAR2+14, HIPAAR2+19, CLM2+16, CLM2+26 , RABILL+6, CHOOSE+7, CHOOSE+15
>> Y(0	HIPAAR2+21

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREDP04

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: