eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PAY_PAYMENT_TYPES_PKG dependencies on PAY_PAYMENT_TYPES

Line 1: PACKAGE BODY PAY_PAYMENT_TYPES_PKG as

1: PACKAGE BODY PAY_PAYMENT_TYPES_PKG as
2: /* $Header: pypyt01t.pkb 120.0.12010000.3 2009/07/12 10:21:45 namgoyal ship $ */
3: g_dummy number(1);
4:
5: PROCEDURE Is_Unique(X_Rowid VARCHAR2,X_Payment_Type_Name VARCHAR2,X_Territory_Code VARCHAR2) IS

Line 9: FROM PAY_PAYMENT_TYPES

5: PROCEDURE Is_Unique(X_Rowid VARCHAR2,X_Payment_Type_Name VARCHAR2,X_Territory_Code VARCHAR2) IS
6: result varchar2(255);
7: Begin
8: SELECT NULL INTO result
9: FROM PAY_PAYMENT_TYPES
10: WHERE UPPER(payment_type_name) = UPPER(X_Payment_Type_Name)
11: AND UPPER(Territory_Code) = UPPER(X_Territory_Code)
12: AND (Rowid <> X_Rowid OR X_Rowid is NULL);
13: IF (SQL%FOUND) THEN

Line 38: CURSOR C IS SELECT rowid FROM PAY_PAYMENT_TYPES

34: X_Procedure_Name VARCHAR2,
35: X_Validation_Days NUMBER,
36: X_Validation_Value VARCHAR2
37: ) IS
38: CURSOR C IS SELECT rowid FROM PAY_PAYMENT_TYPES
39:
40: WHERE payment_type_id = X_Payment_Type_Id;
41: --
42: l_max_id pay_payment_types.payment_type_id%type;

Line 42: l_max_id pay_payment_types.payment_type_id%type;

38: CURSOR C IS SELECT rowid FROM PAY_PAYMENT_TYPES
39:
40: WHERE payment_type_id = X_Payment_Type_Id;
41: --
42: l_max_id pay_payment_types.payment_type_id%type;
43: BEGIN
44: --
45: Is_Unique(X_Rowid,X_Payment_Type_Name,X_Territory_Code);
46: SELECT Pay_Payment_Types_s.nextval

Line 46: SELECT Pay_Payment_Types_s.nextval

42: l_max_id pay_payment_types.payment_type_id%type;
43: BEGIN
44: --
45: Is_Unique(X_Rowid,X_Payment_Type_Name,X_Territory_Code);
46: SELECT Pay_Payment_Types_s.nextval
47: INTO X_Payment_Type_Id
48: FROM dual;
49:
50: /* Defensive coding to prevent duplicate primary keys.

Line 57: FROM pay_payment_types;

53: exists on the table. */
54:
55: SELECT nvl(max(payment_type_id),0)
56: INTO l_max_id
57: FROM pay_payment_types;
58:
59: WHILE X_Payment_Type_Id <= l_max_id LOOP
60: SELECT Pay_Payment_Types_s.nextval
61: INTO X_Payment_Type_Id

Line 60: SELECT Pay_Payment_Types_s.nextval

56: INTO l_max_id
57: FROM pay_payment_types;
58:
59: WHILE X_Payment_Type_Id <= l_max_id LOOP
60: SELECT Pay_Payment_Types_s.nextval
61: INTO X_Payment_Type_Id
62: FROM dual;
63: END LOOP;
64:

