APPS.PAY_PAYMENT_TYPES_PKG SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 8

  SELECT NULL INTO result
  FROM PAY_PAYMENT_TYPES
  WHERE UPPER(payment_type_name) = UPPER(X_Payment_Type_Name)
  AND UPPER(Territory_Code) = UPPER(X_Territory_Code)
  AND (Rowid <> X_Rowid OR X_Rowid is NULL);

Line: 22

PROCEDURE Insert_Row(X_Rowid                        IN OUT NOCOPY VARCHAR2,
                     X_Payment_Type_Id              IN OUT NOCOPY NUMBER,
                     X_Territory_Code                             VARCHAR2,
                     X_Currency_Code                              VARCHAR2,
                     X_Category                                   VARCHAR2,
                     X_Payment_Type_Name                          VARCHAR2,
-- --
                     X_Base_Payment_Type_Name                     VARCHAR2,
-- --
                     X_Allow_As_Default                           VARCHAR2,
                     X_Description                                VARCHAR2,
                     X_Pre_Validation_Required                    VARCHAR2,
                     X_Procedure_Name                             VARCHAR2,
                     X_Validation_Days                            NUMBER,
                     X_Validation_Value                           VARCHAR2
 ) IS
   CURSOR C IS SELECT rowid FROM PAY_PAYMENT_TYPES

             WHERE payment_type_id = X_Payment_Type_Id;

Line: 46

  SELECT Pay_Payment_Types_s.nextval
  INTO X_Payment_Type_Id
  FROM dual;

Line: 52

     reset and we end up selecting a sequence value which already
     exists on the table.                                         */

  SELECT nvl(max(payment_type_id),0)
  INTO   l_max_id
  FROM   pay_payment_types;

Line: 60

    SELECT Pay_Payment_Types_s.nextval
    INTO X_Payment_Type_Id
    FROM dual;

Line: 65

  INSERT INTO PAY_PAYMENT_TYPES(
          payment_type_id,
          territory_code,
          currency_code,
          category,
          payment_type_name,
          allow_as_default,
          description,
          pre_validation_required,
          procedure_name,
          validation_days,
          validation_value
         ) VALUES (
          X_Payment_Type_Id,
          X_Territory_Code,
          X_Currency_Code,
          X_Category,
          --X_Payment_Type_Name,
-- --
          X_Base_Payment_Type_Name,
-- --
          X_Allow_As_Default,
          X_Description,
          X_Pre_Validation_Required,
          X_Procedure_Name,
          X_Validation_Days,
          X_Validation_Value
  );

Line: 97

  insert into PAY_PAYMENT_TYPES_TL (
    PAYMENT_TYPE_ID,
    PAYMENT_TYPE_NAME,
    DESCRIPTION,
    LAST_UPDATE_DATE,
    CREATION_DATE,
    LANGUAGE,
    SOURCE_LANG
  ) select
    X_PAYMENT_TYPE_ID,
    X_PAYMENT_TYPE_NAME,
    X_DESCRIPTION,
    sysdate,
    sysdate,
    L.LANGUAGE_CODE,
    userenv('LANG')
  from FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and not exists
    (select NULL
    from PAY_PAYMENT_TYPES_TL T
    where T.PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID
    and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 129

    hr_utility.set_message_token('PROCEDURE','Insert_Row');

Line: 134

END Insert_Row;

Line: 160

     SELECT 1
     FROM   pay_payment_types_tl
       WHERE language = p_language
       AND upper(payment_type_name) = upper(p_payment_type_name);

Line: 174

       SELECT  1
	 FROM  pay_payment_types_tl ptt,
	       pay_payment_types pty
	 WHERE upper(ptt.payment_type_name)=upper(p_payment_type_name)
	 AND   ptt.payment_type_id = pty.payment_type_id
	 AND   ptt.language = p_language
	 AND   pty.payment_type_id <> p_payment_type_id;

Line: 241

      SELECT *
      FROM   PAY_PAYMENT_TYPES
      WHERE  rowid = X_Rowid
      FOR UPDATE of Payment_Type_Id NOWAIT;

Line: 250

  cursor csr_payment_type_tl is select
      PAYMENT_TYPE_NAME,
      DESCRIPTION,
      decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
    from PAY_PAYMENT_TYPES_TL
    where PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID
    and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
    for update of PAYMENT_TYPE_ID nowait;

Line: 361

PROCEDURE Update_Row(X_Rowid                               VARCHAR2,
                     X_Payment_Type_Id                     NUMBER,
                     X_Territory_Code                      VARCHAR2,
                     X_Currency_Code                       VARCHAR2,
                     X_Category                            VARCHAR2,
                     X_Payment_Type_Name                   VARCHAR2,
                     X_Allow_As_Default                    VARCHAR2,
                     X_Description                         VARCHAR2,
                     X_Pre_Validation_Required             VARCHAR2,
                     X_Procedure_Name                      VARCHAR2,
                     X_Validation_Days                     NUMBER,
                     X_Validation_Value                    VARCHAR2,
                     X_Base_Payment_Type_Name              VARCHAR2
) IS
BEGIN
--
  Is_Unique(X_Rowid,X_Payment_Type_Name,X_Territory_Code);

Line: 378

  UPDATE PAY_PAYMENT_TYPES
  SET

    payment_type_id                           =    X_Payment_Type_Id,
    territory_code                            =    X_Territory_Code,
    currency_code                             =    X_Currency_Code,
    category                                  =    X_Category,
-- --
    --payment_type_name                         =    X_Payment_Type_Name,
-- --
-- -- for bug # 2511059
    payment_type_name                         =    X_Base_Payment_Type_Name,
-- --
    allow_as_default                          =    X_Allow_As_Default,
    description                               =    X_Description,
    pre_validation_required                   =    X_Pre_Validation_Required,
    procedure_name                            =    X_Procedure_Name,
    validation_days                           =    X_Validation_Days,
    validation_value                          =    X_Validation_Value
  WHERE rowid = X_rowid;

Line: 401

    hr_utility.set_message_token('PROCEDURE','Update_Row');

Line: 410

update PAY_PAYMENT_TYPES_TL
set PAYMENT_TYPE_NAME = X_PAYMENT_TYPE_NAME,
    DESCRIPTION = X_DESCRIPTION,
    LAST_UPDATE_DATE = sysdate,
    SOURCE_LANG = userenv('LANG')
where PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);

