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;