Routine: BARRCHK

Package	Total	Call Graph
IHS Accounts Receivable	4	TRANS^BARRCHK1 $$CONVERT^BARRSL2 $$GROUPLAN^BARUTL $$VALI^BARVPM
DRG Grouper	1	(,$$CODECS,$$CODEFI,$$NUM)^ICDEX
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Accounts Receivable	13	BARDRST BARDYSV1 BARRADJ BARRAMR BARRAOI BARRASM BARRCXL1 BARRIDR BARRLBL BARRNEGB BARRPAY BARRPSRA BARRTAR

Entry Points

Name	Comments	DBIA/ICR reference
DX29(BARDX)	;
ARACCT1
ARACCT
DX210(BARDX)	;
BILL	;EP ; for checking Bill File data parameters
DBGMSG	;
GETICD(BARDX)
DX	; - BAR1.823
GETBI(D0)	;keep D0 intact
TRANS	;EP
DX10(BARDX)	;
DX9(BARDX)	;BARDX=BAR("DX")

External References

Name	Field # of Occurrence
TRANS^BARRCHK1	TRANS+1
$$CONVERT^BARRSL2	ARACCT1+21
$$GROUPLAN^BARUTL	BILL+26
$$VALI^BARVPM	GETBI+2
$$GET1^DIQ	BILL+18, BILL+24
^ICDEX	GETICD+4
$$CODECS^ICDEX	GETICD+6
$$CODEFI^ICDEX	GETICD+5
$$NUM^ICDEX	DX10+9, DX10+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PATIENT # MATCHES: PAT=",$G(BARY("PAT"))," P=",BAR("P") Line Location: ARACCT+5
Function Call: WRITE	Prompt: " HIT=1" Line Location: ARACCT1+42
Function Call: WRITE	Prompt: " HIT=0" Line Location: DBGMSG+2
Function Call: WRITE	Prompt: !,"CHECKING IF DX ",BARDX," MATCHES CRITERIA FOR SELECTED DXs 9" Line Location: DX29+1
Function Call: WRITE	Prompt: !,BARDX," NOT ICD9" Line Location: DX29+7
Function Call: WRITE	Prompt: " YES ICD9 "_BAR("DX") Line Location: DX29+12
Function Call: WRITE	Prompt: !,"CHECKING IF DX ",BARDX," MATCHES CRITERIA FOR SELECTED DXs 10" Line Location: DX210+1
Function Call: WRITE	Prompt: !,BARDX," NOT ICD10" Line Location: DX210+3
Function Call: WRITE	Prompt: " YES ICD10 "_BAR("DX") Line Location: DX210+8
Function Call: WRITE	Prompt: !,i,". ",BARDX Line Location: DX9+5
Function Call: WRITE	Prompt: !,1,". ",BARDX Line Location: DX9+9
Function Call: WRITE	Prompt: !,BARI,". ",BARDX Line Location: DX10+6
Function Call: WRITE	Prompt: !,1,". ",BARDX Line Location: DX10+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARAC(	BILL+49
^BARBL(	BILL+5, BILL+7, BILL+8
^TMP($J	BILL+6, BILL+45, BILL+50, BILL+53, ARACCT+2, ARACCT+4, ARACCT+7, ARACCT1+2, ARACCT1+6, ARACCT1+8 , ARACCT1+12, ARACCT1+14, ARACCT1+18, ARACCT1+20, ARACCT1+23, ARACCT1+25, ARACCT1+27, ARACCT1+32, ARACCT1+36, ARACCT1+40

Label References

Name	Line Occurrences
$$GETBI	BILL+34
$$GETICD	DX29+6, DX210+2
DBGMSG	BILL+6, BILL+45, BILL+50, BILL+53, ARACCT+2, ARACCT+4, ARACCT+7, ARACCT1+2, ARACCT1+6, ARACCT1+8 , ARACCT1+12, ARACCT1+14, ARACCT1+18, ARACCT1+20, ARACCT1+23, ARACCT1+25, ARACCT1+27, ARACCT1+32, ARACCT1+36, ARACCT1+40
DX	ARACCT1+16
DX10	DX210+6
DX210	DX+8, DX+9
DX29	DX+7, DX+9
DX9	DX29+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR	BILL+5, BILL+6, BILL+7, BILL+8, BILL+18, BILL+24, BILL+26, BILL+45, BILL+50, BILL+53 , ARACCT+2, ARACCT+4, ARACCT+7, ARACCT1+2, ARACCT1+6, ARACCT1+8, ARACCT1+12, ARACCT1+14, ARACCT1+18, ARACCT1+20 , ARACCT1+23, ARACCT1+25, ARACCT1+27, ARACCT1+32, ARACCT1+36, ARACCT1+40
>> BAR("""GRP"""	ARACCT1+8
>> BAR("A"	BILL+14*, ARACCT1+34, ARACCT1+35
>> BAR("ALL"	BILL+37, BILL+38, BILL+39, BILL+40, BILL+41, BILL+42, BILL+43*, ARACCT1+22, ARACCT1+23
>> BAR("BI"	BILL+34, BILL+35, BILL+36, BILL+38, BILL+39, BILL+40, BILL+41, BILL+42, ARACCT1+17, ARACCT1+19
>> BAR("C"	BILL+17, BILL+48, ARACCT1+24
>> BAR("D"	BILL+13*, BILL+44, BILL+45, ARACCT1+30, ARACCT1+31
>> BAR("DS"	BILL+18, ARACCT1+10, ARACCT1+11, ARACCT1+13
>> BAR("DX"	BILL+23!, BILL+24, BILL+25, BILL+27, ARACCT1+16, DX+1, DX+5, DX+6, DX29+5, DX29+9 , DX29+10, DX29+11, DX29+12, DX210+5, DX210+6, DX210+7, DX210+8, DX9+2, DX9+8, DX10+3 , DX10+11*
>> BAR("GRP"	BILL+26*, ARACCT1+4, ARACCT1+7
>> BAR("I"	BILL+11*, BILL+33, BILL+44, BILL+45, BILL+49, ARACCT+1, ARACCT1+1
>> BAR("L"	BILL+10*, BILL+44, BILL+45, BILL+52
>> BAR("P"	BILL+12*, BILL+44, BILL+45, ARACCT+3
>> BAR("PD"	BILL+15*, ARACCT1+38, ARACCT1+39
>> BAR("PV"	BILL+16*, ARACCT+6
>> BAR("QUIT"	ARACCT1+28!, ARACCT1+29, ARACCT1+30, ARACCT1+31, ARACCT1+32, ARACCT1+33, ARACCT1+34, ARACCT1+35, ARACCT1+36, ARACCT1+37 , ARACCT1+38, ARACCT1+39, ARACCT1+40
>> BAR("RTN"	BILL+4
>> BAR("SUBR"	BILL+4*, BILL+6, BILL+45, BILL+50, BILL+53, ARACCT+2, ARACCT+4, ARACCT+7, ARACCT1+2, ARACCT1+6 , ARACCT1+8, ARACCT1+12, ARACCT1+14, ARACCT1+18, ARACCT1+20, ARACCT1+23, ARACCT1+25, ARACCT1+27, ARACCT1+32, ARACCT1+36 , ARACCT1+40
>> BAR("V"	BILL+9, BILL+47, ARACCT1+26
>> BAR(0	BILL+7*, BILL+11, BILL+14, BILL+15
>> BAR(1	BILL+8*, BILL+9, BILL+10, BILL+12, BILL+13, BILL+16, BILL+17
>> BARDBG	DX+4*, DX29+1, DX29+7, DX29+12, DX210+1, DX210+3, DX210+8, DX9+5, DX9+9, DX10+6 , DX10+12
>> BARDEBUG	BILL+2*, BILL+6, BILL+45, BILL+50, BILL+53, ARACCT+2, ARACCT+4, ARACCT+7, ARACCT1+2, ARACCT1+6 , ARACCT1+8, ARACCT1+12, ARACCT1+14, ARACCT1+18, ARACCT1+20, ARACCT1+23, ARACCT1+25, ARACCT1+27, ARACCT1+32, ARACCT1+36 , ARACCT1+40, ARACCT1+42, DBGMSG+1
BARDX	DX+2~, DX+6*, DX+7, DX+8, DX+9, DX29~, DX29+1, DX29+6, DX29+7, DX29+10 , DX29+11, DX210~, DX210+1, DX210+2, DX210+3, DX210+6, DX210+7, DX9~, DX9+4, DX9+5 , DX9+8, DX9+9, DX10~, DX10+5, DX10+6, DX10+9, DX10+10, DX10+12, GETICD~, GETICD+2 , GETICD+3, GETICD+5, GETICD+6
BARDXY	DX9+1~, DX9+4, DX10+1~, DX10+5
BARFILE	GETICD+1~, GETICD+5*, GETICD+6
BARI	DX10+1~, DX10+5*, DX10+6
BAROK	DX9+1~, DX9+2, DX9+3, DX9+4, DX10+1~, DX10+3, DX10+4, DX10+5
>> BARP("HIT"	BILL+3, ARACCT1+41
>> BARTMP	BILL+33, BILL+34, ARACCT1+5, ARACCT1+6
BARX	GETICD+1~, GETICD+6*, GETICD+7
>> BARY("ACCT"	ARACCT1+1
>> BARY("ALL"	ARACCT1+21*, ARACCT1+22, ARACCT1+23
>> BARY("ARACCT"	ARACCT+1
>> BARY("CLIN"	ARACCT1+24
>> BARY("DSCH"	ARACCT1+10, ARACCT1+11
>> BARY("DSVC"	ARACCT1+13
>> BARY("DT"	ARACCT1+29, ARACCT1+30, ARACCT1+31, ARACCT1+33, ARACCT1+34, ARACCT1+35, ARACCT1+37, ARACCT1+38, ARACCT1+39
>> BARY("DX-ICDVER"	DX+7, DX+8, DX+9
>> BARY("DX10"	ARACCT1+16, DX210+5, DX210+6, DX10+3, DX10+5, DX10+7, DX10+8, DX10+9, DX10+10
>> BARY("DX9"	ARACCT1+16, DX29+9, DX29+10, DX9+2, DX9+4, DX9+6, DX9+7, DX9+8
>> BARY("GRP PLA	N" , ARACCT1+4, ARACCT1+7
>> BARY("ITYP"	ARACCT1+19
>> BARY("LOC"	BILL+52
>> BARY("PAT"	ARACCT+3
>> BARY("PRV"	ARACCT+6
>> BARY("SORT"	BILL+47, BILL+48
>> BARY("TYP"	ARACCT1+17
>> BARY("VTYP"	ARACCT1+26
>> BARYTOTY("DX10"	DX210+9*
>> BARYTOTY("DX9"	DX29+13*
D0	GETBI~, GETBI+1
DUZ(2	BILL+5, BILL+7, BILL+8, BILL+49
I	DX+2~, DX+5*, DX+6
U	BILL+9, BILL+10, BILL+11, BILL+12, BILL+13, BILL+14, BILL+15, BILL+16, BILL+17, BILL+26 , BILL+45, ARACCT1+4, ARACCT1+17
>> i	DX9+4*, DX9+5

Marked Items

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRCHK

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items