50: -- Internal Table Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy per_za_tra_shd.g_za_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: --
58: Begin
60: --
61: -- Increment the object version
62: --
63: --
64: per_za_tra_shd.g_api_dml := true; -- Set the api dml status
65: --
66: -- Update the per_za_assessments Row
67: --
68: update per_za_training
78: registration_number = p_rec.registration_number
79: where training_id = p_rec.training_id;
80:
81: --
82: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
83: --
84: hr_utility.set_location(' Leaving:'||l_proc, 10);
85: --
86: Exception
85: --
86: Exception
87: When hr_api.check_integrity_violated Then
88: -- A check constraint has been violated
89: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
90: per_za_tra_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
86: Exception
87: When hr_api.check_integrity_violated Then
88: -- A check constraint has been violated
89: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
90: per_za_tra_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
94: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
90: per_za_tra_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
94: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
95: per_za_tra_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.parent_integrity_violated Then
93: -- Parent integrity has been violated
94: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
95: per_za_tra_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
99: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
95: per_za_tra_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
99: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
100: per_za_tra_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When hr_api.unique_integrity_violated Then
98: -- Unique integrity has been violated
99: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
100: per_za_tra_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
104: Raise;
99: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
100: per_za_tra_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When Others Then
103: per_za_tra_shd.g_api_dml := false; -- Unset the api dml status
104: Raise;
105: End update_dml;
106: --
107: -- ----------------------------------------------------------------------------
135: -- Internal Table Handler Use Only.
136: --
137: -- {End Of Comments}
138: -- ----------------------------------------------------------------------------
139: Procedure pre_update(p_rec in per_za_tra_shd.g_za_rec_type) is
140: --
141: l_proc varchar2(72) := g_package||'pre_update';
142: --
143: Begin
177: -- Internal Table Handler Use Only.
178: --
179: -- {End Of Comments}
180: -- ----------------------------------------------------------------------------
181: Procedure post_update(p_rec in per_za_tra_shd.g_za_rec_type) is
182: --
183: l_proc varchar2(72) := g_package||'post_update';
184: --
185: Begin
192: -- |---------------------------------< upd >----------------------------------|
193: -- ----------------------------------------------------------------------------
194: Procedure upd
195: (
196: p_rec in out nocopy per_za_tra_shd.g_za_rec_type,
197: p_validate in boolean default false
198: ) is
199: --
200: l_proc varchar2(72) := g_package||'upd';
212: End If;
213: --
214: -- We must lock the row which we need to update.
215: --
216: per_za_tra_shd.lck
217: (
218: p_rec.training_id,
219: p_rec.person_id
220: );
273: P_REGISTRATION_NUMBER IN VARCHAR2 default null,
274: p_validate in boolean default false
275: ) is
276: --
277: l_rec per_za_tra_shd.g_za_rec_type;
278: l_proc varchar2(72) := g_package||'upd';
279: --
280: Begin
281: hr_utility.set_location('Entering:'||l_proc, 5);
283: -- Call conversion function to turn arguments into the
284: -- l_rec structure.
285: --
286: l_rec :=
287: per_za_tra_shd.convert_args
288: (
289: P_TRAINING_ID,
290: P_LEVEL_ID ,
291: P_PERSON_ID,