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 = 'PER_QUALIFICATIONS_FK1') Then
37: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
38: hr_utility.raise_error;
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_QUALIFICATIONS_FK1') Then
37: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
40: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
41: hr_utility.raise_error;
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_QUALIFICATIONS_FK1') Then
37: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
40: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
36: If (p_constraint_name = 'PER_QUALIFICATIONS_FK1') Then
37: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
40: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
43: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
44: hr_utility.raise_error;
37: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
38: hr_utility.raise_error;
39: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
40: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
43: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_UK') Then
39: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
40: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
43: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_UK') Then
46: hr_utility.set_message(801,'HR_51847_QUA_REC_EXISTS');
47: hr_utility.raise_error;
40: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
43: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_UK') Then
46: hr_utility.set_message(801,'HR_51847_QUA_REC_EXISTS');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
42: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
43: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_UK') Then
46: hr_utility.set_message(801,'HR_51847_QUA_REC_EXISTS');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
49: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
50: hr_utility.raise_error;
43: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
44: hr_utility.raise_error;
45: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_UK') Then
46: hr_utility.set_message(801,'HR_51847_QUA_REC_EXISTS');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
49: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
45: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_UK') Then
46: hr_utility.set_message(801,'HR_51847_QUA_REC_EXISTS');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
49: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
52: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
53: hr_utility.raise_error;
46: hr_utility.set_message(801,'HR_51847_QUA_REC_EXISTS');
47: hr_utility.raise_error;
48: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
49: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
52: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
53: hr_utility.raise_error;
54: Else
48: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
49: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
52: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
53: hr_utility.raise_error;
54: Else
55: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
56: hr_utility.set_message_token('PROCEDURE', l_proc);
49: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
50: hr_utility.raise_error;
51: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
52: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
53: hr_utility.raise_error;
54: Else
55: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
56: hr_utility.set_message_token('PROCEDURE', l_proc);
57: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
51: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
52: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
53: hr_utility.raise_error;
54: Else
55: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
56: hr_utility.set_message_token('PROCEDURE', l_proc);
57: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
58: hr_utility.raise_error;
59: End If;
52: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
53: hr_utility.raise_error;
54: Else
55: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
56: hr_utility.set_message_token('PROCEDURE', l_proc);
57: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
58: hr_utility.raise_error;
59: End If;
60: --
53: hr_utility.raise_error;
54: Else
55: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
56: hr_utility.set_message_token('PROCEDURE', l_proc);
57: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
58: hr_utility.raise_error;
59: End If;
60: --
61: hr_utility.set_location(' Leaving:'||l_proc, 10);
54: Else
55: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
56: hr_utility.set_message_token('PROCEDURE', l_proc);
57: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
58: hr_utility.raise_error;
59: End If;
60: --
61: hr_utility.set_location(' Leaving:'||l_proc, 10);
62: End constraint_error;
57: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
58: hr_utility.raise_error;
59: End If;
60: --
61: hr_utility.set_location(' Leaving:'||l_proc, 10);
62: End constraint_error;
63: --
64: -- ----------------------------------------------------------------------------
65: -- |---------------------------------< lck >----------------------------------|
87:
88: l_proc varchar2(72) := g_package||'lck';
89: --
90: Begin
91: hr_utility.set_location('Entering:'||l_proc, 5);
92:
93: Open C_Sel1;
94: Fetch C_Sel1 Into g_old_rec;
95: If C_Sel1%notfound then
96: Close C_Sel1;
97: --
98: -- The primary key is invalid therefore we must error
99: --
100: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
101: hr_utility.raise_error;
102: End If;
103: Close C_Sel1;
104: --
97: --
98: -- The primary key is invalid therefore we must error
99: --
100: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
101: hr_utility.raise_error;
102: End If;
103: Close C_Sel1;
104: --
105: hr_utility.set_location(' Leaving:'||l_proc, 10);
101: hr_utility.raise_error;
102: End If;
103: Close C_Sel1;
104: --
105: hr_utility.set_location(' Leaving:'||l_proc, 10);
106: --
107: -- We need to trap the ORA LOCK exception
108: --
109: Exception
111: --
112: -- The object is locked therefore we need to supply a meaningful
113: -- error message.
114: --
115: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
116: hr_utility.set_message_token('TABLE_NAME', 'per_qualifications');
117: hr_utility.raise_error;
118: End lck;
119: --
112: -- The object is locked therefore we need to supply a meaningful
113: -- error message.
114: --
115: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
116: hr_utility.set_message_token('TABLE_NAME', 'per_qualifications');
117: hr_utility.raise_error;
118: End lck;
119: --
120: -- ----------------------------------------------------------------------------
113: -- error message.
114: --
115: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
116: hr_utility.set_message_token('TABLE_NAME', 'per_qualifications');
117: hr_utility.raise_error;
118: End lck;
119: --
120: -- ----------------------------------------------------------------------------
121: -- |-----------------------------< convert_args >-----------------------------|
135: l_proc varchar2(72) := g_package||'convert_args';
136: --
137: Begin
138: --
139: hr_utility.set_location('Entering:'||l_proc, 5);
140: --
141: -- Convert arguments into local l_rec structure.
142: --
143: l_rec.qualification_id := p_qualification_id;
149:
150: --
151: -- Return the plsql record structure.
152: --
153: hr_utility.set_location(' Leaving:'||l_proc, 10);
154: Return(l_rec);
155: --
156: End convert_args;
157: --