[Home] [Help]
PACKAGE BODY: APPS.JTF_STATE_RESPONSIBILITIES_PKG
Source
1 PACKAGE body JTF_STATE_RESPONSIBILITIES_PKG as
2 /* $Header: jtftkreb.pls 115.14 2002/12/04 21:57:14 cjang ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in OUT NOCOPY VARCHAR2,
5 X_STATE_RESPONSIBILITY_ID in NUMBER,
6 X_RESPONSIBILITY_ID in NUMBER,
7 X_RULE_ID in NUMBER,
8 X_ATTRIBUTE1 in VARCHAR2,
9 X_ATTRIBUTE2 in VARCHAR2,
10 X_ATTRIBUTE3 in VARCHAR2,
11 X_ATTRIBUTE4 in VARCHAR2,
12 X_ATTRIBUTE5 in VARCHAR2,
13 X_ATTRIBUTE6 in VARCHAR2,
14 X_ATTRIBUTE7 in VARCHAR2,
15 X_ATTRIBUTE8 in VARCHAR2,
16 X_ATTRIBUTE9 in VARCHAR2,
17 X_ATTRIBUTE10 in VARCHAR2,
18 X_ATTRIBUTE11 in VARCHAR2,
19 X_ATTRIBUTE12 in VARCHAR2,
20 X_ATTRIBUTE13 in VARCHAR2,
21 X_ATTRIBUTE14 in VARCHAR2,
22 X_ATTRIBUTE15 in VARCHAR2,
23 X_ATTRIBUTE_CATEGORY in VARCHAR2,
24 X_CREATION_DATE in DATE,
25 X_CREATED_BY in NUMBER,
26 X_LAST_UPDATE_DATE in DATE,
27 X_LAST_UPDATED_BY in NUMBER,
28 X_LAST_UPDATE_LOGIN in NUMBER
29 ) is
30 cursor C is select ROWID from JTF_STATE_RESPONSIBILITIES
31 where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID
32 ;
33 begin
34 insert into JTF_STATE_RESPONSIBILITIES (
35 STATE_RESPONSIBILITY_ID,
36 CREATED_BY,
37 CREATION_DATE,
38 LAST_UPDATED_BY,
39 LAST_UPDATE_DATE,
40 LAST_UPDATE_LOGIN,
41 RESPONSIBILITY_ID,
42 RULE_ID,
43 ATTRIBUTE1,
44 ATTRIBUTE2,
45 ATTRIBUTE3,
46 ATTRIBUTE4,
47 ATTRIBUTE5,
48 ATTRIBUTE6,
49 ATTRIBUTE7,
50 ATTRIBUTE8,
51 ATTRIBUTE9,
52 ATTRIBUTE10,
53 ATTRIBUTE11,
54 ATTRIBUTE12,
55 ATTRIBUTE13,
56 ATTRIBUTE14,
57 ATTRIBUTE15,
58 ATTRIBUTE_CATEGORY,
59 OBJECT_VERSION_NUMBER
60 ) values (
61 X_STATE_RESPONSIBILITY_ID,
62 X_CREATED_BY,
63 X_CREATION_DATE,
64 X_LAST_UPDATED_BY,
65 X_LAST_UPDATE_DATE,
66 X_LAST_UPDATE_LOGIN,
67 X_RESPONSIBILITY_ID,
68 X_RULE_ID,
69 X_ATTRIBUTE1,
70 X_ATTRIBUTE2,
71 X_ATTRIBUTE3,
72 X_ATTRIBUTE4,
73 X_ATTRIBUTE5,
74 X_ATTRIBUTE6,
75 X_ATTRIBUTE7,
76 X_ATTRIBUTE8,
77 X_ATTRIBUTE9,
78 X_ATTRIBUTE10,
79 X_ATTRIBUTE11,
80 X_ATTRIBUTE12,
81 X_ATTRIBUTE13,
82 X_ATTRIBUTE14,
83 X_ATTRIBUTE15,
84 X_ATTRIBUTE_CATEGORY,
85 1 ) ;
86
87 open c;
88 fetch c into X_ROWID;
89 if (c%notfound) then
90 close c;
91 raise no_data_found;
92 end if;
93 close c;
94
95 end INSERT_ROW;
96
97 procedure LOCK_ROW (
98 X_STATE_RESPONSIBILITY_ID in NUMBER,
99 X_OBJECT_VERSION_NUMBER in NUMBER
100 ) is
101 cursor c1 is select
102 OBJECT_VERSION_NUMBER
103 from JTF_STATE_RESPONSIBILITIES
104 where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID
105 for update of STATE_RESPONSIBILITY_ID nowait;
106
107 tlinfo c1%rowtype ;
108 begin
109 open c1;
110 fetch c1 into tlinfo;
111 if (c1%notfound) then
112 close c1;
113 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
114 app_exception.raise_exception;
115 end if;
116 close c1;
117
118 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
119 then
120 null;
121 else
122 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
123 app_exception.raise_exception;
124 end if;
125
126
127 end LOCK_ROW;
128
129
130 procedure UPDATE_ROW (
131 X_STATE_RESPONSIBILITY_ID in NUMBER,
132 X_OBJECT_VERSION_NUMBER in NUMBER,
133 X_RESPONSIBILITY_ID in NUMBER,
134 X_RULE_ID in NUMBER,
135 X_ATTRIBUTE1 in VARCHAR2,
136 X_ATTRIBUTE2 in VARCHAR2,
137 X_ATTRIBUTE3 in VARCHAR2,
138 X_ATTRIBUTE4 in VARCHAR2,
139 X_ATTRIBUTE5 in VARCHAR2,
140 X_ATTRIBUTE6 in VARCHAR2,
141 X_ATTRIBUTE7 in VARCHAR2,
142 X_ATTRIBUTE8 in VARCHAR2,
143 X_ATTRIBUTE9 in VARCHAR2,
144 X_ATTRIBUTE10 in VARCHAR2,
145 X_ATTRIBUTE11 in VARCHAR2,
146 X_ATTRIBUTE12 in VARCHAR2,
147 X_ATTRIBUTE13 in VARCHAR2,
148 X_ATTRIBUTE14 in VARCHAR2,
149 X_ATTRIBUTE15 in VARCHAR2,
150 X_ATTRIBUTE_CATEGORY in VARCHAR2,
151 X_LAST_UPDATE_DATE in DATE,
152 X_LAST_UPDATED_BY in NUMBER,
153 X_LAST_UPDATE_LOGIN in NUMBER
154 ) is
155 begin
156 update JTF_STATE_RESPONSIBILITIES set
157 RESPONSIBILITY_ID = X_RESPONSIBILITY_ID,
158 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
159 RULE_ID = X_RULE_ID,
160 ATTRIBUTE1 = X_ATTRIBUTE1,
161 ATTRIBUTE2 = X_ATTRIBUTE2,
162 ATTRIBUTE3 = X_ATTRIBUTE3,
163 ATTRIBUTE4 = X_ATTRIBUTE4,
164 ATTRIBUTE5 = X_ATTRIBUTE5,
165 ATTRIBUTE6 = X_ATTRIBUTE6,
166 ATTRIBUTE7 = X_ATTRIBUTE7,
167 ATTRIBUTE8 = X_ATTRIBUTE8,
168 ATTRIBUTE9 = X_ATTRIBUTE9,
169 ATTRIBUTE10 = X_ATTRIBUTE10,
170 ATTRIBUTE11 = X_ATTRIBUTE11,
171 ATTRIBUTE12 = X_ATTRIBUTE12,
172 ATTRIBUTE13 = X_ATTRIBUTE13,
173 ATTRIBUTE14 = X_ATTRIBUTE14,
174 ATTRIBUTE15 = X_ATTRIBUTE15,
175 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
176 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
177 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
178 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
179 where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID ;
180
181 if (sql%notfound) then
182 raise no_data_found;
183 end if;
184 end UPDATE_ROW;
185
186 procedure DELETE_ROW (
187 X_STATE_RESPONSIBILITY_ID in NUMBER
188 ) is
189 begin
190 delete from JTF_STATE_RESPONSIBILITIES
191 where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID;
192
193 if (sql%notfound) then
194 raise no_data_found;
195 end if;
196
197 end DELETE_ROW;
198
199
200 end JTF_STATE_RESPONSIBILITIES_PKG;