Routine: BARCBTR

Information

BARCBTR ; IHS/SD/LSL - COLLECTION BATCH CLOSING TRANSACTIONS DEC 4,1996 ;

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARCLRG

Name	Comments	DBIA/ICR reference
MSG1
FACILITY	;** set tr & account updates
TRFLAG	;** complete tr
ITEM	;** process item
EN(BARCBDA)
CB2ACP	;** cb>acp TR account postable
MSG	;
DSPAC(DA)
TRSET	;** set transaction into A/R TRANSACTIONS/IHS data file
EDSPAC

Name	Field # of Occurrence
$$NEW^BARTR	TRSET+2
EOP^BARUTL	DSPAC+5
^DIC	FACILITY+4
^DIE	EN+22, CB2ACP+21, FACILITY+27, TRSET+6, TRFLAG+6
$$GET1^DIQ	EN+7
$$DIC^XBDIQ1	EN+18
ENP^XBDIQ1	EN+4, ITEM+5, DSPAC+2
ENPM^XBDIQ1	EN+9, CB2ACP+27
$$CJ^XLFSTR	MSG+2, MSG+3, MSG1+2, MSG1+3

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: ITEM+1
Function Call: WRITE	Prompt: !,*7,BARS(BARSDA,.01) Line Location: FACILITY+6
Function Call: WRITE	Prompt: " NOT IN THE ACCOUNT FILE!",! Line Location: FACILITY+7
Function Call: WRITE	Prompt: !,I,?7,BART(I),?19,$P(^DD(90050.02,I,0),U) Line Location: DSPAC+4
Function Call: WRITE	Prompt: !,*7,$$CJ^XLFSTR("Could not create "_BARTTYPE_" transaction in A/R Transaction File.") Line Location: MSG+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Please verify "_BARCOL_" item "_BARITDA_" closed properly.") Line Location: MSG+3
Function Call: WRITE	Prompt: !,*7,$$CJ^XLFSTR("Could not create "_BARTTYPE_" transaction in A/R Transaction File.") Line Location: MSG1+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("BARIT(7,'I') = <nil> Please verify "_BARCOL_" item "_BARITDA_" closed properly.") Line Location: MSG1+3
Routine Call	DIE Line Location: EN+22 CB2ACP+21 FACILITY+27 TRSET+6 TRFLAG+6
Routine Call	DIC Line Location: FACILITY+4

FileNo	Call Tags
^BARCOL(2906 - [#90051.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(90050.02	DSPAC+4

Name	Field # of Occurrence
BAR	EN+1~
>> BARACDA	FACILITY+9*, FACILITY+23
BARCB	EN+1~
BARCB(20	EN+6
BARCB(3	EN+5
BARCBDA	EN~, EN+4, EN+7, EN+19
BARCOL	EN+1~, EN+7*, MSG+3, MSG1+3
>> BARDR	ITEM+17*, TRSET+1
BARERROR	EN+1~, EN+2, EN+16, CB2ACP+3, CB2ACP+12, FACILITY+17
BARIT	EN+1~
BARIT(6	ITEM+15
BARIT(7	CB2ACP+2, CB2ACP+18
>> BARITDA	EN+11, EN+12, ITEM+2, MSG+3, MSG1+3
BARITS	EN+1~
BARITS(	EN+12, ITEM+2
BARS	ITEM+3~
BARS(	CB2ACP+29, FACILITY+1, FACILITY+6
>> BARSDA	CB2ACP+29*, FACILITY+1, FACILITY+6
BART	ITEM+3~, DSPAC+1~
BART(	DSPAC+4
>> BARTR	CB2ACP+11, FACILITY+16, TRSET+2*, TRSET+3, TRFLAG+2
>> BARTTYPE	CB2ACP+4, CB2ACP+13, FACILITY+18*, MSG+2, MSG1+2
DA	EN+17!, EN+19, ITEM+7!, CB2ACP+1!, CB2ACP+18, FACILITY+10!, FACILITY+22!, FACILITY+23, TRSET+2, TRFLAG+1! , TRFLAG+2*, DSPAC~, DSPAC+2
>> DIC	FACILITY+3*
>> DIC(0	FACILITY+2*
DIDEL	EN+21, EN+23!, CB2ACP+20, CB2ACP+22!, FACILITY+26, FACILITY+28!, TRSET+5, TRSET+7!, TRFLAG+5*, TRFLAG+7!
DIE	EN+17!, EN+18, ITEM+7!, CB2ACP+1!, CB2ACP+17, FACILITY+10!, FACILITY+22!, FACILITY+24, TRSET+4, TRFLAG+1! , TRFLAG+3*
DR	EN+17!, EN+20, ITEM+7!, ITEM+8, ITEM+9, ITEM+10, ITEM+11, ITEM+12, ITEM+13, ITEM+14 , ITEM+15, ITEM+16, ITEM+17, CB2ACP+1!, CB2ACP+7, CB2ACP+8, CB2ACP+9, CB2ACP+19, FACILITY+10!, FACILITY+11* , FACILITY+12, FACILITY+13, FACILITY+14, FACILITY+22!, FACILITY+25, TRSET+1, TRFLAG+1!, TRFLAG+4
I	DSPAC+1~, DSPAC+3, DSPAC+4
IOST	ITEM+1, MSG+1, MSG1+1
>> IOT	ITEM+1, MSG+1, MSG1+1
U	DSPAC+4
>> X	FACILITY+1*
>> Y	FACILITY+5, FACILITY+9