Routine: BAREDIT4

Information

BAREDIT4 ; IHS/SD/LSL - CREATE AN ENTRY IN A/R EDI TRANSPORT FILE (4) ;

Source file <BAREDIT4.m>

Package	Total	Call Graph
VA Fileman	1	FILE^DICN

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAREDIT3

Name	Comments	DBIA/ICR reference
PLB03	;;
PLB07	;;
PLB05	;;
PLB09	;;
PLB11	;;
PLB13	;;
SUBELM	; EP ; Create Sub-element Multiple w/in Element Multiple w/in Segment ; Multiple in A/R EDI TRANSPORT
SUBELM3	; ; Create Segment multiple entry in A/R EDI TRANSPORT File
SUBELM2	; ; Loop Sub-elements
SVC01	;;
SVC06	;;

Name	Field # of Occurrence
FILE^DICN	SUBELM3+18

Name	Line Occurrences (* Changed, ! Killed)
^DD(90056.0102	SUBELM3+8

Name	Line Occurrences
SUBELM2	SUBELM+4
SUBELM3	SUBELM2+5

Name	Field # of Occurrence
>> BARDELIM	SUBELM2+3, SUBELM3+9, SUBELM3+12, SUBELM3+13, SUBELM3+14, SUBELM3+15, SUBELM3+16
>> BAREDITR	SUBELM3+3
>> BARELDA	SUBELM3+5
>> BARSECNT	SUBELM+3, SUBELM2+2
>> BARSEDA	SUBELM3+20*
>> BARSEGDA	SUBELM3+4
>> BARSUBE	SUBELM+4, SUBELM2+3*, SUBELM2+4, SUBELM3+9, SUBELM3+12, SUBELM3+13, SUBELM3+14, SUBELM3+15, SUBELM3+16
DA	SUBELM3+2!
DA(1	SUBELM3+5*, SUBELM3+6
DA(2	SUBELM3+4*, SUBELM3+6
DA(3	SUBELM3+3*, SUBELM3+6
DD	SUBELM3+17!
DIC	SUBELM3+2!, SUBELM3+6*
DIC("DR"	SUBELM3+10, SUBELM3+11, SUBELM3+12, SUBELM3+13, SUBELM3+14, SUBELM3+15, SUBELM3+16*
DIC("P"	SUBELM3+8*
DIC(0	SUBELM3+7*
DO	SUBELM3+17!
U	SUBELM3+8
X	SUBELM3+2!, SUBELM3+9*
Y	SUBELM3+2!, SUBELM3+19, SUBELM3+20

Name	Field # of Occurrence
$T(@BARELID+BARSECNT	SUBELM2+3