[Home] [Help]
2: /* $Header: PARGASNB.pls 120.1.12010000.2 2008/08/04 12:16:10 amehrotr ship $ */
3:
4: --
5: -- Procedure : Insert_rows
6: -- Purpose : Create Rows in PA_ASSIGNMENT_CONFLICT_HIST.
7: --
8: PROCEDURE insert_rows
9: ( p_conflict_group_id IN Number := NULL ,
10: p_assignment_id IN Number ,
18: x_msg_data OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
19: IS
20:
21: BEGIN
22: INSERT INTO pa_assignment_conflict_hist
23: ( conflict_group_id ,
24: assignment_id ,
25: conflict_assignment_id ,
26: resolve_conflicts_action_code ,
32: last_update_date ,
33: last_updated_by ,
34: last_update_login )
35: VALUES
36: (nvl(p_conflict_group_id, pa_assignment_conflict_hist_s.nextval),
37: p_assignment_id ,
38: p_conflict_assignment_id ,
39: p_resolve_conflict_action_code ,
40: p_intra_txn_conflict_flag ,
58:
59:
60: --
61: -- Procedure : Insert_rows (Overloaded)
62: -- Purpose : Create Rows in PA_ASSIGNMENT_CONFLICT_HIST for a single
63: -- assigment with a table of conflicting assignments.
64: --
65: PROCEDURE insert_rows
66: ( p_conflict_group_id IN NUMBER := NULL ,
77: l_conflict_group_id NUMBER := p_conflict_group_id;
78: BEGIN
79:
80: IF p_conflict_group_id IS NULL THEN
81: SELECT pa_assignment_conflict_hist_s.nextval
82: INTO l_conflict_group_id
83: FROM dual;
84: END IF;
85: x_conflict_group_id := l_conflict_group_id;
86:
87: IF p_conflict_assignment_id_tbl.COUNT > 0 THEN
88: IF p_intra_txn_conflict_flag_tbl IS NULL THEN
89: FORALL j IN p_conflict_assignment_id_tbl.FIRST .. p_conflict_assignment_id_tbl.LAST
90: INSERT INTO pa_assignment_conflict_hist
91: ( conflict_group_id ,
92: assignment_id ,
93: conflict_assignment_id ,
94: resolve_conflicts_action_code ,
115: fnd_global.login_id );
116:
117: ELSE
118: FORALL j IN p_conflict_assignment_id_tbl.FIRST .. p_conflict_assignment_id_tbl.LAST
119: INSERT INTO pa_assignment_conflict_hist
120: ( conflict_group_id ,
121: assignment_id ,
122: conflict_assignment_id ,
123: resolve_conflicts_action_code ,
158:
159:
160: --
161: -- Procedure : update_rows (overloaded)
162: -- Purpose : Update rows in pa_assignment_conflict_hist with
163: -- p_resolve_conflict_action_code only. This is
164: -- overloaded procedure.
165: --
166: PROCEDURE update_rows
174: IS
175:
176: BEGIN
177:
178: UPDATE PA_ASSIGNMENT_CONFLICT_HIST
179: SET
180: resolve_conflicts_action_code = p_resolve_conflict_action_code,
181: last_update_date = sysdate,
182: last_updated_by = fnd_global.user_id,
198:
199:
200: --
201: -- Procedure : update_rows (overloaded)
202: -- Purpose : Update rows in pa_assignment_conflict_hist with
203: -- p_resolve_conflict_action_code only for the whole
204: -- conflict group. This is overloaded procedure. This
205: -- is called from the Resource Overcommitment page.
206: PROCEDURE update_rows
212: IS
213:
214: BEGIN
215:
216: UPDATE PA_ASSIGNMENT_CONFLICT_HIST
217: SET
218: resolve_conflicts_action_code = p_resolve_conflict_action_code,
219: last_update_date = sysdate,
220: last_updated_by = fnd_global.user_id,
234:
235:
236: --
237: -- Procedure : update_rows (overloaded)
238: -- Purpose : Update rows in pa_assignment_conflict_hist with
239: -- p_resolve_conflict_action_code only for the whole
240: -- conflict group. This is overloaded procedure. This
241: -- is called from the View Conflicts page.
242: PROCEDURE update_rows
251: BEGIN
252:
253: IF p_assignment_id_arr.COUNT > 0 THEN
254: FORALL j IN p_assignment_id_arr.FIRST .. p_assignment_id_arr.LAST
255: UPDATE pa_assignment_conflict_hist
256: SET
257: resolve_conflicts_action_code = p_action_code_arr(j),
258: last_update_date = sysdate,
259: last_updated_by = fnd_global.user_id,
276:
277:
278: --
279: -- Procedure : update_rows (overloaded)
280: -- Purpose : Update rows in pa_assignment_conflict_hist with
281: -- p_processed_flag only. This is an overloaded
282: -- procedure.
283: --
284: PROCEDURE update_rows
291: IS
292:
293: BEGIN
294:
295: UPDATE PA_ASSIGNMENT_CONFLICT_HIST
296: SET
297: processed_flag = p_processed_flag,
298: last_update_date = sysdate,
299: last_updated_by = fnd_global.user_id,
314:
315:
316: --
317: -- Procedure : delete_rows
318: -- Purpose : Deletes rows in PA_ASSIGNMENT_CONFLICT_HIST.
319: --
320: -- Parameters :
321: --
322: PROCEDURE delete_rows
329: IS
330:
331: BEGIN
332:
333: DELETE FROM PA_ASSIGNMENT_CONFLICT_HIST
334: WHERE conflict_group_id = p_conflict_group_id
335: AND assignment_id = p_assignment_id
336: AND conflict_assignment_id = p_conflict_assignment_id;
337:
348:
349:
350: --
351: -- Procedure : delete_conflict_rows -- bug 7118933
352: -- Purpose : Deletes rows in PA_ASSIGNMENT_CONFLICT_HIST.
353: --
354: -- Parameters :
355: --
356: PROCEDURE delete_rows
361: IS
362:
363: BEGIN
364:
365: DELETE FROM PA_ASSIGNMENT_CONFLICT_HIST
366: WHERE assignment_id = p_assignment_id;
367:
368: x_return_status := FND_API.G_RET_STS_SUCCESS;
369: