Routine: BARTDO

Information

BARTDO ; IHS/SD/LSL - ROUTINE TO PERFORM TRANSACTIONS ; 12/12/2007

Source file <BARTDO.m>

Package	Total	Call Graph
IHS VA Utilities	2	($$DIC,$$VALI,ENP)^XBDIQ1 $$DIC^XBSFGBL
VA Fileman	2	^DIE $$GET1^DIQ
IHS Accounts Receivable	1	$$TRANTRIG^BARUFUT

Package	Total	Caller Graph
IHS Accounts Receivable	18	BAR50P06 BAR50P08 BARBADU BARBLCN BAREDP06 BAREDP08 BARFPST5 BARFRAPI BARMAWO1 BARMAWO3 BARMAWO7 BARPBEN BARPNPU BARPRFU BARPSAPI BARPSTU BARPUCU BARUP1
Tucson	2	BZSMAWO2 BZSMAWO3

Name	Comments	DBIA/ICR reference
BLVL	;** batch level ; Replaced by triggers in Collection Batch ; -------------------------------
139	;BAR1.85 SRS-80 IHS/SD/TPF 4/15/2008 INCLUDE 'CREDIT FROM OTHER BILL' - ACT LIKE ADJUST ; Payment credit (act like adjustment)
TR(BARTRDA,BARUNDO)	; EP ; Pull the transaction and perform the sets per the type of transaction
Q108	;
138	;BAR1.85 SRS-80 IHS/SD/TPF 4/15/2008 INCLUDE 'CREDIT TO OTHER BILL' - ACT LIKE ADJUST ; Payment credit (act like adjustment)
49	;bill new / account
43	;adjustment to a bill/account
40	; ; payment to a bill /account
41	;cancellation of a bill/account
ILVL	;** batch item level
503	; Flat Rate Adjustment
I	;
BATCH	;** update batch ; Replaced by triggers in Collection Batch ; -------------------------------
108	; 3P credit - edit cr field and then same sequence as an adjustment
SLVL	;** batch item sub eob level ; to be coded when sub item is put into transactions
BILL41	;update bill amount field
BILL40	; ; update bill amount field
BILL43	;update bill amount field
39	; ; Refund (act like adjustment)
Q43	;
Q40	;
Q41	;
Q49	;

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

Name	Line Occurrences (* Changed, ! Killed)
^BARAC(	40+8, 41+5, 43+5, 49+4

Name	Field # of Occurrence
>> BARACC	40+3*, 40+7
BARACV	49+1~, 49+5*
>> BARAMT	TR+16, TR+17
>> BARBL	40+4*, BILL40+4
>> BARBLDA	108+3
BARBLV	40+2~, BILL40+2~, 41+1~, BILL41+1~, 43+1~, BILL43+1~
BARBLV(15	BILL40+5, BILL41+4, BILL43+4*
BARBLV(301	40+9, 41+6, 43+6*
BARBLV(302	40+10*
BART	TR+8!
BART(	TR+16
BART(101	TR+10
BART(14	ILVL+4
BART(15	ILVL+5
BART(4	40+4, BILL41+3, BILL43+3
BART(6	40+3, 41+4, 43+4, 49+3
BARTRDA	TR~, TR+5, TR+9
>> BARTYP	TR+10*, TR+11, TR+15, TR+19
BARUN	ILVL+1~
BARUN(18	ILVL+6*
BARUNDO	TR~, TR+2*, TR+17
BARX	TR+12!
BARX(	TR+14*, TR+15
DA	40+2~, 40+7, 40+8, 40+9, 40+10, BILL40+2~, BILL40+4, BILL40+5, ILVL+1~, ILVL+3! , ILVL+5, ILVL+6, 41+1~, 41+4, 41+5, 41+6, BILL41+1~, BILL41+3, BILL41+4, 43+1~ , 43+4, 43+5, 43+6, BILL43+1~, BILL43+3, BILL43+4, 49+1~, 49+3, 49+4, 49+5 , 108+1~, 108+3*
DA(1	ILVL+4*
DIC	40+2~, 40+6, BILL40+2~, BILL40+3, ILVL+1~, ILVL+2, ILVL+6, 41+1~, 41+3, BILL41+2* , 43+1~, 43+3, BILL43+2, 49+1~, 49+2*
DIDEL	40+12, 40+14!, I+1, I+3!, ILVL+8, ILVL+10!, 41+8, 41+10!, BILL41+6, BILL41+8! , 43+8, 43+10!, BILL43+6, BILL43+8!, 49+7, 49+9!
DIE	40+2~, 40+6, BILL40+2~, BILL40+3, ILVL+1~, ILVL+2, 41+1~, 41+3, BILL41+1~, BILL41+2* , 43+1~, 43+3, BILL43+1~, BILL43+2, 49+1~, 49+2, 108+1~, 108+2
DR	40+2~, 40+11, BILL40+2~, BILL40+6, ILVL+1~, ILVL+7, 41+1~, 41+7, BILL41+1~, BILL41+5* , 43+1~, 43+7, BILL43+1~, BILL43+5, 49+1~, 49+6, 108+1~, 108+4
DUZ	TR+5
DUZ(2	40+8, 41+5, 43+5, 49+4
>> UFMSESID	TR+4, TR+5
>> X	TR+5, TR+14