1: PACKAGE BODY PO_LINE_LOCATIONS_DRAFT_PVT AS
2: /* $Header: PO_LINE_LOCATIONS_DRAFT_PVT.plb 120.3.12020000.3 2013/02/10 15:45:07 vegajula ship $ */
3:
4: d_pkg_name CONSTANT varchar2(50) :=
5: PO_LOG.get_package_base('PO_LINE_LOCATIONS_DRAFT_PVT');
6:
7: -------------------------------------------------------
8: ----------- PRIVATE PROCEDURES PROTOTYPE --------------
9: -------------------------------------------------------
67: l_dft_exists_index_tbl PO_TBL_NUMBER := PO_TBL_NUMBER();
68:
69: BEGIN
70: d_position := 0;
71: IF (PO_LOG.d_proc) THEN
72: PO_LOG.proc_begin(d_module);
73: END IF;
74:
75: l_index_tbl.extend(p_draft_id_tbl.COUNT);
68:
69: BEGIN
70: d_position := 0;
71: IF (PO_LOG.d_proc) THEN
72: PO_LOG.proc_begin(d_module);
73: END IF;
74:
75: l_index_tbl.extend(p_draft_id_tbl.COUNT);
76: l_dft_exists_tbl.extend(p_draft_id_tbl.COUNT);
116: FOR i IN 1..l_dft_exists_index_tbl.COUNT LOOP
117: l_dft_exists_tbl(l_dft_exists_index_tbl(i)) := FND_API.G_TRUE;
118: END LOOP;
119:
120: IF (PO_LOG.d_stmt) THEN
121: PO_LOG.stmt(d_module, d_position, '# of records that have dft changes',
122: l_dft_exists_index_tbl.COUNT);
123: END IF;
124:
117: l_dft_exists_tbl(l_dft_exists_index_tbl(i)) := FND_API.G_TRUE;
118: END LOOP;
119:
120: IF (PO_LOG.d_stmt) THEN
121: PO_LOG.stmt(d_module, d_position, '# of records that have dft changes',
122: l_dft_exists_index_tbl.COUNT);
123: END IF;
124:
125: RETURN l_dft_exists_tbl;
169:
170: l_exists_tbl PO_TBL_VARCHAR1;
171: BEGIN
172: d_position := 0;
173: IF (PO_LOG.d_proc) THEN
174: PO_LOG.proc_begin(d_module);
175: END IF;
176:
177: l_exists_tbl :=
170: l_exists_tbl PO_TBL_VARCHAR1;
171: BEGIN
172: d_position := 0;
173: IF (PO_LOG.d_proc) THEN
174: PO_LOG.proc_begin(d_module);
175: END IF;
176:
177: l_exists_tbl :=
178: draft_changes_exist
179: ( p_draft_id_tbl => PO_TBL_NUMBER(p_draft_id),
180: p_line_location_id_tbl => PO_TBL_NUMBER(p_line_location_id)
181: );
182:
183: IF (PO_LOG.d_stmt) THEN
184: PO_LOG.stmt(d_module, d_position, 'exists', l_exists_tbl(1));
185: END IF;
186:
187: RETURN l_exists_tbl(1);
180: p_line_location_id_tbl => PO_TBL_NUMBER(p_line_location_id)
181: );
182:
183: IF (PO_LOG.d_stmt) THEN
184: PO_LOG.stmt(d_module, d_position, 'exists', l_exists_tbl(1));
185: END IF;
186:
187: RETURN l_exists_tbl(1);
188:
231: l_clm_document VARCHAR2(1);
232:
233: BEGIN
234: d_position := 0;
235: IF (PO_LOG.d_proc) THEN
236: PO_LOG.proc_begin(d_module);
237: END IF;
238:
239: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
232:
233: BEGIN
234: d_position := 0;
235: IF (PO_LOG.d_proc) THEN
236: PO_LOG.proc_begin(d_module);
237: END IF;
238:
239: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
240: IF (PO_LOG.d_stmt) THEN
236: PO_LOG.proc_begin(d_module);
237: END IF;
238:
239: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
240: IF (PO_LOG.d_stmt) THEN
241: PO_LOG.stmt(d_module, d_position, 'no change-no need to apply');
242: END IF;
243:
244: RETURN;
237: END IF;
238:
239: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
240: IF (PO_LOG.d_stmt) THEN
241: PO_LOG.stmt(d_module, d_position, 'no change-no need to apply');
242: END IF;
243:
244: RETURN;
245: END IF;
253: );
254:
255: IF (l_delete_list.COUNT > 0) THEN
256:
257: IF (PO_LOG.d_stmt) THEN
258: PO_LOG.stmt(d_module, d_position, 'Deleted Lines Found');
259: END IF;
260: -- Check for the documenr style. CLM or Commercial
261: BEGIN
254:
255: IF (l_delete_list.COUNT > 0) THEN
256:
257: IF (PO_LOG.d_stmt) THEN
258: PO_LOG.stmt(d_module, d_position, 'Deleted Lines Found');
259: END IF;
260: -- Check for the documenr style. CLM or Commercial
261: BEGIN
262: SELECT 'Y'
274: l_clm_document := 'N';
275: END;
276:
277: d_position := 20;
278: IF (PO_LOG.d_stmt) THEN
279: PO_LOG.stmt(d_module, d_position, 'l_clm_document:'||l_clm_document);
280: END IF;
281:
282: FOR i IN 1..l_delete_list.COUNT LOOP
275: END;
276:
277: d_position := 20;
278: IF (PO_LOG.d_stmt) THEN
279: PO_LOG.stmt(d_module, d_position, 'l_clm_document:'||l_clm_document);
280: END IF;
281:
282: FOR i IN 1..l_delete_list.COUNT LOOP
283: -- Bug: 13948625, Call same old remove_req_from_po in case of Commercial PO line deleted from BWC.
288:
289: END IF;
290:
291: d_position := 30;
292: IF (PO_LOG.d_stmt) THEN
293: PO_LOG.stmt(d_module, d_position, 'Calling delete_attachments');
294: END IF;
295:
296: --Bug 13938456 Conc Mod attachments
289: END IF;
290:
291: d_position := 30;
292: IF (PO_LOG.d_stmt) THEN
293: PO_LOG.stmt(d_module, d_position, 'Calling delete_attachments');
294: END IF;
295:
296: --Bug 13938456 Conc Mod attachments
297: --Passing null for automatically_added_flag instead of Y
356: l_record_exist_tbl PO_TBL_VARCHAR1;
357:
358: BEGIN
359: d_position := 0;
360: IF (PO_LOG.d_proc) THEN
361: PO_LOG.proc_begin(d_module);
362: END IF;
363:
364: IF (NOT (p_draft_info.doc_type = 'PA' AND
357:
358: BEGIN
359: d_position := 0;
360: IF (PO_LOG.d_proc) THEN
361: PO_LOG.proc_begin(d_module);
362: END IF;
363:
364: IF (NOT (p_draft_info.doc_type = 'PA' AND
365: p_draft_info.doc_subtype = 'BLANKET') OR
445: WHERE draft_id = p_draft_info.draft_id
446: AND po_line_id = l_po_line_id_tbl(i);
447:
448:
449: IF (PO_LOG.d_proc) THEN
450: PO_LOG.proc_end(d_module);
451: END IF;
452:
453: EXCEPTION
446: AND po_line_id = l_po_line_id_tbl(i);
447:
448:
449: IF (PO_LOG.d_proc) THEN
450: PO_LOG.proc_end(d_module);
451: END IF;
452:
453: EXCEPTION
454: WHEN OTHERS THEN
508: l_txn_exists_list PO_TBL_VARCHAR1;
509:
510: BEGIN
511: d_position := 0;
512: IF (PO_LOG.d_proc) THEN
513: PO_LOG.proc_begin(d_module);
514: END IF;
515:
516: x_delete_list := PO_TBL_NUMBER();
509:
510: BEGIN
511: d_position := 0;
512: IF (PO_LOG.d_proc) THEN
513: PO_LOG.proc_begin(d_module);
514: END IF;
515:
516: x_delete_list := PO_TBL_NUMBER();
517: x_insert_list := PO_TBL_NUMBER();