PACKAGE BODY: APPS.CNSYIN_REPOSITORY_PKG

Source

1 PACKAGE BODY CNSYIN_Repository_PKG as
2 -- $Header: cnsyindb.pls 115.1 99/07/16 07:17:53 porting ship $
3 
4 
5   --
6   -- Procedure Name
7   --   select_columns
8   -- History
9   --   01/26/94		Tony Lower		Created
10   --
11   PROCEDURE select_columns (	X_repository_id IN OUT 		number,
12 				X_status	IN OUT		varchar2,
13 				X_status_name   IN OUT		varchar2,
14 				X_usage		IN OUT		varchar2,
15 				X_usage_name 	IN OUT		varchar2) IS
16 
17   BEGIN
18 
19     SELECT lookup1.meaning, lookup2.meaning
20       INTO X_status_name, X_usage_name
21       FROM cn_lookups lookup1, cn_lookups lookup2
22      WHERE lookup1.lookup_type = 'REPOSITORY_STATUS'
23        AND lookup1.lookup_code = X_status
24        AND lookup2.lookup_type = 'REPOSITORY_USAGE'
25        AND lookup2.lookup_code = X_usage;
26 
27   EXCEPTION
28 
29     WHEN NO_DATA_FOUND THEN
30       NULL;
31 
32   END select_columns;
33 
34 
35 END CNSYIN_Repository_PKG;