[Home] [Help]
1: PACKAGE BODY PER_LETTER_REQUEST_LINES_PKG as
2: /* $Header: peltl01t.pkb 115.6 2003/02/21 07:13:34 vramanai ship $ */
3: --
4: PROCEDURE check_request_line_unique(X_letter_request_line_id in number,
5: X_assignment_id in number,
10: X_ota_booking_status_type_id in number)
11: is
12: --
13: cursor csr_line is select null
14: from per_letter_request_lines r
15: where (X_letter_request_line_id is null
16: or X_letter_request_line_id <> r.letter_request_line_id)
17: and r.assignment_id = X_assignment_id
18: and r.letter_request_id = X_letter_request_id
19: and r.business_group_id + 0 = X_business_group_id;
20: --
21: cursor csr_ota_line is
22: select null
23: from per_letter_request_lines r
24: where (X_letter_request_line_id is null
25: or X_letter_request_line_id <> r.letter_request_line_id)
26: and r.letter_request_id = X_letter_request_id
27: and ((X_ota_event_id = ota_event_id and
143: X_OTA_BOOKING_ID number,
144: X_OTA_EVENT_ID number,
145: X_CONTRACT_ID IN NUMBER DEFAULT NULL
146: ) IS
147: CURSOR C IS SELECT rowid FROM per_letter_request_lines
148: WHERE letter_request_line_id = X_Letter_Request_Line_Id;
149: --
150: CURSOR C2 IS SELECT per_letter_request_lines_s.nextval FROM sys.dual;
151: --
146: ) IS
147: CURSOR C IS SELECT rowid FROM per_letter_request_lines
148: WHERE letter_request_line_id = X_Letter_Request_Line_Id;
149: --
150: CURSOR C2 IS SELECT per_letter_request_lines_s.nextval FROM sys.dual;
151: --
152: BEGIN
153: --
154: hr_utility.trace('Insert_Row');
157: FETCH C2 INTO X_Letter_Request_Line_Id;
158: CLOSE C2;
159: end if;
160: --
161: INSERT INTO per_letter_request_lines(
162: letter_request_line_id,
163: business_group_id,
164: letter_request_id,
165: person_id,
208: X_OTA_EVENT_ID number
209: ) IS
210: CURSOR C IS
211: SELECT *
212: FROM per_letter_request_lines
213: WHERE rowid = X_Rowid
214: FOR UPDATE of letter_request_line_id NOWAIT;
215: Recinfo C%ROWTYPE;
216: BEGIN
267: END Lock_Row;
268: --
269: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
270: BEGIN
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');
279: end if;
280: END Delete_Row;
281: --
282: --
283: END PER_LETTER_REQUEST_LINES_PKG;