Line 65: INSERT INTO PAY_PAYMENT_TYPES(

61: INTO X_Payment_Type_Id
62: FROM dual;
63: END LOOP;
64:
65: INSERT INTO PAY_PAYMENT_TYPES(
66: payment_type_id,
67: territory_code,
68: currency_code,
69: category,

Line 97: insert into PAY_PAYMENT_TYPES_TL (

93: --
94: -- **************************************************************************
95: -- insert into MLS table (TL)
96: --
97: insert into PAY_PAYMENT_TYPES_TL (
98: PAYMENT_TYPE_ID,
99: PAYMENT_TYPE_NAME,
100: DESCRIPTION,
101: LAST_UPDATE_DATE,

Line 117: from PAY_PAYMENT_TYPES_TL T

113: from FND_LANGUAGES L
114: where L.INSTALLED_FLAG in ('I', 'B')
115: and not exists
116: (select NULL
117: from PAY_PAYMENT_TYPES_TL T
118: where T.PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID
119: and T.LANGUAGE = L.LANGUAGE_CODE);
120: --
121: --

Line 161: FROM pay_payment_types_tl

157:
158: cursor c_translation_exists(p_language IN VARCHAR2,
159: p_payment_type_name IN VARCHAR2) IS
160: SELECT 1
161: FROM pay_payment_types_tl
162: WHERE language = p_language
163: AND upper(payment_type_name) = upper(p_payment_type_name);
164:
165: --

Line 175: FROM pay_payment_types_tl ptt,

171: cursor c_trans_check(p_language IN VARCHAR2,
172: p_payment_type_name IN VARCHAR2,
173: p_payment_type_id IN NUMBER) IS
174: SELECT 1
175: FROM pay_payment_types_tl ptt,
176: pay_payment_types pty
177: WHERE upper(ptt.payment_type_name)=upper(p_payment_type_name)
178: AND ptt.payment_type_id = pty.payment_type_id
179: AND ptt.language = p_language

Line 176: pay_payment_types pty

172: p_payment_type_name IN VARCHAR2,
173: p_payment_type_id IN NUMBER) IS
174: SELECT 1
175: FROM pay_payment_types_tl ptt,
176: pay_payment_types pty
177: WHERE upper(ptt.payment_type_name)=upper(p_payment_type_name)
178: AND ptt.payment_type_id = pty.payment_type_id
179: AND ptt.language = p_language
180: AND pty.payment_type_id <> p_payment_type_id;

Line 182: l_package_name VARCHAR2(80) := 'PAY_PAYMENT_TYPES_PKG.VALIDATE_TRANSLATION';

178: AND ptt.payment_type_id = pty.payment_type_id
179: AND ptt.language = p_language
180: AND pty.payment_type_id <> p_payment_type_id;
181:
182: l_package_name VARCHAR2(80) := 'PAY_PAYMENT_TYPES_PKG.VALIDATE_TRANSLATION';
183:
184: BEGIN
185:
186: hr_utility.set_location (l_package_name,10);

Line 242: FROM PAY_PAYMENT_TYPES

238: X_Validation_Value VARCHAR2
239: ) IS
240: CURSOR C IS
241: SELECT *
242: FROM PAY_PAYMENT_TYPES
243: WHERE rowid = X_Rowid
244: FOR UPDATE of Payment_Type_Id NOWAIT;
245: Recinfo C%ROWTYPE;
246: --

Line 254: from PAY_PAYMENT_TYPES_TL

250: cursor csr_payment_type_tl is select
251: PAYMENT_TYPE_NAME,
252: DESCRIPTION,
253: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
254: from PAY_PAYMENT_TYPES_TL
255: where PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID
256: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
257: for update of PAYMENT_TYPE_ID nowait;
258: --

Line 300: -- hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.LOCK_TL_ROW');

296: -- end loop;
297: ----
298: --if (l_mls_count=0) then -- Trap system errors
299: -- hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
300: -- hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.LOCK_TL_ROW');
301: --end if;
302: --
303: -- ***************************************************************************
304: --

Line 378: UPDATE PAY_PAYMENT_TYPES

374: ) IS
375: BEGIN
376: --
377: Is_Unique(X_Rowid,X_Payment_Type_Name,X_Territory_Code);
378: UPDATE PAY_PAYMENT_TYPES
379: SET
380:
381: payment_type_id = X_Payment_Type_Id,
382: territory_code = X_Territory_Code,

Line 410: update PAY_PAYMENT_TYPES_TL

406: -- ****************************************************************************************
407: --
408: -- update MLS table (TL)
409: --
410: update PAY_PAYMENT_TYPES_TL
411: set PAYMENT_TYPE_NAME = X_PAYMENT_TYPE_NAME,
412: DESCRIPTION = X_DESCRIPTION,
413: LAST_UPDATE_DATE = sysdate,
414: SOURCE_LANG = userenv('LANG')

Line 420: hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.UPDATE_TL_ROW');

416: and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
417: --
418: if (sql%notfound) then -- trap system errors during update
419: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
420: hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.UPDATE_TL_ROW');
421: end if;
422: --
423: -- ***************************************************************************************
424: --

Line 429: DELETE FROM PAY_PAYMENT_TYPES

425: END Update_Row;
426:
427: PROCEDURE Delete_Row(X_payment_type_id NUMBER, X_Rowid VARCHAR2) IS
428: BEGIN
429: DELETE FROM PAY_PAYMENT_TYPES
430: WHERE rowid = X_Rowid;
431:
432: if (SQL%NOTFOUND) then
433: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');

Line 443: delete from PAY_PAYMENT_TYPES_TL

439: -- ********************************************************************************
440: --
441: -- delete from MLS table (TL)
442: --
443: delete from PAY_PAYMENT_TYPES_TL
444: where PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID;
445: --
446: if sql%notfound then -- trap system errors during deletion
447: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');

Line 448: hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.DELETE_TL_ROW');

444: where PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID;
445: --
446: if sql%notfound then -- trap system errors during deletion
447: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
448: hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.DELETE_TL_ROW');
449: end if;
450: --
451: -- ********************************************************************************
452: --

Line 459: delete from PAY_PAYMENT_TYPES_TL T

455: ----------------------------------------------------------------------------------
456: procedure ADD_LANGUAGE
457: is
458: begin
459: delete from PAY_PAYMENT_TYPES_TL T
460: where not exists
461: (select NULL
462: from PAY_PAYMENT_TYPES B
463: where B.PAYMENT_TYPE_ID = T.PAYMENT_TYPE_ID

Line 462: from PAY_PAYMENT_TYPES B

458: begin
459: delete from PAY_PAYMENT_TYPES_TL T
460: where not exists
461: (select NULL
462: from PAY_PAYMENT_TYPES B
463: where B.PAYMENT_TYPE_ID = T.PAYMENT_TYPE_ID
464: );
465:
466: update PAY_PAYMENT_TYPES_TL T set (

Line 466: update PAY_PAYMENT_TYPES_TL T set (

462: from PAY_PAYMENT_TYPES B
463: where B.PAYMENT_TYPE_ID = T.PAYMENT_TYPE_ID
464: );
465:
466: update PAY_PAYMENT_TYPES_TL T set (
467: PAYMENT_TYPE_NAME,
468: DESCRIPTION
469: ) = (select
470: B.PAYMENT_TYPE_NAME,

Line 472: from PAY_PAYMENT_TYPES_TL B

468: DESCRIPTION
469: ) = (select
470: B.PAYMENT_TYPE_NAME,
471: B.DESCRIPTION
472: from PAY_PAYMENT_TYPES_TL B
473: where B.PAYMENT_TYPE_ID = T.PAYMENT_TYPE_ID
474: and B.LANGUAGE = T.SOURCE_LANG)
475: where (
476: T.PAYMENT_TYPE_ID,

Line 481: from PAY_PAYMENT_TYPES_TL SUBB, PAY_PAYMENT_TYPES_TL SUBT

477: T.LANGUAGE
478: ) in (select
479: SUBT.PAYMENT_TYPE_ID,
480: SUBT.LANGUAGE
481: from PAY_PAYMENT_TYPES_TL SUBB, PAY_PAYMENT_TYPES_TL SUBT
482: where SUBB.PAYMENT_TYPE_ID = SUBT.PAYMENT_TYPE_ID
483: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
484: and (SUBB.PAYMENT_TYPE_NAME <> SUBT.PAYMENT_TYPE_NAME
485: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION

Line 490: insert into PAY_PAYMENT_TYPES_TL (

486: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
487: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
488: ));
489:
490: insert into PAY_PAYMENT_TYPES_TL (
491: PAYMENT_TYPE_ID,
492: PAYMENT_TYPE_NAME,
493: DESCRIPTION,
494: LAST_UPDATE_DATE,

Line 512: from PAY_PAYMENT_TYPES_TL B, FND_LANGUAGES L

508: B.CREATED_BY,
509: B.CREATION_DATE,
510: L.LANGUAGE_CODE,
511: B.SOURCE_LANG
512: from PAY_PAYMENT_TYPES_TL B, FND_LANGUAGES L
513: where L.INSTALLED_FLAG in ('I', 'B')
514: and B.LANGUAGE = userenv('LANG')
515: and not exists
516: (select NULL

Line 517: from PAY_PAYMENT_TYPES_TL T

513: where L.INSTALLED_FLAG in ('I', 'B')
514: and B.LANGUAGE = userenv('LANG')
515: and not exists
516: (select NULL
517: from PAY_PAYMENT_TYPES_TL T
518: where T.PAYMENT_TYPE_ID = B.PAYMENT_TYPE_ID
519: and T.LANGUAGE = L.LANGUAGE_CODE);
520: end ADD_LANGUAGE;
521: ------------------------------------------------------------------------------

Line 527: FROM PAY_PAYMENT_TYPES

523: is
524: result varchar2(255);
525: Begin
526: SELECT count(*) INTO result
527: FROM PAY_PAYMENT_TYPES
528: WHERE UPPER(payment_type_name) = UPPER(X_Payment_Type_Name)
529: AND UPPER(territory_code) = UPPER(x_territory_code);
530: --
531: IF (result>1) THEN

Line 533: hr_utility.set_message_token('PROCEDURE','PAY_PAYMENT_TYPES_PKG.UNIQUE_CHK');

529: AND UPPER(territory_code) = UPPER(x_territory_code);
530: --
531: IF (result>1) THEN
532: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
533: hr_utility.set_message_token('PROCEDURE','PAY_PAYMENT_TYPES_PKG.UNIQUE_CHK');
534: hr_utility.set_message_token('STEP','1');
535: hr_utility.raise_error;
536: END IF;
537: EXCEPTION

Line 540: hr_utility.set_message_token('PROCEDURE','PAY_PAYMENT_TYPES_PKG.UNIQUE_CHK');

536: END IF;
537: EXCEPTION
538: when NO_DATA_FOUND then
539: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
540: hr_utility.set_message_token('PROCEDURE','PAY_PAYMENT_TYPES_PKG.UNIQUE_CHK');
541: hr_utility.set_message_token('STEP','1');
542: hr_utility.raise_error;
543: end unique_chk;
544: --

Line 554: UPDATE pay_payment_types_tl

550: is
551: begin
552: -- unique_chk(x_b_payment_type_name,x_territory_code);
553: --
554: UPDATE pay_payment_types_tl
555: SET description = nvl(x_description,description),
556: payment_type_name = nvl(x_payment_type_name,payment_type_name),
557: last_update_date = SYSDATE,
558: last_updated_by = decode(x_owner,'SEED',1,0),

Line 564: FROM pay_payment_types ppt

560: source_lang = userenv('LANG')
561: WHERE userenv('LANG') IN (language,source_lang)
562: AND payment_type_id IN
563: (SELECT PPT.PAYMENT_TYPE_ID
564: FROM pay_payment_types ppt
565: WHERE nvl(upper(x_territory_code),'~null~') = nvl(upper(ppt.territory_code),'~null~')
566: AND nvl(upper(x_b_payment_type_name),'~null~') = nvl(upper(ppt.payment_type_name),'~null~'));
567: --
568: if (sql%notfound) then -- trap system errors during update

Line 570: -- hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.TRANSLATE_ROW');

566: AND nvl(upper(x_b_payment_type_name),'~null~') = nvl(upper(ppt.payment_type_name),'~null~'));
567: --
568: if (sql%notfound) then -- trap system errors during update
569: -- hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
570: -- hr_utility.set_message_token ('PROCEDURE','PAY_PAYMENT_TYPES_PKG.TRANSLATE_ROW');
571: -- hr_utility.set_message_token('STEP','1');
572: -- hr_utility.raise_error;
573: null;
574: end if;

Line 592: CURSOR C IS SELECT PAYMENT_TYPE_ID FROM PAY_PAYMENT_TYPES

588: x_description in VARCHAR2,
589: x_reconciliation_function in VARCHAR2)
590: is
591: X_PAYMENT_TYPE_ID NUMBER(9);
592: CURSOR C IS SELECT PAYMENT_TYPE_ID FROM PAY_PAYMENT_TYPES
593: WHERE payment_type_id = X_PAYMENT_TYPE_ID;
594: begin
595: -- unique_chk(x_b_payment_type_name,x_territory_code);
596: --

Line 597: UPDATE pay_payment_types

593: WHERE payment_type_id = X_PAYMENT_TYPE_ID;
594: begin
595: -- unique_chk(x_b_payment_type_name,x_territory_code);
596: --
597: UPDATE pay_payment_types
598: SET description = nvl(x_description,description),
599: -- payment_type_name = nvl(x_payment_type_name,payment_type_name),
600: last_update_date = SYSDATE,
601: last_updated_by = decode(x_owner,'SEED',1,0),

Line 618: SELECT pay_payment_types_s.nextval

614: --
615: -- exception
616: -- when NO_DATA_FOUND then
617: if (SQL%rowcount = 0) then
618: SELECT pay_payment_types_s.nextval
619: INTO X_PAYMENT_TYPE_ID
620: FROM dual;
621: INSERT INTO pay_payment_types(
622: PAYMENT_TYPE_ID,

Line 621: INSERT INTO pay_payment_types(

617: if (SQL%rowcount = 0) then
618: SELECT pay_payment_types_s.nextval
619: INTO X_PAYMENT_TYPE_ID
620: FROM dual;
621: INSERT INTO pay_payment_types(
622: PAYMENT_TYPE_ID,
623: TERRITORY_CODE,
624: CURRENCY_CODE,
625: CATEGORY,

Line 658: INSERT INTO pay_payment_types_tl(

654: decode(x_owner,'SEED',1,0),
655: SYSDATE,
656: X_RECONCILIATION_FUNCTION
657: );
658: INSERT INTO pay_payment_types_tl(
659: PAYMENT_TYPE_ID,
660: PAYMENT_TYPE_NAME,
661: DESCRIPTION,
662: LANGUAGE,

Line 684: from pay_payment_types_tl T

680: from FND_LANGUAGES L
681: where L.INSTALLED_FLAG in ('I', 'B')
682: and not exists
683: (select NULL
684: from pay_payment_types_tl T
685: where T.PAYMENT_TYPE_ID = X_PAYMENT_TYPE_ID
686: and T.LANGUAGE = L.LANGUAGE_CODE);
687: OPEN C;
688: FETCH C INTO X_PAYMENT_TYPE_ID;

Line 699: -- Added else part to update the pay_payment_types_tl table if the above

695: null;
696: end if;
697: CLOSE C;
698: -- Bug # 6124985.
699: -- Added else part to update the pay_payment_types_tl table if the above
700: -- update is successful.
701: else
702: UPDATE pay_payment_types_tl
703: SET description = nvl(x_description,description),

Line 702: UPDATE pay_payment_types_tl

698: -- Bug # 6124985.
699: -- Added else part to update the pay_payment_types_tl table if the above
700: -- update is successful.
701: else
702: UPDATE pay_payment_types_tl
703: SET description = nvl(x_description,description),
704: payment_type_name = nvl(x_payment_type_name,payment_type_name),
705: last_update_date = SYSDATE,
706: last_updated_by = decode(x_owner,'SEED',1,0),

Line 712: FROM pay_payment_types ppt

708: source_lang = userenv('LANG')
709: WHERE userenv('LANG') IN (language,source_lang)
710: AND payment_type_id IN
711: (SELECT PPT.PAYMENT_TYPE_ID
712: FROM pay_payment_types ppt
713: WHERE nvl(upper(x_territory_code),'~null~') = nvl(upper(ppt.territory_code),'~null~')
714: AND nvl(upper(x_b_payment_type_name),'~null~') = nvl(upper(ppt.payment_type_name),'~null~'));
715: end if;
716: end LOAD_ROW;

Line 718: END PAY_PAYMENT_TYPES_PKG;

714: AND nvl(upper(x_b_payment_type_name),'~null~') = nvl(upper(ppt.payment_type_name),'~null~'));
715: end if;
716: end LOAD_ROW;
717: ------------------------------------------------------------------------------
718: END PAY_PAYMENT_TYPES_PKG;