[Home] [Help]
PACKAGE BODY: APPS.PO_RELEASES_PKG_S0
Source
1 PACKAGE BODY PO_RELEASES_PKG_S0 as
2 /* $Header: POXP1PLB.pls 120.4 2005/08/29 00:29:01 vsanjay noship $ */
3
4 /*===========================================================================
5
6 PROCEDURE NAME: insert_row()
7
8 =============================================================================*/
9
10
11 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
12 X_Po_Release_Id IN OUT NOCOPY NUMBER,
13 X_Last_Update_Date DATE,
14 X_Last_Updated_By NUMBER,
15 X_Po_Header_Id NUMBER,
16 X_Release_Num NUMBER,
17 X_Agent_Id NUMBER,
18 X_Release_Date DATE,
19 X_Last_Update_Login NUMBER,
20 X_Creation_Date DATE,
21 X_Created_By NUMBER,
22 X_Revision_Num NUMBER,
23 -- Bug 902976, zxzhang, 10/04/99
24 -- Change REVISED_DATE from VarChar(25) to Date.
25 -- X_Revised_Date VARCHAR2,
26 X_Revised_Date DATE,
27 X_Approved_Flag VARCHAR2,
28 X_Approved_Date DATE,
29 X_Print_Count NUMBER,
30 X_Printed_Date DATE,
31 X_Acceptance_Required_Flag VARCHAR2,
32 X_Acceptance_Due_Date DATE,
33 X_Hold_By NUMBER,
34 X_Hold_Date DATE,
35 X_Hold_Reason VARCHAR2,
36 X_Hold_Flag VARCHAR2,
37 X_Cancel_Flag VARCHAR2,
38 X_Cancelled_By NUMBER,
39 X_Cancel_Date DATE,
40 X_Cancel_Reason VARCHAR2,
41 X_Firm_Status_Lookup_Code VARCHAR2,
42 X_Pay_On_Code VARCHAR2,
43 X_Attribute_Category VARCHAR2,
44 X_Attribute1 VARCHAR2,
45 X_Attribute2 VARCHAR2,
46 X_Attribute3 VARCHAR2,
47 X_Attribute4 VARCHAR2,
48 X_Attribute5 VARCHAR2,
49 X_Attribute6 VARCHAR2,
50 X_Attribute7 VARCHAR2,
51 X_Attribute8 VARCHAR2,
52 X_Attribute9 VARCHAR2,
53 X_Attribute10 VARCHAR2,
54 X_Attribute11 VARCHAR2,
55 X_Attribute12 VARCHAR2,
56 X_Attribute13 VARCHAR2,
57 X_Attribute14 VARCHAR2,
58 X_Attribute15 VARCHAR2,
59 X_Authorization_Status VARCHAR2,
60 X_Ussgl_Transaction_Code VARCHAR2,
61 X_Government_Context VARCHAR2,
62 X_Closed_Code VARCHAR2,
63 X_Frozen_Flag VARCHAR2,
64 X_Release_Type VARCHAR2,
65 X_Global_Attribute_Category VARCHAR2,
66 X_Global_Attribute1 VARCHAR2,
67 X_Global_Attribute2 VARCHAR2,
68 X_Global_Attribute3 VARCHAR2,
69 X_Global_Attribute4 VARCHAR2,
70 X_Global_Attribute5 VARCHAR2,
71 X_Global_Attribute6 VARCHAR2,
72 X_Global_Attribute7 VARCHAR2,
73 X_Global_Attribute8 VARCHAR2,
74 X_Global_Attribute9 VARCHAR2,
75 X_Global_Attribute10 VARCHAR2,
76 X_Global_Attribute11 VARCHAR2,
77 X_Global_Attribute12 VARCHAR2,
78 X_Global_Attribute13 VARCHAR2,
79 X_Global_Attribute14 VARCHAR2,
80 X_Global_Attribute15 VARCHAR2,
81 X_Global_Attribute16 VARCHAR2,
82 X_Global_Attribute17 VARCHAR2,
83 X_Global_Attribute18 VARCHAR2,
84 X_Global_Attribute19 VARCHAR2,
85 X_Global_Attribute20 VARCHAR2,
86 p_shipping_control IN VARCHAR2, -- <INBOUND LOGISTICS FPJ>
87 p_org_id IN NUMBER DEFAULT NULL -- <R12 MOAC>
88 ) IS
89 CURSOR C IS SELECT rowid FROM PO_RELEASES
90 WHERE po_release_id = X_Po_Release_Id;
91
92
93
94
95
96 CURSOR C2 IS SELECT po_releases_s.nextval FROM sys.dual;
97
98 x_progress VARCHAR2(3) := NULL;
99 BEGIN
100 x_progress := '005';
101
102 if (X_Po_Release_Id is NULL) then
103 OPEN C2;
104 FETCH C2 INTO X_Po_Release_Id;
105 CLOSE C2;
106 end if;
107
108 x_progress := '010';
109
110 INSERT INTO PO_RELEASES (
111 po_release_id,
112 last_update_date,
113 last_updated_by,
114 po_header_id,
115 release_num,
116 agent_id,
117 release_date,
118 last_update_login,
119 creation_date,
120 created_by,
121 revision_num,
122 revised_date,
123 approved_flag,
124 approved_date,
125 print_count,
126 printed_date,
127 acceptance_required_flag,
128 acceptance_due_date,
129 hold_by,
130 hold_date,
131 hold_reason,
132 hold_flag,
133 cancel_flag,
134 cancelled_by,
135 cancel_date,
136 cancel_reason,
137 firm_status_lookup_code,
138 pay_on_code,
139 attribute_category,
140 attribute1,
141 attribute2,
142 attribute3,
143 attribute4,
144 attribute5,
145 attribute6,
146 attribute7,
147 attribute8,
148 attribute9,
149 attribute10,
150 attribute11,
151 attribute12,
152 attribute13,
153 attribute14,
154 attribute15,
155 authorization_status,
156 government_context,
157 closed_code,
158 frozen_flag,
159 release_type,
160 global_attribute_category,
161 global_attribute1,
162 global_attribute2,
163 global_attribute3,
164 global_attribute4,
165 global_attribute5,
166 global_attribute6,
167 global_attribute7,
168 global_attribute8,
169 global_attribute9,
170 global_attribute10,
171 global_attribute11,
172 global_attribute12,
173 global_attribute13,
174 global_attribute14,
175 global_attribute15,
176 global_attribute16,
177 global_attribute17,
178 global_attribute18,
179 global_attribute19,
180 global_attribute20,
181 shipping_control, -- <INBOUND LOGISTICS FPJ>
182 document_creation_method, -- <DBI FPJ>
183 Org_Id, -- <R12 MOAC>
184 tax_attribute_update_code --<eTax Integration R12>
185 ) VALUES (
186 X_Po_Release_Id,
187 X_Last_Update_Date,
188 X_Last_Updated_By,
189 X_Po_Header_Id,
190 X_Release_Num,
191 X_Agent_Id,
192 X_Release_Date,
193 X_Last_Update_Login,
194 X_Creation_Date,
195 X_Created_By,
196 X_Revision_Num,
197 X_Revised_Date,
198 X_Approved_Flag,
199 X_Approved_Date,
200 X_Print_Count,
201 X_Printed_Date,
202 X_Acceptance_Required_Flag,
203 X_Acceptance_Due_Date,
204 X_Hold_By,
205 X_Hold_Date,
206 X_Hold_Reason,
207 X_Hold_Flag,
208 X_Cancel_Flag,
209 X_Cancelled_By,
210 X_Cancel_Date,
211 X_Cancel_Reason,
212 X_Firm_Status_Lookup_Code,
213 X_Pay_On_Code,
214 X_Attribute_Category,
215 X_Attribute1,
216 X_Attribute2,
217 X_Attribute3,
218 X_Attribute4,
219 X_Attribute5,
220 X_Attribute6,
221 X_Attribute7,
222 X_Attribute8,
223 X_Attribute9,
224 X_Attribute10,
225 X_Attribute11,
226 X_Attribute12,
227 X_Attribute13,
228 X_Attribute14,
229 X_Attribute15,
230 X_Authorization_Status,
231 X_Government_Context,
232 X_Closed_Code,
233 X_Frozen_Flag,
234 X_Release_Type,
235 X_Global_Attribute_Category,
236 X_Global_Attribute1,
237 X_Global_Attribute2,
238 X_Global_Attribute3,
239 X_Global_Attribute4,
240 X_Global_Attribute5,
241 X_Global_Attribute6,
242 X_Global_Attribute7,
243 X_Global_Attribute8,
244 X_Global_Attribute9,
245 X_Global_Attribute10,
246 X_Global_Attribute11,
247 X_Global_Attribute12,
248 X_Global_Attribute13,
249 X_Global_Attribute14,
250 X_Global_Attribute15,
251 X_Global_Attribute16,
252 X_Global_Attribute17,
253 X_Global_Attribute18,
254 X_Global_Attribute19,
255 X_Global_Attribute20,
256 p_shipping_control, -- <INBOUND LOGISTICS FPJ>
257 -- Bug 3648268. Using lookup code instead of hardcoded value
258 'ENTER_RELEASE' , -- <DBI FPJ>
259 p_org_id , -- <R12 MOAC>
260 'CREATE' --<eTax Integration R12>
261 );
262
263 OPEN C;
264 FETCH C INTO X_Rowid;
265 if (C%NOTFOUND) then
266 CLOSE C;
267 Raise NO_DATA_FOUND;
268 end if;
269 CLOSE C;
270
271 /*
272 ** Call the routine to insert the notification.
273 */
277 X_Po_Release_Id,
274 /*hvadlamu : commenting out. */
275 /*po_notifications_sv1.send_po_notif (
276 'RELEASE',
278 null,
279 null,
280 null,
281 null,
282 null,
283 null); */
284 /* Bug# 2238744: Added the Exception part */
285 EXCEPTION
286 WHEN OTHERS then
287 po_message_s.sql_error('INSERT_ROW',x_progress,sqlcode);
288 raise;
289
290 END Insert_Row;
291
292 END PO_RELEASES_PKG_S0;