Routine: BARUP

Information

BARUP ; IHS/SD/LSL - UPLOAD BILL FROM 3P ;

Source Information

Source file <BARUP.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Accounts Receivable	2	^BARBLCN (MSGTX,UPLOAD)^BARUP1
VA Fileman	2	^DIC FILE^DICN
IHS Patient	1	$$BEN^AUPNPAT1
IHS VA Utilities	1	EN^XBNEW

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Third Party Billing	3	ABMAPAS1 ABMAPASS ABMDPAY

Entry Points

Name	Comments	DBIA/ICR reference
PATDATA	;** patient data from patient file
GETPRV	;** primary provider
SET	;EP - set up variables
GETTYP	;** bill type from file ^BAR(90052.01
SETACC(BARACC)	;EP - establish record in A/R FACILITY ACCOUNT file
GETACC	;** a/r facility account
GETPAR	;** visit location comes from #.03 of 3p bill file
GETSTAT	;** bill status = open
INIT	;
ERRMSG(BARERR)	;P.OTTIS HEAT # 73895 - DISPLAY BARERR TYPE BAR1.823
NEW0	;
INSORD	;
TPB(BAR3PUP)
CHECK	;
GETSERV	;** hospital service section

External References

Name	Field # of Occurrence
$$BEN^AUPNPAT1	PATDATA+10
^BARBLCN	CHECK+3
MSGTX^BARUP1	CHECK+11
UPLOAD^BARUP1	CHECK+7
^DIC	GETSTAT+5
FILE^DICN	SETACC+11
EN^XBNEW	INIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$ZN," ",DA Line Location: GETPAR+7
Function Call: WRITE	Prompt: !,"A bill could not be created in A/R. Reason:" Line Location: ERRMSG+1
Function Call: WRITE	Prompt: !,"Parent site not defined in: Site Parameter File" Line Location: ERRMSG+2
Function Call: WRITE	Prompt: !,"Satellite site not defined in: Parent/Satellit File" Line Location: ERRMSG+3
Function Call: WRITE	Prompt: !,"Parent/Satellite marked as 'not usable'" Line Location: ERRMSG+4
Function Call: WRITE	Prompt: !,"'Date of Service' is before the 'visit location activated date'" Line Location: ERRMSG+5
Function Call: WRITE	Prompt: !,"'Date of Service' is AFTER the 'visit location closed date'" Line Location: ERRMSG+6
Routine Call	DIC Line Location: GETSTAT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARTBL - [#90052.02]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PATDATA+9
^AUPNPAT - [#9000001]	PATDATA+5
^BAR(90052.05	GETPAR+9, GETPAR+10, GETPAR+12, GETPAR+14, GETPAR+15
^BAR(90052.06	GETPAR+6, GETPAR+8, GETPAR+35
^BARAC(	GETACC+3, INSORD+7
^BARTMP("BARUP"	GETPAR+21, GETPAR+24, GETPAR+26*
^DIC(49 - [#49]	GETSERV+1
^DPT - [#2]	PATDATA+4

Label References

Name	Line Occurrences
$$SETACC	GETACC+4, INSORD+8
ERRMSG	GETPAR+16
GETPRV	PATDATA+3
SET	CHECK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAR3PUP	TPB~, TPB+2, CHECK+2, CHECK+3, CHECK+10, GETPAR+3, GETPAR+12, GETPAR+14, GETPAR+23, GETPAR+26 , GETACC+1, GETACC+2, GETTYP+1, INSORD+1, INSORD+2, INSORD+3, PATDATA+2, PATDATA+5, GETPRV+1
BARACC	GETACC+1, GETACC+2, GETACC+3, GETACC+4, INSORD+6*, INSORD+7, INSORD+8, SETACC~, SETACC+4
>> BARACEIN	GETACC+3, GETACC+4
BARACODA	INSORD+7, INSORD+8, INSORD+9, SETACC+1~, SETACC+13*, SETACC+14
>> BARBLTYP	GETTYP+1*
BARDUZ2	TPB+3~, CHECK+1*, CHECK+12, CHECK+13!
BARERR	GETPAR+5, GETPAR+8, GETPAR+9, GETPAR+10, GETPAR+12, GETPAR+14, GETPAR+15, GETPAR+16, GETPAR+24, GETPAR+25* , GETPAR+26, GETPAR+27, ERRMSG~, ERRMSG+2, ERRMSG+3, ERRMSG+4, ERRMSG+5, ERRMSG+6, ERRMSG+7
BARGO	CHECK+4!, CHECK+6, GETPAR+36*
>> BARHRN	PATDATA+1, PATDATA+5
>> BARMIEN	CHECK+9, CHECK+10
>> BARPAR	GETPAR+4, GETPAR+6, GETPAR+15, GETPAR+16, GETPAR+21, GETPAR+30, GETPAR+35
>> BARPBEN	PATDATA+1, PATDATA+7, PATDATA+10, PATDATA+11
>> BARPRV	GETPRV+1*
>> BARPTDA	PATDATA+2*, PATDATA+3, PATDATA+4, PATDATA+5, PATDATA+10
>> BARPTYP	PATDATA+6*
>> BARSAT	GETPAR+3*, GETPAR+9, GETPAR+10, GETPAR+12, GETPAR+14, GETPAR+15
>> BARSERV	GETSERV+1*
>> BARSSN	PATDATA+1, PATDATA+4
>> BARSTAT	GETSTAT+7*
>> BARTMP1(	INSORD+5, INSORD+6, INSORD+9*
>> BARTMP1(205	INSORD+1*
>> BARTMP1(206	INSORD+2*
>> BARTMP1(207	INSORD+3*
>> BARTOC	PATDATA+1*
>> BARTYP	PATDATA+1*
D	GETSTAT+4!
>> DA	GETPAR+5, GETPAR+6, GETPAR+8, GETPAR+9, GETPAR+10, GETPAR+12, GETPAR+14, GETPAR+15
DD	SETACC+10!
DIC	GETSTAT+1~, GETSTAT+2, GETSTAT+6!, SETACC+1~, SETACC+2, SETACC+12!
DIC("DR"	SETACC+5, SETACC+6, SETACC+7, SETACC+8
DIC("S"	GETSTAT+3*
DIC(0	GETSTAT+2, SETACC+3
DLAYGO	SETACC+9*, SETACC+12!
DO	GETSTAT+4!, SETACC+10!
DUZ(2	CHECK+1, CHECK+12, GETPAR+30, GETACC+3, INSORD+7
>> J	INSORD+4*, INSORD+5, INSORD+6, INSORD+9
U	GETPAR+10, GETPAR+12, GETPAR+14, GETPAR+15, GETPAR+26, GETPAR+35, PATDATA+4, PATDATA+5
>> X	CHECK+2, GETSTAT+2, PATDATA+8, SETACC+4
>> Y	GETSTAT+7, SETACC+13

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARUP

Call Graph Total: 6

Caller Graph Total: 3