PACKAGE BODY: APPS.GMD_FORMULA_SECURITY_PKG

Source

1 package body GMD_FORMULA_SECURITY_PKG as
2 /* $Header: GMDFMSCB.pls 120.1 2005/07/26 11:51:04 txdaniel noship $ */
3 
4   PROCEDURE insert_row (
5     X_FORMULA_SECURITY_ID OUT NOCOPY  NUMBER,
6     X_FORMULA_ID IN NUMBER,
7     X_ACCESS_TYPE_IND IN VARCHAR2,
8     X_ORGANIZATION_ID IN NUMBER,
9     X_USER_ID IN NUMBER,
10     X_RESPONSIBILITY_ID IN NUMBER,
11     X_OTHER_ORGANIZATION_ID IN NUMBER,
12     X_CREATION_DATE IN DATE,
13     X_CREATED_BY IN NUMBER,
14     X_LAST_UPDATE_DATE IN DATE,
15     X_LAST_UPDATED_BY IN NUMBER,
16     X_LAST_UPDATE_LOGIN IN NUMBER) IS
17 
18     CURSOR Cur_get_security_id IS
19     SELECT gmd_formula_security_id_s.NextVal
20     FROM dual;
21     l_formula_security_id	NUMBER;
22   BEGIN
23     OPEN Cur_get_security_id;
24     FETCH Cur_get_security_id INTO l_formula_security_id;
25     CLOSE Cur_get_security_id;
26     INSERT INTO gmd_formula_security (
27     	FORMULA_SECURITY_ID,
28     	FORMULA_ID,
29     	ACCESS_TYPE_IND,
30     	ORGANIZATION_ID,
31     	USER_ID,
32     	RESPONSIBILITY_ID,
33     	OTHER_ORGANIZATION_ID,
34     	CREATION_DATE,
35     	CREATED_BY,
36     	LAST_UPDATE_DATE,
37     	LAST_UPDATED_BY,
38     	LAST_UPDATE_LOGIN)
39     VALUES (
40         l_formula_security_id,
41     	X_FORMULA_ID,
42     	X_ACCESS_TYPE_IND ,
43     	X_ORGANIZATION_ID,
44     	X_USER_ID,
45     	X_RESPONSIBILITY_ID ,
46     	X_OTHER_ORGANIZATION_ID,
47     	X_CREATION_DATE,
48     	X_CREATED_BY,
49     	X_LAST_UPDATE_DATE ,
50     	X_LAST_UPDATED_BY,
51     	X_LAST_UPDATE_LOGIN);
52     X_formula_security_id := l_formula_security_id;
53 
54     IF (SQL%NOTFOUND) then
55       RAISE no_data_found;
56     END IF;
57   END insert_row;
58 
59   PROCEDURE update_row (
60     X_FORMULA_SECURITY_ID IN NUMBER,
61     X_FORMULA_ID IN NUMBER,
62     X_ACCESS_TYPE_IND IN VARCHAR2,
63     X_ORGANIZATION_ID IN NUMBER,
64     X_USER_ID IN NUMBER,
65     X_RESPONSIBILITY_ID IN NUMBER,
66     X_OTHER_ORGANIZATION_ID IN NUMBER,
67     X_LAST_UPDATE_DATE IN DATE,
68     X_LAST_UPDATED_BY IN NUMBER,
69     X_LAST_UPDATE_LOGIN IN NUMBER) IS
70   BEGIN
71     UPDATE gmd_formula_security SET
72     	FORMULA_ID = X_FORMULA_ID,
73     	ACCESS_TYPE_IND = X_ACCESS_TYPE_IND,
74     	ORGANIZATION_ID = X_ORGANIZATION_ID,
75     	USER_ID = X_USER_ID,
76     	RESPONSIBILITY_ID = X_RESPONSIBILITY_ID,
77     	OTHER_ORGANIZATION_ID = X_OTHER_ORGANIZATION_ID,
78     	LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
79     	LAST_UPDATED_BY = X_LAST_UPDATED_BY,
80     	LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
81     WHERE FORMULA_SECURITY_ID = X_FORMULA_SECURITY_ID;
82 
83 
84     IF (SQL%NOTFOUND) then
85       RAISE no_data_found;
86     END IF;
87   END update_row;
88 
89   PROCEDURE delete_row (X_FORMULA_SECURITY_ID in NUMBER) IS
90   BEGIN
91     DELETE
92     FROM gmd_formula_security
93     WHERE formula_security_id = X_formula_security_id;
94 
95     IF (SQL%NOTFOUND) then
96       RAISE no_data_found;
97     END IF;
98 
99   END delete_row;
100 
101 
102 end GMD_FORMULA_SECURITY_PKG;