[Home] [Help]
PACKAGE BODY: APPS.GML_PO_COST_DTL
Source
1 PACKAGE BODY gml_po_cost_dtl AS
2 /* $Header: GMLAQPKB.pls 115.2 99/07/16 06:14:24 porting ship $ */
3 /*
4 +========================================================================+
5 | FILENAME |
6 | GMLAQPKB.pls Packaged Procedure for running total of acquisition |
7 | cost screen. |
8 | |
9 | DESCRIPTION |
10 | This procedure is called from the event handler procedures in the |
11 | acquisition cost screen. |
12 | |
13 | MODIFICATION HISTORY |
14 | 01-OCT-97 Kristie Chen Created. |
15 | |
16 +========================================================================*/
17
18 PROCEDURE select_summary(x_po_header_id IN NUMBER,
19 x_po_line_id IN NUMBER,
20 x_line_location_id IN NUMBER,
21 x_total IN OUT NUMBER,
22 x_total_rtot_db IN OUT NUMBER) IS
23
24 BEGIN
25 select nvl(sum(cost_amount), 0), nvl(sum(cost_amount), 0)
26 into x_total, x_total_rtot_db
27 from cpg_cost_dtl
28 where po_header_id = x_po_header_id
29 and po_line_id = x_po_line_id
30 and line_location_id = x_line_location_id;
31
32 x_total_rtot_db := x_total;
33
34 END SELECT_SUMMARY;
35
36
37 END gml_po_cost_dtl;