Insert Record in PersonWantsOrg

Dim pBag As New PropertyBag
 pBag.PutValue("UID_PersonOrdered",strUIDPerson)
 pBag.PutValue("UID_PersonInserted",strUIDPerson)
 pBag.PutValue("UID_Org",strUIDITShopOrg)
 pBag.PutValue("OrderReason", "PAAS Request")
 pBag.PutValue("CustomProperty01", strRequestID)
 pBag.PutValue("OrderState","New")
 pBag.PutValue("OrderDetail1", strRequestDetails)
 pBag.PutValue("CustomProperty05", strServiceAccountID)
 pBag.PutValue("CustomProperty06", strRequiresApproval)
 
 ' Don't set empty values
 If Not String.IsNullOrEmpty(strApprovalDetails) Then
 pBag.PutValue("CustomProperty07", strApprovalDetails)
 End If
 If Not String.IsNullOrEmpty(strRequestDetailsEncrypted) Then
 pBag.PutValue("CCC_OrderDetails3", strRequestDetailsEncrypted)
 End If
 
 'For Group Update Actions, we need to append the action to the request type.
 If Not String.IsNullOrWhiteSpace(strRequestTypeAction) Then
 If (Not logFile.Equals("1")) Then
 VID_Write2Log(logFile,"Adding -" & strRequestTypeAction & " to " & strRequestType)
 End If
 strRequestType = strRequestType & "-" & strRequestTypeAction
 If (Not logFile.Equals("1")) Then
 VID_Write2Log(logFile,"Request Type Now Set to " & strRequestType)
 End If 
 End If
 pBag.PutValue("CustomProperty02", strRequestType)

If (Not logFile.Equals("1")) Then
 VID_WRite2Log(logFile,"***PropertyBag For PWO for RequestID: " & strRequestID)
 VID_Write2Log(logFile,"***UID_PersonOrdered " & pbag.GetValue("UID_PersonOrdered").ToString())
 VID_WRite2Log(logFile,"***UID_PersonInserted: " & pbag.GetValue("UID_PersonInserted").ToString())
 VID_WRite2Log(logFile,"***UID_Org: " & pbag.GetValue("UID_Org").ToString())
 VID_Write2Log(logFile,"***OrderState: " & pbag.GetValue("OrderState").ToString())
 VID_WRite2Log(logFile,"***OrderReason: " & pbag.GetValue("OrderReason").ToString())
 VID_WRite2Log(logFile,"***CustomProperty01: " & pbag.GetValue("CustomProperty01").ToString())
 VID_WRite2Log(logFile,"***CustomProperty02: " & pbag.GetValue("CustomProperty02").ToString())
 VID_WRite2Log(logFile,"***OrderDetail1: " & pbag.GetValue("OrderDetail1").ToString())
 VID_WRite2Log(logFile,"***CustomProperty05: " & pbag.GetValue("CustomProperty05").ToString())
 VID_WRite2Log(logFile,"***CustomProperty06: " & pbag.GetValue("CustomProperty06").ToString())
 If Not String.IsNullOrEmpty(strRequestDetailsEncrypted) Then
 VID_WRite2Log(logFile,"***CCC_OrderDetails3: " & pbag.GetValue("CCC_OrderDetails3").ToString())
 End If
 If Not String.IsNullOrEmpty(strApprovalDetails) Then 
 VID_WRite2Log(logFile,"***CustomProperty07: " & pbag.GetValue("CustomProperty07").ToString())
 End If
 VID_WRite2Log(logFile,"***Writing PropertyBag to PWO for RequestID: " & strRequestID)
 End If

' Insert into PersonWantsOrg and Get the UID
 Dim dbPWO As ISingleDbObject = Connection.CreateSingle("PersonWantsOrg")
 Dim Results = dbPWO.Custom.CallMethod("FillOrder",pBag)
 
 If (Not logFile.Equals("1")) Then
 VID_Write2Log(logFile,"FillOrder Results: " & Results.ToString())
 End If
 
 uidPersonWantsOrg = dbPWO.GetValue("UID_PersonWantsOrg").ToString()
 dbPwo.Save
 dbPwo.Discard()