[Home] [Help]
PACKAGE BODY: APPS.IBE_SHOP_LIST_HEADER_PKG
Source
1 PACKAGE BODY IBE_Shop_List_Header_PKG AS
2 /* $Header: IBEVSLHB.pls 120.1 2005/08/28 21:51:23 appldev ship $ */
3
4 l_true VARCHAR2(1) := FND_API.G_TRUE;
5
6 PROCEDURE Insert_Row(
7 x_shp_list_id OUT NOCOPY NUMBER ,
8 p_request_id IN NUMBER ,
9 p_program_application_id IN NUMBER ,
10 p_program_id IN NUMBER ,
11 p_program_update_date IN DATE ,
12 p_object_version_number IN NUMBER ,
13 p_created_by IN NUMBER ,
14 p_creation_date IN DATE ,
15 p_last_updated_by IN NUMBER ,
16 p_last_update_date IN DATE ,
17 p_last_update_login IN NUMBER ,
18 p_party_id IN NUMBER ,
19 p_cust_account_id IN NUMBER ,
20 p_shopping_list_name IN VARCHAR2,
21 p_description IN VARCHAR2,
22 p_attribute_category IN VARCHAR2,
23 p_attribute1 IN VARCHAR2,
24 p_attribute2 IN VARCHAR2,
25 p_attribute3 IN VARCHAR2,
26 p_attribute4 IN VARCHAR2,
27 p_attribute5 IN VARCHAR2,
28 p_attribute6 IN VARCHAR2,
29 p_attribute7 IN VARCHAR2,
30 p_attribute8 IN VARCHAR2,
31 p_attribute9 IN VARCHAR2,
32 p_attribute10 IN VARCHAR2,
33 p_attribute11 IN VARCHAR2,
34 p_attribute12 IN VARCHAR2,
35 p_attribute13 IN VARCHAR2,
36 p_attribute14 IN VARCHAR2,
37 p_attribute15 IN VARCHAR2,
38 p_org_id IN NUMBER)
39 IS
40 BEGIN
41 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
42 IBE_Util.Debug('start IBE_Shop_List_Header_PKG.Insert row');
43 END IF;
44
45 INSERT INTO ibe_sh_shp_lists_all(
46 shp_list_id,
47 request_id,
48 program_application_id,
49 program_id,
50 program_update_date,
51 object_version_number,
52 created_by,
53 creation_date,
54 last_updated_by,
55 last_update_date,
56 last_update_login,
57 party_id,
58 cust_account_id,
59 shopping_list_name,
60 description,
61 attribute_category,
62 attribute1,
63 attribute2,
64 attribute3,
65 attribute4,
66 attribute5,
67 attribute6,
68 attribute7,
69 attribute8,
70 attribute9,
71 attribute10,
72 attribute11,
73 attribute12,
74 attribute13,
75 attribute14,
76 attribute15,
77 org_id
78 )
79 VALUES(
80 ibe_sh_shp_lists_s1.NEXTVAL,
81 DECODE(p_request_id, FND_API.G_MISS_NUM, NULL, p_request_id),
82 DECODE(p_program_application_id, FND_API.G_MISS_NUM, NULL, p_program_application_id),
83 DECODE(p_program_id, FND_API.G_MISS_NUM, NULL, p_program_id),
84 DECODE(p_program_update_date, FND_API.G_MISS_DATE, NULL, p_program_update_date),
85 1,
86 FND_GLOBAL.User_Id,
87 SYSDATE,
88 FND_GLOBAL.User_Id,
89 SYSDATE,
90 FND_GLOBAL.Login_Id,
91 p_party_id,
92 p_cust_account_id,
93 DECODE(p_shopping_list_name, FND_API.G_MISS_CHAR, NULL, p_shopping_list_name),
94 DECODE(p_description, FND_API.G_MISS_CHAR, NULL, p_description),
95 DECODE(p_attribute_category, FND_API.G_MISS_CHAR, NULL, p_attribute_category),
96 DECODE(p_attribute1, FND_API.G_MISS_CHAR, NULL, p_attribute1),
97 DECODE(p_attribute2, FND_API.G_MISS_CHAR, NULL, p_attribute2),
98 DECODE(p_attribute3, FND_API.G_MISS_CHAR, NULL, p_attribute3),
99 DECODE(p_attribute4, FND_API.G_MISS_CHAR, NULL, p_attribute4),
100 DECODE(p_attribute5, FND_API.G_MISS_CHAR, NULL, p_attribute5),
101 DECODE(p_attribute6, FND_API.G_MISS_CHAR, NULL, p_attribute6),
102 DECODE(p_attribute7, FND_API.G_MISS_CHAR, NULL, p_attribute7),
103 DECODE(p_attribute8, FND_API.G_MISS_CHAR, NULL, p_attribute8),
104 DECODE(p_attribute9, FND_API.G_MISS_CHAR, NULL, p_attribute9),
105 DECODE(p_attribute10, FND_API.G_MISS_CHAR, NULL, p_attribute10),
106 DECODE(p_attribute11, FND_API.G_MISS_CHAR, NULL, p_attribute11),
107 DECODE(p_attribute12, FND_API.G_MISS_CHAR, NULL, p_attribute12),
108 DECODE(p_attribute13, FND_API.G_MISS_CHAR, NULL, p_attribute13),
109 DECODE(p_attribute14, FND_API.G_MISS_CHAR, NULL, p_attribute14),
110 DECODE(p_attribute15, FND_API.G_MISS_CHAR, NULL, p_attribute15),
111 DECODE(p_org_id, FND_API.G_MISS_NUM, MO_GLOBAL.get_current_org_id(), p_org_id)
112 )
113 RETURNING shp_list_id INTO x_shp_list_id;
114 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
115 IBE_Util.Debug('Exit IBE_Shop_List_Header_PKG.Insert row');
116 END IF;
117 END Insert_Row;
118
119
120 PROCEDURE Update_Row(
121 p_shp_list_id IN NUMBER ,
122 p_request_id IN NUMBER ,
123 p_program_application_id IN NUMBER ,
124 p_program_id IN NUMBER ,
125 p_program_update_date IN DATE ,
126 p_object_version_number IN NUMBER ,
127 p_created_by IN NUMBER ,
128 p_creation_date IN DATE ,
129 p_last_updated_by IN NUMBER ,
130 p_last_update_date IN DATE ,
131 p_last_update_login IN NUMBER ,
132 p_party_id IN NUMBER ,
133 p_cust_account_id IN NUMBER ,
134 p_shopping_list_name IN VARCHAR2,
135 p_description IN VARCHAR2,
136 p_attribute_category IN VARCHAR2,
137 p_attribute1 IN VARCHAR2,
138 p_attribute2 IN VARCHAR2,
139 p_attribute3 IN VARCHAR2,
140 p_attribute4 IN VARCHAR2,
141 p_attribute5 IN VARCHAR2,
142 p_attribute6 IN VARCHAR2,
143 p_attribute7 IN VARCHAR2,
144 p_attribute8 IN VARCHAR2,
145 p_attribute9 IN VARCHAR2,
146 p_attribute10 IN VARCHAR2,
147 p_attribute11 IN VARCHAR2,
148 p_attribute12 IN VARCHAR2,
149 p_attribute13 IN VARCHAR2,
150 p_attribute14 IN VARCHAR2,
151 p_attribute15 IN VARCHAR2,
152 p_org_id IN NUMBER)
153 IS
154 BEGIN
155 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
156 IBE_Util.Debug('start IBE_Shop_List_Header_PKG.Update row');
157 END IF;
158
159 UPDATE ibe_sh_shp_lists_all
160 SET request_id = DECODE(p_request_id, FND_API.G_MISS_NUM, request_id, p_request_id),
161 program_application_id = DECODE(p_program_application_id, FND_API.G_MISS_NUM, program_application_id, p_program_application_id),
162 program_id = DECODE(p_program_id, FND_API.G_MISS_NUM, program_id, p_program_id),
163 program_update_date = DECODE(p_program_update_date, FND_API.G_MISS_DATE, program_update_date, p_program_update_date),
164 object_version_number = object_version_number + 1,
165 created_by = created_by,
166 creation_date = creation_date,
167 last_updated_by = FND_GLOBAL.User_Id,
168 last_update_date = SYSDATE,
169 last_update_login = FND_GLOBAL.Login_Id,
170 party_id = party_id,
171 cust_account_id = cust_account_id,
172 shopping_list_name = DECODE(p_shopping_list_name, FND_API.G_MISS_CHAR, shopping_list_name, p_shopping_list_name),
173 description = DECODE(p_description, FND_API.G_MISS_CHAR, description, p_description),
174 attribute_category = DECODE(p_attribute_category, FND_API.G_MISS_CHAR, attribute_category, p_attribute_category),
175 attribute1 = DECODE(p_attribute1, FND_API.G_MISS_CHAR, attribute1, p_attribute1),
176 attribute2 = DECODE(p_attribute2, FND_API.G_MISS_CHAR, attribute2, p_attribute2),
177 attribute3 = DECODE(p_attribute3, FND_API.G_MISS_CHAR, attribute3, p_attribute3),
178 attribute4 = DECODE(p_attribute4, FND_API.G_MISS_CHAR, attribute4, p_attribute4),
179 attribute5 = DECODE(p_attribute5, FND_API.G_MISS_CHAR, attribute5, p_attribute5),
180 attribute6 = DECODE(p_attribute6, FND_API.G_MISS_CHAR, attribute6, p_attribute6),
181 attribute7 = DECODE(p_attribute7, FND_API.G_MISS_CHAR, attribute7, p_attribute7),
182 attribute8 = DECODE(p_attribute8, FND_API.G_MISS_CHAR, attribute8, p_attribute8),
183 attribute9 = DECODE(p_attribute9, FND_API.G_MISS_CHAR, attribute9, p_attribute9),
184 attribute10 = DECODE(p_attribute10, FND_API.G_MISS_CHAR, attribute10, p_attribute10),
185 attribute11 = DECODE(p_attribute11, FND_API.G_MISS_CHAR, attribute11, p_attribute11),
186 attribute12 = DECODE(p_attribute12, FND_API.G_MISS_CHAR, attribute12, p_attribute12),
187 attribute13 = DECODE(p_attribute13, FND_API.G_MISS_CHAR, attribute13, p_attribute13),
188 attribute14 = DECODE(p_attribute14, FND_API.G_MISS_CHAR, attribute14, p_attribute14),
189 attribute15 = DECODE(p_attribute15, FND_API.G_MISS_CHAR, attribute15, p_attribute15),
190 org_id = DECODE(p_org_id, FND_API.G_MISS_NUM, org_id, p_org_id)
191 WHERE shp_list_id = p_shp_list_id
192 AND object_version_number = DECODE(p_object_version_number, FND_API.G_MISS_NUM, object_version_number, p_object_version_number);
193
194 IF (SQL%NOTFOUND) THEN
195 RAISE NO_DATA_FOUND;
196 END IF;
197 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
198 IBE_Util.Debug('exit IBE_Shop_List_Header_PKG.update row');
199 END IF;
200 END Update_Row;
201
202
203 PROCEDURE Delete_Row(
204 p_shp_list_id IN NUMBER,
205 p_object_version_number IN NUMBER := FND_API.G_MISS_NUM)
206 IS
207 BEGIN
208 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
209 IBE_Util.Debug('start IBE_Shop_List_Header_PKG.delete row');
210 END IF;
211
212 DELETE
213 FROM ibe_sh_shp_lists_all
214 WHERE shp_list_id = p_shp_list_id
215 AND object_version_number = DECODE(p_object_version_number, FND_API.G_MISS_NUM, object_version_number, p_object_version_number);
216
217 IF (SQL%NOTFOUND) THEN
218 RAISE NO_DATA_FOUND;
219 END IF;
220 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
221 IBE_Util.Debug('Exit IBE_Shop_List_Header_PKG.delete row');
222 END IF;
223 END Delete_Row;
224
225 END IBE_Shop_List_Header_PKG;