[Home] [Help]
1: PACKAGE BODY GMD_CoA_Data_New AS
2: /* $Header: GMDCOA2B.pls 115.2 2002/12/05 18:02:52 magupta noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_COA_DATA_NEW';
5: /* next variable is version for Look_for_CoC_Data */
1: PACKAGE BODY GMD_CoA_Data_New AS
2: /* $Header: GMDCOA2B.pls 115.2 2002/12/05 18:02:52 magupta noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_COA_DATA_NEW';
5: /* next variable is version for Look_for_CoC_Data */
6:
7:
8: /*#############################################################################
1105: /* But tbl_hdr was passed to Populate_Details as IN. */
1106: /* Look_For_Coc_Specs should not change hdr table with sales- */
1107: /* order-no-results scenario, so send a temporary,writable copy. */
1108: l_tmp_hdr_tbl := tbl_hdr;
1109: GMD_COA_DATA_NEW.Look_For_CoC_Specs
1110: (l_dummy_param_rec,
1111: tbl_ndx,
1112: l_tmp_hdr_tbl,
1113: tbl_dtl);
1718:
1719: IF tbl_ndx = 0 then
1720: /* this is a COC report; check for specs only */
1721: v_report_title := 'COC';
1722: GMD_COA_DATA_NEW.Look_For_CoC_Specs
1723: (rec_param,
1724: tbl_ndx,
1725: tbl_hdr,
1726: tbl_dtl);
1736: /* if no sales order info given, else find item info from qc */
1737:
1738: IF v_report_title <> 'BLK' THEN
1739:
1740: GMD_COA_DATA_NEW.Populate_Details (tbl_hdr, tbl_dtl);
1741:
1742: END IF;
1743:
1744: IF tbl_dtl.EXISTS(1) THEN
1741:
1742: END IF;
1743:
1744: IF tbl_dtl.EXISTS(1) THEN
1745: GMD_COA_DATA_NEW.Populate_Text (tbl_dtl, tbl_spec_text, tbl_rslt_text);
1746: ELSE
1747: tbl_hdr := empty_header;
1748: /* if there is nothing in details, empty headers */
1749: /* this is not an error. Report will be empty */
2072: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
2073:
2074: END Dump_To_Db_Tables;
2075:
2076: END GMD_CoA_Data_NEW;