Routine: BAR50IT

Information

BAR50IT ; IHS/SD/LSL - CREATE ENTRY IN A/R EDI TRANSPORT FILE (1) ;

Source file <BAR50IT.m>

Package	Total	Call Graph
IHS Accounts Receivable	2	SEGMENT^BAR50IT2 ^BARVKL0
VA Fileman	2	FILE^DICN ^DIE

Name	Comments	DBIA/ICR reference
UPDTAB	; ; Update processing routine in A/R EDI TABLES
1	;;VARIABLE;;ROUTINE
VARPROC	; ; Create entries in VARIABLE PROCESSING multiple of A/R EDI TRANSPORT
START	; EP
INIT	; ; Initialize variables
XIT	;
ENTRY	; ; Create entry in A/R EDI TRANSPORT File
VARPROC3	;
VARPROC2	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"HIPAA 835 v4010 Transport already exists" Line Location: START+3
Function Call: WRITE	Prompt: !!,"EDI TRANSPORT ENTRY NOT CREATED" Line Location: START+8
Routine Call	DIE Line Location: UPDTAB+6 UPDTAB+10

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("1T" - [#90056.01]	START+2, START+6
^DD(90056.01	VARPROC3+5

Name	Field # of Occurrence
>> BARDELIM	INIT+8*, VARPROC3+6
>> BAREDITR	START+7, ENTRY+13*, VARPROC3+2
>> BARNAME	INIT+2*, ENTRY+4
>> BARPRVEN	INIT+6*
>> BARPRVST	INIT+5*
>> BARSEPCD	INIT+3*
>> BARTABLE	INIT+4*
>> BARTRAIL	INIT+7*
>> BARVCNT	VARPROC+2, VARPROC2+1
>> BARVP	VARPROC+3, VARPROC2+2*, VARPROC2+3, VARPROC3+6
DA	VARPROC3+1!, UPDTAB+2!, UPDTAB+4, UPDTAB+7!, UPDTAB+8, UPDTAB+11!
DA(1	VARPROC3+2*, VARPROC3+3
DD	ENTRY+10!, VARPROC3+8!
DIC	ENTRY+2, VARPROC3+1!, VARPROC3+3
DIC("DR"	ENTRY+5, ENTRY+6, ENTRY+7, ENTRY+8, ENTRY+9, VARPROC3+7
DIC("P"	VARPROC3+5*
DIC(0	ENTRY+3, VARPROC3+4
DIE	UPDTAB+2!, UPDTAB+3*, UPDTAB+11!
DO	ENTRY+10!, VARPROC3+8!
DR	UPDTAB+2!, UPDTAB+5, UPDTAB+7!, UPDTAB+9, UPDTAB+11!
U	VARPROC3+5
X	ENTRY+4, VARPROC3+1!, VARPROC3+6
Y	ENTRY+12, ENTRY+13, VARPROC3+1!

Name	Field # of Occurrence
$T(@1+BARVCNT	VARPROC2+2