Line: 418

if (sql%notfound) then	-- trap system errors during update
  hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');

Line: 420

  hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.UPDATE_TL_ROW');

Line: 425

END Update_Row;

Line: 427

PROCEDURE Delete_Row(X_payment_type_id NUMBER, X_Rowid VARCHAR2) IS
BEGIN
  DELETE FROM PAY_PAYMENT_TYPES
  WHERE  rowid = X_Rowid;

Line: 434

    hr_utility.set_message_token('PROCEDURE','Delete_Row');

Line: 443

  delete from PAY_PAYMENT_TYPES_TL
  where PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID;

Line: 448

    hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.DELETE_TL_ROW');

Line: 453

END Delete_Row;

Line: 459

  delete from PAY_PAYMENT_TYPES_TL T
  where not exists
    (select NULL
    from PAY_PAYMENT_TYPES B
    where B.PAYMENT_TYPE_ID = T.PAYMENT_TYPE_ID
    );

Line: 466

  update PAY_PAYMENT_TYPES_TL T set (
      PAYMENT_TYPE_NAME,
      DESCRIPTION
    ) = (select
      B.PAYMENT_TYPE_NAME,
      B.DESCRIPTION
    from PAY_PAYMENT_TYPES_TL B
    where B.PAYMENT_TYPE_ID = T.PAYMENT_TYPE_ID
    and B.LANGUAGE = T.SOURCE_LANG)
  where (
      T.PAYMENT_TYPE_ID,
      T.LANGUAGE
  ) in (select
      SUBT.PAYMENT_TYPE_ID,
      SUBT.LANGUAGE
    from PAY_PAYMENT_TYPES_TL SUBB, PAY_PAYMENT_TYPES_TL SUBT
    where SUBB.PAYMENT_TYPE_ID = SUBT.PAYMENT_TYPE_ID
    and SUBB.LANGUAGE = SUBT.SOURCE_LANG
    and (SUBB.PAYMENT_TYPE_NAME <> SUBT.PAYMENT_TYPE_NAME
      or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
      or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
      or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
  ));

