PACKAGE BODY: APPS.CNREDF_REPOSITORIES_PKG

Source

1 PACKAGE BODY CNREDF_Repositories_PKG as
2 -- $Header: cnredfab.pls 115.1 99/07/16 07:13:53 porting ship $
3 
4 
5   --
6   -- Procedure Name
7   --   default_row
8   -- History
9   --   12/28/93		Paul Mitchell		Created
10   --
11   PROCEDURE default_row ( X_repository_id IN OUT number ) IS
12 
13   BEGIN
14 
15     IF X_repository_id is NULL THEN
16 
17       SELECT cn_repositories_s.nextval
18 	INTO X_repository_id
19 	FROM dual;
20 
21     END IF;
22 
23   END DEFAULT_ROW;
24 
25 
26   --
27   -- Procedure Name
28   --   select_columns
29   -- History
30   --   12/28/93		Paul Mitchell		Created
31   --
32   PROCEDURE select_columns (X_application_type	    IN OUT	varchar2,
33 			    X_application_type_name IN OUT	varchar2) IS
34 
35   BEGIN
36 
37     SELECT meaning INTO X_application_type_name
38       FROM cn_lookups
39      WHERE lookup_code = X_application_type
40        AND lookup_type = 'APPLICATION_TYPE';
41 
42   END select_columns;
43 
44 
45 END CNREDF_Repositories_PKG;