[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_GROUP_ORGS_PKG
Source
1 PACKAGE BODY JTF_RS_GROUP_ORGS_PKG AS
2 /* $Header: jtfrshob.pls 120.0 2005/05/11 08:20:08 appldev noship $ */
3
4 PROCEDURE INSERT_ROW (
5 X_ROWID IN OUT NOCOPY VARCHAR2,
6 X_GROUP_ID IN NUMBER,
7 X_ORGANIZATION_ID IN NUMBER,
8 X_CREATION_DATE IN DATE,
9 X_CREATED_BY IN NUMBER,
10 X_LAST_UPDATE_DATE IN DATE,
11 X_LAST_UPDATED_BY IN NUMBER,
12 X_LAST_UPDATE_LOGIN IN NUMBER,
13 X_ATTRIBUTE1 IN VARCHAR2,
14 X_ATTRIBUTE2 IN VARCHAR2,
15 X_ATTRIBUTE3 IN VARCHAR2,
16 X_ATTRIBUTE4 IN VARCHAR2,
17 X_ATTRIBUTE5 IN VARCHAR2,
18 X_ATTRIBUTE6 IN VARCHAR2,
19 X_ATTRIBUTE7 IN VARCHAR2,
20 X_ATTRIBUTE8 IN VARCHAR2,
21 X_ATTRIBUTE9 IN VARCHAR2,
22 X_ATTRIBUTE10 IN VARCHAR2,
23 X_ATTRIBUTE11 IN VARCHAR2,
24 X_ATTRIBUTE12 IN VARCHAR2,
25 X_ATTRIBUTE13 IN VARCHAR2,
26 X_ATTRIBUTE14 IN VARCHAR2,
27 X_ATTRIBUTE15 IN VARCHAR2,
28 X_ATTRIBUTE_CATEGORY IN VARCHAR2
29 ) IS
30 CURSOR C IS
31 SELECT ROWID
32 FROM jtf_rs_group_organizations
33 WHERE ORGANIZATION_ID = X_ORGANIZATION_ID
34 AND GROUP_ID = X_GROUP_ID
35 ;
36 BEGIN
37 INSERT INTO jtf_rs_group_organizations (
38 GROUP_ID,
39 ORGANIZATION_ID,
40 OBJECT_VERSION_NUMBER,
41 CREATION_DATE,
42 CREATED_BY,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 LAST_UPDATE_LOGIN,
46 ATTRIBUTE1,
47 ATTRIBUTE2,
48 ATTRIBUTE3,
49 ATTRIBUTE4,
50 ATTRIBUTE5,
51 ATTRIBUTE6,
52 ATTRIBUTE7,
53 ATTRIBUTE8,
54 ATTRIBUTE9,
55 ATTRIBUTE10,
56 ATTRIBUTE11,
57 ATTRIBUTE12,
58 ATTRIBUTE13,
59 ATTRIBUTE14,
60 ATTRIBUTE15,
61 ATTRIBUTE_CATEGORY
62 ) VALUES (
63 X_GROUP_ID,
64 X_ORGANIZATION_ID,
65 1,
66 X_CREATION_DATE,
67 X_CREATED_BY,
68 X_LAST_UPDATE_DATE,
69 X_LAST_UPDATED_BY,
70 X_LAST_UPDATE_LOGIN,
71 X_ATTRIBUTE1,
72 X_ATTRIBUTE2,
73 X_ATTRIBUTE3,
74 X_ATTRIBUTE4,
75 X_ATTRIBUTE5,
76 X_ATTRIBUTE6,
77 X_ATTRIBUTE7,
78 X_ATTRIBUTE8,
79 X_ATTRIBUTE9,
80 X_ATTRIBUTE10,
81 X_ATTRIBUTE11,
82 X_ATTRIBUTE12,
83 X_ATTRIBUTE13,
84 X_ATTRIBUTE14,
85 X_ATTRIBUTE15,
86 X_ATTRIBUTE_CATEGORY
87 );
88
89 OPEN c;
90 FETCH c INTO X_ROWID;
91 IF (c%NOTFOUND) THEN
92 CLOSE c;
93 RAISE no_data_found;
94 END IF;
95 CLOSE c;
96
97 END INSERT_ROW;
98
99 PROCEDURE LOCK_ROW (
100 X_GROUP_ID IN NUMBER,
101 X_ORGANIZATION_ID IN NUMBER,
102 X_OBJECT_VERSION_NUMBER IN NUMBER
103 ) IS
104 CURSOR c1 IS
105 SELECT OBJECT_VERSION_NUMBER
106 FROM jtf_rs_group_organizations
107 WHERE GROUP_ID = X_GROUP_ID
108 AND ORGANIZATION_ID = X_ORGANIZATION_ID
109 FOR UPDATE OF GROUP_ID NOWAIT;
110 tlinfo c1%ROWTYPE ;
111
112 BEGIN
113 OPEN c1;
114 FETCH c1 INTO tlinfo;
115 IF (c1%NOTFOUND) THEN
116 CLOSE c1;
117 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
118 app_exception.raise_exception;
119 END IF;
120 CLOSE c1;
121
122 IF (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
123 THEN
124 NULL;
125 ELSE
126 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
127 app_exception.raise_exception;
128 END IF;
129
130 END LOCK_ROW;
131
132 PROCEDURE UPDATE_ROW (
133 X_GROUP_ID IN NUMBER,
134 X_ORGANIZATION_ID IN NUMBER,
135 X_OBJECT_VERSION_NUMBER IN NUMBER,
136 X_LAST_UPDATE_DATE IN DATE,
137 X_LAST_UPDATED_BY IN NUMBER,
138 X_LAST_UPDATE_LOGIN IN NUMBER,
139 X_ATTRIBUTE1 IN VARCHAR2,
140 X_ATTRIBUTE2 IN VARCHAR2,
141 X_ATTRIBUTE3 IN VARCHAR2,
142 X_ATTRIBUTE4 IN VARCHAR2,
143 X_ATTRIBUTE5 IN VARCHAR2,
144 X_ATTRIBUTE6 IN VARCHAR2,
145 X_ATTRIBUTE7 IN VARCHAR2,
146 X_ATTRIBUTE8 IN VARCHAR2,
147 X_ATTRIBUTE9 IN VARCHAR2,
148 X_ATTRIBUTE10 IN VARCHAR2,
149 X_ATTRIBUTE11 IN VARCHAR2,
150 X_ATTRIBUTE12 IN VARCHAR2,
151 X_ATTRIBUTE13 IN VARCHAR2,
152 X_ATTRIBUTE14 IN VARCHAR2,
153 X_ATTRIBUTE15 IN VARCHAR2,
154 X_ATTRIBUTE_CATEGORY IN VARCHAR2
155 ) IS
156 BEGIN
157 UPDATE jtf_rs_group_organizations SET
158 GROUP_ID = X_GROUP_ID,
159 ORGANIZATION_ID = X_ORGANIZATION_ID,
160 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
161 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
162 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
163 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
164 ATTRIBUTE1 = X_ATTRIBUTE1,
165 ATTRIBUTE2 = X_ATTRIBUTE2,
166 ATTRIBUTE3 = X_ATTRIBUTE3,
167 ATTRIBUTE4 = X_ATTRIBUTE4,
168 ATTRIBUTE5 = X_ATTRIBUTE5,
169 ATTRIBUTE6 = X_ATTRIBUTE6,
170 ATTRIBUTE7 = X_ATTRIBUTE7,
171 ATTRIBUTE8 = X_ATTRIBUTE8,
172 ATTRIBUTE9 = X_ATTRIBUTE9,
173 ATTRIBUTE10 = X_ATTRIBUTE10,
174 ATTRIBUTE11 = X_ATTRIBUTE11,
175 ATTRIBUTE12 = X_ATTRIBUTE12,
176 ATTRIBUTE13 = X_ATTRIBUTE13,
177 ATTRIBUTE14 = X_ATTRIBUTE14,
178 ATTRIBUTE15 = X_ATTRIBUTE15,
179 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY
180 WHERE GROUP_ID = X_GROUP_ID
181 AND ORGANIZATION_ID = X_ORGANIZATION_ID
182 ;
183
184 IF (SQL%NOTFOUND) THEN
185 RAISE no_data_found;
186 END IF;
187 END UPDATE_ROW;
188
189 PROCEDURE DELETE_ROW (
190 X_GROUP_ID IN NUMBER,
191 X_ORGANIZATION_ID IN NUMBER
192 ) IS
193 BEGIN
194 DELETE FROM jtf_rs_group_organizations
195 WHERE GROUP_ID = X_GROUP_ID
196 AND ORGANIZATION_ID = X_ORGANIZATION_ID
197 ;
198
199 IF (SQL%NOTFOUND) THEN
200 RAISE NO_DATA_FOUND;
201 END IF;
202 END DELETE_ROW;
203
204 END JTF_RS_GROUP_ORGS_PKG;