PACKAGE BODY: APPS.CNREDF_EVENTS_PKG

Source

1 PACKAGE BODY CNREDF_events_PKG as
2 -- $Header: cnredffb.pls 115.1 99/07/16 07:14:22 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_event_id IN OUT number ) IS
12 
13   BEGIN
14 
15     IF X_event_id is NULL THEN
16 
17       SELECT cn_events_s.nextval
18 	INTO X_event_id
19 	FROM dual;
20 
21     END IF;
22 
23   END DEFAULT_ROW;
24 
25 END CNREDF_events_PKG;