Routine: BARRSL1

Package	Total	Call Graph
IHS Accounts Receivable	2	(AR,ASKICD,BATCH,CLNUPDX,DSVC,DT,ITEM,PRV,RTYP,TRANTYP)^BARRSL4 LIST^BARRSLDX
VA Fileman	2	^DIC ^DIR
DRG Grouper	1	^ICDEX

Package	Total	Caller Graph
IHS Accounts Receivable	9	BARRAOI BARRASMA BARRATS BARRCXL BARRPVC BARRSEL1 BARRSYNC BARTRANS BARTRANT

Entry Points

Name	Comments	DBIA/ICR reference
LOC	; EP ; Select Location inclusion parameters
PAT	; ; Specific patient of billing entity parameter
DXADINFO(BARX,BARY)	;
DX9	;<-------
ITYP	; EP ; Ask for Insurer Type
DXINFO(BARDX)	;
ASKICD()	;
DX	; EP
ACCT	; ; Specific insurer of billing entity parameter
DT	; EP ; Select Date inclusion parameter
HAVICD10()	;RETURNS 1 IF ICD10 INSTALLED
RTYP	; EP ; Select Report Type Inclusion Parameter
GETGRP	; Prompt for Group # ;New Tag... M819ADDTMM*20100720
PRV	; EP ; Select Provider Inclusion Parameter
ASKREM()	;
DXLOW10	;
LBL	; EP ; Ask for large balance
DXHI9	;
DXLOW9	;
CLNUPDX	;CLEAN UP DX
DATASRC	;EP
BATCH	; EP ; Select Collection Batch Inclusion Parameter
COLPT	; EP ; Select Collection Point and Date ranges
DXADD(BARICD)	;
AR	; EP ; Select A/R Clerk Inclusion Parameter
DXHI10	;
CONTDX(BARICD)	;
TRANTYP	; EP
ALL	; EP ; Select ALLOWANCE CATEGORY Inclusion Parameter BAR1.8*23
DSVC	; EP Select One Discharge Service
ITEM	; EP ; Select Collection Batch Item Inclusion Parameter
ADDDX(BARICD)	;ADD ONE OR MORE SINGLE DG INTO BARY("DX9",3 or BARY("DX10",3
DX10	;
DXCODE	;
LIST(BARICD)	;
SHOWDX	; - BAR1.8*23 LIST SELECTED DXs
TYP	; EP ; Select BILLING ENTITY Inclusion Parameter ; May not specify both billing entity and a/r account
SBL	; EP ; Ask for small balance

External References

Name	Field # of Occurrence
AR^BARRSL4	AR+2
ASKICD^BARRSL4	ASKICD+1
BATCH^BARRSL4	BATCH+2
CLNUPDX^BARRSL4	CLNUPDX+1
DSVC^BARRSL4	DSVC+1
DT^BARRSL4	DT+2
ITEM^BARRSL4	ITEM+2
PRV^BARRSL4	PRV+2
RTYP^BARRSL4	RTYP+2
TRANTYP^BARRSL4	TRANTYP+1
LIST^BARRSLDX	CONTDX+14
^DIC	LOC+7, ACCT+6, GETGRP+6, PAT+5, COLPT+5
^DIR	TYP+19, ALL+10, DXCODE+34, DXLOW9+9, DXHI9+4, ADDDX+12, CONTDX+11, DXLOW10+9, DXHI10+4, LBL+6 , SBL+6, ITYP+33, DATASRC+5, ASKREM+5
^ICDEX	DXCODE+5, HAVICD10+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOC+2
Function Call: WRITE	Prompt: ! Line Location: GETGRP+1
Function Call: WRITE	Prompt: !!!,"NOTE: SOME OF THE ICD-10 INFRASTRUCTURE UTILITIES ARE MISSING." Line Location: DXCODE+6
Function Call: WRITE	Prompt: !,"THIS REPORT CANNOT CURRENTLY PROVIDE ANY DATA BASED ON ICD-10 DX CODES" Line Location: DXCODE+7
Function Call: WRITE	Prompt: !! Line Location: DXCODE+29
Function Call: WRITE	Prompt: !,"OK, make a new DX selection" Line Location: DXCODE+37
Function Call: WRITE	Prompt: !! Line Location: DXLOW9+3
Function Call: WRITE	Prompt: "Entry of Diagnosis Range ICD-9",! Line Location: DXLOW9+4
Function Call: WRITE	Prompt: "==============================" Line Location: DXLOW9+5
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Low Diagnosis is Greater than the High, TRY AGAIN!",!! Line Location: DXHI9+11
Function Call: WRITE	Prompt: !! Line Location: DXADD+6
Function Call: WRITE	Prompt: !! Line Location: ADDDX+5
Function Call: WRITE	Prompt: "Entry of Diagnosis Code ICD-",BARICD,! Line Location: ADDDX+6
Function Call: WRITE	Prompt: "==============================" Line Location: ADDDX+7
Function Call: WRITE	Prompt: !," Removed from selection." Line Location: ADDDX+19
Function Call: WRITE	Prompt: !," Added to selection." Line Location: ADDDX+21
Function Call: WRITE	Prompt: " no matching DXs found" Line Location: CONTDX+15
Function Call: WRITE	Prompt: !,BARDX1, Line Location: CONTDX+19
Function Call: WRITE	Prompt: " (",BARCNT," matching DXs found) " Line Location: CONTDX+20
Function Call: WRITE	Prompt: !,BARDX1," added to selection." Line Location: CONTDX+21
Function Call: WRITE	Prompt: !! Line Location: DXLOW10+3
Function Call: WRITE	Prompt: "Entry of Diagnosis Range ICD-10",! Line Location: DXLOW10+4
Function Call: WRITE	Prompt: "===============================" Line Location: DXLOW10+5
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Low Diagnosis is Greater than the High, TRY AGAIN!",!! Line Location: DXHI10+12
Function Call: WRITE	Prompt: !!?5,"Currently selected diagnoses: " Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST+5
Function Call: WRITE	Prompt: !,"code begins ",BAR1 Line Location: LIST+6
Function Call: WRITE	Prompt: !,"Display all ICD-9 Diagnosis" Line Location: SHOWDX+2
Function Call: WRITE	Prompt: !,"Display all ICD-10 Diagnosis" Line Location: SHOWDX+3
Function Call: WRITE	Prompt: !,"ICD"_$E(BAR1,3,4) Line Location: SHOWDX+6
Function Call: WRITE	Prompt: " FROM " Line Location: SHOWDX+8
Function Call: WRITE	Prompt: " TO " Line Location: SHOWDX+9
Function Call: WRITE	Prompt: " " Line Location: SHOWDX+12
Function Call: WRITE	Prompt: ! Line Location: SHOWDX+13
Function Call: WRITE	Prompt: !,BAR1 Line Location: SHOWDX+15
Function Call: WRITE	Prompt: " begins" Line Location: SHOWDX+16
Function Call: WRITE	Prompt: ?12," ",BARDX Line Location: SHOWDX+17
Function Call: WRITE	Prompt: ! Line Location: SHOWDX+17
Function Call: WRITE	Prompt: ?12," ",BARDX Line Location: DXINFO+3
Function Call: WRITE	Prompt: ?20,BAR4 Line Location: DXINFO+12
Function Call: WRITE	Prompt: !,"Y=",Y," X=",X," DTOUT: ",$G(DTOUT)," DUOUT: ",$G(DUOUT)," DIRUT: ",$G(DIRUT)," DIROUT: ",$D(DIROUT)," $g(barq)=",$G(BARQ) Line Location: HAVICD10+5
Routine Call	DIC Line Location: LOC+7 ACCT+6 GETGRP+6 PAT+5 COLPT+5
Routine Call	DIR Line Location: TYP+19 ALL+10 DXCODE+34 DXLOW9+9 DXHI9+4 ADDDX+12 CONTDX+11 DXLOW10+9 DXHI10+4 LBL+6 SBL+6 ITYP+33 DATASRC+5 ASKREM+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUTNEGRP - [#9999999.77]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	DXINFO+7, DXINFO+11
^ICD9("AB"	DXINFO+6, DXINFO+10

Label References

Name	Line Occurrences
$$ASKICD	DXCODE+3
$$ASKREM	CONTDX+17
$$HAVICD10	DXLOW9+8, DXHI9+3, ADDDX+10, ADDDX+11, DXINFO+4
ACCT	TYP+25
ADDDX	DXADD+4
CLNUPDX	DXCODE+4
DX	DXCODE+36
DX10	DXCODE+14, DXCODE+19
DX9	DXCODE+11, DXCODE+17
DXADD	DXCODE+12, DXCODE+15, DXCODE+18, DXCODE+20
DXCODE	DXCODE+5
DXINFO	LIST+5, SHOWDX+11, SHOWDX+13
DXLOW10	DXHI10+7, DXHI10+11
DXLOW9	DXHI9+6, DXHI9+10
GETGRP	ACCT+12
LIST	ADDDX+4
PAT	TYP+25
SHOWDX	DXCODE+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AUPNLK("ALL"	PAT+8!
>> BAR("OPT"	ACCT+12
BAR1	LIST+1~, LIST+5, LIST+6, SHOWDX+1~, SHOWDX+4*, SHOWDX+5, SHOWDX+6, SHOWDX+10, SHOWDX+13, SHOWDX+14 , SHOWDX+15, SHOWDX+17
BAR2	LIST+1~, SHOWDX+1~, SHOWDX+5, SHOWDX+7, SHOWDX+8, SHOWDX+9, SHOWDX+10, SHOWDX+13, SHOWDX+14, SHOWDX+17 , DXINFO+1~, DXINFO+5, DXINFO+6, DXINFO+9, DXINFO+10
BAR3	LIST+1~, SHOWDX+1~, DXINFO+1~, DXINFO+6, DXINFO+7, DXINFO+10, DXINFO+11
BAR4	LIST+1~, DXINFO+1~, DXINFO+2, DXINFO+7, DXINFO+11*, DXINFO+12
>> BARCNT	CONTDX+15, CONTDX+20
>> BARDONE3	ALL+12, ALL+13
BARDX	ADDDX+1!, ADDDX+16, ADDDX+17, ADDDX+18, ADDDX+20, ADDDX+21, SHOWDX+10, SHOWDX+11, SHOWDX+13, SHOWDX+17 , DXINFO~, DXINFO+3, DXINFO+5, DXINFO+9
BARDX1	CONTDX+3~, CONTDX+13*, CONTDX+14, CONTDX+16, CONTDX+18, CONTDX+19, CONTDX+21
BARDXTYP	DXADD+1~, DXADD+2, DXADD+3, DXADD+5, ADDDX+2~, ADDDX+3, ADDDX+4, ADDDX+18, ADDDX+20, ADDDX+21 , CONTDX+3~, CONTDX+4, CONTDX+16, CONTDX+18, CONTDX+21, LIST+3~, LIST+4, LIST+5, LIST+6
>> BARGRPI	ACCT+12*, GETGRP+8
BARICD	DXADD~, DXADD+2, DXADD+4, ADDDX~, ADDDX+3, ADDDX+4, ADDDX+6, ADDDX+9, ADDDX+10, ADDDX+11 , CONTDX~, CONTDX+4, CONTDX+6, CONTDX+8, CONTDX+9, CONTDX+10, LIST~, LIST+4
>> BARICDV	DXCODE+3*, DXCODE+9
>> BARQ	DX+1, DXCODE+10, DXCODE+11, DXCODE+12, DXCODE+13, DXCODE+14, DXCODE+15, DXCODE+16, DXCODE+17, DXCODE+18 , DXCODE+19, DXCODE+20, DXLOW9+10, DXHI9+5, DXADD+4, ADDDX+13, DXLOW10+10, DXHI10+5, HAVICD10+5
>> BARQ1	ADDDX+17*
BARTMP1	SHOWDX+1~
BARX	DXADINFO~
BARY	DXADINFO~
BARY(	DXADD+3!, DXADD+5!, ADDDX+4, ADDDX+18, ADDDX+20!, ADDDX+21, CONTDX+16, CONTDX+18!, CONTDX+21, LIST+5 , LIST+6, SHOWDX+5, SHOWDX+10, SHOWDX+13, SHOWDX+14, SHOWDX+17
BARY("ACCT"	TYP+3!, ACCT+3!, ACCT+10, ACCT+11, ALL+2!, ITYP+2!
BARY("ALL"	TYP+3!, ALL+2!, ALL+14, ALL+15, ITYP+2!
BARY("COLPT"	ITYP+3!, COLPT+2!, COLPT+9, COLPT+10
BARY("DATA SR	C" , DATASRC+4, DATASRC+8*
BARY("DX-ICDVER"	DX+4!, DXCODE+9*, DXCODE+10, DXCODE+13, DXCODE+16, DXCODE+21, DXCODE+25
BARY("DX10"	DX+3!, DXCODE+25, DXCODE+26!, DXCODE+27, DXLOW10+1!, DXLOW10+12, DXHI10+7, DXHI10+9*, DXHI10+11, SHOWDX+3
BARY("DX10_ALL"	DXCODE+28*
BARY("DX9"	DX+2!, DXCODE+21, DXCODE+22!, DXCODE+23, DXLOW9+1!, DXLOW9+12, DXHI9+6, DXHI9+8*, DXHI9+9, DXHI9+10 , SHOWDX+2
BARY("DX9_ALL"	DXCODE+24*
BARY("GRP PLA	N" , GETGRP+8, GETGRP+9
BARY("ITYP"	TYP+3!, ALL+2!, ITYP+2!, ITYP+36, ITYP+37, COLPT+2!
BARY("LBL"	LBL+5, LBL+9*
BARY("LOC"	LOC+3!, LOC+11, LOC+12
BARY("PAT"	TYP+3!, PAT+2!, PAT+10, PAT+11, ALL+2!, ITYP+2!
BARY("SBL"	SBL+5, SBL+9*
BARY("TYP"	TYP+3!, TYP+23, TYP+24, TYP+27, TYP+28, TYP+29, TYP+30, TYP+31, TYP+32, TYP+33* , TYP+34, TYP+35, TYP+36*, ACCT+3!, PAT+2!, ALL+2!, ITYP+2!
DA	DXLOW9+2!, ADDDX+1!, CONTDX+2!, DXLOW10+2!
DIC	LOC+3!, LOC+4, LOC+8!, ACCT+2!, ACCT+4, ACCT+7!, GETGRP+2!, GETGRP+3, PAT+3, PAT+6! , DXLOW9+2!, ADDDX+1!, CONTDX+2!, DXLOW10+2!, COLPT+3*, COLPT+6!
DIC("A"	LOC+6, GETGRP+4
DIC(0	LOC+5, ACCT+5, GETGRP+5, PAT+4, COLPT+4*
DIR	TYP+3!, TYP+20!, ALL+2!, ALL+11!, DXCODE+35!, DXLOW9+2!, ADDDX+1!, CONTDX+2!, DXLOW10+2!, LBL+2! , LBL+7!, SBL+2!, SBL+7!, ITYP+2!, ITYP+34!, DATASRC+6!, ASKREM+1!, ASKREM+6!
DIR("?"	TYP+18, ALL+9, CONTDX+8, CONTDX+9, CONTDX+10, ITYP+32
DIR("A"	TYP+17, ALL+8, DXCODE+31, DXLOW9+7, DXHI9+2, ADDDX+9, CONTDX+6, DXLOW10+7, DXHI10+2, LBL+4 , SBL+4, ITYP+31, DATASRC+3, ASKREM+2
DIR("B"	DXCODE+32, LBL+5, SBL+5, DATASRC+4, ASKREM+3*
DIR("S"	DXLOW9+8, DXHI9+3, ADDDX+10, ADDDX+11, DXLOW10+8, DXHI10+3
DIR(0	TYP+5, TYP+6, TYP+7, TYP+8, TYP+9, TYP+10, TYP+11, TYP+12, TYP+13, TYP+14 , TYP+15, TYP+16, ALL+3, ALL+4, ALL+5, ALL+6, ALL+7, DXCODE+33, DXLOW9+6, DXHI9+1 , ADDDX+8, CONTDX+7, DXLOW10+6, DXHI10+1, LBL+3, SBL+3, ITYP+5, ITYP+6, ITYP+7, ITYP+8 , ITYP+10, ITYP+11, ITYP+12, ITYP+13, ITYP+14, ITYP+15, ITYP+16, ITYP+17, ITYP+19, ITYP+20 , ITYP+21, ITYP+23, ITYP+24, ITYP+25, ITYP+26, ITYP+27, ITYP+29, DATASRC+2, ASKREM+4*
>> DIROUT	HAVICD10+5
DIRUT	DXCODE+3*, CONTDX+5!, ITYP+35, DATASRC+7, HAVICD10+5
>> DTOUT	LOC+9, TYP+21, ACCT+8, PAT+7, ALL+12, ITYP+35, COLPT+7, DATASRC+7, HAVICD10+5
>> DUOUT	LOC+9, TYP+21, ACCT+8, PAT+7, ALL+12, DXCODE+3*, DXLOW9+10, DXHI9+5, ADDDX+13, DXLOW10+10 , DXHI10+5, LBL+8, SBL+8, ITYP+35, COLPT+7, DATASRC+7, HAVICD10+5
U	TYP+23, DXLOW9+12, DXHI9+8, ADDDX+16, DXLOW10+12, DXHI10+9, DXINFO+7, DXINFO+11
>> X	HAVICD10+4, HAVICD10+5
>> Y	LOC+10, LOC+11, TYP+22, TYP+23, TYP+25, TYP+27, TYP+28, TYP+29, TYP+30, TYP+31 , TYP+32, TYP+33, TYP+34, TYP+35, TYP+36, ACCT+9, ACCT+10, ACCT+12, GETGRP+7, GETGRP+9 , PAT+9, PAT+10, ALL+13, ALL+14, ASKICD+2, DXCODE+5, DXCODE+36, DXLOW9+11, DXLOW9+12, DXHI9+6 , DXHI9+7, DXHI9+8, DXADD+4, ADDDX+15, ADDDX+16, CONTDX+5, CONTDX+12, CONTDX+13, DXLOW10+11, DXLOW10+12 , DXHI10+7, DXHI10+8, DXHI10+9, LBL+8, LBL+9, SBL+8, SBL+9, ITYP+36, COLPT+8, COLPT+9 , ASKREM+7, HAVICD10+5
>> Y(0	LOC+12, TYP+24, ACCT+11, GETGRP+9, PAT+11, ALL+15, ITYP+37, COLPT+10, DATASRC+8

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRSL1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items