Routine: BAR50P04

Information

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

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
IHS Accounts Receivable	10	(INS,NOMATCH,PRT)^BAR50DET NEGBAL^BAR50EB NONPAYCH^BAR50EP1 $$EN^BAR50P0Z CLM^BAR50P4A $$SDT^BARDUTL EN^BARPST5 $$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: 5

Package	Total	Caller Graph
IHS Accounts Receivable	5	BAR50EB BAR50EP BAR50EP1 BAR50P00 BAR50P05

Entry Points

Name	Comments	DBIA/ICR reference
INDEX	;EP
RABILL	;Write RA data
ADDREAS(IMPDA,CLMDA,ERRORS,SHOWMSG)	;EP - ADD RSN NOT SENT TO 'RSN NOT TO POST MULTIPLE'
HIPAAREA(IMPDA,CLMDA,ERRORS)	;mult errors
CHOOSE	;Choose bill from AR
ARBILL	;Loop & write AR data
STAT(IMPDA,CLMDA)	;EP
EN(TRDA,IMPDA)
CLM2	;
GETBBILL(BARTMP)	;
HIPAACLM(IMPDA,CLMDA,ERRORS)	;BAR1.85 SRS-80 TPF ERRORS CAN BE MULTIPLE
HIPAAR2	;Match HIPAA std codes to RPMS
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)	;EP
CLM(CLMDA)	;EP ;MATCH/SET/FLAG E-CLM TO A/R BILL
FTYPE()	;
SETREA	;EP SET CAT & REA INTO E-CLM
HDR	;hdr

External References

Name	Field # of Occurrence
^%DT	RABILL+2
INS^BAR50DET	INDEX+7, CLMFLG+7, CLMFLG+9, CLMFLG+16, CLMFLG+18, CLMFLG+20, REA+18, HIPAACLM+18, HIPAACLM+27, HIPAACLM+30
NOMATCH^BAR50DET	HIPAACLM+19
PRT^BAR50DET	EN+6, EN+7
NEGBAL^BAR50EB	INDEX+19
NONPAYCH^BAR50EP1	INDEX+22
$$EN^BAR50P0Z	INDEX+17
CLM^BAR50P4A	HIPAACLM+14
$$SDT^BARDUTL	RABILL+7, ARBILL+7
EN^BARPST5	CHOOSE+16
$$IHSNEGB^BARUFUT	INDEX+22
$$FIND3PB^BARUTL	CLM2+28
INIT^BARUTL	EN+2
$$EN^BARVDF	HDR+1, HDR+2, RABILL+4, RABILL+10
^DIC	CLM+5, REA+15, HIPAAR2+13, ADDREAS+16
^DIE	CLMFLG+45, CLM+12, SETREA+6, HIPAAR2+32, CLM2+42, STAT+7, DELREAS+10, DELREAS+22
$$GET1^DIQ	HIPAACLM+20, HIPAACLM+26, CLM2+2, CLM2+33, RABILL+1, RABILL+6, RABILL+8, RABILL+9, ARBILL+4, ARBILL+6 , ARBILL+8, ARBILL+9, ARBILL+10, ADDREAS+8, DELREAS+16
^DIR	CLM2+15, CHOOSE+4, CHOOSE+12
$$DIC^XBDIQ1	CLMFLG+41, CLM+8, REA+11, SETREA+2, HIPAAR2+26, CLM2+36, STAT+2, DELREAS+12
$$VAL^XBDIQ1	CLM+1, REA+7
$$VALI^XBDIQ1	REA+5, REA+6, REA+25, REA+26
DIQ^XBLM	CHOOSE+18

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: !,BARMSG Line Location: CLMFLG+8
Function Call: WRITE	Prompt: BARMSG Line Location: CLMFLG+12
Function Call: WRITE	Prompt: !?2,CLMCNT,?10,BARBL," ",$P($G(^BAREDI("I",DUZ(2),IMPDA,30,CLMDA,0)),U) Line Location: CLMFLG+25
Function Call: WRITE	Prompt: !,BARMSG Line Location: REA+17
Function Call: WRITE	Prompt: !,BARMSG Line Location: HIPAACLM+26
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+4
Function Call: WRITE	Prompt: "ERA" Line Location: RABILL+5
Function Call: WRITE	Prompt: ?4,$E($$GET1^DIQ(90056.0205,BAREIENS,.01),1,15) Line Location: RABILL+6
Function Call: WRITE	Prompt: ?20,$$SDT^BARDUTL(BARRADT) Line Location: RABILL+7
Function Call: WRITE	Prompt: ?31,$E($$GET1^DIQ(90056.0205,BAREIENS,.06),1,25) Line Location: RABILL+8
Function Call: WRITE	Prompt: ?57,$J($FN($$GET1^DIQ(90056.0205,BAREIENS,.05),",",2),10) Line Location: RABILL+9
Function Call: WRITE	Prompt: $$EN^BARVDF("RVF") Line Location: RABILL+10
Routine Call	DIE Line Location: CLMFLG+45 CLM+12 SETREA+6 HIPAAR2+32 CLM2+42 STAT+7 DELREAS+10 DELREAS+22
Routine Call	DIC Line Location: CLM+5 REA+15 HIPAAR2+13 ADDREAS+16
Routine Call	DIR Line Location: CLM2+15 CHOOSE+4 CHOOSE+12

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	CLM2+30
^BARBL(	REA+22, HIPAACLM+28
^BAREDI("I"	INDEX+9, CLMFLG+2, CLMFLG+5, CLMFLG+15, CLMFLG+19, CLMFLG+25, REA+4, HIPAAREA+5, HIPAAR2+1, HIPAAR2+7 , HIPAAR2+8, HIPAACLM+6, HIPAACLM+16, DELREAS+4
^BARERR("B"	ADDREAS+7
^DD(90056.0205	ADDREAS+10
^XTMP("BAR-LIST"	INDEX+5!, INDEX+9*, INDEX+12, INDEX+15
^XTMP("BAR-LIST_DETAIL"	INDEX+4!

Label References

Name	Line Occurrences
$$CLM	CLMFLG+32
$$FTYPE	INDEX+6
$$GETBBILL	HIPAACLM+8
$$HIPAACLM	CLMFLG+26
$$HIPAAREA	CLMFLG+28
$$LINE	CLMFLG+7
$$REA	CLMFLG+33
ADDREAS	CLMFLG+57
ARBILL	CLM2+7
CHOOSE	CLM2+8
CLMFLG	INDEX+15
DELREAS	CLMFLG+21
HDR	CLM2+5
HIPAAR2	HIPAAREA+5
INDEX	EN+6, EN+7
RABILL	CLM2+6
SETREA	REA+27
STAT	ADDREAS+5

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

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50P04

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: