PACKAGE BODY: APPS.PA_COST_BASE_COST_CODES_PKG

Source

1 package body PA_COST_BASE_COST_CODES_PKG as
2 -- $Header: PAXCICIB.pls 120.1 2005/08/23 19:19:43 spunathi noship $
3 
4 -- constant
5 NO_DATA_FOUND_ERR constant number := 100;
6 
7 ------------------------------------------------------------------------------
8 procedure check_unique(cp_structure  IN     varchar2,
9 		       c_base        IN     varchar2,
10 		       c_base_type   IN     varchar2,
11 		       icc 	     IN     varchar2,
12 		       status 	     IN OUT NOCOPY number)
13 is
14 dummy number;
15 begin
16 
17    status := 0;
18 
19    SELECT 1 INTO dummy FROM sys.dual WHERE NOT EXISTS
20       (SELECT 1 FROM pa_cost_base_cost_codes
21        WHERE      cost_base = c_base
22               AND cost_base_type = c_base_type
23 	      AND cost_plus_structure = cp_structure
24 	      AND ind_cost_code = icc);
25 
26 exception
27 
28    when NO_DATA_FOUND then
29 	status := NO_DATA_FOUND_ERR;
30 
31    when OTHERS then
32 	status := SQLCODE;
33 
34 end check_unique;
35 
36 
37 end PA_COST_BASE_COST_CODES_PKG ;