1 PACKAGE BODY rg_row_orders_pkg AS
2 /* $Header: rgirordb.pls 120.1 2003/04/29 01:29:22 djogg ship $ */
3 FUNCTION new_row_order_id
4 RETURN NUMBER
5 IS
6 new_sequence_number NUMBER;
7 BEGIN
8 SELECT rg_row_orders_s.nextval
9 INTO new_sequence_number
10 FROM dual;
11
12 RETURN(new_sequence_number);
13 END new_row_order_id;
14
15 --
16 -- NAME
17 -- check_dup_row_order_name
18 -- DESCRIPTION
19 -- Check whether new_name already used by another report sets
20 -- PARAMETERS
21 -- 1. Current application ID
22 -- 2. Current Row Order ID
23 -- 3. New Row Order name
24 --
25 FUNCTION check_dup_row_order_name( cur_application_id IN NUMBER,
26 cur_row_order_id IN NUMBER,
27 new_name IN VARCHAR2)
28 RETURN BOOLEAN
29 IS
30 rec_returned NUMBER;
31 BEGIN
32 SELECT count(*)
33 INTO rec_returned
34 FROM rg_row_orders
35 WHERE row_order_id <> cur_row_order_id
36 AND name = new_name
37 AND application_id = cur_application_id;
38
39 IF rec_returned > 0 THEN
40 RETURN(TRUE);
41 ELSE
42 RETURN(FALSE);
43 END IF;
44 END check_dup_row_order_name;
45
46
47 PROCEDURE check_references(X_row_order_id NUMBER) IS
48 dummy NUMBER;
49 BEGIN
50 SELECT 1 INTO dummy FROM sys.dual
51 WHERE NOT EXISTS
52 (SELECT 1
53 FROM rg_reports
54 WHERE row_order_id = X_row_order_id);
55
56 EXCEPTION
57 WHEN NO_DATA_FOUND THEN
58 FND_MESSAGE.set_name('RG','RG_FORMS_REF_OBJECT');
59 FND_MESSAGE.set_token('OBJECT', 'RG_ROW_ORDER', TRUE);
60 APP_EXCEPTION.raise_exception;
61 END check_references;
62
63 END rg_row_orders_pkg;