14: --
15: l_proc varchar2(72) := g_package||'return_api_dml_status';
16: --
17: Begin
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
23: End return_api_dml_status;
24: --
25: -- ----------------------------------------------------------------------------
26: -- |---------------------------< constraint_error >---------------------------|
30: --
31: l_proc varchar2(72) := g_package||'constraint_error';
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_DSGN_RQMT_RLSHP_TYP_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_DSGN_RQMT_RLSHP_TYP_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_DSGN_RQMT_RLSHP_TYP_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
35: --
36: If (p_constraint_name = 'BEN_DSGN_RQMT_RLSHP_TYP_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
36: If (p_constraint_name = 'BEN_DSGN_RQMT_RLSHP_TYP_PK') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
40: hr_utility.raise_error;
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
48: hr_utility.set_location(' Leaving:'||l_proc, 10);
41: Else
42: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
43: hr_utility.set_message_token('PROCEDURE', l_proc);
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
48: hr_utility.set_location(' Leaving:'||l_proc, 10);
49: End constraint_error;
44: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
45: hr_utility.raise_error;
46: End If;
47: --
48: hr_utility.set_location(' Leaving:'||l_proc, 10);
49: End constraint_error;
50: --
51: -- ----------------------------------------------------------------------------
52: -- |-----------------------------< api_updating >-----------------------------|
104: l_proc varchar2(72) := g_package||'api_updating';
105: l_fct_ret boolean;
106: --
107: Begin
108: hr_utility.set_location('Entering:'||l_proc, 5);
109: --
110: If (
111: p_dsgn_rqmt_rlshp_typ_id is null and
112: p_object_version_number is null
120: If (
121: p_dsgn_rqmt_rlshp_typ_id = g_old_rec.dsgn_rqmt_rlshp_typ_id and
122: p_object_version_number = g_old_rec.object_version_number
123: ) Then
124: hr_utility.set_location(l_proc, 10);
125: --
126: -- The g_old_rec is current therefore we must
127: -- set the returning function to true
128: --
137: Close C_Sel1;
138: --
139: -- The primary key is invalid therefore we must error
140: --
141: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
142: hr_utility.raise_error;
143: End If;
144: Close C_Sel1;
145: If (p_object_version_number <> g_old_rec.object_version_number) Then
138: --
139: -- The primary key is invalid therefore we must error
140: --
141: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
142: hr_utility.raise_error;
143: End If;
144: Close C_Sel1;
145: If (p_object_version_number <> g_old_rec.object_version_number) Then
146: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
142: hr_utility.raise_error;
143: End If;
144: Close C_Sel1;
145: If (p_object_version_number <> g_old_rec.object_version_number) Then
146: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
147: hr_utility.raise_error;
148: End If;
149: hr_utility.set_location(l_proc, 15);
150: l_fct_ret := true;
143: End If;
144: Close C_Sel1;
145: If (p_object_version_number <> g_old_rec.object_version_number) Then
146: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
147: hr_utility.raise_error;
148: End If;
149: hr_utility.set_location(l_proc, 15);
150: l_fct_ret := true;
151: End If;
145: If (p_object_version_number <> g_old_rec.object_version_number) Then
146: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
147: hr_utility.raise_error;
148: End If;
149: hr_utility.set_location(l_proc, 15);
150: l_fct_ret := true;
151: End If;
152: End If;
153: hr_utility.set_location(' Leaving:'||l_proc, 20);
149: hr_utility.set_location(l_proc, 15);
150: l_fct_ret := true;
151: End If;
152: End If;
153: hr_utility.set_location(' Leaving:'||l_proc, 20);
154: Return (l_fct_ret);
155: --
156: End api_updating;
157: --
209: --
210: l_proc varchar2(72) := g_package||'lck';
211: --
212: Begin
213: hr_utility.set_location('Entering:'||l_proc, 5);
214: --
215: -- Add any mandatory argument checking here:
216: -- Example:
217: -- hr_api.mandatory_arg_error
225: Close C_Sel1;
226: --
227: -- The primary key is invalid therefore we must error
228: --
229: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
230: hr_utility.raise_error;
231: End If;
232: Close C_Sel1;
233: If (p_object_version_number <> g_old_rec.object_version_number) Then
226: --
227: -- The primary key is invalid therefore we must error
228: --
229: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
230: hr_utility.raise_error;
231: End If;
232: Close C_Sel1;
233: If (p_object_version_number <> g_old_rec.object_version_number) Then
234: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
230: hr_utility.raise_error;
231: End If;
232: Close C_Sel1;
233: If (p_object_version_number <> g_old_rec.object_version_number) Then
234: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
235: hr_utility.raise_error;
236: End If;
237: --
238: hr_utility.set_location(' Leaving:'||l_proc, 10);
231: End If;
232: Close C_Sel1;
233: If (p_object_version_number <> g_old_rec.object_version_number) Then
234: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
235: hr_utility.raise_error;
236: End If;
237: --
238: hr_utility.set_location(' Leaving:'||l_proc, 10);
239: --
234: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
235: hr_utility.raise_error;
236: End If;
237: --
238: hr_utility.set_location(' Leaving:'||l_proc, 10);
239: --
240: -- We need to trap the ORA LOCK exception
241: --
242: Exception
244: --
245: -- The object is locked therefore we need to supply a meaningful
246: -- error message.
247: --
248: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
249: hr_utility.set_message_token('TABLE_NAME', 'ben_dsgn_rqmt_rlshp_typ');
250: hr_utility.raise_error;
251: End lck;
252: --
245: -- The object is locked therefore we need to supply a meaningful
246: -- error message.
247: --
248: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
249: hr_utility.set_message_token('TABLE_NAME', 'ben_dsgn_rqmt_rlshp_typ');
250: hr_utility.raise_error;
251: End lck;
252: --
253: -- ----------------------------------------------------------------------------
246: -- error message.
247: --
248: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
249: hr_utility.set_message_token('TABLE_NAME', 'ben_dsgn_rqmt_rlshp_typ');
250: hr_utility.raise_error;
251: End lck;
252: --
253: -- ----------------------------------------------------------------------------
254: -- |-----------------------------< convert_args >-----------------------------|
298: l_proc varchar2(72) := g_package||'convert_args';
299: --
300: Begin
301: --
302: hr_utility.set_location('Entering:'||l_proc, 5);
303: --
304: -- Convert arguments into local l_rec structure.
305: --
306: l_rec.dsgn_rqmt_rlshp_typ_id := p_dsgn_rqmt_rlshp_typ_id;
341: l_rec.object_version_number := p_object_version_number;
342: --
343: -- Return the plsql record structure.
344: --
345: hr_utility.set_location(' Leaving:'||l_proc, 10);
346: Return(l_rec);
347: --
348: End convert_args;
349: --