[Home] [Help]
1 PACKAGE BODY PO_HEADERS_SV11 as
2 /* $Header: POXPOH6B.pls 120.4 2007/12/18 14:43:53 ggandhi ship $ */
3
4 PROCEDURE insert_po(
5 X_Rowid IN OUT NOCOPY VARCHAR2,
6 X_Po_Header_Id IN OUT NOCOPY NUMBER,
7 X_Agent_Id NUMBER,
8 X_Type_Lookup_Code VARCHAR2,
9 X_Last_Update_Date DATE,
10 X_Last_Updated_By NUMBER,
11 X_Segment1 IN OUT NOCOPY VARCHAR2,
12 X_Summary_Flag VARCHAR2,
13 X_Enabled_Flag VARCHAR2,
14 X_Segment2 VARCHAR2,
15 X_Segment3 VARCHAR2,
16 X_Segment4 VARCHAR2,
17 X_Segment5 VARCHAR2,
18 X_Start_Date_Active DATE,
19 X_End_Date_Active DATE,
20 X_Last_Update_Login NUMBER,
21 X_Creation_Date DATE,
22 X_Created_By NUMBER,
23 X_Vendor_Id NUMBER,
24 X_Vendor_Site_Id NUMBER,
25 X_Vendor_Contact_Id NUMBER,
26 X_Ship_To_Location_Id NUMBER,
27 X_Bill_To_Location_Id NUMBER,
28 X_Terms_Id NUMBER,
29 X_Ship_Via_Lookup_Code VARCHAR2,
30 X_Fob_Lookup_Code VARCHAR2,
31 X_Pay_On_Code VARCHAR2,
32 X_Freight_Terms_Lookup_Code VARCHAR2,
33 X_Status_Lookup_Code VARCHAR2,
34 X_Currency_Code VARCHAR2,
35 X_Rate_Type VARCHAR2,
36 X_Rate_Date DATE,
37 X_Rate NUMBER,
38 X_From_Header_Id NUMBER,
39 X_From_Type_Lookup_Code VARCHAR2,
40 X_Start_Date DATE,
41 X_End_Date DATE,
42 X_Blanket_Total_Amount NUMBER,
43 X_Authorization_Status VARCHAR2,
44 X_Revision_Num NUMBER,
45 -- Bug 902976, zxzhang, 10/04/99
46 -- Change REVISED_DATE from VarChar(25) to Date.
47 -- X_Revised_Date VARCHAR2,
48 X_Revised_Date DATE,
49 X_Approved_Flag VARCHAR2,
50 X_Approved_Date DATE,
51 X_Amount_Limit NUMBER,
52 X_Min_Release_Amount NUMBER,
53 X_Note_To_Authorizer VARCHAR2,
54 X_Note_To_Vendor VARCHAR2,
55 X_Note_To_Receiver VARCHAR2,
56 X_Print_Count NUMBER,
57 X_Printed_Date DATE,
58 X_Vendor_Order_Num VARCHAR2,
59 X_Confirming_Order_Flag VARCHAR2,
60 X_Comments VARCHAR2,
61 X_Reply_Date DATE,
62 X_Reply_Method_Lookup_Code VARCHAR2,
63 X_Rfq_Close_Date DATE,
64 X_Quote_Type_Lookup_Code VARCHAR2,
65 X_Quotation_Class_Code VARCHAR2,
66 X_Quote_Warning_Delay_Unit VARCHAR2,
67 X_Quote_Warning_Delay NUMBER,
68 X_Quote_Vendor_Quote_Number VARCHAR2,
69 X_Acceptance_Required_Flag VARCHAR2,
70 X_Acceptance_Due_Date DATE,
71 X_Closed_Date DATE,
72 X_User_Hold_Flag VARCHAR2,
73 X_Approval_Required_Flag VARCHAR2,
74 X_Cancel_Flag VARCHAR2,
75 X_Firm_Status_Lookup_Code VARCHAR2,
76 X_Firm_Date DATE,
77 X_Frozen_Flag VARCHAR2,
78 X_Supply_Agreement_Flag VARCHAR2,
79 X_Global_Agreement_Flag VARCHAR2,
80 X_Attribute_Category VARCHAR2,
81 X_Attribute1 VARCHAR2,
82 X_Attribute2 VARCHAR2,
83 X_Attribute3 VARCHAR2,
84 X_Attribute4 VARCHAR2,
85 X_Attribute5 VARCHAR2,
86 X_Attribute6 VARCHAR2,
87 X_Attribute7 VARCHAR2,
88 X_Attribute8 VARCHAR2,
89 X_Attribute9 VARCHAR2,
90 X_Attribute10 VARCHAR2,
91 X_Attribute11 VARCHAR2,
92 X_Attribute12 VARCHAR2,
93 X_Attribute13 VARCHAR2,
94 X_Attribute14 VARCHAR2,
95 X_Attribute15 VARCHAR2,
96 X_Closed_Code VARCHAR2,
97 X_Ussgl_Transaction_Code VARCHAR2,
98 X_Government_Context VARCHAR2,
99 X_Global_Attribute_Category VARCHAR2,
100 X_Global_Attribute1 VARCHAR2,
101 X_Global_Attribute2 VARCHAR2,
102 X_Global_Attribute3 VARCHAR2,
103 X_Global_Attribute4 VARCHAR2,
104 X_Global_Attribute5 VARCHAR2,
105 X_Global_Attribute6 VARCHAR2,
106 X_Global_Attribute7 VARCHAR2,
107 X_Global_Attribute8 VARCHAR2,
108 X_Global_Attribute9 VARCHAR2,
109 X_Global_Attribute10 VARCHAR2,
110 X_Global_Attribute11 VARCHAR2,
111 X_Global_Attribute12 VARCHAR2,
112 X_Global_Attribute13 VARCHAR2,
113 X_Global_Attribute14 VARCHAR2,
114 X_Global_Attribute15 VARCHAR2,
115 X_Global_Attribute16 VARCHAR2,
116 X_Global_Attribute17 VARCHAR2,
117 X_Global_Attribute18 VARCHAR2,
118 X_Global_Attribute19 VARCHAR2,
119 X_Global_Attribute20 VARCHAR2,
120 X_Manual BOOLEAN,
121 X_Price_Update_Tolerance NUMBER,
122 p_shipping_control IN VARCHAR2, -- <INBOUND LOGISTICS FPJ>
123 p_encumbrance_required_flag IN VARCHAR2 DEFAULT NULL, --<ENCUMBRANCE FPJ>
124 p_org_id IN NUMBER DEFAULT NULL, -- <R12 MOAC>
125 p_enable_all_sites IN VARCHAR2 --<R12GCPA>
126 ) IS
127
128 X_progress VARCHAR2(3) := '';
129
130 BEGIN
131
132 /* Call the Insert Row Table handler */
133 x_progress := '010';
134
135 po_headers_pkg_s0.insert_row(X_Rowid ,
136 X_Po_Header_Id ,
137 X_Agent_Id ,
138 X_Type_Lookup_Code ,
139 X_Last_Update_Date ,
140 X_Last_Updated_By ,
141 X_Segment1 ,
142 X_Summary_Flag ,
143 X_Enabled_Flag ,
144 X_Segment2 ,
145 X_Segment3 ,
146 X_Segment4 ,
147 X_Segment5 ,
148 X_Start_Date_Active ,
149 X_End_Date_Active ,
150 X_Last_Update_Login ,
151 X_Creation_Date ,
152 X_Created_By ,
153 X_Vendor_Id ,
154 X_Vendor_Site_Id ,
155 X_Vendor_Contact_Id ,
156 X_Ship_To_Location_Id ,
157 X_Bill_To_Location_Id ,
158 X_Terms_Id ,
159 X_Ship_Via_Lookup_Code ,
160 X_Fob_Lookup_Code ,
161 X_Pay_On_Code ,
162 X_Freight_Terms_Lookup_Code ,
163 X_Status_Lookup_Code ,
164 X_Currency_Code ,
165 X_Rate_Type ,
166 X_Rate_Date ,
167 X_Rate ,
168 X_From_Header_Id ,
169 X_From_Type_Lookup_Code ,
170 X_Start_Date ,
171 X_End_Date ,
172 X_Blanket_Total_Amount ,
173 X_Authorization_Status ,
174 X_Revision_Num ,
175 X_Revised_Date ,
176 X_Approved_Flag ,
177 X_Approved_Date ,
178 X_Amount_Limit ,
179 X_Min_Release_Amount ,
180 X_Note_To_Authorizer ,
181 X_Note_To_Vendor ,
182 X_Note_To_Receiver ,
183 X_Print_Count ,
184 X_Printed_Date ,
185 X_Vendor_Order_Num ,
186 X_Confirming_Order_Flag ,
187 X_Comments ,
188 X_Reply_Date ,
189 X_Reply_Method_Lookup_Code ,
190 X_Rfq_Close_Date ,
191 X_Quote_Type_Lookup_Code ,
192 X_Quotation_Class_Code ,
193 X_Quote_Warning_Delay_Unit ,
194 X_Quote_Warning_Delay ,
195 X_Quote_Vendor_Quote_Number ,
196 X_Acceptance_Required_Flag ,
197 X_Acceptance_Due_Date ,
198 X_Closed_Date ,
199 X_User_Hold_Flag ,
200 X_Approval_Required_Flag ,
201 X_Cancel_Flag ,
202 X_Firm_Status_Lookup_Code ,
203 X_Firm_Date ,
204 X_Frozen_Flag ,
205 X_Global_Agreement_Flag ,
206 X_Attribute_Category ,
207 X_Attribute1 ,
208 X_Attribute2 ,
209 X_Attribute3 ,
210 X_Attribute4 ,
211 X_Attribute5 ,
212 X_Attribute6 ,
213 X_Attribute7 ,
214 X_Attribute8 ,
215 X_Attribute9 ,
216 X_Attribute10 ,
217 X_Attribute11 ,
218 X_Attribute12 ,
219 X_Attribute13 ,
220 X_Attribute14 ,
221 X_Attribute15 ,
222 X_Closed_Code ,
223 NULL, --<R12 SLA>
224 X_Government_Context ,
225 X_Supply_Agreement_Flag ,
226 X_Manual ,
227 X_Price_Update_Tolerance ,
228 X_Global_Attribute_Category ,
229 X_Global_Attribute1 ,
230 X_Global_Attribute2 ,
231 X_Global_Attribute3 ,
232 X_Global_Attribute4 ,
233 X_Global_Attribute5 ,
234 X_Global_Attribute6 ,
235 X_Global_Attribute7 ,
236 X_Global_Attribute8 ,
237 X_Global_Attribute9 ,
238 X_Global_Attribute10 ,
239 X_Global_Attribute11 ,
240 X_Global_Attribute12 ,
241 X_Global_Attribute13 ,
242 X_Global_Attribute14 ,
243 X_Global_Attribute15 ,
244 X_Global_Attribute16 ,
245 X_Global_Attribute17 ,
246 X_Global_Attribute18 ,
247 X_Global_Attribute19 ,
248 X_Global_Attribute20 ,
249 p_shipping_control, -- <INBOUND LOGISTICS FPJ>
250 p_encumbrance_required_flag, --<ENCUMBRANCE FPJ>
251 p_org_id , -- <R12 MOAC>
252 p_enable_all_sites --<R12GCPA>
253 );
254
255
256 x_progress := '020';
257
258 /* bug# 465696 8/5/97. The previous fix to this performance problem introduced
259 a problem with the notifications (the bogus value used temporarily as the
260 document number was being inserted into the fnd_notifications table, since
261 the call below was made before we called the procedure to get the real
262 document number (segment1) in the POST-FORMS-COMMIT trigger.
263 Therefore, remove the call below from here and moving it to procedure
264 PO_HEADERS_PKG_S0.get_real_segment1().
265 */
266 IF X_Manual THEN
267
268 if (x_type_lookup_code not in ('RFQ', 'QUOTATION')) then
269
270 /*hvadlamu : commenting out since this will be handled by workflow */
271
272 /*po_notifications_sv1.send_po_notif (x_type_lookup_code,
273 x_po_header_id,
274 null,
275 null,
276 null,
277 null,
278 null,
279 null);*/
280 null;
281 elsif (x_type_lookup_code = 'RFQ') then
282 /*po_notifications_sv1.send_po_notif (x_type_lookup_code,
283 x_po_header_id,
284 null,
285 X_reply_date,
286 X_rfq_close_date,
287 null,
288 null,
289 null); */
290 null;
291 elsif (x_type_lookup_code = 'QUOTATION') then
292 /* po_notifications_sv1.send_po_notif (x_type_lookup_code,
293 x_po_header_id,
294 null,
295 (X_end_date - X_quote_warning_delay),
296 X_end_date,
297 null,
298 null,
299 null); */
300 null;
301
302 end if;
303
304 END IF;
305
306 exception
307 when others then
308 po_message_s.sql_error('insert_po', x_progress, sqlcode);
309 raise;
310
311 END insert_po;
312
313 END PO_HEADERS_SV11;
|
|
|
|