139: X_LAST_UPDATE_LOGIN,
140: X_SEEDED_FLAG
141: );
142:
143: insert into IBY_PAYMENT_METHODS_TL (
144: PAYMENT_METHOD_NAME,
145: DESCRIPTION,
146: LAST_UPDATE_DATE,
147: LAST_UPDATE_LOGIN,
167: from FND_LANGUAGES L
168: where L.INSTALLED_FLAG in ('I', 'B')
169: and not exists
170: (select NULL
171: from IBY_PAYMENT_METHODS_TL T
172: where T.PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
173: and T.LANGUAGE = L.LANGUAGE_CODE);
174:
175: open c;
266: cursor c1 is select
267: PAYMENT_METHOD_NAME,
268: DESCRIPTION,
269: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
270: from IBY_PAYMENT_METHODS_TL
271: where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
272: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
273: for update of PAYMENT_METHOD_CODE nowait;
274: begin
446: if (sql%notfound) then
447: raise no_data_found;
448: end if;
449:
450: update IBY_PAYMENT_METHODS_TL set
451: PAYMENT_METHOD_NAME = X_PAYMENT_METHOD_NAME,
452: DESCRIPTION = X_DESCRIPTION,
453: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
454: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
465: procedure DELETE_ROW (
466: X_PAYMENT_METHOD_CODE in VARCHAR2
467: ) is
468: begin
469: delete from IBY_PAYMENT_METHODS_TL
470: where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE;
471:
472: if (sql%notfound) then
473: raise no_data_found;
483:
484: procedure ADD_LANGUAGE
485: is
486: begin
487: delete from IBY_PAYMENT_METHODS_TL T
488: where not exists
489: (select NULL
490: from IBY_PAYMENT_METHODS_B B
491: where B.PAYMENT_METHOD_CODE = T.PAYMENT_METHOD_CODE
490: from IBY_PAYMENT_METHODS_B B
491: where B.PAYMENT_METHOD_CODE = T.PAYMENT_METHOD_CODE
492: );
493:
494: update IBY_PAYMENT_METHODS_TL T set (
495: PAYMENT_METHOD_NAME,
496: DESCRIPTION
497: ) = (select
498: B.PAYMENT_METHOD_NAME,
496: DESCRIPTION
497: ) = (select
498: B.PAYMENT_METHOD_NAME,
499: B.DESCRIPTION
500: from IBY_PAYMENT_METHODS_TL B
501: where B.PAYMENT_METHOD_CODE = T.PAYMENT_METHOD_CODE
502: and B.LANGUAGE = T.SOURCE_LANG)
503: where (
504: T.PAYMENT_METHOD_CODE,
505: T.LANGUAGE
506: ) in (select
507: SUBT.PAYMENT_METHOD_CODE,
508: SUBT.LANGUAGE
509: from IBY_PAYMENT_METHODS_TL SUBB, IBY_PAYMENT_METHODS_TL SUBT
510: where SUBB.PAYMENT_METHOD_CODE = SUBT.PAYMENT_METHOD_CODE
511: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
512: and (SUBB.PAYMENT_METHOD_NAME <> SUBT.PAYMENT_METHOD_NAME
513: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
514: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
515: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
516: ));
517:
518: insert into IBY_PAYMENT_METHODS_TL (
519: PAYMENT_METHOD_NAME,
520: DESCRIPTION,
521: LAST_UPDATE_DATE,
522: LAST_UPDATE_LOGIN,
538: B.LAST_UPDATED_BY,
539: B.OBJECT_VERSION_NUMBER,
540: L.LANGUAGE_CODE,
541: B.SOURCE_LANG
542: from IBY_PAYMENT_METHODS_TL B, FND_LANGUAGES L
543: where L.INSTALLED_FLAG in ('I', 'B')
544: and B.LANGUAGE = userenv('LANG')
545: and not exists
546: (select NULL
543: where L.INSTALLED_FLAG in ('I', 'B')
544: and B.LANGUAGE = userenv('LANG')
545: and not exists
546: (select NULL
547: from IBY_PAYMENT_METHODS_TL T
548: where T.PAYMENT_METHOD_CODE = B.PAYMENT_METHOD_CODE
549: and T.LANGUAGE = L.LANGUAGE_CODE);
550: end ADD_LANGUAGE;
551:
606: if (sql%notfound) then
607: raise no_data_found;
608: end if;
609:
610: update IBY_PAYMENT_METHODS_TL set
611: PAYMENT_METHOD_NAME = X_PAYMENT_METHOD_NAME,
612: DESCRIPTION = X_DESCRIPTION,
613: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
614: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
679: X_OBJECT_VERSION_NUMBER in NUMBER,
680: X_OWNER in VARCHAR2)
681: is
682: begin
683: update iby_payment_methods_tl set
684: PAYMENT_METHOD_NAME = X_PAYMENT_METHOD_NAME,
685: DESCRIPTION = X_DESCRIPTION,
686: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
687: LAST_UPDATED_BY = fnd_load_util.owner_id(X_OWNER),