16: --
17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: hr_utility.set_location('Entering:'||l_proc, 5);
21: --
22: If (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK1') Then
23: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
24: hr_utility.set_message_token('PROCEDURE', l_proc);
19: Begin
20: hr_utility.set_location('Entering:'||l_proc, 5);
21: --
22: If (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK1') Then
23: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
24: hr_utility.set_message_token('PROCEDURE', l_proc);
25: hr_utility.set_message_token('STEP','5');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
20: hr_utility.set_location('Entering:'||l_proc, 5);
21: --
22: If (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK1') Then
23: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
24: hr_utility.set_message_token('PROCEDURE', l_proc);
25: hr_utility.set_message_token('STEP','5');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
21: --
22: If (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK1') Then
23: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
24: hr_utility.set_message_token('PROCEDURE', l_proc);
25: hr_utility.set_message_token('STEP','5');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
22: If (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK1') Then
23: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
24: hr_utility.set_message_token('PROCEDURE', l_proc);
25: hr_utility.set_message_token('STEP','5');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','10');
24: hr_utility.set_message_token('PROCEDURE', l_proc);
25: hr_utility.set_message_token('STEP','5');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','10');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
25: hr_utility.set_message_token('STEP','5');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','10');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','10');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
27: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_FK2') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','10');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','10');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
37: Else
30: hr_utility.set_message_token('STEP','10');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
37: Else
38: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
31: hr_utility.raise_error;
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
37: Else
38: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
32: ElsIf (p_constraint_name = 'PQH_BDGT_CMMTMNT_ELMNTS_PK') Then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
37: Else
38: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
37: Else
38: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
41: hr_utility.raise_error;
42: End If;
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
37: Else
38: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
41: hr_utility.raise_error;
42: End If;
43: --
36: hr_utility.raise_error;
37: Else
38: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
41: hr_utility.raise_error;
42: End If;
43: --
44: hr_utility.set_location(' Leaving:'||l_proc, 10);
37: Else
38: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
41: hr_utility.raise_error;
42: End If;
43: --
44: hr_utility.set_location(' Leaving:'||l_proc, 10);
45: End constraint_error;
40: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
41: hr_utility.raise_error;
42: End If;
43: --
44: hr_utility.set_location(' Leaving:'||l_proc, 10);
45: End constraint_error;
46: --
47: -- ----------------------------------------------------------------------------
48: -- |-----------------------------< api_updating >-----------------------------|
76: l_proc varchar2(72) := g_package||'api_updating';
77: l_fct_ret boolean;
78: --
79: Begin
80: hr_utility.set_location('Entering:'||l_proc, 5);
81: --
82: If (
83: p_bdgt_cmmtmnt_elmnt_id is null and
84: p_object_version_number is null
92: If (
93: p_bdgt_cmmtmnt_elmnt_id = g_old_rec.bdgt_cmmtmnt_elmnt_id and
94: p_object_version_number = g_old_rec.object_version_number
95: ) Then
96: hr_utility.set_location(l_proc, 10);
97: --
98: -- The g_old_rec is current therefore we must
99: -- set the returning function to true
100: --
109: Close C_Sel1;
110: --
111: -- The primary key is invalid therefore we must error
112: --
113: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
114: hr_utility.raise_error;
115: End If;
116: Close C_Sel1;
117: If (p_object_version_number <> g_old_rec.object_version_number) Then
110: --
111: -- The primary key is invalid therefore we must error
112: --
113: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
114: hr_utility.raise_error;
115: End If;
116: Close C_Sel1;
117: If (p_object_version_number <> g_old_rec.object_version_number) Then
118: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
114: hr_utility.raise_error;
115: End If;
116: Close C_Sel1;
117: If (p_object_version_number <> g_old_rec.object_version_number) Then
118: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
119: hr_utility.raise_error;
120: End If;
121: hr_utility.set_location(l_proc, 15);
122: l_fct_ret := true;
115: End If;
116: Close C_Sel1;
117: If (p_object_version_number <> g_old_rec.object_version_number) Then
118: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
119: hr_utility.raise_error;
120: End If;
121: hr_utility.set_location(l_proc, 15);
122: l_fct_ret := true;
123: End If;
117: If (p_object_version_number <> g_old_rec.object_version_number) Then
118: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
119: hr_utility.raise_error;
120: End If;
121: hr_utility.set_location(l_proc, 15);
122: l_fct_ret := true;
123: End If;
124: End If;
125: hr_utility.set_location(' Leaving:'||l_proc, 20);
121: hr_utility.set_location(l_proc, 15);
122: l_fct_ret := true;
123: End If;
124: End If;
125: hr_utility.set_location(' Leaving:'||l_proc, 20);
126: Return (l_fct_ret);
127: --
128: End api_updating;
129: --
157: --
158: l_proc varchar2(72) := g_package||'lck';
159: --
160: Begin
161: hr_utility.set_location('Entering:'||l_proc, 5);
162: --
163: -- Add any mandatory argument checking here:
164: -- Example:
165: -- hr_api.mandatory_arg_error
173: Close C_Sel1;
174: --
175: -- The primary key is invalid therefore we must error
176: --
177: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
178: hr_utility.raise_error;
179: End If;
180: Close C_Sel1;
181: If (p_object_version_number <> g_old_rec.object_version_number) Then
174: --
175: -- The primary key is invalid therefore we must error
176: --
177: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
178: hr_utility.raise_error;
179: End If;
180: Close C_Sel1;
181: If (p_object_version_number <> g_old_rec.object_version_number) Then
182: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
178: hr_utility.raise_error;
179: End If;
180: Close C_Sel1;
181: If (p_object_version_number <> g_old_rec.object_version_number) Then
182: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
183: hr_utility.raise_error;
184: End If;
185: --
186: hr_utility.set_location(' Leaving:'||l_proc, 10);
179: End If;
180: Close C_Sel1;
181: If (p_object_version_number <> g_old_rec.object_version_number) Then
182: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
183: hr_utility.raise_error;
184: End If;
185: --
186: hr_utility.set_location(' Leaving:'||l_proc, 10);
187: --
182: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
183: hr_utility.raise_error;
184: End If;
185: --
186: hr_utility.set_location(' Leaving:'||l_proc, 10);
187: --
188: -- We need to trap the ORA LOCK exception
189: --
190: Exception
192: --
193: -- The object is locked therefore we need to supply a meaningful
194: -- error message.
195: --
196: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
197: hr_utility.set_message_token('TABLE_NAME', 'pqh_bdgt_cmmtmnt_elmnts');
198: hr_utility.raise_error;
199: End lck;
200: --
193: -- The object is locked therefore we need to supply a meaningful
194: -- error message.
195: --
196: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
197: hr_utility.set_message_token('TABLE_NAME', 'pqh_bdgt_cmmtmnt_elmnts');
198: hr_utility.raise_error;
199: End lck;
200: --
201: -- ----------------------------------------------------------------------------
194: -- error message.
195: --
196: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
197: hr_utility.set_message_token('TABLE_NAME', 'pqh_bdgt_cmmtmnt_elmnts');
198: hr_utility.raise_error;
199: End lck;
200: --
201: -- ----------------------------------------------------------------------------
202: -- |-----------------------------< convert_args >-----------------------------|
222: l_proc varchar2(72) := g_package||'convert_args';
223: --
224: Begin
225: --
226: hr_utility.set_location('Entering:'||l_proc, 5);
227: --
228: -- Convert arguments into local l_rec structure.
229: --
230: l_rec.bdgt_cmmtmnt_elmnt_id := p_bdgt_cmmtmnt_elmnt_id;
241: l_rec.object_version_number := p_object_version_number;
242: --
243: -- Return the plsql record structure.
244: --
245: hr_utility.set_location(' Leaving:'||l_proc, 10);
246: Return(l_rec);
247: --
248: End convert_args;
249: --