USP_DATAFORMTEMPLATE_ADD_VENDOR_IND

The save procedure used by the add dataform template "Vendor Individual Add Data Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@LASTNAME	nvarchar(100)	IN	Last name
@FIRSTNAME	nvarchar(50)	IN	First name
@MIDDLENAME	nvarchar(50)	IN	Middle name
@TITLECODEID	uniqueidentifier	IN	Title
@SUFFIXCODEID	uniqueidentifier	IN	Suffix
@JOBTITLE	nvarchar(100)	IN	Job title
@INDUSTRYCODEID	uniqueidentifier	IN	Industry
@WEBADDRESS	UDT_WEBADDRESS	IN	Website
@CUSTOMERNUMBER	nvarchar(20)	IN	Customer number
@PAYMENTTERMID	uniqueidentifier	IN	Payment terms
@PAYMENTMETHODCODE	tinyint	IN	Payment method
@PAYMENTBANKACCOUNTID	uniqueidentifier	IN	Payment bank account
@INCLUDEIN1099	bit	IN	Include in 1099 reporting
@ADDRESS_ADDRESSTYPECODEID	uniqueidentifier	IN	Address type
@ADDRESS_COUNTRYID	uniqueidentifier	IN	Country
@ADDRESS_STATEID	uniqueidentifier	IN	State
@ADDRESS_ADDRESSBLOCK	nvarchar(150)	IN	Address
@ADDRESS_CITY	nvarchar(50)	IN	City
@ADDRESS_POSTCODE	nvarchar(12)	IN	Zip
@ADDRESS_DONOTMAIL	bit	IN	Do not send mail to this address
@ADDRESS_DONOTMAILREASONCODEID	uniqueidentifier	IN	Reason
@PHONE_PHONETYPECODEID	uniqueidentifier	IN	Phone type
@PHONE_NUMBER	nvarchar(100)	IN	Phone number
@EMAILADDRESSTYPECODEID	uniqueidentifier	IN	Email type
@EMAILADDRESS	UDT_EMAILADDRESS	IN	Email address
@OMITFROMVALIDATION	bit	IN	Omit from validation
@CART	nvarchar(10)	IN
@DPC	nvarchar(8)	IN
@LOT	nvarchar(5)	IN
@COUNTYCODEID	uniqueidentifier	IN
@CONGRESSIONALDISTRICTCODEID	uniqueidentifier	IN
@LASTVALIDATIONATTEMPTDATE	datetime	IN
@VALIDATIONMESSAGE	nvarchar(200)	IN
@CERTIFICATIONDATA	int	IN

Definition

Copy



CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_VENDOR_IND
(
  @ID uniqueidentifier = null output
  ,@CHANGEAGENTID uniqueidentifier = null

  ,@LASTNAME nvarchar(100)
  ,@FIRSTNAME nvarchar(50) = ''
  ,@MIDDLENAME nvarchar(50) = ''
  ,@TITLECODEID uniqueidentifier = null
  ,@SUFFIXCODEID uniqueidentifier = null
  ,@JOBTITLE nvarchar(100) = ''
  ,@INDUSTRYCODEID uniqueidentifier = null
  ,@WEBADDRESS dbo.UDT_WEBADDRESS = ''
  ,@CUSTOMERNUMBER nvarchar(20) = ''
  ,@PAYMENTTERMID uniqueidentifier = null
  ,@PAYMENTMETHODCODE tinyint = 0
  ,@PAYMENTBANKACCOUNTID uniqueidentifier = null
  ,@INCLUDEIN1099 bit = 0

  ,@ADDRESS_ADDRESSTYPECODEID uniqueidentifier = null
  ,@ADDRESS_COUNTRYID uniqueidentifier = null
  ,@ADDRESS_STATEID uniqueidentifier = null
  ,@ADDRESS_ADDRESSBLOCK nvarchar(150) = ''
  ,@ADDRESS_CITY nvarchar(50) = ''
  ,@ADDRESS_POSTCODE nvarchar(12) = ''
  ,@ADDRESS_DONOTMAIL bit = 0
  ,@ADDRESS_DONOTMAILREASONCODEID uniqueidentifier = null

  ,@PHONE_PHONETYPECODEID uniqueidentifier = null
  ,@PHONE_NUMBER nvarchar(100) = ''
  ,@EMAILADDRESSTYPECODEID uniqueidentifier = null
  ,@EMAILADDRESS dbo.UDT_EMAILADDRESS = ''

  ,@OMITFROMVALIDATION bit = 0
  ,@CART nvarchar(10) = ''
  ,@DPC nvarchar(8) = ''
  ,@LOT nvarchar(5) = ''
  ,@COUNTYCODEID uniqueidentifier = null
  ,@CONGRESSIONALDISTRICTCODEID uniqueidentifier = null
  ,@LASTVALIDATIONATTEMPTDATE datetime = null
  ,@VALIDATIONMESSAGE nvarchar(200) = ''
  ,@CERTIFICATIONDATA integer = 0
)
as

