37: -- Check the request line is unique
38: --
39: begin
40: --
41: hr_utility.trace('CHK PROCEDURE');
42:
43: if X_assignment_id is not null then
44: open csr_line;
45: fetch csr_line into g_dummy_number;
46: v_not_unique := csr_line%found;
47: close csr_line;
48: --
49: if v_not_unique then
50: hr_utility.set_message(801,'PER_7352_OUT_LETTER_PERSON');
51: hr_utility.raise_error;
52: end if;
53: --
54: end if;
47: close csr_line;
48: --
49: if v_not_unique then
50: hr_utility.set_message(801,'PER_7352_OUT_LETTER_PERSON');
51: hr_utility.raise_error;
52: end if;
53: --
54: end if;
55:
150: CURSOR C2 IS SELECT per_letter_request_lines_s.nextval FROM sys.dual;
151: --
152: BEGIN
153: --
154: hr_utility.trace('Insert_Row');
155: if (X_Letter_Request_Line_Id is NULL) then
156: OPEN C2;
157: FETCH C2 INTO X_Letter_Request_Line_Id;
158: CLOSE C2;
186: --
187: OPEN C;
188: FETCH C INTO X_Rowid;
189: if (C%NOTFOUND) then
190: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
191: hr_utility.set_message_token('PROCEDURE','Insert_Row');
192: hr_utility.set_message_token('STEP','1');
193: hr_utility.raise_error;
194: end if;
187: OPEN C;
188: FETCH C INTO X_Rowid;
189: if (C%NOTFOUND) then
190: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
191: hr_utility.set_message_token('PROCEDURE','Insert_Row');
192: hr_utility.set_message_token('STEP','1');
193: hr_utility.raise_error;
194: end if;
195: CLOSE C;
188: FETCH C INTO X_Rowid;
189: if (C%NOTFOUND) then
190: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
191: hr_utility.set_message_token('PROCEDURE','Insert_Row');
192: hr_utility.set_message_token('STEP','1');
193: hr_utility.raise_error;
194: end if;
195: CLOSE C;
196: END Insert_Row;
189: if (C%NOTFOUND) then
190: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
191: hr_utility.set_message_token('PROCEDURE','Insert_Row');
192: hr_utility.set_message_token('STEP','1');
193: hr_utility.raise_error;
194: end if;
195: CLOSE C;
196: END Insert_Row;
197: --
217: --
218: OPEN C;
219: FETCH C INTO Recinfo;
220: if (C%NOTFOUND) then
221: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
222: hr_utility.set_message_token('PROCEDURE','Lock_Row');
223: hr_utility.set_message_token('STEP','1');
224: hr_utility.raise_error;
225: end if;
218: OPEN C;
219: FETCH C INTO Recinfo;
220: if (C%NOTFOUND) then
221: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
222: hr_utility.set_message_token('PROCEDURE','Lock_Row');
223: hr_utility.set_message_token('STEP','1');
224: hr_utility.raise_error;
225: end if;
226: CLOSE C;
219: FETCH C INTO Recinfo;
220: if (C%NOTFOUND) then
221: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
222: hr_utility.set_message_token('PROCEDURE','Lock_Row');
223: hr_utility.set_message_token('STEP','1');
224: hr_utility.raise_error;
225: end if;
226: CLOSE C;
227: if (
220: if (C%NOTFOUND) then
221: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
222: hr_utility.set_message_token('PROCEDURE','Lock_Row');
223: hr_utility.set_message_token('STEP','1');
224: hr_utility.raise_error;
225: end if;
226: CLOSE C;
227: if (
228: ( (Recinfo.letter_request_line_id = X_Letter_Request_Line_Id)
271: DELETE FROM per_letter_request_lines
272: WHERE rowid = X_Rowid;
273: --
274: if (SQL%NOTFOUND) then
275: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
276: hr_utility.set_message_token('PROCEDURE','Delete_Row');
277: hr_utility.set_message_token('STEP','1');
278: hr_utility.raise_error;
279: end if;
272: WHERE rowid = X_Rowid;
273: --
274: if (SQL%NOTFOUND) then
275: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
276: hr_utility.set_message_token('PROCEDURE','Delete_Row');
277: hr_utility.set_message_token('STEP','1');
278: hr_utility.raise_error;
279: end if;
280: END Delete_Row;
273: --
274: if (SQL%NOTFOUND) then
275: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
276: hr_utility.set_message_token('PROCEDURE','Delete_Row');
277: hr_utility.set_message_token('STEP','1');
278: hr_utility.raise_error;
279: end if;
280: END Delete_Row;
281: --
274: if (SQL%NOTFOUND) then
275: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
276: hr_utility.set_message_token('PROCEDURE','Delete_Row');
277: hr_utility.set_message_token('STEP','1');
278: hr_utility.raise_error;
279: end if;
280: END Delete_Row;
281: --
282: --