Line: 490

  insert into PAY_PAYMENT_TYPES_TL (
    PAYMENT_TYPE_ID,
    PAYMENT_TYPE_NAME,
    DESCRIPTION,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    CREATED_BY,
    CREATION_DATE,
    LANGUAGE,
    SOURCE_LANG
  ) select
    B.PAYMENT_TYPE_ID,
    B.PAYMENT_TYPE_NAME,
    B.DESCRIPTION,
    B.LAST_UPDATE_DATE,
    B.LAST_UPDATED_BY,
    B.LAST_UPDATE_LOGIN,
    B.CREATED_BY,
    B.CREATION_DATE,
    L.LANGUAGE_CODE,
    B.SOURCE_LANG
  from PAY_PAYMENT_TYPES_TL B, FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and B.LANGUAGE = userenv('LANG')
  and not exists
    (select NULL
    from PAY_PAYMENT_TYPES_TL T
    where T.PAYMENT_TYPE_ID = B.PAYMENT_TYPE_ID
    and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 526

  SELECT count(*) INTO result
  FROM PAY_PAYMENT_TYPES
  WHERE UPPER(payment_type_name) = UPPER(X_Payment_Type_Name)
  AND   UPPER(territory_code) = UPPER(x_territory_code);

Line: 554

  UPDATE pay_payment_types_tl
    SET description = nvl(x_description,description),
        payment_type_name = nvl(x_payment_type_name,payment_type_name),
        last_update_date = SYSDATE,
        last_updated_by = decode(x_owner,'SEED',1,0),
        last_update_login = 0,
        source_lang = userenv('LANG')
  WHERE userenv('LANG') IN (language,source_lang)
    AND payment_type_id IN
        (SELECT PPT.PAYMENT_TYPE_ID
           FROM pay_payment_types ppt
          WHERE nvl(upper(x_territory_code),'~null~') = nvl(upper(ppt.territory_code),'~null~')
            AND nvl(upper(x_b_payment_type_name),'~null~') = nvl(upper(ppt.payment_type_name),'~null~'));

Line: 568

  if (sql%notfound) then  -- trap system errors during update
  --   hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');

Line: 591

  CURSOR C IS SELECT PAYMENT_TYPE_ID FROM PAY_PAYMENT_TYPES
               WHERE payment_type_id = X_PAYMENT_TYPE_ID;

Line: 596

  UPDATE pay_payment_types
    SET description = nvl(x_description,description),
  --      payment_type_name = nvl(x_payment_type_name,payment_type_name),
        last_update_date = SYSDATE,
        last_updated_by = decode(x_owner,'SEED',1,0),
        last_update_login = 0,
        currency_code = nvl(x_currency_code,currency_code),
        category = x_category,
        allow_as_default =nvl(x_allow_as_default,allow_as_default),
        pre_validation_required = nvl(x_pre_validation_required,pre_validation_required),
        procedure_name = nvl(x_procedure_name,procedure_name),
        validation_days = nvl(x_validation_days,validation_days),
        validation_value = nvl(x_validation_value,validation_value),
        territory_code = nvl(x_territory_code,territory_code)
  WHERE nvl(upper(x_territory_code),'~null~') = nvl(upper(territory_code),'~null~')
    AND nvl(upper(x_b_payment_type_name),'~null~') = nvl(upper(payment_type_name),'~null~');

Line: 616

  SELECT pay_payment_types_s.nextval
  INTO X_PAYMENT_TYPE_ID
  FROM dual;

Line: 619

  INSERT INTO pay_payment_types(
          PAYMENT_TYPE_ID,
          TERRITORY_CODE,
          CURRENCY_CODE,
          CATEGORY,
          PAYMENT_TYPE_NAME,
          ALLOW_AS_DEFAULT,
          DESCRIPTION,
          PRE_VALIDATION_REQUIRED,
          PROCEDURE_NAME,
          VALIDATION_DAYS,
          VALIDATION_VALUE,
          last_update_date,
          last_updated_by,
          last_update_login,
          created_by,
          creation_date
  )VALUES(
          X_PAYMENT_TYPE_ID,
          X_TERRITORY_CODE,
          X_CURRENCY_CODE,
          X_CATEGORY,
          X_B_PAYMENT_TYPE_NAME,
          X_ALLOW_AS_DEFAULT,
          X_DESCRIPTION,
          X_PRE_VALIDATION_REQUIRED,
          X_PROCEDURE_NAME,
          X_VALIDATION_DAYS,
          X_VALIDATION_VALUE,
          SYSDATE,
          decode(x_owner,'SEED',1,0),
          0,
          decode(x_owner,'SEED',1,0),
          SYSDATE
  );

Line: 654

 INSERT INTO pay_payment_types_tl(
          PAYMENT_TYPE_ID,
          PAYMENT_TYPE_NAME,
          DESCRIPTION,
          LANGUAGE,
          SOURCE_LANG,
          LAST_UPDATE_DATE,
          LAST_UPDATED_BY,
          LAST_UPDATE_LOGIN,
          CREATED_BY,
          CREATION_DATE
  ) select
          X_PAYMENT_TYPE_ID,
          X_PAYMENT_TYPE_NAME,
          X_DESCRIPTION,
          L.LANGUAGE_CODE,
          userenv('LANG'),
          SYSDATE,
          decode(x_owner,'SEED',1,0),
          0,
          decode(x_owner,'SEED',1,0),
          SYSDATE
     from FND_LANGUAGES L
    where L.INSTALLED_FLAG in ('I', 'B')
      and not exists
    (select NULL
    from pay_payment_types_tl T
    where T.PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID
    and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 698

    UPDATE pay_payment_types_tl
    SET description = nvl(x_description,description),
        payment_type_name = nvl(x_payment_type_name,payment_type_name),
        last_update_date = SYSDATE,
        last_updated_by = decode(x_owner,'SEED',1,0),
        last_update_login = 0,
        source_lang = userenv('LANG')
    WHERE userenv('LANG') IN (language,source_lang)
    AND payment_type_id IN
        (SELECT PPT.PAYMENT_TYPE_ID
           FROM pay_payment_types ppt
          WHERE nvl(upper(x_territory_code),'~null~') = nvl(upper(ppt.territory_code),'~null~')
            AND nvl(upper(x_b_payment_type_name),'~null~') = nvl(upper(ppt.payment_type_name),'~null~'));