set nocount on;

declare @CURRENTDATE datetime;

if @ID is null
  set @ID = newid();

if @CHANGEAGENTID is null
  exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

set @CURRENTDATE = getdate();

if @ADDRESS_DONOTMAIL = 0
  set @ADDRESS_DONOTMAILREASONCODEID = null;

begin try

  insert into dbo.CONSTITUENT 
  (
    ID
    ,ISORGANIZATION
    ,KEYNAME
    ,FIRSTNAME
        ,MIDDLENAME
    ,TITLECODEID
    ,SUFFIXCODEID
    ,WEBADDRESS
        ,ISCONSTITUENT
    ,ADDEDBYID
    ,CHANGEDBYID
    ,DATEADDED 
    ,DATECHANGED
  )
  values
  (  
    @ID
    ,0
    ,@LASTNAME
    ,@FIRSTNAME
    ,@MIDDLENAME
    ,@TITLECODEID
    ,@SUFFIXCODEID
    ,@WEBADDRESS
        ,0
    ,@CHANGEAGENTID
    ,@CHANGEAGENTID
    ,@CURRENTDATE
    ,@CURRENTDATE
  );

  if len(@JOBTITLE) > 0 or @INDUSTRYCODEID is not null
      begin
          insert into dbo.CONSTITUENTJOBINFO 
      (
        ID
        ,JOBTITLE
        ,INDUSTRYCODEID
        ,ADDEDBYID
        ,CHANGEDBYID
        ,DATEADDED
        ,DATECHANGED
      )
          values 
      (
        @ID
        ,@JOBTITLE
        ,@INDUSTRYCODEID
        ,@CHANGEAGENTID
        ,@CHANGEAGENTID
        ,@CURRENTDATE
        ,@CURRENTDATE
      );
      end

  declare @ADDRESSID uniqueidentifier;

  exec dbo.USP_VENDOR_ADD_ADDRESS 
      @ID = @ID
      ,@ADDRESSID = @ADDRESSID OUTPUT
      ,@CHANGEAGENTID = @CHANGEAGENTID
      ,@CURRENTDATE = @CURRENTDATE
      ,@ADDRESSTYPECODEID = @ADDRESS_ADDRESSTYPECODEID
      ,@COUNTRYID = @ADDRESS_COUNTRYID
      ,@STATEID = @ADDRESS_STATEID
      ,@ADDRESSBLOCK = @ADDRESS_ADDRESSBLOCK
      ,@CITY = @ADDRESS_CITY
      ,@POSTCODE = @ADDRESS_POSTCODE
      ,@DONOTMAIL = @ADDRESS_DONOTMAIL
      ,@DONOTMAILREASONCODEID = @ADDRESS_DONOTMAILREASONCODEID
      ,@OMITFROMVALIDATION = @OMITFROMVALIDATION
      ,@CART = @CART
      ,@DPC = @DPC 
      ,@LOT = @LOT 
      ,@COUNTYCODEID = @COUNTYCODEID
      ,@CONGRESSIONALDISTRICTCODEID = @CONGRESSIONALDISTRICTCODEID 
      ,@LASTVALIDATIONATTEMPTDATE = @LASTVALIDATIONATTEMPTDATE 
      ,@VALIDATIONMESSAGE = @VALIDATIONMESSAGE
      ,@CERTIFICATIONDATA = @CERTIFICATIONDATA;

  exec USP_VENDOR_PHONE_ADD
      @ID = @ID
      ,@CHANGEAGENTID = @CHANGEAGENTID
      ,@CURRENTDATE = @CURRENTDATE
      ,@PHONETYPECODEID = @PHONE_PHONETYPECODEID
      ,@PHONE_NUMBER = @PHONE_NUMBER;

  exec USP_VENDOR_EMAIL_ADD
      @ID = @ID
      ,@CHANGEAGENTID = @CHANGEAGENTID
      ,@CURRENTDATE = @CURRENTDATE
      ,@EMAILADDRESSTYPECODEID = @EMAILADDRESSTYPECODEID
      ,@EMAILADDRESS = @EMAILADDRESS;

  -- Actual Vendor Fields


  exec dbo.USP_VENDOR_INFO_ADD
      @ID = @ID
      ,@REMITADDRESSID = @ADDRESSID
      ,@CHANGEAGENTID = @CHANGEAGENTID
      ,@CURRENTDATE = @CURRENTDATE
      ,@CUSTOMERNUMBER = @CUSTOMERNUMBER
      ,@PAYMENTTERMID = @PAYMENTTERMID
      ,@PAYMENTMETHODCODE = @PAYMENTMETHODCODE
      ,@PAYMENTBANKACCOUNTID = @PAYMENTBANKACCOUNTID
      ,@INCLUDEIN1099 = @INCLUDEIN1099;

end try

begin catch
    exec dbo.USP_RAISE_ERROR
    return 1
end catch

return 0