Framework EDI Reference. Methods and Properties
ediSchemas. DefineTransactionSetID

Re-identifies the ASC/X12 transaction set by specifying a new identifier code for the transaction set.

Syntax:

• <sIdentifierCode> = object.DefineTransactionSetID(<Transaction Set Type Constant>)

• object.DefineTransactionSetID(<Transaction Set Type Constant>) = <sIdentifier Code>

Parameters:

• Transaction Set Type Constant – A constant specifying the transaction set. See Transaction Set Type constants for the allowed transaction set types.

Controlling Agency:

• X12

Remarks 

The transaction set identifier code identifies the type of transaction set used to build a transaction set in a document. The transaction set must be defined in the schema with the identifier code that is to be used.

The following is a Visual Basic program that defines the Functional Acknowledgment from the default ID of "997" to "997B". It uses the Standard Exchange Format file that has the Functional Acknowledgment transaction set defined as:

• 997B=[ST,M][AK1,M] {:999999[AK2]{:999999[AK3][AK4,,99]}[AK5,M]} [AK9,M][SE,M]

The code is:

Dim oEdiDoc As Fredi.ediDocument
Dim oAck As Fredi.ediAcknowledgment
Dim oSchemas As Fredi.ediSchemas
Dim oSef As Fredi.ediSchema
Dim sSefFile As String
Dim sEdiFile As String

sSefFile = App.Path & "\850.sef"
sEdiFile = App.Path & "\850.x12"

Set oEdiDoc = New Fredi.ediDocument

Set oSchemas = oEdiDoc.GetSchemas
oSchemas.EnableStandardReference = False
oSchemas.DefineTransactionSetID(TransactionSet_X12_Functional_Acknowledgment) = "997B"

Set oSef = oEdiDoc.LoadSchema(sSefFile, 0)

Set oAck = oEdiDoc.GetAcknowledgment
oAck.EnableFunctionalAcknowledgment = True

oEdiDoc.LoadEdi sEdiFile

MsgBox "Done"