[Home] [Help]
PACKAGE BODY: APPS.AR_BPA_URL_PARAMS_PKG
Source
1 package body AR_BPA_URL_PARAMS_PKG as
2 /* $Header: ARBPURPB.pls 120.1 2004/12/03 01:45:27 orashid noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_URL_PARAM_ID in NUMBER,
6 X_URL_ID in NUMBER,
7 X_PARAM_TYPE in VARCHAR2,
8 X_PARAM_NAME in VARCHAR2,
9 X_PARAM_VALUE in VARCHAR2,
10 X_ITEM_ID in NUMBER,
11 X_ENCRYPTED_FLAG in VARCHAR2,
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
17 ) is
18 cursor C is select ROWID from AR_BPA_URL_PARAMS
19 where URL_PARAM_ID = X_URL_PARAM_ID
20 ;
21 begin
22 insert into AR_BPA_URL_PARAMS (
23 URL_PARAM_ID,
24 URL_ID,
25 PARAM_TYPE,
26 PARAM_NAME,
27 PARAM_VALUE,
28 ITEM_ID,
29 ENCRYPTED_FLAG,
30 LAST_UPDATE_DATE,
31 LAST_UPDATED_BY,
32 CREATION_DATE,
33 CREATED_BY,
34 LAST_UPDATE_LOGIN
35 ) select
36 X_URL_PARAM_ID,
37 X_URL_ID,
38 X_PARAM_TYPE,
39 X_PARAM_NAME,
40 X_PARAM_VALUE,
41 X_ITEM_ID,
42 X_ENCRYPTED_FLAG,
43 X_LAST_UPDATE_DATE,
44 X_LAST_UPDATED_BY,
45 X_CREATION_DATE,
46 X_CREATED_BY,
47 X_LAST_UPDATE_LOGIN
48 from dual;
49
50 open c;
51 fetch c into X_ROWID;
52 if (c%notfound) then
53 close c;
54 raise no_data_found;
55 end if;
56 close c;
57
58 end INSERT_ROW;
59
60 procedure LOCK_ROW (
61 X_URL_PARAM_ID in NUMBER,
62 X_URL_ID in NUMBER,
63 X_PARAM_TYPE in VARCHAR2,
64 X_PARAM_NAME in VARCHAR2,
65 X_PARAM_VALUE in VARCHAR2,
66 X_ITEM_ID in NUMBER,
67 X_ENCRYPTED_FLAG in VARCHAR2
68 ) is
69 cursor c is select
70 URL_PARAM_ID,
71 URL_ID,
72 PARAM_TYPE,
73 PARAM_NAME,
74 PARAM_VALUE,
75 ITEM_ID,
76 ENCRYPTED_FLAG
77 from AR_BPA_URL_PARAMS
78 where URL_PARAM_ID = X_URL_PARAM_ID
79 for update of URL_PARAM_ID nowait;
80 recinfo c%rowtype;
81
82 begin
83 open c;
84 fetch c into recinfo;
85 if (c%notfound) then
86 close c;
87 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
88 app_exception.raise_exception;
89 end if;
90 close c;
91 if ( (recinfo.URL_PARAM_ID = X_URL_PARAM_ID)
92 AND (recinfo.URL_ID = X_URL_ID)
93 AND (recinfo.PARAM_TYPE = X_PARAM_TYPE)
94 AND ((recinfo.PARAM_NAME = X_PARAM_NAME)
95 OR ((recinfo.PARAM_NAME is null) AND (X_PARAM_NAME is null)))
96 AND ((recinfo.PARAM_VALUE = X_PARAM_VALUE)
97 OR ((recinfo.PARAM_VALUE is null) AND (X_PARAM_VALUE is null)))
98 AND ((recinfo.ITEM_ID = X_ITEM_ID)
99 OR ((recinfo.ITEM_ID is null) AND (X_ITEM_ID is null)))
100 AND ((recinfo.ENCRYPTED_FLAG = X_ENCRYPTED_FLAG)
101 OR ((recinfo.ENCRYPTED_FLAG is null) AND (X_ENCRYPTED_FLAG is null)))
102 ) then
103 null;
104 else
105 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
106 app_exception.raise_exception;
107 end if;
108 return;
109 end LOCK_ROW;
110
111 procedure UPDATE_ROW (
112 X_URL_PARAM_ID in NUMBER,
113 X_URL_ID in NUMBER,
114 X_PARAM_TYPE in VARCHAR2,
115 X_PARAM_NAME in VARCHAR2,
116 X_PARAM_VALUE in VARCHAR2,
117 X_ITEM_ID in NUMBER,
118 X_ENCRYPTED_FLAG in VARCHAR2,
119 X_LAST_UPDATE_DATE in DATE,
120 X_LAST_UPDATED_BY in NUMBER,
121 X_LAST_UPDATE_LOGIN in NUMBER
122 ) is
123 begin
124 update AR_BPA_URL_PARAMS set
125 URL_PARAM_ID = X_URL_PARAM_ID,
126 URL_ID = X_URL_ID,
127 PARAM_TYPE = X_PARAM_TYPE,
128 PARAM_NAME = X_PARAM_NAME,
129 PARAM_VALUE = X_PARAM_VALUE,
130 ITEM_ID = X_ITEM_ID,
131 ENCRYPTED_FLAG = X_ENCRYPTED_FLAG,
132 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
133 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
134 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
135 where URL_PARAM_ID = X_URL_PARAM_ID;
136
137 if (sql%notfound) then
138 raise no_data_found;
139 end if;
140 end UPDATE_ROW;
141
142 procedure DELETE_ROW (
143 X_URL_PARAM_ID in NUMBER
144 ) is
145 begin
146 delete from AR_BPA_URL_PARAMS
147 where URL_PARAM_ID = X_URL_PARAM_ID;
148
149 if (sql%notfound) then
150 raise no_data_found;
151 end if;
152
153 end DELETE_ROW;
154
155 procedure LOAD_ROW (
156 X_URL_PARAM_ID in NUMBER,
157 X_URL_ID in NUMBER,
158 X_PARAM_TYPE in VARCHAR2,
159 X_PARAM_NAME in VARCHAR2,
160 X_PARAM_VALUE in VARCHAR2,
161 X_ITEM_ID in NUMBER,
162 X_ENCRYPTED_FLAG in VARCHAR2,
163 X_OWNER IN VARCHAR2
164 ) IS
165 begin
166 declare
167 user_id number := 0;
168 row_id varchar2(64);
169 begin
170 if (X_OWNER = 'SEED') then
171 user_id := 1;
172 end if;
173
174 AR_BPA_URL_PARAMS_PKG.UPDATE_ROW (
175 X_URL_PARAM_ID => X_URL_PARAM_ID,
176 X_URL_ID => X_URL_ID,
177 X_PARAM_TYPE => X_PARAM_TYPE,
178 X_PARAM_NAME => X_PARAM_NAME,
179 X_PARAM_VALUE => X_PARAM_VALUE,
180 X_ITEM_ID => X_ITEM_ID,
181 X_ENCRYPTED_FLAG => X_ENCRYPTED_FLAG,
182 X_LAST_UPDATE_DATE => sysdate,
183 X_LAST_UPDATED_BY => user_id,
184 X_LAST_UPDATE_LOGIN => 0);
185 exception
186 when NO_DATA_FOUND then
187 AR_BPA_URL_PARAMS_PKG.INSERT_ROW (
188 X_ROWID => row_id,
189 X_URL_PARAM_ID => X_URL_PARAM_ID,
190 X_URL_ID => X_URL_ID,
191 X_PARAM_TYPE => X_PARAM_TYPE,
192 X_PARAM_NAME => X_PARAM_NAME,
193 X_PARAM_VALUE => X_PARAM_VALUE,
194 X_ITEM_ID => X_ITEM_ID,
195 X_ENCRYPTED_FLAG => X_ENCRYPTED_FLAG,
196 X_CREATION_DATE => sysdate,
197 X_CREATED_BY => user_id,
198 X_LAST_UPDATE_DATE => sysdate,
199 X_LAST_UPDATED_BY => user_id,
200 X_LAST_UPDATE_LOGIN => 0);
201 end;
202 end LOAD_ROW;
203
204 end AR_BPA_URL_PARAMS_PKG;