[Home] [Help]
13: l_exists varchar2(1);
14: --
15: BEGIN
16: --
17: hr_utility.set_location('Entering:'|| l_proc, 10);
18:
19: open csr_unique_name;
20: fetch csr_unique_name into l_exists;
21:
27:
28: end if;
29: close csr_unique_name;
30:
31: hr_utility.set_location('Leaving:'|| l_proc, 20);
32: --
33: END chk_short_name;
34:
35:
42: l_proc varchar2(72) := g_package||'chk_lookup';
43: --
44: BEGIN
45: --
46: hr_utility.set_location('Entering:'|| l_proc, 10);
47:
48: if hr_api.not_exists_in_hr_lookups
49: (p_effective_date => trunc(sysdate)
50: ,p_lookup_type => p_lookup_type
56: fnd_message.set_token('COLUMN', p_column);
57: fnd_message.raise_error;
58: end if;
59:
60: hr_utility.set_location('Leaving:'|| l_proc, 20);
61: --
62: END chk_lookup;
63:
64: PROCEDURE chk_mandatory_arg( p_argument in varchar2 , p_column in varchar2)
67: l_proc varchar2(72) := g_package||'chk_mandatory_arg';
68: --
69: BEGIN
70: --
71: hr_utility.set_location('Entering:'|| l_proc, 10);
72:
73: if p_argument is null then
74: fnd_message.set_name( 'PAY', 'PAY_75178_NO_DATA' );
75: fnd_message.set_token('VALUE1' , l_proc);
76: fnd_message.set_token('VALUE2' , p_column) ;
77: fnd_message.raise_error;
78: end if;
79:
80: hr_utility.set_location(' Leaving:'|| l_proc, 20);
81: --
82: END chk_mandatory_arg;
83:
84: PROCEDURE chk_legislation_code( p_legislation_code in varchar2 )
93: l_proc varchar2(100) := g_package || 'chk_legislation_code';
94: --
95: BEGIN
96: --
97: hr_utility.set_location('Entering:'|| l_proc, 10);
98:
99: open csr_legislation_code;
100: fetch csr_legislation_code into l_exists ;
101:
105: fnd_message.raise_error;
106: end if;
107: close csr_legislation_code;
108:
109: hr_utility.set_location(' Leaving:'|| l_proc, 20);
110: --
111: END chk_legislation_code;
112:
113: PROCEDURE chk_delete ( p_upgrade_definition_id in number )
122: l_proc varchar2(100) := g_package || 'chk_delete';
123: --
124: BEGIN
125: --
126: hr_utility.set_location('Entering:'|| l_proc, 10);
127:
128: open csr_delete;
129: fetch csr_delete into l_exists ;
130:
134: fnd_message.raise_error;
135: end if;
136: close csr_delete;
137:
138: hr_utility.set_location(' Leaving:'|| l_proc, 20);
139: --
140: END chk_delete;
141:
142:
177: select pay_upgrade_definitions_s.nextval from dual;
178: --
179: BEGIN
180: --
181: hr_utility.set_location('Entering:'|| l_proc, 10);
182:
183: -- Check for mandatory arguments.
184:
185: chk_mandatory_arg( p_short_name ,'SHORT_NAME' );
340: p_upgrade_definition_id := l_upgrade_definition_id;
341:
342: close csr_exists;
343:
344: hr_utility.set_location(' Leaving:'|| l_proc, 20);
345: --
346: END Insert_Row;
347:
348: PROCEDURE Update_Row (
365: l_proc varchar2(100) := g_package || 'Update_Row';
366: --
367: BEGIN
368: --
369: hr_utility.set_location('Entering:'|| l_proc, 10);
370:
371: -- Check for mandatory arguments.
372:
373: chk_mandatory_arg( p_upgrade_definition_id, 'UPGRADE_DEFINITION_ID' );
420: if (sql%notfound) then
421: raise no_data_found;
422: end if;
423:
424: hr_utility.set_location(' Leaving:'|| l_proc, 20);
425: --
426: END Update_Row;
427:
428: PROCEDURE Lock_Row (
474: l_proc varchar2(100) := g_package || 'Lock_Row';
475: --
476: BEGIN
477: --
478: hr_utility.set_location('Entering:'|| l_proc, 10);
479:
480: -- Lock the Base table record.
481:
482: open csr_lck;
522: end if;
523: end if;
524: end loop;
525:
526: hr_utility.set_location(' Leaving:'|| l_proc, 20);
527: return;
528: --
529: END Lock_Row;
530:
535: l_proc varchar2(100) := g_package || 'Delete_Row';
536: --
537: BEGIN
538: --
539: hr_utility.set_location('Entering:'|| l_proc, 10);
540:
541: chk_mandatory_arg( p_upgrade_definition_id, 'UPGRADE_DEFINITION_ID' );
542:
543: chk_delete ( p_upgrade_definition_id );
558: if (sql%notfound) then
559: raise no_data_found;
560: end if;
561:
562: hr_utility.set_location(' Leaving:'|| l_proc, 20);
563: --
564: END Delete_Row;
565:
566: procedure ADD_LANGUAGE
672: l_appl_id PAY_UPGRADE_DEFINITIONS.OWNER_APPLICATION_ID%type;
673: --
674: BEGIN
675: --
676: hr_utility.set_location('Entering:'|| l_proc, 10);
677:
678: if p_owner = 'SEED' then
679: hr_general2.init_fndload
680: (p_resp_appl_id => 801
761: );
762:
763: end if;
764:
765: hr_utility.set_location('Leaving:'|| l_proc, 20);
766: --
767: END Load_Row;
768:
769: PROCEDURE Translate_Row (
780: l_last_update_date date;
781: --
782: BEGIN
783: --
784: hr_utility.set_location('Entering:'|| l_proc, 10);
785:
786: if P_OWNER = 'SEED' then
787: hr_general2.init_fndload
788: (p_resp_appl_id => 801
813: (SELECT pud.upgrade_definition_id
814: FROM pay_upgrade_definitions pud
815: WHERE upper(p_short_name) = upper(pud.short_name) );
816:
817: hr_utility.set_location('Leaving:'|| l_proc, 20);
818: --
819: END Translate_Row;
820:
821: END PAY_UPGRADE_DEFINITIONS_PKG;