9: -------------------------------------------------------
10:
11: PROCEDURE group_records_by_dml_type
12: ( p_draft_info IN PO_DRAFTS_PVT.DRAFT_INFO_REC_TYPE
13: , x_delete_list OUT NOCOPY PO_TBL_NUMBER
14: , x_insert_list OUT NOCOPY PO_TBL_NUMBER
15: , x_update_list OUT NOCOPY PO_TBL_NUMBER
16: );
17:
10:
11: PROCEDURE group_records_by_dml_type
12: ( p_draft_info IN PO_DRAFTS_PVT.DRAFT_INFO_REC_TYPE
13: , x_delete_list OUT NOCOPY PO_TBL_NUMBER
14: , x_insert_list OUT NOCOPY PO_TBL_NUMBER
15: , x_update_list OUT NOCOPY PO_TBL_NUMBER
16: );
17:
18:
11: PROCEDURE group_records_by_dml_type
12: ( p_draft_info IN PO_DRAFTS_PVT.DRAFT_INFO_REC_TYPE
13: , x_delete_list OUT NOCOPY PO_TBL_NUMBER
14: , x_insert_list OUT NOCOPY PO_TBL_NUMBER
15: , x_update_list OUT NOCOPY PO_TBL_NUMBER
16: );
17:
18:
19: -------------------------------------------------------
52: --Testing:
53: --End of Comments
54: ------------------------------------------------------------------------
55: FUNCTION draft_changes_exist
56: ( p_draft_id_tbl IN PO_TBL_NUMBER,
57: p_po_distribution_id_tbl IN PO_TBL_NUMBER
58: ) RETURN PO_TBL_VARCHAR1
59: IS
60: d_api_name CONSTANT VARCHAR2(30) := 'draft_changes_exist';
53: --End of Comments
54: ------------------------------------------------------------------------
55: FUNCTION draft_changes_exist
56: ( p_draft_id_tbl IN PO_TBL_NUMBER,
57: p_po_distribution_id_tbl IN PO_TBL_NUMBER
58: ) RETURN PO_TBL_VARCHAR1
59: IS
60: d_api_name CONSTANT VARCHAR2(30) := 'draft_changes_exist';
61: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
61: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
62: d_position NUMBER;
63:
64: l_key NUMBER;
65: l_index_tbl PO_TBL_NUMBER := PO_TBL_NUMBER();
66: l_dft_exists_tbl PO_TBL_VARCHAR1 := PO_TBL_VARCHAR1();
67: l_dft_exists_index_tbl PO_TBL_NUMBER := PO_TBL_NUMBER();
68:
69: BEGIN
63:
64: l_key NUMBER;
65: l_index_tbl PO_TBL_NUMBER := PO_TBL_NUMBER();
66: l_dft_exists_tbl PO_TBL_VARCHAR1 := PO_TBL_VARCHAR1();
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
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_po_distribution_id_tbl => PO_TBL_NUMBER(p_po_distribution_id)
181: );
182:
183: IF (PO_LOG.d_stmt) THEN
176:
177: l_exists_tbl :=
178: draft_changes_exist
179: ( p_draft_id_tbl => PO_TBL_NUMBER(p_draft_id),
180: p_po_distribution_id_tbl => PO_TBL_NUMBER(p_po_distribution_id)
181: );
182:
183: IF (PO_LOG.d_stmt) THEN
184: PO_LOG.stmt(d_module, d_position, 'exists', l_exists_tbl(1));
288: --End of Comments
289: ------------------------------------------------------------------------
290: PROCEDURE group_records_by_dml_type
291: ( p_draft_info IN PO_DRAFTS_PVT.DRAFT_INFO_REC_TYPE
292: , x_delete_list OUT NOCOPY PO_TBL_NUMBER
293: , x_insert_list OUT NOCOPY PO_TBL_NUMBER
294: , x_update_list OUT NOCOPY PO_TBL_NUMBER
295: ) IS
296: d_api_name CONSTANT VARCHAR2(30) := 'group_records_by_dml_type';
289: ------------------------------------------------------------------------
290: PROCEDURE group_records_by_dml_type
291: ( p_draft_info IN PO_DRAFTS_PVT.DRAFT_INFO_REC_TYPE
292: , x_delete_list OUT NOCOPY PO_TBL_NUMBER
293: , x_insert_list OUT NOCOPY PO_TBL_NUMBER
294: , x_update_list OUT NOCOPY PO_TBL_NUMBER
295: ) IS
296: d_api_name CONSTANT VARCHAR2(30) := 'group_records_by_dml_type';
297: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
290: PROCEDURE group_records_by_dml_type
291: ( p_draft_info IN PO_DRAFTS_PVT.DRAFT_INFO_REC_TYPE
292: , x_delete_list OUT NOCOPY PO_TBL_NUMBER
293: , x_insert_list OUT NOCOPY PO_TBL_NUMBER
294: , x_update_list OUT NOCOPY PO_TBL_NUMBER
295: ) IS
296: d_api_name CONSTANT VARCHAR2(30) := 'group_records_by_dml_type';
297: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
298: d_position NUMBER;
296: d_api_name CONSTANT VARCHAR2(30) := 'group_records_by_dml_type';
297: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
298: d_position NUMBER;
299:
300: l_id_list PO_TBL_NUMBER;
301: l_del_flag_list PO_TBL_VARCHAR1;
302: l_txn_exists_list PO_TBL_VARCHAR1;
303:
304: BEGIN
306: IF (PO_LOG.d_proc) THEN
307: PO_LOG.proc_begin(d_module);
308: END IF;
309:
310: x_delete_list := PO_TBL_NUMBER();
311: x_insert_list := PO_TBL_NUMBER();
312: x_update_list := PO_TBL_NUMBER();
313:
314: d_position := 10;
307: PO_LOG.proc_begin(d_module);
308: END IF;
309:
310: x_delete_list := PO_TBL_NUMBER();
311: x_insert_list := PO_TBL_NUMBER();
312: x_update_list := PO_TBL_NUMBER();
313:
314: d_position := 10;
315: SELECT PDD.po_distribution_id,
308: END IF;
309:
310: x_delete_list := PO_TBL_NUMBER();
311: x_insert_list := PO_TBL_NUMBER();
312: x_update_list := PO_TBL_NUMBER();
313:
314: d_position := 10;
315: SELECT PDD.po_distribution_id,
316: NVL(PDD.delete_flag, 'N'),