Introduction
The script below is an example of how to perform multiple "Insert Afters" in a row. Each function can only insert one segment. Therefore the functions must be chained together to insert multiple segments.
' Script to do insert multiple segments in a sequence Function XXX() ' Replace XXX with the segment you need to insert the segments after ' Setup to call the function "Insert_N1" to insert the N1 segment EDI.InsertAfterFunction = "Insert_N1" ' Tell the system to call 'Insert_N1' instead of the default 'InsertAfter' function EDI.InsertAfter = True End Function Function Insert_N1() EDI.InsertSegment = "N1" EDI.Element(1) = "ST" EDI.Element(2) = "Customer Name" EDI.Element(3) = "Location Qualifier" EDI.Element(4) = "Location Code" ' After inserting the N1 segment, the following tells the system to insert another segment ' using the function "Insert_N3" EDI.InsertAfterFunction = "Insert_N3" EDI.InsertAfter = True End Function Function Insert_N3() EDI.InsertSegment = "N3" EDI.Element(1) = "Address Line 1" EDI.Element(2) = "Address line 2" ' After inserting the N3 segment, the following tells the system to insert another segment ' using the function "Insert_N4" EDI.InsertAfterFunction = "Insert_N4" EDI.InsertAfter = True End Function Function Insert_N4() EDI.InsertSegment ="N4" EDI.Element(1) = "City" EDI.Element(2) = "State" EDI.Element(3) = "Postal Code" EDI.Element(4) = "Country Code" End Function