[Home] [Help]
PACKAGE BODY: APPS.HZ_SECURITY_ISSUED_PKG
Source
1 PACKAGE BODY HZ_SECURITY_ISSUED_PKG as
2 /* $Header: ARHOSITB.pls 120.3 2005/10/30 04:21:12 appldev ship $ */
3
4
5 PROCEDURE Insert_Row(
6 x_Rowid IN OUT NOCOPY VARCHAR2,
7 x_SECURITY_ISSUED_ID NUMBER,
8 x_ESTIMATED_TOTAL_AMOUNT NUMBER,
9 x_PARTY_ID NUMBER,
10 x_STOCK_EXCHANGE_ID NUMBER,
11 x_SECURITY_ISSUED_CLASS VARCHAR2,
12 x_SECURITY_ISSUED_NAME VARCHAR2,
13 x_TOTAL_AMOUNT_IN_A_CURRENCY VARCHAR2,
14 x_STOCK_TICKER_SYMBOL VARCHAR2,
15 x_SECURITY_CURRENCY_CODE VARCHAR2,
16 x_BEGIN_DATE DATE,
17 x_END_DATE DATE,
18 x_CREATED_BY NUMBER,
19 x_CREATION_DATE DATE,
20 x_LAST_UPDATE_LOGIN NUMBER,
21 x_LAST_UPDATE_DATE DATE,
22 x_LAST_UPDATED_BY NUMBER,
23 x_REQUEST_ID NUMBER,
24 x_PROGRAM_APPLICATION_ID NUMBER,
25 x_PROGRAM_ID NUMBER,
26 x_PROGRAM_UPDATE_DATE DATE,
27 x_WH_UPDATE_DATE DATE,
28 x_STATUS VARCHAR2
29 ) IS
30 CURSOR C IS SELECT rowid FROM HZ_SECURITY_ISSUED
31 WHERE SECURITY_ISSUED_ID = x_SECURITY_ISSUED_ID;
32 BEGIN
33 INSERT INTO HZ_SECURITY_ISSUED(
34 SECURITY_ISSUED_ID,
35 ESTIMATED_TOTAL_AMOUNT,
36 PARTY_ID,
37 STOCK_EXCHANGE_ID,
38 SECURITY_ISSUED_CLASS,
39 SECURITY_ISSUED_NAME,
40 TOTAL_AMOUNT_IN_A_CURRENCY,
41 STOCK_TICKER_SYMBOL,
42 SECURITY_CURRENCY_CODE,
43 BEGIN_DATE,
44 END_DATE,
45 CREATED_BY,
46 CREATION_DATE,
47 LAST_UPDATE_LOGIN,
48 LAST_UPDATE_DATE,
49 LAST_UPDATED_BY,
50 REQUEST_ID,
51 PROGRAM_APPLICATION_ID,
52 PROGRAM_ID,
53 PROGRAM_UPDATE_DATE,
54 WH_UPDATE_DATE,
55 STATUS
56 ) VALUES (
57 x_SECURITY_ISSUED_ID,
58 decode( x_ESTIMATED_TOTAL_AMOUNT, FND_API.G_MISS_NUM, NULL,x_ESTIMATED_TOTAL_AMOUNT),
59 decode( x_PARTY_ID, FND_API.G_MISS_NUM, NULL,x_PARTY_ID),
60 decode( x_STOCK_EXCHANGE_ID, FND_API.G_MISS_NUM, NULL,x_STOCK_EXCHANGE_ID),
61 decode( x_SECURITY_ISSUED_CLASS, FND_API.G_MISS_CHAR, NULL,x_SECURITY_ISSUED_CLASS),
62 decode( x_SECURITY_ISSUED_NAME, FND_API.G_MISS_CHAR, NULL,x_SECURITY_ISSUED_NAME),
63 decode( x_TOTAL_AMOUNT_IN_A_CURRENCY, FND_API.G_MISS_CHAR, NULL,x_TOTAL_AMOUNT_IN_A_CURRENCY),
64 decode( x_STOCK_TICKER_SYMBOL, FND_API.G_MISS_CHAR, NULL,x_STOCK_TICKER_SYMBOL),
65 decode( x_SECURITY_CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL,x_SECURITY_CURRENCY_CODE),
66 decode( x_BEGIN_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_BEGIN_DATE),
67 decode( x_END_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_END_DATE),
68 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
69 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
70 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
71 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
72 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
73 decode( x_REQUEST_ID, FND_API.G_MISS_NUM, NULL,x_REQUEST_ID),
74 decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_APPLICATION_ID),
75 decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_ID),
76 decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_PROGRAM_UPDATE_DATE),
77 decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_WH_UPDATE_DATE),
78 decode(x_STATUS,FND_API.G_MISS_CHAR,'A',x_STATUS));
79 OPEN C;
80 FETCH C INTO x_Rowid;
81 If (C%NOTFOUND) then
82 CLOSE C;
83 RAISE NO_DATA_FOUND;
84 End If;
85 End Insert_Row;
86
87
88
89 PROCEDURE Delete_Row( x_SECURITY_ISSUED_ID NUMBER
90 ) IS
91 BEGIN
92 DELETE FROM HZ_SECURITY_ISSUED
93 WHERE SECURITY_ISSUED_ID = x_SECURITY_ISSUED_ID;
94 If (SQL%NOTFOUND) then
95 RAISE NO_DATA_FOUND;
96 End If;
97 END Delete_Row;
98
99
100
101 PROCEDURE Update_Row(
102 x_Rowid IN OUT NOCOPY VARCHAR2,
103 x_SECURITY_ISSUED_ID NUMBER,
104 x_ESTIMATED_TOTAL_AMOUNT NUMBER,
105 x_PARTY_ID NUMBER,
106 x_STOCK_EXCHANGE_ID NUMBER,
107 x_SECURITY_ISSUED_CLASS VARCHAR2,
108 x_SECURITY_ISSUED_NAME VARCHAR2,
109 x_TOTAL_AMOUNT_IN_A_CURRENCY VARCHAR2,
110 x_STOCK_TICKER_SYMBOL VARCHAR2,
111 x_SECURITY_CURRENCY_CODE VARCHAR2,
112 x_BEGIN_DATE DATE,
113 x_END_DATE DATE,
114 x_CREATED_BY NUMBER,
115 x_CREATION_DATE DATE,
116 x_LAST_UPDATE_LOGIN NUMBER,
117 x_LAST_UPDATE_DATE DATE,
118 x_LAST_UPDATED_BY NUMBER,
119 x_REQUEST_ID NUMBER,
120 x_PROGRAM_APPLICATION_ID NUMBER,
121 x_PROGRAM_ID NUMBER,
122 x_PROGRAM_UPDATE_DATE DATE,
123 x_WH_UPDATE_DATE DATE,
124 x_STATUS VARCHAR2
125 ) IS
126 BEGIN
127 Update HZ_SECURITY_ISSUED
128 SET
129 SECURITY_ISSUED_ID = decode( x_SECURITY_ISSUED_ID, FND_API.G_MISS_NUM,SECURITY_ISSUED_ID,x_SECURITY_ISSUED_ID),
130 ESTIMATED_TOTAL_AMOUNT = decode( x_ESTIMATED_TOTAL_AMOUNT, FND_API.G_MISS_NUM,ESTIMATED_TOTAL_AMOUNT,x_ESTIMATED_TOTAL_AMOUNT),
131 PARTY_ID = decode( x_PARTY_ID, FND_API.G_MISS_NUM,PARTY_ID,x_PARTY_ID),
132 STOCK_EXCHANGE_ID = decode( x_STOCK_EXCHANGE_ID, FND_API.G_MISS_NUM,STOCK_EXCHANGE_ID,x_STOCK_EXCHANGE_ID),
133 SECURITY_ISSUED_CLASS = decode( x_SECURITY_ISSUED_CLASS, FND_API.G_MISS_CHAR,SECURITY_ISSUED_CLASS,x_SECURITY_ISSUED_CLASS),
134 SECURITY_ISSUED_NAME = decode( x_SECURITY_ISSUED_NAME, FND_API.G_MISS_CHAR,SECURITY_ISSUED_NAME,x_SECURITY_ISSUED_NAME),
135 TOTAL_AMOUNT_IN_A_CURRENCY = decode( x_TOTAL_AMOUNT_IN_A_CURRENCY, FND_API.G_MISS_CHAR,TOTAL_AMOUNT_IN_A_CURRENCY,x_TOTAL_AMOUNT_IN_A_CURRENCY),
136 STOCK_TICKER_SYMBOL = decode( x_STOCK_TICKER_SYMBOL, FND_API.G_MISS_CHAR,STOCK_TICKER_SYMBOL,x_STOCK_TICKER_SYMBOL),
137 SECURITY_CURRENCY_CODE = decode( x_SECURITY_CURRENCY_CODE, FND_API.G_MISS_CHAR,SECURITY_CURRENCY_CODE,x_SECURITY_CURRENCY_CODE),
138 BEGIN_DATE = decode( x_BEGIN_DATE, FND_API.G_MISS_DATE,BEGIN_DATE,x_BEGIN_DATE),
139 END_DATE = decode( x_END_DATE, FND_API.G_MISS_DATE,END_DATE,x_END_DATE),
140 -- Bug 3032780
141 /*
142 CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
143 CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
144 */
145 LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN),
146 LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
147 LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
148 REQUEST_ID = decode( x_REQUEST_ID, FND_API.G_MISS_NUM,REQUEST_ID,x_REQUEST_ID),
149 PROGRAM_APPLICATION_ID = decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,PROGRAM_APPLICATION_ID,x_PROGRAM_APPLICATION_ID),
150 PROGRAM_ID = decode( x_PROGRAM_ID, FND_API.G_MISS_NUM,PROGRAM_ID,x_PROGRAM_ID),
151 PROGRAM_UPDATE_DATE = decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE,PROGRAM_UPDATE_DATE,x_PROGRAM_UPDATE_DATE),
152 WH_UPDATE_DATE = decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE,WH_UPDATE_DATE,x_WH_UPDATE_DATE),
153 STATUS =decode(x_STATUS,FND_API.G_MISS_CHAR,STATUS,x_STATUS)
154 where rowid = X_RowId;
155
156 If (SQL%NOTFOUND) then
157 RAISE NO_DATA_FOUND;
158 End If;
159 END Update_Row;
160
161
162
163 PROCEDURE Lock_Row(
164 x_Rowid VARCHAR2,
165 x_SECURITY_ISSUED_ID NUMBER,
166 x_ESTIMATED_TOTAL_AMOUNT NUMBER,
167 x_PARTY_ID NUMBER,
168 x_STOCK_EXCHANGE_ID NUMBER,
169 x_SECURITY_ISSUED_CLASS VARCHAR2,
170 x_SECURITY_ISSUED_NAME VARCHAR2,
171 x_TOTAL_AMOUNT_IN_A_CURRENCY VARCHAR2,
172 x_STOCK_TICKER_SYMBOL VARCHAR2,
173 x_SECURITY_CURRENCY_CODE VARCHAR2,
174 x_BEGIN_DATE DATE,
175 x_END_DATE DATE,
176 x_CREATED_BY NUMBER,
177 x_CREATION_DATE DATE,
178 x_LAST_UPDATE_LOGIN NUMBER,
179 x_LAST_UPDATE_DATE DATE,
180 x_LAST_UPDATED_BY NUMBER,
181 x_REQUEST_ID NUMBER,
182 x_PROGRAM_APPLICATION_ID NUMBER,
183 x_PROGRAM_ID NUMBER,
184 x_PROGRAM_UPDATE_DATE DATE,
185 x_WH_UPDATE_DATE DATE,
186 x_STATUS VARCHAR2
187 ) IS
188 CURSOR C IS
189 SELECT *
190 FROM HZ_SECURITY_ISSUED
191 WHERE rowid = x_Rowid
192 FOR UPDATE of SECURITY_ISSUED_ID NOWAIT;
193 Recinfo C%ROWTYPE;
194 BEGIN
195 OPEN C;
196 FETCH C INTO Recinfo;
197 If (C%NOTFOUND) then
198 CLOSE C;
199 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
200 APP_EXCEPTION.RAISE_EXCEPTION;
201 End If;
202 CLOSE C;
203 if (
204 ( ( Recinfo.SECURITY_ISSUED_ID = x_SECURITY_ISSUED_ID)
205 OR ( ( Recinfo.SECURITY_ISSUED_ID = NULL )
206 AND ( x_SECURITY_ISSUED_ID = NULL )))
207 AND ( ( Recinfo.ESTIMATED_TOTAL_AMOUNT = x_ESTIMATED_TOTAL_AMOUNT)
208 OR ( ( Recinfo.ESTIMATED_TOTAL_AMOUNT = NULL )
209 AND ( x_ESTIMATED_TOTAL_AMOUNT = NULL )))
210 AND ( ( Recinfo.PARTY_ID = x_PARTY_ID)
211 OR ( ( Recinfo.PARTY_ID = NULL )
212 AND ( x_PARTY_ID = NULL )))
213 AND ( ( Recinfo.STOCK_EXCHANGE_ID = x_STOCK_EXCHANGE_ID)
214 OR ( ( Recinfo.STOCK_EXCHANGE_ID = NULL )
215 AND ( x_STOCK_EXCHANGE_ID = NULL )))
216 AND ( ( Recinfo.SECURITY_ISSUED_CLASS = x_SECURITY_ISSUED_CLASS)
217 OR ( ( Recinfo.SECURITY_ISSUED_CLASS = NULL )
218 AND ( x_SECURITY_ISSUED_CLASS = NULL )))
219 AND ( ( Recinfo.SECURITY_ISSUED_NAME = x_SECURITY_ISSUED_NAME)
220 OR ( ( Recinfo.SECURITY_ISSUED_NAME = NULL )
221 AND ( x_SECURITY_ISSUED_NAME = NULL )))
222 AND ( ( Recinfo.TOTAL_AMOUNT_IN_A_CURRENCY = x_TOTAL_AMOUNT_IN_A_CURRENCY)
223 OR ( ( Recinfo.TOTAL_AMOUNT_IN_A_CURRENCY = NULL )
224 AND ( x_TOTAL_AMOUNT_IN_A_CURRENCY = NULL )))
225 AND ( ( Recinfo.STOCK_TICKER_SYMBOL = x_STOCK_TICKER_SYMBOL)
226 OR ( ( Recinfo.STOCK_TICKER_SYMBOL = NULL )
227 AND ( x_STOCK_TICKER_SYMBOL = NULL )))
228 AND ( ( Recinfo.SECURITY_CURRENCY_CODE = x_SECURITY_CURRENCY_CODE)
229 OR ( ( Recinfo.SECURITY_CURRENCY_CODE = NULL )
230 AND ( x_SECURITY_CURRENCY_CODE = NULL )))
231 AND ( ( Recinfo.BEGIN_DATE = x_BEGIN_DATE)
232 OR ( ( Recinfo.BEGIN_DATE = NULL )
233 AND ( x_BEGIN_DATE = NULL )))
234 AND ( ( Recinfo.END_DATE = x_END_DATE)
235 OR ( ( Recinfo.END_DATE = NULL )
236 AND ( x_END_DATE = NULL )))
237 AND ( ( Recinfo.CREATED_BY = x_CREATED_BY)
238 OR ( ( Recinfo.CREATED_BY = NULL )
239 AND ( x_CREATED_BY = NULL )))
240 AND ( ( Recinfo.CREATION_DATE = x_CREATION_DATE)
241 OR ( ( Recinfo.CREATION_DATE = NULL )
242 AND ( x_CREATION_DATE = NULL )))
243 AND ( ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
244 OR ( ( Recinfo.LAST_UPDATE_LOGIN = NULL )
245 AND ( x_LAST_UPDATE_LOGIN = NULL )))
246 AND ( ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
247 OR ( ( Recinfo.LAST_UPDATE_DATE = NULL )
248 AND ( x_LAST_UPDATE_DATE = NULL )))
249 AND ( ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
250 OR ( ( Recinfo.LAST_UPDATED_BY = NULL )
251 AND ( x_LAST_UPDATED_BY = NULL )))
252 AND ( ( Recinfo.REQUEST_ID = x_REQUEST_ID)
253 OR ( ( Recinfo.REQUEST_ID = NULL )
254 AND ( x_REQUEST_ID = NULL )))
255 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = x_PROGRAM_APPLICATION_ID)
256 OR ( ( Recinfo.PROGRAM_APPLICATION_ID = NULL )
257 AND ( x_PROGRAM_APPLICATION_ID = NULL )))
258 AND ( ( Recinfo.PROGRAM_ID = x_PROGRAM_ID)
259 OR ( ( Recinfo.PROGRAM_ID = NULL )
260 AND ( x_PROGRAM_ID = NULL )))
261 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = x_PROGRAM_UPDATE_DATE)
262 OR ( ( Recinfo.PROGRAM_UPDATE_DATE = NULL )
263 AND ( x_PROGRAM_UPDATE_DATE = NULL )))
264 AND ( ( Recinfo.WH_UPDATE_DATE = x_WH_UPDATE_DATE)
265 OR ( ( Recinfo.WH_UPDATE_DATE = NULL )
266 AND ( x_WH_UPDATE_DATE = NULL )))
267
268 AND ( ( Recinfo.STATUS = x_STATUS)
269 OR ( ( Recinfo.STATUS = NULL )
270 AND ( x_STATUS= NULL )))
271 ) then
272 return;
273 else
274 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
275 APP_EXCEPTION.RAISE_EXCEPTION;
276 End If;
277 END Lock_Row;
278
279 END HZ_SECURITY_ISSUED_PKG;