1 PACKAGE BODY CNSYIN_Collections_PKG as
2 -- $Header: cnsyincb.pls 115.1 99/07/16 07:17:47 porting ship $
3
4
5 --
6 -- Procedure Name
7 -- default_row
8 -- Purpose
9 --
10 -- History
11 -- 01/26/94 Tony Lower Created
12 --
13 PROCEDURE default_row( X_module_id IN OUT number) IS
14
15 BEGIN
16
17 IF X_module_id IS NULL THEN
18 SELECT cn_modules_s.nextval
19 INTO X_module_id
20 FROM dual;
21
22 END IF;
23
24 END default_row;
25
26
27 --
28 -- Procedure Name
29 -- default_row
30 -- Purpose
31 --
32 -- History
33 -- 01/26/94 Tony Lower Created
34 --
35 PROCEDURE select_columns ( X_event_id IN number,
36 X_event_name IN OUT varchar2) IS
37
38 BEGIN
39
40 SELECT name
41 INTO X_event_name
42 FROM cn_events
43 WHERE event_id = X_event_id;
44
45 EXCEPTION
46
47 WHEN NO_DATA_FOUND THEN NULL;
48
49 END select_columns;
50
51
52 --
53 -- Procedure Name
54 -- get_event_id_defaults
55 -- Purpose
56 -- History
57 -- 01/26/94 Tony Lower Created
58 --
59 PROCEDURE GET_event_id_DEFAULTS ( X_event_id IN OUT number,
60 X_schema IN OUT varchar2,
61 X_application_type IN OUT varchar2,
62 X_description IN OUT varchar2,
63 X_version IN OUT varchar2,
64 X_status IN OUT varchar2,
65 X_repository_id IN OUT number) IS
66 BEGIN
67
68 SELECT rr.schema, rr.application_type, rr.description,
69 rr.version, rr.status, rr.repository_id
70 INTO X_schema, X_application_type, X_description, X_version,
71 X_status, X_repository_id
72 FROM cn_repositories rr, cn_events re
73 WHERE rr.repository_id = re.application_repository_id
74 AND re.event_id = X_event_id;
75
76 END GET_event_id_DEFAULTS;
77
78 END CNSYIN_Collections_PKG;