Routine: BARRSEL1

Package	Total	Call Graph
IHS Accounts Receivable	1	DXINFO^BARRSL1
VA Fileman	1	^DIC

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARRSEL

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
CLIN	; EP ; Select clinics to sort by
DX01(BARICD)	;
VTYP	; EP ; Select Vitst Types to sort by
DX	;LIST SELECTED DX - BAR1.8.24

External References

Name	Field # of Occurrence
DXINFO^BARRSL1	DX01+5
^DIC	CLIN+9, VTYP+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"INCLUSION PARAMETERS in Effect for ",BARMENU,":" Line Location: DISP+1
Function Call: WRITE	Prompt: !?3,"=====================================================================" Line Location: DISP+2
Function Call: WRITE	Prompt: !?3,"- Visit Location........: ",BARY("LOC","NM") Line Location: DISP+3
Function Call: WRITE	Prompt: !?3,"- Billing Entity........: ",BARY("ACCT","NM") Line Location: DISP+4
Function Call: WRITE	Prompt: !?3,"- Billing Entity........: ",BARY("PAT","NM") Line Location: DISP+5
Function Call: WRITE	Prompt: !?3,"- Billing Entity........: ",BARY("TYP","NM") Line Location: DISP+6
Function Call: WRITE	Prompt: !?3,"- Allowance Category....: ",BARY("ALL","NM") Line Location: DISP+7
Function Call: WRITE	Prompt: !?3,"- Insurer Type...........: ",BARY("ITYP","NM") Line Location: DISP+8
Function Call: WRITE	Prompt: !?3,"- Eligbility Status......: ",BARY("PTYP","NM") Line Location: DISP+9
Function Call: WRITE	Prompt: !,?3,"- Clinic................: ",BARY("CLIN","NM") Line Location: DISP+10
Function Call: WRITE	Prompt: !?3,"- Adjustment Type.......: ",BARY("ADJ CAT","NM") Line Location: DISP+11
Function Call: WRITE	Prompt: !,?3,"Adjustment.............: ",$P(^BAR(90052.01,BARY("ADJTYP"),0),U) Line Location: DISP+12
Function Call: WRITE	Prompt: !?3,"- Data Source........: ",BARY("DATA SRC") Line Location: DISP+13
Function Call: WRITE	Prompt: !?3,"- TDN Selected..........: " Line Location: DISP+27
Function Call: WRITE	Prompt: ?29,TDN,! Line Location: DISP+30
Function Call: WRITE	Prompt: !?3,"- " Line Location: DISP+32
Function Call: WRITE	Prompt: " to: " Line Location: DISP+42
Function Call: WRITE	Prompt: !?3,"- Collection Point......: ",BARY("COLPT","NM") Line Location: DISP+45
Function Call: WRITE	Prompt: !?3,"- Collection Batch......: ",BARY("BATCH","NM") Line Location: DISP+46
Function Call: WRITE	Prompt: !?3,"- Collection Batch Item.: ",BARY("ITEM","NM") Line Location: DISP+47
Function Call: WRITE	Prompt: !?3,"- Cancelling Official...: ",$P(^VA(200,BARY("AR"),0),U) Line Location: DISP+48
Function Call: WRITE	Prompt: !?3,"- A/R Entry Clerk.......: ",$P(^VA(200,BARY("AR"),0),U) Line Location: DISP+49
Function Call: WRITE	Prompt: !,?3,"- Approving Official....: ",BARY("APPR","NM") Line Location: DISP+50
Function Call: WRITE	Prompt: !?3,"- Cancelling Official...: ",$P(^VA(200,BARY("CANC"),0),U) Line Location: DISP+51
Function Call: WRITE	Prompt: !?3,"- Provider..............: ",$P(^VA(200,BARY("PRV"),0),U) Line Location: DISP+52
Function Call: WRITE	Prompt: !?3,"- Discharge Service.....: ",BARY("DSVC","NM") Line Location: DISP+53
Function Call: WRITE	Prompt: !?3,"- Report Type...........: ",BARY("RTYP","NM") Line Location: DISP+55
Function Call: WRITE	Prompt: !?3,"- Large Balance.........: $",$FN(BARY("LBL"),",",2) Line Location: DISP+56
Function Call: WRITE	Prompt: !?3,"- Small Balance.........: $",$FN(BARY("SBL"),",",2) Line Location: DISP+57
Function Call: WRITE	Prompt: "ALL" Line Location: CLIN+15
Function Call: WRITE	Prompt: "ALL" Line Location: VTYP+14
Function Call: WRITE	Prompt: !?3,"- Search "_$P("Primary;Primary Only;Other Only;ALL (Primary + Other);",";",BARTMP1+1)_" Diagnosis" Line Location: DX+8
Function Call: WRITE	Prompt: !?3,"- ALL Primary Diagnosis (ICD-9 and ICD-10)" Line Location: DX+11
Function Call: WRITE	Prompt: !?3,"- ALL Primary ICD-9 Diagnosis" Line Location: DX+12
Function Call: WRITE	Prompt: !?3,"- ALL Primary ICD-10 Diagnosis" Line Location: DX+13
Function Call: WRITE	Prompt: !?3,"- Diagnosis Range ICD",BARICD," from: ",$G(BARY(BARICDX,1))," to: ",$G(BARY(BARICDX,2)) Line Location: DX01+2
Function Call: WRITE	Prompt: !?3,"- Individual Diagnosis ICD",BARICD,": " Line Location: DX01+4
Function Call: WRITE	Prompt: ! Line Location: DX01+5
Function Call: WRITE	Prompt: !?3,"- Diagnosis ICD",BARICD," begins: " Line Location: DX01+7
Function Call: WRITE	Prompt: !?12,BARDX Line Location: DX01+8
Routine Call	DIC Line Location: CLIN+9 VTYP+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^ABMDVTYP - [#9002274.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.01 - [#90052.01]	DISP+12
^VA(200 - [#200]	DISP+48, DISP+49, DISP+51, DISP+52

Label References

Name	Line Occurrences
DX	DISP+54
DX01	DX+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR("OPT"	DISP+10, DISP+36, DISP+37, DISP+48, CLIN+7, CLIN+12
BARDX	DX+1~, DX01+5, DX01+8
BARICD	DX+1~, DX+2*, DX01~, DX01+1, DX01+2, DX01+4, DX01+7
BARICDX	DX+1~, DX01+1*, DX01+2, DX01+3, DX01+5, DX01+6, DX01+8
>> BARMENU	DISP+1
>> BARTMP1	DX+4, DX+5, DX+6, DX+7, DX+8
>> BARY(	DX01+2, DX01+3, DX01+5, DX01+6, DX01+8
>> BARY("ACCT"	DISP+4
>> BARY("ADJ CAT	" , DISP+11
>> BARY("ADJTYP"	DISP+12
>> BARY("ALL"	DISP+7
>> BARY("APPR"	DISP+50
>> BARY("AR"	DISP+48, DISP+49
>> BARY("BATCH"	DISP+46
>> BARY("CANC"	DISP+51
>> BARY("CLIN"	DISP+10, CLIN+2!, CLIN+8, CLIN+11, CLIN+12, CLIN+13
>> BARY("COLPT"	DISP+45
>> BARY("DATA SR	C" , DISP+13
>> BARY("DSVC"	DISP+53
>> BARY("DT"	DISP+31, DISP+33, DISP+34, DISP+35, DISP+38, DISP+39, DISP+40, DISP+43
>> BARY("DX10"	DX+10, DX+13
>> BARY("DX10_ALL"	DX+10, DX+13
>> BARY("DX9"	DX+10, DX+12
>> BARY("DX9_ALL"	DX+10, DX+12
>> BARY("DXTYPE"	DX+3, DX+5, DX+6, DX+7
>> BARY("GRP PLA	N" , DISP+60, DISP+62, DISP+63
>> BARY("ITEM"	DISP+47
>> BARY("ITYP"	DISP+8
>> BARY("LBL"	DISP+56
>> BARY("LOC"	DISP+3
>> BARY("PAT"	DISP+5
>> BARY("PRV"	DISP+52
>> BARY("PTYP"	DISP+9
>> BARY("RTYP"	DISP+55
>> BARY("SBL"	DISP+57
>> BARY("SORT"	CLIN+14!, VTYP+13!
>> BARY("TDN"	DISP+26, DISP+29
>> BARY("TRANS T	YPE" , DISP+14, DISP+16, DISP+17, DISP+18, DISP+20, DISP+21, DISP+22, DISP+24, DISP+25
>> BARY("TYP"	DISP+6
>> BARY("VTYP"	VTYP+2!, VTYP+8, VTYP+11*, VTYP+12
>> BARY("X"	DISP+41, DISP+44
DA	CLIN+3!, CLIN+16!, VTYP+3!, VTYP+15!
DIC	CLIN+3!, CLIN+4, CLIN+16!, VTYP+3!, VTYP+4, VTYP+15!
DIC("A"	CLIN+6, CLIN+8, VTYP+6, VTYP+8
DIC(0	CLIN+5, VTYP+5
DIE	CLIN+3!, CLIN+16!, VTYP+3!, VTYP+15!
DR	CLIN+3!, CLIN+16!, VTYP+3!, VTYP+15!
>> DUOUT	CLIN+14, VTYP+13
TDN	DISP+28~, DISP+29, DISP+30
TT	DISP+15~, DISP+16, DISP+17, DISP+19~, DISP+20, DISP+21, DISP+23~, DISP+24, DISP+25, DISP+61~* , DISP+62*, DISP+63
U	DISP+12, DISP+17, DISP+21, DISP+25, DISP+48, DISP+49, DISP+51, DISP+52, DISP+63, CLIN+12
>> X	DISP+40, DISP+43
>> Y	CLIN+7, CLIN+10, CLIN+11, CLIN+12, VTYP+7, VTYP+10, VTYP+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRSEL1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: