1: PACKAGE BODY PO_LINE_LOCATIONS_DRAFT_PVT AS
2: /* $Header: PO_LINE_LOCATIONS_DRAFT_PVT.plb 120.3 2006/09/14 01:30:39 bao noship $ */
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:
229: l_update_list PO_TBL_NUMBER;
230:
231: BEGIN
232: d_position := 0;
233: IF (PO_LOG.d_proc) THEN
234: PO_LOG.proc_begin(d_module);
235: END IF;
236:
237: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
230:
231: BEGIN
232: d_position := 0;
233: IF (PO_LOG.d_proc) THEN
234: PO_LOG.proc_begin(d_module);
235: END IF;
236:
237: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
238: IF (PO_LOG.d_stmt) THEN
234: PO_LOG.proc_begin(d_module);
235: END IF;
236:
237: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
238: IF (PO_LOG.d_stmt) THEN
239: PO_LOG.stmt(d_module, d_position, 'no change-no need to apply');
240: END IF;
241:
242: RETURN;
235: END IF;
236:
237: IF (p_draft_info.line_locations_changed = FND_API.G_FALSE) THEN
238: IF (PO_LOG.d_stmt) THEN
239: PO_LOG.stmt(d_module, d_position, 'no change-no need to apply');
240: END IF;
241:
242: RETURN;
243: END IF;
315: l_record_exist_tbl PO_TBL_VARCHAR1;
316:
317: BEGIN
318: d_position := 0;
319: IF (PO_LOG.d_proc) THEN
320: PO_LOG.proc_begin(d_module);
321: END IF;
322:
323: IF (NOT (p_draft_info.doc_type = 'PA' AND
316:
317: BEGIN
318: d_position := 0;
319: IF (PO_LOG.d_proc) THEN
320: PO_LOG.proc_begin(d_module);
321: END IF;
322:
323: IF (NOT (p_draft_info.doc_type = 'PA' AND
324: p_draft_info.doc_subtype = 'BLANKET') OR
404: WHERE draft_id = p_draft_info.draft_id
405: AND po_line_id = l_po_line_id_tbl(i);
406:
407:
408: IF (PO_LOG.d_proc) THEN
409: PO_LOG.proc_end(d_module);
410: END IF;
411:
412: EXCEPTION
405: AND po_line_id = l_po_line_id_tbl(i);
406:
407:
408: IF (PO_LOG.d_proc) THEN
409: PO_LOG.proc_end(d_module);
410: END IF;
411:
412: EXCEPTION
413: WHEN OTHERS THEN
467: l_txn_exists_list PO_TBL_VARCHAR1;
468:
469: BEGIN
470: d_position := 0;
471: IF (PO_LOG.d_proc) THEN
472: PO_LOG.proc_begin(d_module);
473: END IF;
474:
475: x_delete_list := PO_TBL_NUMBER();
468:
469: BEGIN
470: d_position := 0;
471: IF (PO_LOG.d_proc) THEN
472: PO_LOG.proc_begin(d_module);
473: END IF;
474:
475: x_delete_list := PO_TBL_NUMBER();
476: x_insert_list := PO_TBL_NUMBER();