SetFieldValue() |
Top Previous Next |
Object: EHL7.EHL7Message FileName: EHL7.dll
METHOD
Name: SetFieldValue() Parameters: 1) strValue (String) the field data in string format 2) oSegment (Segment Object) 3) nFieldNumber (Long) index of the data field in the segment (1-xxx) to set the value of 4) nFieldComponent (Optional Long) default = 1, which component of the field element to set value of
Returns: N/A Description: Used in the creation of HL7 Messages sets the value of Component (nFieldComponent) in field element (nFieldNumber) of segment (oSegment) to strValue.
Example: Private Sub MessageTest() Dim myVendorObj As New EHL7.HL7Vendors Dim myMsg As New EHL7.EHL7Message Dim strVendorID As String Dim oSegment As Object Dim oMSH As Object Dim i As Long myVendorObj.VendorPath = "C:\EasyHL7" strVendorID = myVendorObj.GetVendorID("Default","2.3") If strVendorID = "" Then MsgBox myVendorObj.LastError Set myVendorObj = Nothing Exit Sub End If If Not myVendorObj.OpenVendor(strVendorID) Then MsgBox myVendorObj.LastError Set myVendorObj = Nothing Exit Sub End If With myMsg Set oMSH = .CreateMessage(myVendorObj) 'Do some processing of the MSH Segment If .IsError Then MsgBox .LastError .ClearErrors Exit Sub End If 'Add a patient identifier segment Set oSegment = .AddSegment("PID") If .IsError Then MsgBox .LastError .ClearErrors Exit Sub End If 'Add the patient's name .SetFieldValue "Smith", oSegment, 5, 1 .SetFieldValue "John", oSegment, 5, 2 .SetFieldValue "J", oSegment, 5, 3 .SetFieldValue "Jr", oSegment, 5, 4 .SetFieldValue "Mr", oSegment, 5, 5 'Another way to Set a field value is to pass 0 in nComponent and a delimited string .SetFieldValue "Smith^John^J^Jr^Mr", oSegment, 5, 0 'Add the Patient's Sex only 1 component for field 8 so I can 'ignore the 4th parameter .SetFieldValue "M", oSegment, 8 End With End Sub
|