[Home] [Help]
PACKAGE BODY: APPS.OE_CHG_ORDER_PVT
Source
1 PACKAGE BODY OE_CHG_ORDER_PVT AS
2 /* $Header: OEXVCHGB.pls 120.9.12020000.3 2013/01/17 08:43:10 sujithku ship $ */
3
4 -- Start of Comments
5 -- API name OE_CHG_ORDER_PVT
6 -- Type PRIVATE
7 -- Function
8 --
9 -- Pre-reqs
10 --
11 -- Parameters
12 --
13 -- Version Current version = 1.0
14 -- Initial version = 1.0
15 --
16 -- Notes
17 --
18 -- End of Comments
19
20 PROCEDURE Start_ChangeOrderFlow
21 ( p_itemtype in VARCHAR2
22 , p_itemkey in VARCHAR2
23 )
24 IS
25 --
26 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
27 --
28 BEGIN
29 IF l_debug_level > 0 THEN
30 oe_debug_pub.add( 'BEFORE START_CHANGEORDER FLOW' ) ;
31 oe_debug_pub.add( 'ITEM TYPE IS :'|| P_ITEMTYPE ) ;
32 oe_debug_pub.add( 'ITEM KEY IS :' || P_ITEMKEY ) ;
33 END IF;
34
35 WF_ENGINE.StartProcess(p_itemtype, p_itemkey);
36 IF l_debug_level > 0 THEN
37 oe_debug_pub.add( 'AFTER START_CHANGEORDER FLOW' ) ;
38 END IF;
39 EXCEPTION
40 WHEN OTHERS THEN
41 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
42 THEN
43 OE_MSG_PUB.Add_Exc_Msg
44 (G_PKG_NAME
45 , 'Start_ChangeOrderFlow'
46 );
47 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
48 END IF;
49 END Start_ChangeOrderFlow;
50
51 -- This procedure is called by the Notification Window
52 -- to create a Change Order Item Type and start a flow
53 -- for sending a FYI notification to the resolving
54 -- responsibility
55
56 -- This procedure uses Autonomous transaction to commit
57 -- the process of starting a flow for sending FYI. In this
58 -- way, the commit or rollback within this procedure will
59 -- not affect other forms like Error Message form.
60
61 Procedure Create_ChgOrderWorkItem
62 ( p_Workflow_Process IN VARCHAR2
63 ,p_resolving_role IN VARCHAR2
64 ,p_resolving_name IN VARCHAR2
65 ,p_user_text IN VARCHAR2
66 )
67 IS
68 Pragma AUTONOMOUS_TRANSACTION;
69
70 l_debug_file VARCHAR2(240);
71
72 l_process_name VARCHAR2(30);
73 l_chgord_item_type VARCHAR2(30) := 'OECHGORD';
74 l_wf_item_key NUMBER;
75 l_document_body VARCHAR2(150);
76 l_resolving_role_name VARCHAR2(150);
77 l_order_number NUMBER;
78 l_user_name VARCHAR2(255); -- Bug number 6633740
79
80 --
81 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
82 --
83 -- The following sql is not needed sind the value is being passed from
84 -- the form. See bug#3631508
85 -- cursor roles is -- 3051285
86 -- select name
87 -- from wf_roles
88 -- where display_name = p_resolving_role;
89
90 BEGIN
91
92 -- oe_debug_pub.Debug_On;
93 IF l_debug_level > 0 THEN
94 oe_debug_pub.add( 'IN CREATE_CHGORDERWORKITEM' ) ;
95 oe_debug_pub.add( 'P_RESOLVING_NAME->' || p_resolving_name);
96 END IF;
97
98 -- Generate a unique item key to create a flow
99 select oe_wf_key_s.nextval into l_wf_item_key
100 from dual;
101
102 IF l_debug_level > 0 THEN
103 oe_debug_pub.add( 'WF ITEM KEY IS :'|| L_WF_ITEM_KEY ) ;
104 END IF;
105
106 -- retrieve the NAME from DISPLAY_NAME
107 -- The following sql is not needed sind the value is being passed from
108 -- the form. See bug#3631508
109 -- open roles; -- added for 3051285
110 -- fetch roles into l_resolving_role_name;
111 -- close roles;
112
113 /* commented and replaced with above FETCH for 3051285
114 BEGIN -- block and exception handler added for 2166974
115 select name
116 into l_resolving_role_name
117 from wf_roles
118 where display_name = p_resolving_role;
119 EXCEPTION
120 when too_many_rows then null;
121 END;
122 */
123
124 l_process_name := p_Workflow_Process;
125
126 IF l_debug_level > 0 THEN
127 oe_debug_pub.add( 'PROCESS NAME IS : ' || L_PROCESS_NAME ) ;
128 oe_debug_pub.add( 'RESOLVING ROLE IS : '|| L_RESOLVING_ROLE_NAME ) ;
129 oe_debug_pub.add( 'USER TEXT IS :' || P_USER_TEXT ) ;
130 END IF;
131
132 -- Create the Change Order Item
133 WF_ENGINE.CreateProcess(l_chgord_item_type,to_char(l_wf_item_key),l_process_name);
134
135 -- Set the Change Order Item Attributes
136
137 /* wf_engine.SetItemAttrText(l_chgord_item_type
138 , l_wf_item_key
139 , 'BOOKING_DOCUMENT'
140 , 'PLSQL:OE_CHG_ORDER_PVT.Generate_PLSQLDoc/' || l_wf_item_key);
141 */
142 wf_engine.SetItemAttrText(l_chgord_item_type
143 , l_wf_item_key
144 , 'USER_TEXT'
145 ,p_user_text);
146
147 -- Set the resolving role for the constraint.
148
149 WF_ENGINE.SetItemAttrText(l_chgord_item_type
150 ,l_wf_item_key
151 ,'RESOLVING_ROLE'
152 ,p_resolving_name);
153
154 -- Retrieve the value of the order number from the global variable
155 l_order_number := OE_CHG_ORDER_PVT.G_ORDER_NUMBER;
156 oe_msg_pub.add('Order Number is: ' || l_order_number);
157
158 -- Set the order number context for the message header
159
160 WF_ENGINE.SetItemAttrNumber(l_chgord_item_type
161 ,l_wf_item_key
162 ,'ORDER_NUMBER'
163 , l_order_number);
164 /*
165 l_document_body := wf_engine.GetItemAttrText(l_chgord_item_type
166 , l_wf_item_key
167 , 'BOOKING_DOCUMENT');
168
169 oe_debug_pub.add('Value of document is :' || l_document_body);
170 */
171
172 -- Bug number 6633740
173 IF l_debug_level > 0 THEN
174 oe_debug_pub.add( 'Assigning From user to workflow '|| FND_GLOBAL.USER_ID ) ;
175 END IF;
176 BEGIN
177 select user_name
178 into l_user_name
179 from fnd_user
180 where user_id = FND_GLOBAL.USER_ID;
181 EXCEPTION
182 WHEN OTHERS THEN
183 l_user_name := null; -- do not set FROM_ROLE then
184 END;
185
186 IF (l_user_name is not NULL) THEN
187 WF_ENGINE.SetItemAttrText( l_chgord_item_type
188 ,l_wf_item_key
189 ,'NOTIFICATION_FROM_ROLE'
190 ,l_user_name);
191 END IF;
192 -- Bug number 6633740
193
194 WF_ENGINE.StartProcess(l_chgord_item_type, to_char(l_wf_item_key));
195
196 -- Make a call to the StartChangeOrderFlow to start the change order process
200 oe_debug_pub.add( 'EXITING CREATE_CHGORDERWORKITEM' ) ;
197 -- Start_ChangeOrderFlow(l_chgord_item_type, to_char(l_wf_item_key));
198
199 IF l_debug_level > 0 THEN
201 END IF;
202 commit;
203 EXCEPTION
204 WHEN OTHERS THEN
205 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
206 THEN
207 OE_MSG_PUB.Add_Exc_Msg
208 ( G_PKG_NAME
209 , 'Create_ChgOrderWorkItem');
210 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211 END IF;
212
213 --oe_debug_pub.dumpdebug;
214 --oe_debug_pub.Debug_Off;
215
216 END Create_ChgOrderWorkItem;
217
218 -- This procedure is used to update the free form text entered by the
219 -- user in the Notification form and pass it to the PLSQL Document
220 -- buffer
221
222
223 PROCEDURE Update_User_Text(p_user_text in varchar2)
224
225 IS
226
227 --
228 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
229 --
230 BEGIN
231
232 -- Set The global variable to the user text entered in the UI
233 OE_CHG_ORDER_PVT.G_USER_TEXT := p_user_text;
234
235 EXCEPTION
236 WHEN OTHERS THEN
237 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
238 THEN
239 OE_MSG_PUB.Add_Exc_Msg
240 ( G_PKG_NAME
241 , 'Create_ChgOrderWorkItem');
242 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243 END IF;
244
245
246 END Update_User_Text;
247
248
249 PROCEDURE Update_Order_Number(p_order_number in NUMBER)
250
251 IS
252
253 --
254 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
255 --
256 BEGIN
257
258 -- Set The global variable to the user text entered in the UI
259 OE_CHG_ORDER_PVT.G_ORDER_NUMBER := p_order_number;
260
261 EXCEPTION
262
263 WHEN OTHERS THEN
264 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
265 THEN
266 OE_MSG_PUB.Add_Exc_Msg
267 ( G_PKG_NAME
268 , 'Create_ChgOrderWorkItem');
269 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
270 END IF;
271
272 END Update_Order_Number;
273
274
275 -- This procedure is written to create a dynamic message
276 -- text for the notification sent to the resolving responsibility.
277 -- Based on the display type to be used by the end user for viewing
278 -- the notification, the message body will be formatted and displayed.
279
280 PROCEDURE Generate_PLSQLDoc(p_document_id in varchar2,
281 p_display_type in varchar2,
282 p_document in out NOCOPY /* file.sql.39 change */ varchar2,
283 p_document_type in out NOCOPY /* file.sql.39 change */ varchar2)
284 IS
285
286 l_user_text VARCHAR2(250);
287
288 --
289 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
290 --
291 BEGIN
292
293 IF l_debug_level > 0 THEN
294 oe_debug_pub.add( 'INSIDE GENERATE PLSQL DOC' ) ;
295 END IF;
296 -- Set the document type based on the display type
297 p_document_type := p_display_type;
298
299 -- JPN: Replace this with p_document
300
301
302 l_user_text := wf_engine.GetItemAttrText('OECHGORD'
303 ,p_document_id
304 , 'USER_TEXT');
305 IF l_debug_level > 0 THEN
306 oe_debug_pub.add( 'USER TEXT IS: ' || L_USER_TEXT ) ;
307 END IF;
308
309 -- p_document := OE_CHG_ORDER_PVT.G_USER_TEXT;
310 p_document := l_user_text;
311 IF l_debug_level > 0 THEN
312 oe_debug_pub.add( 'VALUE OF THE P_DOCUMENT IS: '|| P_DOCUMENT ) ;
313 END IF;
314
315 -- p_document := 'Update of Line quantity';
316
317 -- Create an HTML text buffer
318 if (p_display_type = 'text/html') then
319
320 -- Build the page body with the data
321 p_document := htf.bold('Change Order Approval for: ') || p_document ;
322 p_document_type := 'text/html';
323
324 return;
325 end if;
326
327 -- Create a plain text buffer
328 if (p_display_type = 'text/plain') then
329
330 p_document := 'Change approval required for: ' || p_document;
331 p_document_type := 'text/plain';
332
333 return;
334 end if;
335
336 EXCEPTION
337 WHEN OTHERS THEN
338 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
339 THEN
340 OE_MSG_PUB.Add_Exc_Msg
341 (G_PKG_NAME
342 , 'Generate_PLSQLDoc'
343 );
344 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
345 END IF;
346
347 END Generate_PLSQLDoc;
348
349
350 Procedure RecordLineHist
351 (p_line_id In Number
352 ,p_line_rec In OE_ORDER_PUB.LINE_REC_TYPE
353 := OE_Order_PUB.G_MISS_LINE_REC
354 ,p_hist_type_code In Varchar2
355 ,p_reason_code In varchar2
356 ,p_comments IN Varchar2
357 ,p_audit_flag IN Varchar2 := null
358 ,p_version_flag IN Varchar2 := null
359 ,p_phase_change_flag IN Varchar2 := null
360 ,p_version_number IN NUMBER := null
361 ,p_reason_id IN NUMBER := NULL
362 ,p_wf_activity_code IN Varchar2 := null
363 ,p_wf_result_code IN Varchar2 := null
364 ,x_return_status Out NOCOPY /* file.sql.39 change */ Varchar2
365 ) IS
366 l_line_rec OE_ORDER_PUB.LINE_REC_TYPE := OE_Order_PUB.G_MISS_LINE_REC;
367 l_err_text Varchar2(80);
368 l_line_id number := p_line_id;
369 l_index_id number;
370 l_result VARCHAR2(30);
371 l_new_ordered_quantity number;
372 l_latest_can_qty number ;
373
374 --
375 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
376 --
377 BEGIN
378 IF l_debug_level > 0 THEN
379 oe_debug_pub.add( 'ENTERING RECORDLINEHIST' , 1 ) ;
380 END IF;
381
382 -- JPN: Added the G_MISS_NUM check before inserting the history record.
383 if (p_line_rec.line_id is not null AND
384 p_line_rec.line_id <> FND_API.G_MISS_NUM) then
385 l_line_id := p_line_rec.line_id;
386 l_line_rec := p_line_rec;
387 else
388 -- query the line record
389 OE_LINE_UTIL.Query_Row (p_line_id => l_line_id ,x_line_rec => l_line_rec);
390 end if;
391 IF p_line_rec.ordered_quantity <> FND_API.G_MISS_NUM AND
392 p_line_rec.ordered_quantity IS NOT NULL THEN
393
394 -- bug 3443676, derive new ordered quantity from global picture
395 OE_Order_Util.Return_Glb_Ent_Index(p_entity_code => 'LINE', p_entity_id => l_line_id, x_index => l_index_id, x_result => l_result, x_return_status => x_return_status);
396
397 IF l_result = FND_API.G_TRUE THEN
398 l_new_ordered_quantity := OE_Order_Util.G_Line_Tbl(l_index_id).ordered_quantity;
399 ELSE
400 l_new_ordered_quantity := p_line_rec.ordered_quantity;
401 END IF;
402
403 IF l_new_ordered_quantity < l_line_rec.ordered_quantity THEN
404 l_latest_can_qty := l_line_rec.ordered_quantity - l_new_ordered_quantity ;
405 END IF;
406 END IF;
407 IF l_debug_level > 0 THEN
408 oe_debug_pub.add( 'INSERTING HISTORY FOR LINE ID : '|| TO_CHAR ( P_LINE_ID ) , 5 ) ;
409 END IF;
410 -- OPM 02/JUN/2000 add 3 process attributes
411 BEGIN
412 l_err_text := null;
413 INSERT INTO OE_ORDER_LINES_HISTORY (
414 Line_Id
415 , WF_ACTIVITY_CODE
416 , WF_RESULT_CODE
417 , REASON_CODE
418 , HIST_COMMENTS
419 , HIST_TYPE_CODE
420 , HIST_CREATION_DATE
421 , HIST_CREATED_BY
422 , latest_cancelled_quantity
423 , ACCOUNTING_RULE_ID
424 , ACCOUNTING_RULE_DURATION
425 , ACTUAL_ARRIVAL_DATE
426 , ACTUAL_SHIPMENT_DATE
427 , AGREEMENT_ID
428 , ARRIVAL_SET_ID
429 , ATO_LINE_ID
430 , ATTRIBUTE1
431 , ATTRIBUTE10
432 , ATTRIBUTE11
433 , ATTRIBUTE12
434 , ATTRIBUTE13
435 , ATTRIBUTE14
436 , ATTRIBUTE15
437 , ATTRIBUTE16 --For bug 2184255
438 , ATTRIBUTE17
439 , ATTRIBUTE18
440 , ATTRIBUTE19
441 , ATTRIBUTE2
442 , ATTRIBUTE20
443 , ATTRIBUTE3
444 , ATTRIBUTE4
445 , ATTRIBUTE5
446 , ATTRIBUTE6
447 , ATTRIBUTE7
448 , ATTRIBUTE8
449 , ATTRIBUTE9
450 , AUTO_SELECTED_QUANTITY
451 , AUTHORIZED_TO_SHIP_FLAG
452 , BLANKET_NUMBER
453 , BLANKET_LINE_NUMBER
454 , BLANKET_VERSION_NUMBER
455 , BOOKED_FLAG
456 , CANCELLED_FLAG
457 , CANCELLED_QUANTITY
458 , COMPONENT_CODE
459 , COMPONENT_NUMBER
460 , COMPONENT_SEQUENCE_ID
461 , CONFIG_HEADER_ID
462 , CONFIG_REV_NBR
463 , CONFIG_DISPLAY_SEQUENCE
464 , CONFIGURATION_ID
465 , CONTEXT
466 , CREATED_BY
467 , CREATION_DATE
468 , CREDIT_INVOICE_LINE_ID
469 , CUSTOMER_LINE_NUMBER
470 , CUSTOMER_SHIPMENT_NUMBER
471 , CUSTOMER_ITEM_NET_PRICE
472 , CUSTOMER_PAYMENT_TERM_ID
473 , CUSTOMER_DOCK_CODE
474 , CUSTOMER_JOB
475 , CUSTOMER_PRODUCTION_LINE
476 , CUST_PRODUCTION_SEQ_NUM
477 , CUSTOMER_TRX_LINE_ID
478 , CUST_MODEL_SERIAL_NUMBER
479 , CUST_PO_NUMBER
480 , DELIVERY_LEAD_TIME
481 , DELIVER_TO_CONTACT_ID
482 , DELIVER_TO_ORG_ID
483 , DEMAND_BUCKET_TYPE_CODE
484 , DEMAND_CLASS_CODE
485 , DEP_PLAN_REQUIRED_FLAG
486 , DROP_SHIP_FLAG
487 , EARLIEST_ACCEPTABLE_DATE
488 , END_ITEM_UNIT_NUMBER
489 , EXPLOSION_DATE
490 , FIRST_ACK_CODE
491 , FIRST_ACK_DATE
492 , FOB_POINT_CODE
493 , FREIGHT_CARRIER_CODE
494 , FREIGHT_TERMS_CODE
495 , FULFILLED_QUANTITY
496 , FULFILLED_FLAG
497 , FULFILLMENT_METHOD_CODE
498 , GLOBAL_ATTRIBUTE1
499 , GLOBAL_ATTRIBUTE10
500 , GLOBAL_ATTRIBUTE11
501 , GLOBAL_ATTRIBUTE12
502 , GLOBAL_ATTRIBUTE13
503 , GLOBAL_ATTRIBUTE14
504 , GLOBAL_ATTRIBUTE15
505 , GLOBAL_ATTRIBUTE16
506 , GLOBAL_ATTRIBUTE17
507 , GLOBAL_ATTRIBUTE18
508 , GLOBAL_ATTRIBUTE19
509 , GLOBAL_ATTRIBUTE2
510 , GLOBAL_ATTRIBUTE20
511 , GLOBAL_ATTRIBUTE3
512 , GLOBAL_ATTRIBUTE4
513 , GLOBAL_ATTRIBUTE5
514 , GLOBAL_ATTRIBUTE6
515 , GLOBAL_ATTRIBUTE7
516 , GLOBAL_ATTRIBUTE8
517 , GLOBAL_ATTRIBUTE9
518 , GLOBAL_ATTRIBUTE_CATEGORY
519 , HEADER_ID
520 , INDUSTRY_ATTRIBUTE1
521 , INDUSTRY_ATTRIBUTE10
522 , INDUSTRY_ATTRIBUTE11
523 , INDUSTRY_ATTRIBUTE12
524 , INDUSTRY_ATTRIBUTE13
525 , INDUSTRY_ATTRIBUTE14
526 , INDUSTRY_ATTRIBUTE15
527 , INDUSTRY_ATTRIBUTE16
528 , INDUSTRY_ATTRIBUTE17
529 , INDUSTRY_ATTRIBUTE18
530 , INDUSTRY_ATTRIBUTE19
531 , INDUSTRY_ATTRIBUTE20
532 , INDUSTRY_ATTRIBUTE21
533 , INDUSTRY_ATTRIBUTE22
534 , INDUSTRY_ATTRIBUTE23
535 , INDUSTRY_ATTRIBUTE24
536 , INDUSTRY_ATTRIBUTE25
537 , INDUSTRY_ATTRIBUTE26
538 , INDUSTRY_ATTRIBUTE27
539 , INDUSTRY_ATTRIBUTE28
540 , INDUSTRY_ATTRIBUTE29
541 , INDUSTRY_ATTRIBUTE30
542 , INDUSTRY_ATTRIBUTE2
543 , INDUSTRY_ATTRIBUTE3
544 , INDUSTRY_ATTRIBUTE4
545 , INDUSTRY_ATTRIBUTE5
546 , INDUSTRY_ATTRIBUTE6
547 , INDUSTRY_ATTRIBUTE7
548 , INDUSTRY_ATTRIBUTE8
549 , INDUSTRY_ATTRIBUTE9
550 , INDUSTRY_CONTEXT
551 , INTMED_SHIP_TO_CONTACT_ID
552 , INTMED_SHIP_TO_ORG_ID
553 , INVENTORY_ITEM_ID
554 , INVOICE_INTERFACE_STATUS_CODE
555 , INVOICE_TO_CONTACT_ID
556 , INVOICE_TO_ORG_ID
557 , INVOICED_QUANTITY
558 , INVOICING_RULE_ID
559 , ORDERED_ITEM_ID
560 , ITEM_IDENTIFIER_TYPE
561 , ORDERED_ITEM
562 , ITEM_REVISION
563 , ITEM_TYPE_CODE
564 , LAST_ACK_CODE
565 , LAST_ACK_DATE
566 , LAST_UPDATED_BY
567 , LAST_UPDATE_DATE
568 , LAST_UPDATE_LOGIN
569 , LATEST_ACCEPTABLE_DATE
570 , LINE_CATEGORY_CODE
571 , LINE_NUMBER
572 , LINE_TYPE_ID
573 , LINK_TO_LINE_ID
574 , MODEL_GROUP_NUMBER
575 , MFG_COMPONENT_SEQUENCE_ID
576 , OPEN_FLAG
577 , OPTION_FLAG
578 , OPTION_NUMBER
579 , ORDERED_QUANTITY
580 , ORDERED_QUANTITY2 -- OPM 02/JUN/00
581 , ORDER_QUANTITY_UOM
582 , ORDERED_QUANTITY_UOM2 -- OPM 02/JUN/00
583 --, ORG_ID
584 , ORDER_SOURCE_ID
585 , ORIG_SYS_DOCUMENT_REF
586 , ORIG_SYS_LINE_REF
587 , ORIG_SYS_SHIPMENT_REF
588 , CHANGE_SEQUENCE
589 , OVER_SHIP_REASON_CODE
590 , OVER_SHIP_RESOLVED_FLAG
591 , PAYMENT_TERM_ID
592 , PLANNING_PRIORITY
593 , PREFERRED_GRADE -- OPM 02/JUN/00
594 , PRICE_LIST_ID
595 , PRICE_REQUEST_CODE -- PROMOTIONS SEP/01
596 , PRICING_ATTRIBUTE1
597 , PRICING_ATTRIBUTE10
598 , PRICING_ATTRIBUTE2
599 , PRICING_ATTRIBUTE3
600 , PRICING_ATTRIBUTE4
601 , PRICING_ATTRIBUTE5
602 , PRICING_ATTRIBUTE6
603 , PRICING_ATTRIBUTE7
604 , PRICING_ATTRIBUTE8
605 , PRICING_ATTRIBUTE9
606 , PRICING_CONTEXT
607 , PRICING_DATE
608 , PRICING_QUANTITY
609 , PRICING_QUANTITY_UOM
610 , PROGRAM_APPLICATION_ID
611 , PROGRAM_ID
612 , PROGRAM_UPDATE_DATE
613 , PROJECT_ID
614 , PROMISE_DATE
615 , RE_SOURCE_FLAG
616 , REFERENCE_CUSTOMER_TRX_LINE_ID
617 , REFERENCE_HEADER_ID
618 , REFERENCE_LINE_ID
619 , REFERENCE_TYPE
620 , REQUEST_DATE
621 , REQUEST_ID
622 , RETURN_ATTRIBUTE1
623 , RETURN_ATTRIBUTE10
624 , RETURN_ATTRIBUTE11
625 , RETURN_ATTRIBUTE12
626 , RETURN_ATTRIBUTE13
627 , RETURN_ATTRIBUTE14
628 , RETURN_ATTRIBUTE15
629 , RETURN_ATTRIBUTE2
630 , RETURN_ATTRIBUTE3
631 , RETURN_ATTRIBUTE4
632 , RETURN_ATTRIBUTE5
633 , RETURN_ATTRIBUTE6
634 , RETURN_ATTRIBUTE7
635 , RETURN_ATTRIBUTE8
636 , RETURN_ATTRIBUTE9
637 , RETURN_CONTEXT
638 , RETURN_REASON_CODE
639 , RLA_SCHEDULE_TYPE_CODE
640 , SALESREP_ID
641 , SCHEDULE_ARRIVAL_DATE
642 , SCHEDULE_SHIP_DATE
643 , SCHEDULE_STATUS_CODE
644 , SHIPMENT_NUMBER
645 , SHIPMENT_PRIORITY_CODE
646 , SHIPPED_QUANTITY
647 , SHIPPING_METHOD_CODE
648 , SHIPPING_QUANTITY
649 , SHIPPING_QUANTITY_UOM
650 , SHIP_FROM_ORG_ID
651 , SUBINVENTORY
652 , SHIP_SET_ID
653 , SHIP_TOLERANCE_ABOVE
654 , SHIP_TOLERANCE_BELOW
655 , SHIPPABLE_FLAG
656 , SHIPPING_INTERFACED_FLAG
657 , SHIP_TO_CONTACT_ID
658 , SHIP_TO_ORG_ID
659 , SHIP_MODEL_COMPLETE_FLAG
660 , SOLD_TO_ORG_ID
661 , SOLD_FROM_ORG_ID
662 , SORT_ORDER
663 , SOURCE_DOCUMENT_ID
664 , SOURCE_DOCUMENT_LINE_ID
665 , SOURCE_DOCUMENT_TYPE_ID
666 , SOURCE_TYPE_CODE
667 , SPLIT_FROM_LINE_ID
668 , LINE_SET_ID
669 , SPLIT_BY
670 , model_remnant_flag
671 , TASK_ID
672 , TAX_CODE
673 , TAX_DATE
674 , TAX_EXEMPT_FLAG
675 , TAX_EXEMPT_NUMBER
676 , TAX_EXEMPT_REASON_CODE
677 , TAX_POINT_CODE
678 , TAX_RATE
679 , TAX_VALUE
680 , TOP_MODEL_LINE_ID
681 , UNIT_LIST_PRICE
682 , UNIT_SELLING_PRICE
683 , VISIBLE_DEMAND_FLAG
684 , VEH_CUS_ITEM_CUM_KEY_ID
685 , SHIPPING_INSTRUCTIONS
686 , PACKING_INSTRUCTIONS
687 , SERVICE_TXN_REASON_CODE
688 , SERVICE_TXN_COMMENTS
689 , SERVICE_DURATION
690 , SERVICE_PERIOD
691 , SERVICE_START_DATE
692 , SERVICE_END_DATE
693 , SERVICE_COTERMINATE_FLAG
694 , UNIT_LIST_PERCENT
695 , UNIT_SELLING_PERCENT
696 , UNIT_PERCENT_BASE_PRICE
697 , SERVICE_NUMBER
698 , SERVICE_REFERENCE_LINE_ID
699 , TP_CONTEXT
700 , TP_ATTRIBUTE1
701 , TP_ATTRIBUTE2
702 , TP_ATTRIBUTE3
703 , TP_ATTRIBUTE4
704 , TP_ATTRIBUTE5
705 , TP_ATTRIBUTE6
706 , TP_ATTRIBUTE7
707 , TP_ATTRIBUTE8
708 , TP_ATTRIBUTE9
709 , TP_ATTRIBUTE10
710 , TP_ATTRIBUTE11
711 , TP_ATTRIBUTE12
712 , TP_ATTRIBUTE13
713 , TP_ATTRIBUTE14
714 , TP_ATTRIBUTE15
715 , FLOW_STATUS_CODE
716 , RESPONSIBILITY_ID
717 , ORIGINAL_INVENTORY_ITEM_ID
718 , ORIGINAL_ITEM_IDENTIFIER_TYPE
719 , ORIGINAL_ORDERED_ITEM_ID
720 , ORIGINAL_ORDERED_ITEM
721 , ITEM_RELATIONSHIP_TYPE
722 , ITEM_SUBSTITUTION_TYPE_CODE
723 , LATE_DEMAND_PENALTY_FACTOR
724 , OVERRIDE_ATP_DATE_CODE
725 , USER_ITEM_DESCRIPTION
726 -- QUOTING changes
727 , TRANSACTION_PHASE_CODE
728 , SOURCE_DOCUMENT_VERSION_NUMBER
729 -- QUOTING changes END
730 -- VERSIONING changes
731 , AUDIT_FLAG
732 , VERSION_FLAG
733 , PHASE_CHANGE_FLAG
734 , VERSION_NUMBER
735 , REASON_ID
736 -- VERSIONING changes END
737 , ORIGINAL_LIST_PRICE -- Override List Price
738 --Key Transaction Dates
739 , order_firmed_date
740 , actual_fulfillment_date
741 --recurring charges
742 , charge_periodicity_code
743 --Customer Acceptance
744 , Contingency_id
745 , Revrec_event_code
746 , Revrec_Expiration_days
747 , Accepted_By
748 , Accepted_Quantity
749 , Revrec_comments
750 , Revrec_reference_document
751 , Revrec_signature
752 , Revrec_signature_date
753 , Revrec_implicit_flag
754 , calculate_price_flag --8652094
755 -- sol_ord_er #16014165
756 , SERVICE_BILL_PROFILE_ID
757 , SERVICE_COV_TEMPLATE_ID
758 , SERVICE_SUBS_TEMPLATE_ID
759 , SERVICE_BILL_OPTION_CODE
760 , SERVICE_FIRST_PERIOD_AMOUNT
761 , SUBSCRIPTION_ENABLE_FLAG
762 , SERVICE_FIRST_PERIOD_ENDDATE
763 )
764 VALUES
765 (
766 l_line_rec.line_id
767 , p_wf_activity_code
768 , P_WF_RESULT_CODE
769 , P_REASON_CODE
770 , P_COMMENTS
771 , P_HIST_TYPE_CODE
772 , sysdate
773 , nvl(FND_GLOBAL.USER_ID, -1)
774 , l_latest_can_qty
775 , l_line_rec.accounting_rule_id
776 , l_line_rec.accounting_rule_duration
777 , l_line_rec.actual_arrival_date
778 , l_line_rec.actual_shipment_date
779 , l_line_rec.agreement_id
780 , l_line_rec.arrival_set_id
781 , l_line_rec.ato_line_id
782 , l_line_rec.attribute1
783 , l_line_rec.attribute10
784 , l_line_rec.attribute11
785 , l_line_rec.attribute12
786 , l_line_rec.attribute13
787 , l_line_rec.attribute14
788 , l_line_rec.attribute15
789 , l_line_rec.attribute16 --For bug 2184255
790 , l_line_rec.attribute17
791 , l_line_rec.attribute18
792 , l_line_rec.attribute19
793 , l_line_rec.attribute2
794 , l_line_rec.attribute20
795 , l_line_rec.attribute3
796 , l_line_rec.attribute4
797 , l_line_rec.attribute5
798 , l_line_rec.attribute6
799 , l_line_rec.attribute7
800 , l_line_rec.attribute8
801 , l_line_rec.attribute9
802 , l_line_rec.auto_selected_quantity
803 , l_line_rec.authorized_to_ship_flag
804 , l_line_rec.blanket_number
805 , l_line_rec.blanket_line_number
806 , l_line_rec.blanket_version_number
807 , l_line_rec.booked_flag
808 , l_line_rec.cancelled_flag
809 , l_line_rec.cancelled_quantity
810 , l_line_rec.component_code
811 , l_line_rec.component_number
812 , l_line_rec.component_sequence_id
813 , l_line_rec.config_header_id
814 , l_line_rec.config_rev_nbr
815 , l_line_rec.config_display_sequence
816 , l_line_rec.configuration_id
817 , l_line_rec.context
818 , l_line_rec.created_by
819 , l_line_rec.creation_date
820 , l_line_rec.credit_invoice_line_id
821 , l_line_rec.customer_line_number
822 , l_line_rec.customer_shipment_number
823 , l_line_rec.customer_item_net_price
824 , l_line_rec.customer_payment_term_id
825 , l_line_rec.customer_dock_code
826 , l_line_rec.customer_job
827 , l_line_rec.customer_production_line
828 , l_line_rec.cust_production_seq_num
829 , l_line_rec.customer_trx_line_id
830 , l_line_rec.cust_model_serial_number
831 , l_line_rec.cust_po_number
832 , l_line_rec.delivery_lead_time
833 , l_line_rec.deliver_to_contact_id
834 , l_line_rec.deliver_to_org_id
835 , l_line_rec.demand_bucket_type_code
836 , l_line_rec.demand_class_code
837 , l_line_rec.dep_plan_required_flag
838 , l_line_rec.drop_ship_flag
839 , l_line_rec.earliest_acceptable_date
840 , l_line_rec.end_item_unit_number
841 , l_line_rec.explosion_date
842 , l_line_rec.first_ack_code
843 , l_line_rec.first_ack_date
844 , l_line_rec.fob_point_code
845 , l_line_rec.freight_carrier_code
846 , l_line_rec.freight_terms_code
847 , l_line_rec.fulfilled_quantity
848 , l_line_rec.fulfilled_flag
849 , l_line_rec.fulfillment_method_code
850 , l_line_rec.global_attribute1
851 , l_line_rec.global_attribute10
852 , l_line_rec.global_attribute11
853 , l_line_rec.global_attribute12
854 , l_line_rec.global_attribute13
855 , l_line_rec.global_attribute14
856 , l_line_rec.global_attribute15
857 , l_line_rec.global_attribute16
858 , l_line_rec.global_attribute17
859 , l_line_rec.global_attribute18
860 , l_line_rec.global_attribute19
861 , l_line_rec.global_attribute2
862 , l_line_rec.global_attribute20
863 , l_line_rec.global_attribute3
864 , l_line_rec.global_attribute4
865 , l_line_rec.global_attribute5
866 , l_line_rec.global_attribute6
867 , l_line_rec.global_attribute7
868 , l_line_rec.global_attribute8
869 , l_line_rec.global_attribute9
870 , l_line_rec.global_attribute_category
871 , l_line_rec.header_id
872 , l_line_rec.industry_attribute1
873 , l_line_rec.industry_attribute10
874 , l_line_rec.industry_attribute11
875 , l_line_rec.industry_attribute12
876 , l_line_rec.industry_attribute13
877 , l_line_rec.industry_attribute14
878 , l_line_rec.industry_attribute15
879 , l_line_rec.industry_attribute16
880 , l_line_rec.industry_attribute17
881 , l_line_rec.industry_attribute18
882 , l_line_rec.industry_attribute19
883 , l_line_rec.industry_attribute20
884 , l_line_rec.industry_attribute21
885 , l_line_rec.industry_attribute22
886 , l_line_rec.industry_attribute23
887 , l_line_rec.industry_attribute24
888 , l_line_rec.industry_attribute25
889 , l_line_rec.industry_attribute26
890 , l_line_rec.industry_attribute27
891 , l_line_rec.industry_attribute28
892 , l_line_rec.industry_attribute29
893 , l_line_rec.industry_attribute30
897 , l_line_rec.industry_attribute5
894 , l_line_rec.industry_attribute2
895 , l_line_rec.industry_attribute3
896 , l_line_rec.industry_attribute4
898 , l_line_rec.industry_attribute6
899 , l_line_rec.industry_attribute7
900 , l_line_rec.industry_attribute8
901 , l_line_rec.industry_attribute9
902 , l_line_rec.industry_context
903 , l_line_rec.intermed_ship_to_contact_id
904 , l_line_rec.intermed_ship_to_org_id
905 , l_line_rec.inventory_item_id
906 , l_line_rec.invoice_interface_status_code
907 , l_line_rec.invoice_to_contact_id
908 , l_line_rec.invoice_to_org_id
909 , l_line_rec.invoiced_quantity
910 , l_line_rec.invoicing_rule_id
911 , l_line_rec.ordered_item_id
912 , l_line_rec.item_identifier_type
913 , l_line_rec.ordered_item
914 , l_line_rec.item_revision
915 , l_line_rec.item_type_code
916 , l_line_rec.last_ack_code
917 , l_line_rec.last_ack_date
918 , l_line_rec.last_updated_by
919 , l_line_rec.last_update_date
920 , l_line_rec.last_update_login
921 , l_line_rec.latest_acceptable_date
922 , l_line_rec.line_category_code
923 , l_line_rec.line_number
924 , l_line_rec.line_type_id
925 , l_line_rec.link_to_line_id
926 , l_line_rec.model_group_number
927 , l_line_rec.mfg_component_sequence_id
928 , l_line_rec.open_flag
929 , l_line_rec.option_flag
930 , l_line_rec.option_number
931 , l_line_rec.ordered_quantity
932 , l_line_rec.ordered_quantity2 -- OPM 02/JUN/00
933 , l_line_rec.order_quantity_uom
934 , l_line_rec.ordered_quantity_uom2 -- OPM 02/JUN/00
935 --, l_line_rec.org_id
936 , l_line_rec.order_source_id
937 , l_line_rec.orig_sys_document_ref
938 , l_line_rec.orig_sys_line_ref
939 , l_line_rec.orig_sys_shipment_ref
940 , l_line_rec.change_sequence
941 , l_line_rec.over_ship_reason_code
942 , l_line_rec.over_ship_resolved_flag
943 , l_line_rec.payment_term_id
944 , l_line_rec.planning_priority
945 , l_line_rec.preferred_grade -- OPM 02/JUN/00
946 , l_line_rec.price_list_id
947 , l_line_rec.price_request_code -- PROMOTIONS SEP/01
948 , l_line_rec.pricing_attribute1
949 , l_line_rec.pricing_attribute10
950 , l_line_rec.pricing_attribute2
951 , l_line_rec.pricing_attribute3
952 , l_line_rec.pricing_attribute4
953 , l_line_rec.pricing_attribute5
954 , l_line_rec.pricing_attribute6
955 , l_line_rec.pricing_attribute7
956 , l_line_rec.pricing_attribute8
957 , l_line_rec.pricing_attribute9
958 , l_line_rec.pricing_context
959 , l_line_rec.pricing_date
960 , l_line_rec.pricing_quantity
961 , l_line_rec.pricing_quantity_uom
962 , l_line_rec.program_application_id
963 , l_line_rec.program_id
964 , l_line_rec.program_update_date
965 , l_line_rec.project_id
966 , l_line_rec.promise_date
967 , l_line_rec.re_source_flag
968 , l_line_rec.reference_customer_trx_line_id
969 , l_line_rec.reference_header_id
970 , l_line_rec.reference_line_id
971 , l_line_rec.reference_type
972 , l_line_rec.request_date
973 , l_line_rec.request_id
974 , l_line_rec.return_attribute1
975 , l_line_rec.return_attribute10
976 , l_line_rec.return_attribute11
977 , l_line_rec.return_attribute12
978 , l_line_rec.return_attribute13
979 , l_line_rec.return_attribute14
980 , l_line_rec.return_attribute15
981 , l_line_rec.return_attribute2
982 , l_line_rec.return_attribute3
983 , l_line_rec.return_attribute4
984 , l_line_rec.return_attribute5
985 , l_line_rec.return_attribute6
986 , l_line_rec.return_attribute7
987 , l_line_rec.return_attribute8
988 , l_line_rec.return_attribute9
989 , l_line_rec.return_context
990 , l_line_rec.return_reason_code
991 , l_line_rec.rla_schedule_type_code
992 , l_line_rec.salesrep_id
993 , l_line_rec.schedule_arrival_date
994 , l_line_rec.schedule_ship_date
995 , l_line_rec.schedule_status_code
996 , l_line_rec.shipment_number
997 , l_line_rec.shipment_priority_code
998 , l_line_rec.shipped_quantity
999 , l_line_rec.shipping_method_code
1000 , l_line_rec.shipping_quantity
1001 , l_line_rec.shipping_quantity_uom
1002 , l_line_rec.ship_from_org_id
1003 , l_line_rec.subinventory
1004 , l_line_rec.ship_set_id
1005 , l_line_rec.ship_tolerance_above
1006 , l_line_rec.ship_tolerance_below
1007 , l_line_rec.shippable_flag
1008 , l_line_rec.shipping_interfaced_flag
1009 , l_line_rec.ship_to_contact_id
1010 , l_line_rec.ship_to_org_id
1011 , l_line_rec.ship_model_complete_flag
1012 , l_line_rec.sold_to_org_id
1013 , l_line_rec.sold_from_org_id
1014 , l_line_rec.sort_order
1015 , l_line_rec.source_document_id
1016 , l_line_rec.source_document_line_id
1017 , l_line_rec.source_document_type_id
1018 , l_line_rec.source_type_code
1019 , l_line_rec.split_from_line_id
1020 , l_line_rec.line_set_id
1021 , l_line_rec.split_by
1025 , l_line_rec.tax_date
1022 , l_line_rec.model_remnant_flag
1023 , l_line_rec.task_id
1024 , l_line_rec.tax_code
1026 , l_line_rec.tax_exempt_flag
1027 , l_line_rec.tax_exempt_number
1028 , l_line_rec.tax_exempt_reason_code
1029 , l_line_rec.tax_point_code
1030 , l_line_rec.tax_rate
1031 , l_line_rec.tax_value
1032 , l_line_rec.top_model_line_id
1033 , l_line_rec.unit_list_price
1034 , l_line_rec.unit_selling_price
1035 , l_line_rec.visible_demand_flag
1036 , l_line_rec.veh_cus_item_cum_key_id
1037 , l_line_rec.shipping_instructions
1038 , l_line_rec.packing_instructions
1039 , l_line_rec.service_txn_reason_code
1040 , l_line_rec.service_txn_comments
1041 , l_line_rec.service_duration
1042 , l_line_rec.service_period
1043 , l_line_rec.service_start_date
1044 , l_line_rec.service_end_date
1045 , l_line_rec.service_coterminate_flag
1046 , l_line_rec.unit_list_percent
1047 , l_line_rec.unit_selling_percent
1048 , l_line_rec.unit_percent_base_price
1049 , l_line_rec.service_number
1050 , l_line_rec.service_reference_line_id
1051 , l_line_rec.tp_context
1052 , l_line_rec.tp_attribute1
1053 , l_line_rec.tp_attribute2
1054 , l_line_rec.tp_attribute3
1055 , l_line_rec.tp_attribute4
1056 , l_line_rec.tp_attribute5
1057 , l_line_rec.tp_attribute6
1058 , l_line_rec.tp_attribute7
1059 , l_line_rec.tp_attribute8
1060 , l_line_rec.tp_attribute9
1061 , l_line_rec.tp_attribute10
1062 , l_line_rec.tp_attribute11
1063 , l_line_rec.tp_attribute12
1064 , l_line_rec.tp_attribute13
1065 , l_line_rec.tp_attribute14
1066 , l_line_rec.tp_attribute15
1067 , l_line_rec.flow_status_code
1068 , nvl(FND_GLOBAL.RESP_ID, -1)
1069 , l_line_rec.original_inventory_item_id
1070 , l_line_rec.original_item_identifier_Type
1071 , l_line_rec.original_ordered_item_id
1072 , l_line_rec.original_ordered_item
1073 , l_line_rec.item_relationship_type
1074 , l_line_rec.item_substitution_type_code
1075 , l_line_rec.late_demand_penalty_factor
1076 , l_line_rec.Override_atp_date_code
1077 , l_line_rec.user_item_description
1078 -- QUOTING changes
1079 , l_line_rec.TRANSACTION_PHASE_CODE
1080 , l_line_rec.SOURCE_DOCUMENT_VERSION_NUMBER
1081 -- QUOTING changes END
1082 -- VERSIONING changes
1083 , p_AUDIT_FLAG
1084 , p_VERSION_FLAG
1085 , p_PHASE_CHANGE_FLAG
1086 , p_VERSION_NUMBER
1087 , p_reason_id
1088 -- VERSIONING changes END
1089 , l_line_rec.ORIGINAL_LIST_PRICE -- Override List Price
1090 --key transaction dates
1091 , l_line_rec.order_firmed_date
1092 , l_line_rec.actual_fulfillment_date
1093 --recurring charges
1094 , l_line_rec.charge_periodicity_code
1095 --Customer Acceptance
1096 , l_line_rec.Contingency_id
1097 , l_line_rec.Revrec_event_code
1098 , l_line_rec.Revrec_Expiration_days
1099 , l_line_rec.Accepted_By
1100 , l_line_rec.Accepted_Quantity
1101 , l_line_rec.Revrec_comments
1102 , l_line_rec.Revrec_reference_document
1103 , l_line_rec.Revrec_signature
1104 , l_line_rec.Revrec_signature_date
1105 , l_line_rec.Revrec_implicit_flag
1106 , l_line_rec.calculate_price_flag --8652094
1107 -- sol_ord_er #16014165
1108 , l_line_rec.SERVICE_BILL_PROFILE_ID
1109 , l_line_rec.SERVICE_COV_TEMPLATE_ID
1110 , l_line_rec.SERVICE_SUBS_TEMPLATE_ID
1111 , l_line_rec.SERVICE_BILL_OPTION_CODE
1112 , l_line_rec.SERVICE_FIRST_PERIOD_AMOUNT
1113 , l_line_rec.SUBSCRIPTION_ENABLE_FLAG
1114 , l_line_rec.SERVICE_FIRST_PERIOD_ENDDATE
1115 );
1116
1117 IF l_debug_level > 0 THEN
1118 oe_debug_pub.add( 'SUCCESSFULLY INSERTED LINE HISTORY RECORD' ) ;
1119 END IF;
1120 x_return_status := FND_API.G_RET_STS_SUCCESS;
1121 OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
1122 OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
1123 -- oe_sales_can_util.G_REQUIRE_REASON := FALSE;
1124 EXCEPTION WHEN OTHERS THEN
1125 l_err_text := substr(SQLERRM,1,74);
1126 IF l_debug_level > 0 THEN
1127 oe_debug_pub.add( 'ERROR:'||L_ERR_TEXT , 5 ) ;
1128 oe_debug_pub.add( 'HIST_TYPE_CODE VALUE:' || P_HIST_TYPE_CODE , 5 ) ;
1129 oe_debug_pub.add( 'IN INNER EXCEPTION' , 5 ) ;
1130 END IF;
1131 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- nocopy analysis
1132 END;
1133 EXCEPTION
1134 -- to fix bug 2295947
1135 WHEN NO_DATA_FOUND THEN
1136 IF l_debug_level > 0 THEN
1137 oe_debug_pub.add( 'AUDIT HISTORY: DID NOT INSERT FOR LINE ID : '||P_LINE_ID , 1 ) ;
1138 oe_debug_pub.add( 'NO DATA FOUND ' , 1 ) ;
1139 END IF;
1140 NULL;
1141 x_return_status := FND_API.G_RET_STS_SUCCESS;
1142 WHEN OTHERS THEN
1143 l_err_text := substr(SQLERRM,1,74);
1144 IF l_debug_level > 0 THEN
1145 oe_debug_pub.add( 'ERROR:'||L_ERR_TEXT , 5 ) ;
1146 oe_debug_pub.add( 'IN OUTER EXCEPTION' , 5 ) ;
1147 oe_debug_pub.add( 'HIST_TYPE_CODE VALUE:' || P_HIST_TYPE_CODE , 5 ) ;
1148 END IF;
1149 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1150 FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME ,'RecordLineHist');
1151 END IF;
1152 IF l_debug_level > 0 THEN
1153 oe_debug_pub.add( 'ERROR WHILE INSERTING LINE HISTORY RECORD' ) ;
1154 END IF;
1155 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1156 END RecordLineHist;
1157
1158 Procedure RecordHeaderHist
1159 (p_header_id In Number
1160 ,p_header_rec In OE_ORDER_PUB.HEADER_REC_TYPE := OE_Order_PUB.G_MISS_HEADER_REC
1161 ,p_hist_type_code In Varchar2
1162 ,p_reason_code In varchar2
1163 ,p_comments IN Varchar2
1164 ,p_audit_flag IN Varchar2 := null
1165 ,p_version_flag IN Varchar2 := null
1166 ,p_phase_change_flag IN Varchar2 := null
1167 ,p_version_number IN NUMBER := null
1168 ,p_reason_id IN NUMBER := NULL
1169 ,p_wf_activity_code IN Varchar2 := null
1170 ,p_wf_result_code IN Varchar2 := null
1171 ,p_changed_attribute IN varchar2 := null
1172 ,x_return_status Out NOCOPY /* file.sql.39 change */ Varchar2
1173 ) IS
1174 l_header_rec OE_ORDER_PUB.HEADER_REC_TYPE := OE_Order_PUB.G_MISS_HEADER_REC;
1175 l_credit_card_number varchar2(10);
1176 l_credit_card_code varchar2(10);
1177 l_instrument_id number;
1178 l_credit_card_holder_name varchar2(10);
1179 l_credit_card_expiration_date date;
1180 --
1181 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1182 --
1183 BEGIN
1184
1185 if (p_header_rec.header_id is not null AND
1186 p_header_rec.header_id <> FND_API.G_MISS_NUM) then
1187 l_header_rec := p_header_rec;
1188 else
1189 -- query the header record
1190 l_header_rec := OE_HEADER_UTIL.Query_Row
1191 (p_header_id => p_header_id
1192 );
1193 end if;
1194 IF l_debug_level > 0 THEN
1195 oe_debug_pub.add( 'RECORDHEADERHIST:INSERT A ROW FOR HEADER ID : ' || TO_CHAR ( P_HEADER_ID ) ) ;
1196 END IF;
1197
1198
1199 -- for credit card orders, only instrument id is stored for credit card number
1200 -- and credit card code, need to set these two values to indicate the column
1201 -- instrument_id stores actual instrument_id, otherwise it stores the
1202 -- card history change id if other card attributes are being changed.
1203 IF l_header_rec.cc_instrument_id IS NOT NULL THEN
1204 -- store the instrument_id in column instruemnt_id
1205 -- if credit_card_number or credit_card_code is updated.
1206 l_instrument_id := l_header_rec.cc_instrument_id;
1207
1208 IF p_changed_attribute IS NOT NULL THEN
1209
1210 IF l_debug_level > 0 THEN
1211 oe_debug_pub.add( 'p_changed_attr is : ' || p_changed_attribute) ;
1212 END IF;
1213
1214 -- store the instrument_id in column instruemnt_id
1215 -- if credit_card_number or credit_card_code is updated.
1216 IF instr(p_changed_attribute, 'CREDIT_CARD_NUMBER') > 0 THEN
1217 l_credit_card_number := '****';
1218 END IF;
1219
1220 IF instr(p_changed_attribute, 'CREDIT_CARD_CODE') > 0 THEN
1221 l_credit_card_code := '****';
1222 END IF;
1223
1224 IF instr(p_changed_attribute, 'CREDIT_CARD_HOLDER_NAME') > 0 THEN
1225 l_credit_card_holder_name := '****';
1226 END IF;
1227
1228 IF instr(p_changed_attribute, 'CREDIT_CARD_EXPIRATION_DATE') > 0 THEN
1229 l_credit_card_expiration_date := sysdate;
1230 END IF;
1231
1232 -- need to store card_history_change_id in column instrument_id
1233 -- if credit_card_expiration_date or credit_card_holder_name is updated
1234
1235 IF l_credit_card_code IS NULL AND l_credit_card_number IS NULL THEN
1236 BEGIN
1237 SELECT max(card_history_change_id)
1238 INTO l_instrument_id
1239 FROM iby_creditcard_h
1240 WHERE instrid = l_header_rec.cc_instrument_id;
1241 EXCEPTION WHEN NO_DATA_FOUND THEN
1242 NULL;
1243 END;
1244
1245 END IF;
1246 ELSIF p_changed_attribute IS NULL THEN
1247 -- none of the credit card attributes has changed.
1248 l_credit_card_number := '****';
1249 l_credit_card_code := '****';
1250 l_credit_card_holder_name := '****';
1251 l_credit_card_expiration_date := sysdate;
1252
1253 END IF;
1254
1255 IF l_debug_level > 0 THEN
1256 oe_debug_pub.add( 'RECORDHEADERHIST:l_instrument_id is : ' || l_instrument_id) ;
1257 --oe_debug_pub.add( 'RECORDHEADERHIST:l_credit_card_code is : ' || l_credit_card_code) ;
1258 --oe_debug_pub.add( 'RECORDHEADERHIST:l_credit_card_number is : ' || l_credit_card_number) ;
1259 --oe_debug_pub.add( 'RECORDHEADERHIST:l_credit_card_holder_name is : ' || l_credit_card_holder_name) ;
1260 --oe_debug_pub.add( 'RECORDHEADERHIST:l_credit_card_expiration_date is : ' || l_credit_card_expiration_date) ;
1261 END IF;
1262 END IF;
1263
1264
1265 INSERT INTO OE_ORDER_HEADER_HISTORY
1266 (
1267 HEADER_ID ,
1268 ORG_ID ,
1269 ORDER_TYPE_ID ,
1270 ORDER_NUMBER ,
1271 VERSION_NUMBER ,
1272 EXPIRATION_DATE ,
1273 ORDER_SOURCE_ID ,
1274 SOURCE_DOCUMENT_TYPE_ID ,
1275 ORIG_SYS_DOCUMENT_REF ,
1276 SOURCE_DOCUMENT_ID ,
1277 ORDERED_DATE ,
1278 REQUEST_DATE ,
1279 PRICING_DATE ,
1280 PRICE_REQUEST_CODE , -- PROMOTIONS SEP/01
1281 SHIPMENT_PRIORITY_CODE ,
1282 DEMAND_CLASS_CODE ,
1283 PRICE_LIST_ID ,
1284 TAX_EXEMPT_FLAG ,
1285 TAX_EXEMPT_NUMBER ,
1286 TAX_EXEMPT_REASON_CODE ,
1287 CONVERSION_RATE ,
1288 CONVERSION_TYPE_CODE ,
1289 CONVERSION_RATE_DATE ,
1290 PARTIAL_SHIPMENTS_ALLOWED ,
1291 SHIP_TOLERANCE_ABOVE ,
1292 SHIP_TOLERANCE_BELOW ,
1293 TRANSACTIONAL_CURR_CODE ,
1294 AGREEMENT_ID ,
1295 TAX_POINT_CODE ,
1296 CUST_PO_NUMBER ,
1297 INVOICING_RULE_ID ,
1298 ACCOUNTING_RULE_ID ,
1299 ACCOUNTING_RULE_DURATION ,
1300 PAYMENT_TERM_ID ,
1301 SHIPPING_METHOD_CODE ,
1302 FREIGHT_CARRIER_CODE ,
1303 FOB_POINT_CODE ,
1304 FREIGHT_TERMS_CODE ,
1305 SOLD_FROM_ORG_ID ,
1306 SOLD_TO_ORG_ID ,
1307 SHIP_FROM_ORG_ID ,
1308 SHIP_TO_ORG_ID ,
1309 INVOICE_TO_ORG_ID ,
1310 DELIVER_TO_ORG_ID ,
1311 SOLD_TO_CONTACT_ID ,
1312 SHIP_TO_CONTACT_ID ,
1313 INVOICE_TO_CONTACT_ID ,
1314 DELIVER_TO_CONTACT_ID ,
1315 CREATION_DATE ,
1316 CREATED_BY ,
1317 LAST_UPDATED_BY ,
1318 LAST_UPDATE_DATE ,
1319 LAST_UPDATE_LOGIN ,
1320 PROGRAM_APPLICATION_ID ,
1321 PROGRAM_ID ,
1322 PROGRAM_UPDATE_DATE ,
1323 REQUEST_ID ,
1324 CONTEXT ,
1325 ATTRIBUTE1 ,
1326 ATTRIBUTE2 ,
1327 ATTRIBUTE3 ,
1328 ATTRIBUTE4 ,
1329 ATTRIBUTE5 ,
1330 ATTRIBUTE6 ,
1331 ATTRIBUTE7 ,
1332 ATTRIBUTE8 ,
1333 ATTRIBUTE9 ,
1334 ATTRIBUTE10 ,
1335 ATTRIBUTE11 ,
1336 ATTRIBUTE12 ,
1337 ATTRIBUTE13 ,
1338 ATTRIBUTE14 ,
1339 ATTRIBUTE15 ,
1340 ATTRIBUTE16 , -- for bug 2184255
1341 ATTRIBUTE17 ,
1342 ATTRIBUTE18 ,
1343 ATTRIBUTE19 ,
1344 ATTRIBUTE20 ,
1345 GLOBAL_ATTRIBUTE_CATEGORY ,
1346 GLOBAL_ATTRIBUTE1 ,
1347 GLOBAL_ATTRIBUTE2 ,
1348 GLOBAL_ATTRIBUTE3 ,
1349 GLOBAL_ATTRIBUTE4 ,
1350 GLOBAL_ATTRIBUTE5 ,
1351 GLOBAL_ATTRIBUTE6 ,
1352 GLOBAL_ATTRIBUTE7 ,
1353 GLOBAL_ATTRIBUTE8 ,
1354 GLOBAL_ATTRIBUTE9 ,
1355 GLOBAL_ATTRIBUTE10 ,
1356 GLOBAL_ATTRIBUTE11 ,
1357 GLOBAL_ATTRIBUTE12 ,
1358 GLOBAL_ATTRIBUTE13 ,
1359 GLOBAL_ATTRIBUTE14 ,
1360 GLOBAL_ATTRIBUTE15 ,
1361 GLOBAL_ATTRIBUTE16 ,
1362 GLOBAL_ATTRIBUTE17 ,
1363 GLOBAL_ATTRIBUTE18 ,
1364 GLOBAL_ATTRIBUTE19 ,
1365 GLOBAL_ATTRIBUTE20 ,
1366 CANCELLED_FLAG ,
1367 OPEN_FLAG ,
1368 BOOKED_FLAG ,
1369 SALESREP_ID ,
1370 RETURN_REASON_CODE ,
1371 ORDER_DATE_TYPE_CODE ,
1372 EARLIEST_SCHEDULE_LIMIT ,
1373 LATEST_SCHEDULE_LIMIT ,
1374 PAYMENT_TYPE_CODE ,
1375 PAYMENT_AMOUNT ,
1376 CHECK_NUMBER ,
1377 CREDIT_CARD_NUMBER ,
1378 CREDIT_CARD_CODE ,
1379 CREDIT_CARD_HOLDER_NAME ,
1380 CREDIT_CARD_EXPIRATION_DATE,
1381 /* R12 CC encryption
1382 CREDIT_CARD_CODE ,
1383 CREDIT_CARD_HOLDER_NAME ,
1384 CREDIT_CARD_NUMBER ,
1385 CREDIT_CARD_EXPIRATION_DATE,
1386 CREDIT_CARD_APPROVAL_CODE ,
1387 */
1388 SALES_CHANNEL_CODE ,
1389 FIRST_ACK_CODE ,
1390 FIRST_ACK_DATE ,
1391 LAST_ACK_CODE ,
1392 LAST_ACK_DATE ,
1393 ORDER_CATEGORY_CODE ,
1394 CHANGE_SEQUENCE ,
1395 SHIPPING_INSTRUCTIONS ,
1396 PACKING_INSTRUCTIONS ,
1397 TP_CONTEXT ,
1398 TP_ATTRIBUTE1 ,
1399 TP_ATTRIBUTE2 ,
1400 TP_ATTRIBUTE3 ,
1401 TP_ATTRIBUTE4 ,
1402 TP_ATTRIBUTE5 ,
1403 TP_ATTRIBUTE6 ,
1404 TP_ATTRIBUTE7 ,
1405 TP_ATTRIBUTE8 ,
1406 TP_ATTRIBUTE9 ,
1407 TP_ATTRIBUTE10 ,
1408 TP_ATTRIBUTE11 ,
1409 TP_ATTRIBUTE12 ,
1410 TP_ATTRIBUTE13 ,
1411 TP_ATTRIBUTE14 ,
1412 TP_ATTRIBUTE15 ,
1413 FLOW_STATUS_CODE ,
1414 MARKETING_SOURCE_CODE_ID ,
1415 -- CREDIT_CARD_APPROVAL_DATE ,
1416 UPGRADED_FLAG ,
1417 CUSTOMER_PREFERENCE_SET_CODe,
1418 BOOKED_DATE ,
1419 BLANKET_NUMBER ,
1420 -- QUOTING changes
1421 quote_date,
1422 quote_number,
1423 sales_document_name,
1424 transaction_phase_code,
1425 user_status_code,
1426 draft_submitted_flag,
1427 source_document_version_number,
1428 sold_to_site_use_id,
1429 -- QUOTING changes END
1430 REASON_CODE ,
1431 HIST_COMMENTS ,
1432 HIST_TYPE_CODE ,
1433 HIST_CREATION_DATE ,
1434 HIST_CREATED_BY ,
1435 RESPONSIBILITY_ID ,
1436 --VERSIONING Changes
1437 AUDIT_FLAG ,
1438 VERSION_FLAG,
1439 PHASE_CHANGE_FLAG,
1440 REASON_ID ,
1441 --VERSIONING Changes END
1442 order_firmed_date , -- key transaction dates
1443 instrument_id -- R12 CC Encryption
1444 )
1445 VALUES
1446 (
1447 l_header_rec.header_id ,
1448 l_header_rec.org_id ,
1449 l_header_rec.order_type_id ,
1450 l_header_rec.order_number ,
1451 nvl(p_version_number, l_header_rec.version_number) ,
1452 l_header_rec.expiration_date ,
1453 l_header_rec.order_source_id ,
1454 l_header_rec.source_document_type_id ,
1455 l_header_rec.orig_sys_document_ref ,
1456 l_header_rec.source_document_id ,
1457 l_header_rec.ordered_date ,
1458 l_header_rec.request_date ,
1459 l_header_rec.pricing_date ,
1460 l_header_rec.price_request_code , -- PROMOTIONS SEP/01
1461 l_header_rec.shipment_priority_code ,
1462 l_header_rec.demand_class_code ,
1463 l_header_rec.price_list_id ,
1464 l_header_rec.tax_exempt_flag ,
1465 l_header_rec.tax_exempt_number ,
1466 l_header_rec.tax_exempt_reason_code ,
1467 l_header_rec.conversion_rate ,
1468 l_header_rec.conversion_type_code ,
1469 l_header_rec.conversion_rate_date ,
1470 l_header_rec.partial_shipments_allowed ,
1471 l_header_rec.ship_tolerance_above ,
1472 l_header_rec.ship_tolerance_below ,
1473 l_header_rec.transactional_curr_code ,
1474 l_header_rec.agreement_id ,
1475 l_header_rec.tax_point_code ,
1476 l_header_rec.cust_po_number ,
1477 l_header_rec.invoicing_rule_id ,
1478 l_header_rec.accounting_rule_id ,
1479 l_header_rec.accounting_rule_duration ,
1480 l_header_rec.payment_term_id ,
1481 l_header_rec.shipping_method_code ,
1482 l_header_rec.freight_carrier_code ,
1483 l_header_rec.fob_point_code ,
1484 l_header_rec.freight_terms_code ,
1485 l_header_rec.sold_from_org_id ,
1486 l_header_rec.sold_to_org_id ,
1487 l_header_rec.ship_from_org_id ,
1488 l_header_rec.ship_to_org_id ,
1489 l_header_rec.invoice_to_org_id ,
1490 l_header_rec.deliver_to_org_id ,
1491 l_header_rec.sold_to_contact_id ,
1492 l_header_rec.ship_to_contact_id ,
1493 l_header_rec.invoice_to_contact_id ,
1494 l_header_rec.deliver_to_contact_id ,
1495 l_header_rec.creation_date ,
1496 l_header_rec.created_by ,
1497 l_header_rec.last_updated_by ,
1498 l_header_rec.last_update_date ,
1499 l_header_rec.last_update_login ,
1500 l_header_rec.program_application_id ,
1501 l_header_rec.program_id ,
1502 l_header_rec.program_update_date ,
1503 l_header_rec.request_id ,
1504 l_header_rec.context ,
1505 l_header_rec.attribute1 ,
1506 l_header_rec.attribute2 ,
1507 l_header_rec.attribute3 ,
1508 l_header_rec.attribute4 ,
1509 l_header_rec.attribute5 ,
1510 l_header_rec.attribute6 ,
1511 l_header_rec.attribute7 ,
1512 l_header_rec.attribute8 ,
1513 l_header_rec.attribute9 ,
1514 l_header_rec.attribute10 ,
1515 l_header_rec.attribute11 ,
1516 l_header_rec.attribute12 ,
1517 l_header_rec.attribute13 ,
1518 l_header_rec.attribute14 ,
1519 l_header_rec.attribute15 ,
1520 l_header_rec.attribute16 , -- for bug 2184255
1521 l_header_rec.attribute17 ,
1522 l_header_rec.attribute18 ,
1523 l_header_rec.attribute19 ,
1524 l_header_rec.attribute20 ,
1525 l_header_rec.global_attribute_category ,
1526 l_header_rec.global_attribute1 ,
1527 l_header_rec.global_attribute2 ,
1528 l_header_rec.global_attribute3 ,
1529 l_header_rec.global_attribute4 ,
1530 l_header_rec.global_attribute5 ,
1531 l_header_rec.global_attribute6 ,
1532 l_header_rec.global_attribute7 ,
1533 l_header_rec.global_attribute8 ,
1534 l_header_rec.global_attribute9 ,
1535 l_header_rec.global_attribute10 ,
1536 l_header_rec.global_attribute11 ,
1537 l_header_rec.global_attribute12 ,
1538 l_header_rec.global_attribute13 ,
1539 l_header_rec.global_attribute14 ,
1540 l_header_rec.global_attribute15 ,
1541 l_header_rec.global_attribute16 ,
1542 l_header_rec.global_attribute17 ,
1543 l_header_rec.global_attribute18 ,
1544 l_header_rec.global_attribute19 ,
1545 l_header_rec.global_attribute20 ,
1546 l_header_rec.cancelled_flag ,
1547 l_header_rec.open_flag ,
1548 l_header_rec.booked_flag ,
1549 l_header_rec.salesrep_id ,
1550 l_header_rec.return_reason_code ,
1551 l_header_rec.order_date_type_code ,
1552 l_header_rec.earliest_schedule_limit ,
1553 l_header_rec.latest_schedule_limit ,
1554 l_header_rec.payment_type_code ,
1555 l_header_rec.payment_amount ,
1556 l_header_rec.check_number ,
1557 l_credit_card_number ,
1558 l_credit_card_code ,
1559 l_credit_card_holder_name ,
1560 l_credit_card_expiration_date ,
1561 /*
1562 l_header_rec.credit_card_code ,
1563 l_header_rec.credit_card_holder_name ,
1564 l_header_rec.credit_card_number ,
1565 l_header_rec.credit_card_expiration_date,
1566 l_header_rec.credit_card_approval_code ,
1567 */
1568 l_header_rec.sales_channel_code ,
1569 l_header_rec.first_ack_code ,
1570 l_header_rec.first_ack_date ,
1571 l_header_rec.last_ack_code ,
1572 l_header_rec.last_ack_date ,
1573 l_header_rec.order_category_code ,
1574 l_header_rec.change_sequence ,
1575 l_header_rec.shipping_instructions ,
1576 l_header_rec.packing_instructions ,
1577 l_header_rec.tp_context ,
1578 l_header_rec.tp_attribute1 ,
1579 l_header_rec.tp_attribute2 ,
1580 l_header_rec.tp_attribute3 ,
1581 l_header_rec.tp_attribute4 ,
1582 l_header_rec.tp_attribute5 ,
1583 l_header_rec.tp_attribute6 ,
1584 l_header_rec.tp_attribute7 ,
1585 l_header_rec.tp_attribute8 ,
1586 l_header_rec.tp_attribute9 ,
1587 l_header_rec.tp_attribute10 ,
1588 l_header_rec.tp_attribute11 ,
1589 l_header_rec.tp_attribute12 ,
1590 l_header_rec.tp_attribute13 ,
1591 l_header_rec.tp_attribute14 ,
1592 l_header_rec.tp_attribute15 ,
1593 l_header_rec.flow_status_code ,
1594 l_header_rec.marketing_source_code_id ,
1595 -- l_header_rec.credit_card_approval_date ,
1596 l_header_rec.upgraded_flag ,
1597 l_header_rec.customer_preference_set_code,
1598 l_header_rec.booked_date ,
1599 l_header_rec.blanket_number ,
1600 -- QUOTING changes
1601 l_header_rec.quote_date,
1602 l_header_rec.quote_number,
1603 l_header_rec.sales_document_name,
1604 l_header_rec.transaction_phase_code,
1605 l_header_rec.user_status_code,
1606 l_header_rec.draft_submitted_flag,
1607 l_header_rec.source_document_version_number,
1608 l_header_rec.sold_to_site_use_id,
1609 -- QUOTING changes END
1610 p_reason_code,
1611 p_comments,
1612 P_HIST_TYPE_CODE,
1613 sysdate,
1614 nvl(FND_GLOBAL.USER_ID, -1),
1615 nvl(FND_GLOBAL.RESP_ID, -1),
1616 --VERSIONING Changes
1617 p_AUDIT_FLAG,
1618 p_version_flag,
1619 p_phase_change_flag,
1620 p_reason_id ,
1621 --VERSIONING Changes END
1622 --key transaction dates
1623 l_header_rec.Order_firmed_date,
1624 l_instrument_id
1625
1626 );
1627
1628 x_return_status := FND_API.G_RET_STS_SUCCESS;
1629 OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
1630 OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
1631 IF l_debug_level > 0 THEN
1632 oe_debug_pub.add( 'EXITING RECORDHEADERHIST' ) ;
1633 END IF;
1634
1635 EXCEPTION
1636 WHEN OTHERS THEN
1637 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1638 FND_MSG_PUB.Add_Exc_Msg
1639 (G_PKG_NAME
1640 ,'RecordHeaderHist');
1641 END IF;
1642 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1643 END RecordHeaderHist;
1644
1645 Procedure RecordHSCreditHist
1646 (p_header_scredit_id In Number
1647 ,p_header_scredit_rec In OE_ORDER_PUB.HEADER_SCREDIT_REC_TYPE
1648 := OE_Order_PUB.G_MISS_HEADER_SCREDIT_REC
1649 ,p_hist_type_code In Varchar2
1650 ,p_reason_code In varchar2
1651 ,p_comments IN Varchar2
1652 ,p_audit_flag IN Varchar2 := null
1653 ,p_version_flag IN Varchar2 := null
1654 ,p_phase_change_flag IN Varchar2 := null
1655 ,p_version_number IN NUMBER := null
1656 ,p_reason_id IN NUMBER := NULL
1657 ,p_wf_activity_code IN Varchar2 := null
1658 ,p_wf_result_code IN Varchar2 := null
1659 ,x_return_status Out NOCOPY /* file.sql.39 change */ Varchar2
1660 ) IS
1661 l_header_scredit_rec OE_ORDER_PUB.HEADER_SCREDIT_REC_TYPE := OE_Order_PUB.G_MISS_HEADER_SCREDIT_REC;
1662
1663 --
1664 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1665 --
1666 BEGIN
1667
1668 IF l_debug_level > 0 THEN
1669 oe_debug_pub.add( 'ENTERING RECORDHSCREDITHIST' ) ;
1670 END IF;
1671
1672 -- JPN: Added the G_MISS_NUM check before inserting the history record.
1673 if (p_header_scredit_rec.sales_credit_id is not null AND
1674 p_header_scredit_rec.sales_credit_id <> FND_API.G_MISS_NUM) then
1675 l_header_scredit_rec := p_header_scredit_rec;
1676 else
1677 -- query the header record
1678 OE_HEADER_SCREDIT_UTIL.Query_Row
1679 (p_sales_credit_id => p_header_scredit_id,
1680 x_header_scredit_rec => l_header_scredit_rec
1681 );
1682 end if;
1683 IF l_debug_level > 0 THEN
1684 oe_debug_pub.add( 'RECORDHSCREDITHIST:INSERT A ROW FOR P_HEADER_SCREDIT_ID :' || TO_CHAR ( P_HEADER_SCREDIT_ID ) ) ;
1685 END IF;
1686
1687 INSERT INTO OE_SALES_CREDIT_HISTORY
1688 (
1689 SALES_CREDIT_ID ,
1690 CREATION_DATE ,
1691 CREATED_BY ,
1692 LAST_UPDATE_DATE ,
1693 LAST_UPDATED_BY ,
1694 LAST_UPDATE_LOGIN ,
1695 HEADER_ID ,
1696 SALESREP_ID ,
1697 PERCENT ,
1698 LINE_ID ,
1699 CONTEXT ,
1700 ATTRIBUTE1 ,
1701 ATTRIBUTE2 ,
1702 ATTRIBUTE3 ,
1703 ATTRIBUTE4 ,
1704 ATTRIBUTE5 ,
1705 ATTRIBUTE6 ,
1706 ATTRIBUTE7 ,
1707 ATTRIBUTE8 ,
1708 ATTRIBUTE9 ,
1709 ATTRIBUTE10 ,
1710 ATTRIBUTE11 ,
1711 ATTRIBUTE12 ,
1712 ATTRIBUTE13 ,
1713 ATTRIBUTE14 ,
1714 ATTRIBUTE15 ,
1718 SALES_CREDIT_TYPE_ID ,
1715 DW_UPDATE_ADVICE_FLAG ,
1716 WH_UPDATE_DATE ,
1717 ORIG_SYS_CREDIT_REF ,
1719 REASON_CODE ,
1720 HIST_COMMENTS ,
1721 HIST_TYPE_CODE ,
1722 HIST_CREATION_DATE ,
1723 HIST_CREATED_BY ,
1724 RESPONSIBILITY_ID,
1725 --VERSIONING Changes
1726 AUDIT_FLAG,
1727 VERSION_FLAG,
1728 PHASE_CHANGE_FLAG,
1729 VERSION_NUMBER,
1730 REASON_ID
1731 --VERSIONING Changes END
1732 )
1733 VALUES
1734 (
1735 l_header_scredit_rec.SALES_CREDIT_ID ,
1736 l_header_scredit_rec.CREATION_DATE ,
1737 l_header_scredit_rec.CREATED_BY ,
1738 l_header_scredit_rec.LAST_UPDATE_DATE ,
1739 l_header_scredit_rec.LAST_UPDATED_BY ,
1740 l_header_scredit_rec.LAST_UPDATE_LOGIN ,
1741 l_header_scredit_rec.HEADER_ID ,
1742 l_header_scredit_rec.SALESREP_ID ,
1743 l_header_scredit_rec.PERCENT ,
1744 null,
1745 l_header_scredit_rec.CONTEXT ,
1746 l_header_scredit_rec.ATTRIBUTE1 ,
1747 l_header_scredit_rec.ATTRIBUTE2 ,
1748 l_header_scredit_rec.ATTRIBUTE3 ,
1749 l_header_scredit_rec.ATTRIBUTE4 ,
1750 l_header_scredit_rec.ATTRIBUTE5 ,
1751 l_header_scredit_rec.ATTRIBUTE6 ,
1752 l_header_scredit_rec.ATTRIBUTE7 ,
1753 l_header_scredit_rec.ATTRIBUTE8 ,
1754 l_header_scredit_rec.ATTRIBUTE9 ,
1755 l_header_scredit_rec.ATTRIBUTE10 ,
1756 l_header_scredit_rec.ATTRIBUTE11 ,
1757 l_header_scredit_rec.ATTRIBUTE12 ,
1758 l_header_scredit_rec.ATTRIBUTE13 ,
1759 l_header_scredit_rec.ATTRIBUTE14 ,
1760 l_header_scredit_rec.ATTRIBUTE15 ,
1761 l_header_scredit_rec.DW_UPDATE_ADVICE_FLAG ,
1762 l_header_scredit_rec.WH_UPDATE_DATE ,
1763 l_header_scredit_rec.ORIG_SYS_CREDIT_REF ,
1764 l_header_scredit_rec.SALES_CREDIT_TYPE_ID ,
1765 p_reason_code,
1766 p_comments,
1767 P_HIST_TYPE_CODE,
1768 sysdate,
1769 nvl(FND_GLOBAL.USER_ID, -1),
1770 nvl(FND_GLOBAL.RESP_ID, -1),
1771 --VERSIONING Changes
1772 p_AUDIT_FLAG,
1773 p_version_flag,
1774 p_phase_change_flag,
1775 p_version_number,
1776 p_reason_id
1777 --VERSIONING Changes END
1778 );
1779 x_return_status := FND_API.G_RET_STS_SUCCESS;
1780 OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
1781 OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
1782 IF l_debug_level > 0 THEN
1783 oe_debug_pub.add( 'EXITING RECORDHSCREDITHIST' ) ;
1784 END IF;
1785
1786 EXCEPTION
1787 WHEN OTHERS THEN
1788 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1789 FND_MSG_PUB.Add_Exc_Msg
1790 (G_PKG_NAME
1791 ,'RecordHSCreditHist');
1792 END IF;
1793 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794 END RecordHSCreditHist;
1795
1796 Procedure RecordLSCreditHist
1797 (p_line_scredit_id In Number
1798 ,p_line_scredit_rec In OE_ORDER_PUB.LINE_SCREDIT_REC_TYPE
1799 := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC
1800 ,p_hist_type_code In Varchar2
1801 ,p_reason_code In varchar2
1802 ,p_comments IN Varchar2
1803 ,p_audit_flag IN Varchar2 := null
1804 ,p_version_flag IN Varchar2 := null
1805 ,p_phase_change_flag IN Varchar2 := null
1806 ,p_version_number IN NUMBER := null
1807 ,p_reason_id IN NUMBER := NULL
1808 ,p_wf_activity_code IN Varchar2 := null
1809 ,p_wf_result_code IN Varchar2 := null
1810 ,x_return_status Out NOCOPY /* file.sql.39 change */ Varchar2
1811 ) IS
1812 l_line_scredit_rec OE_ORDER_PUB.LINE_SCREDIT_REC_TYPE := OE_Order_PUB.G_MISS_LINE_SCREDIT_REC;
1813 --
1814 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1815 --
1816 BEGIN
1817 IF l_debug_level > 0 THEN
1818 oe_debug_pub.add( 'ENTERING RECORDLSCREDITHIST' ) ;
1819 END IF;
1820
1821 -- JPN: Added the G_MISS_NUM check before inserting the history record.
1822 if (p_line_scredit_rec.sales_credit_id is not null AND
1823 p_line_scredit_rec.sales_credit_id <> FND_API.G_MISS_NUM) then
1824 l_line_scredit_rec := p_line_scredit_rec;
1825 else
1826 -- query the header record
1827 OE_LINE_SCREDIT_UTIL.Query_Row
1828 (p_sales_credit_id => p_line_scredit_id,
1829 x_line_scredit_rec => l_line_scredit_rec
1830 );
1831 end if;
1832 IF l_debug_level > 0 THEN
1833 oe_debug_pub.add( 'RECORDLSCREDITHIST:INSERT A ROW FOR P_LINE_SCREDIT_ID :' || TO_CHAR ( P_LINE_SCREDIT_ID ) ) ;
1834 END IF;
1835
1836
1837 INSERT INTO OE_SALES_CREDIT_HISTORY
1838 (
1839 SALES_CREDIT_ID ,
1840 CREATION_DATE ,
1841 CREATED_BY ,
1842 LAST_UPDATE_DATE ,
1843 LAST_UPDATED_BY ,
1844 LAST_UPDATE_LOGIN ,
1845 HEADER_ID ,
1846 SALESREP_ID ,
1847 PERCENT ,
1848 LINE_ID ,
1849 CONTEXT ,
1850 ATTRIBUTE1 ,
1851 ATTRIBUTE2 ,
1852 ATTRIBUTE3 ,
1853 ATTRIBUTE4 ,
1854 ATTRIBUTE5 ,
1855 ATTRIBUTE6 ,
1856 ATTRIBUTE7 ,
1857 ATTRIBUTE8 ,
1858 ATTRIBUTE9 ,
1859 ATTRIBUTE10 ,
1860 ATTRIBUTE11 ,
1864 ATTRIBUTE15 ,
1861 ATTRIBUTE12 ,
1862 ATTRIBUTE13 ,
1863 ATTRIBUTE14 ,
1865 DW_UPDATE_ADVICE_FLAG ,
1866 WH_UPDATE_DATE ,
1867 ORIG_SYS_CREDIT_REF ,
1868 SALES_CREDIT_TYPE_ID ,
1869 REASON_CODE ,
1870 HIST_COMMENTS ,
1871 HIST_TYPE_CODE ,
1872 HIST_CREATION_DATE ,
1873 HIST_CREATED_BY ,
1874 RESPONSIBILITY_ID ,
1875 --VERSIONING Changes
1876 AUDIT_FLAG ,
1877 VERSION_FLAG ,
1878 PHASE_CHANGE_FLAG ,
1879 VERSION_NUMBER,
1880 REASON_ID
1881 --VERSIONING Changes END
1882 )
1883 VALUES
1884 (
1885 l_line_scredit_rec.SALES_CREDIT_ID ,
1886 l_line_scredit_rec.CREATION_DATE ,
1887 l_line_scredit_rec.CREATED_BY ,
1888 l_line_scredit_rec.LAST_UPDATE_DATE ,
1889 l_line_scredit_rec.LAST_UPDATED_BY ,
1890 l_line_scredit_rec.LAST_UPDATE_LOGIN ,
1891 l_line_scredit_rec.HEADER_ID ,
1892 l_line_scredit_rec.SALESREP_ID ,
1893 l_line_scredit_rec.PERCENT ,
1894 l_line_scredit_rec.LINE_ID ,
1895 l_line_scredit_rec.CONTEXT ,
1896 l_line_scredit_rec.ATTRIBUTE1 ,
1897 l_line_scredit_rec.ATTRIBUTE2 ,
1898 l_line_scredit_rec.ATTRIBUTE3 ,
1899 l_line_scredit_rec.ATTRIBUTE4 ,
1900 l_line_scredit_rec.ATTRIBUTE5 ,
1901 l_line_scredit_rec.ATTRIBUTE6 ,
1902 l_line_scredit_rec.ATTRIBUTE7 ,
1903 l_line_scredit_rec.ATTRIBUTE8 ,
1904 l_line_scredit_rec.ATTRIBUTE9 ,
1905 l_line_scredit_rec.ATTRIBUTE10 ,
1906 l_line_scredit_rec.ATTRIBUTE11 ,
1907 l_line_scredit_rec.ATTRIBUTE12 ,
1908 l_line_scredit_rec.ATTRIBUTE13 ,
1909 l_line_scredit_rec.ATTRIBUTE14 ,
1910 l_line_scredit_rec.ATTRIBUTE15 ,
1911 l_line_scredit_rec.DW_UPDATE_ADVICE_FLAG ,
1912 l_line_scredit_rec.WH_UPDATE_DATE ,
1913 l_line_scredit_rec.ORIG_SYS_CREDIT_REF ,
1914 l_line_scredit_rec.SALES_CREDIT_TYPE_ID ,
1915 p_reason_code,
1916 p_comments,
1917 P_HIST_TYPE_CODE ,
1918 sysdate ,
1919 nvl(FND_GLOBAL.USER_ID, -1) ,
1920 nvl(FND_GLOBAL.RESP_ID, -1),
1921 --VERSIONING Changes
1922 p_AUDIT_FLAG,
1923 p_version_flag,
1924 p_phase_change_flag,
1925 p_version_number,
1926 p_reason_id
1927 --VERSIONING Changes END
1928 );
1929
1930 OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
1931 OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
1932 x_return_status := FND_API.G_RET_STS_SUCCESS;
1933 IF l_debug_level > 0 THEN
1934 oe_debug_pub.add( 'EXITING RECORDLSCREDITHIST' ) ;
1935 END IF;
1936
1937 EXCEPTION
1938 WHEN OTHERS THEN
1939 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1940 FND_MSG_PUB.Add_Exc_Msg
1941 (G_PKG_NAME
1942 ,'RecordLSCreditHist');
1943 END IF;
1944 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945 END RecordLSCreditHist;
1946
1947 Procedure RecordHPAdjHist
1948 (p_header_adj_id In Number
1949 ,p_header_adj_rec In OE_ORDER_PUB.HEADER_ADJ_REC_TYPE
1950 := OE_Order_PUB.G_MISS_HEADER_ADJ_REC
1951 ,p_hist_type_code In Varchar2
1952 ,p_reason_code In varchar2
1953 ,p_comments IN Varchar2
1954 ,p_audit_flag IN Varchar2 := null
1955 ,p_version_flag IN Varchar2 := null
1956 ,p_phase_change_flag IN Varchar2 := null
1957 ,p_version_number IN NUMBER := null
1958 ,p_reason_id IN NUMBER := NULL
1959 ,p_wf_activity_code IN Varchar2 := null
1960 ,p_wf_result_code IN Varchar2 := null
1961 ,x_return_status Out NOCOPY /* file.sql.39 change */ Varchar2
1962 ) IS
1963 l_header_adj_rec OE_ORDER_PUB.HEADER_ADJ_REC_TYPE := OE_Order_PUB.G_MISS_HEADER_ADJ_REC;
1964 --
1965 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1966 --
1967 BEGIN
1968
1969 IF l_debug_level > 0 THEN
1970 oe_debug_pub.add( 'ENTERING RECORDHPADJHIST' ) ;
1971 END IF;
1972
1973 if (p_header_adj_rec.price_adjustment_id is not null AND
1974 p_header_adj_rec.price_adjustment_id <> FND_API.G_MISS_NUM) then
1975 l_header_adj_rec := p_header_adj_rec;
1976 else
1977 -- query the header record
1978 OE_HEADER_ADJ_UTIL.Query_Row
1979 (p_price_adjustment_id => p_header_adj_id,
1980 x_header_adj_rec => l_header_adj_rec
1981 );
1982 end if;
1983 IF l_debug_level > 0 THEN
1984 oe_debug_pub.add( 'RECORDHPADJHIST:INSERT A ROW FOR P_HEADER_ADJ_ID :' || TO_CHAR ( P_HEADER_ADJ_ID ) ) ;
1985 END IF;
1986
1987 INSERT INTO OE_PRICE_ADJS_HISTORY
1988 (
1989 PRICE_ADJUSTMENT_ID ,
1990 CREATION_DATE ,
1991 CREATED_BY ,
1992 LAST_UPDATE_DATE ,
1993 LAST_UPDATED_BY ,
1994 LAST_UPDATE_LOGIN ,
1995 PROGRAM_APPLICATION_ID ,
1996 PROGRAM_ID ,
1997 PROGRAM_UPDATE_DATE ,
1998 REQUEST_ID ,
1999 HEADER_ID ,
2000 DISCOUNT_ID ,
2001 DISCOUNT_LINE_ID ,
2002 AUTOMATIC_FLAG ,
2003 PERCENT ,
2004 LINE_ID ,
2005 CONTEXT ,
2006 ATTRIBUTE1 ,
2007 ATTRIBUTE2 ,
2008 ATTRIBUTE3 ,
2009 ATTRIBUTE4 ,
2010 ATTRIBUTE5 ,
2011 ATTRIBUTE6 ,
2012 ATTRIBUTE7 ,
2013 ATTRIBUTE8 ,
2014 ATTRIBUTE9 ,
2015 ATTRIBUTE10 ,
2016 ATTRIBUTE11 ,
2017 ATTRIBUTE12 ,
2018 ATTRIBUTE13 ,
2019 ATTRIBUTE14 ,
2020 ATTRIBUTE15 ,
2021 ORIG_SYS_DISCOUNT_REF ,
2022 LIST_HEADER_ID ,
2023 LIST_LINE_ID ,
2024 LIST_LINE_TYPE_CODE ,
2025 MODIFIED_FROM ,
2026 MODIFIED_TO ,
2027 UPDATE_ALLOWED ,
2028 CHANGE_REASON_CODE ,
2029 CHANGE_REASON_TEXT ,
2030 MODIFIER_MECHANISM_TYPE_CODE,
2031 UPDATED_FLAG ,
2032 APPLIED_FLAG ,
2033 OPERAND ,
2034 ARITHMETIC_OPERATOR ,
2035 COST_ID ,
2036 TAX_CODE ,
2037 TAX_EXEMPT_FLAG ,
2038 TAX_EXEMPT_NUMBER ,
2039 TAX_EXEMPT_REASON_CODE ,
2040 PARENT_ADJUSTMENT_ID ,
2041 INVOICED_FLAG ,
2042 ESTIMATED_FLAG ,
2043 INC_IN_SALES_PERFORMANCE ,
2044 SPLIT_ACTION_CODE ,
2045 ADJUSTED_AMOUNT ,
2046 PRICING_PHASE_ID ,
2047 CHARGE_TYPE_CODE ,
2048 CHARGE_SUBTYPE_CODE ,
2049 RANGE_BREAK_QUANTITY ,
2050 ACCRUAL_CONVERSION_RATE ,
2051 PRICING_GROUP_SEQUENCE ,
2052 ACCRUAL_FLAG ,
2053 LIST_LINE_NO ,
2054 SOURCE_SYSTEM_CODE ,
2055 BENEFIT_QTY ,
2056 BENEFIT_UOM_CODE ,
2057 PRINT_ON_INVOICE_FLAG ,
2058 EXPIRATION_DATE ,
2059 REBATE_TRANSACTION_TYPE_CODE,
2060 REBATE_TRANSACTION_REFERENCE,
2061 REBATE_PAYMENT_SYSTEM_CODE ,
2062 REDEEMED_DATE ,
2063 REDEEMED_FLAG ,
2064 MODIFIER_LEVEL_CODE ,
2065 PRICE_BREAK_TYPE_CODE ,
2066 SUBSTITUTION_ATTRIBUTE ,
2067 PRORATION_TYPE_CODE ,
2068 INCLUDE_ON_RETURNS_FLAG ,
2069 CREDIT_OR_CHARGE_FLAG ,
2070 AC_CONTEXT ,
2071 AC_ATTRIBUTE1 ,
2072 AC_ATTRIBUTE2 ,
2073 AC_ATTRIBUTE3 ,
2074 AC_ATTRIBUTE4 ,
2075 AC_ATTRIBUTE5 ,
2076 AC_ATTRIBUTE6 ,
2077 AC_ATTRIBUTE7 ,
2078 AC_ATTRIBUTE8 ,
2079 AC_ATTRIBUTE9 ,
2080 AC_ATTRIBUTE10 ,
2081 AC_ATTRIBUTE11 ,
2082 AC_ATTRIBUTE12 ,
2083 AC_ATTRIBUTE13 ,
2084 AC_ATTRIBUTE14 ,
2085 AC_ATTRIBUTE15 ,
2086 HIST_TYPE_CODE ,
2087 HIST_CREATION_DATE ,
2088 HIST_CREATED_BY ,
2089 RESPONSIBILITY_ID ,
2090 --VERSIONING Changes
2091 AUDIT_FLAG ,
2092 VERSION_FLAG ,
2093 PHASE_CHANGE_FLAG ,
2094 VERSION_NUMBER ,
2095 REASON_ID
2096 --VERSIONING Changes END
2097 )
2098 VALUES
2099 (
2100 l_header_adj_rec.PRICE_ADJUSTMENT_ID ,
2101 l_header_adj_rec.CREATION_DATE ,
2102 l_header_adj_rec.CREATED_BY ,
2103 l_header_adj_rec.LAST_UPDATE_DATE ,
2104 l_header_adj_rec.LAST_UPDATED_BY ,
2105 l_header_adj_rec.LAST_UPDATE_LOGIN ,
2106 l_header_adj_rec.PROGRAM_APPLICATION_ID ,
2107 l_header_adj_rec.PROGRAM_ID ,
2108 l_header_adj_rec.PROGRAM_UPDATE_DATE ,
2109 l_header_adj_rec.REQUEST_ID ,
2110 l_header_adj_rec.HEADER_ID ,
2111 l_header_adj_rec.DISCOUNT_ID ,
2112 l_header_adj_rec.DISCOUNT_LINE_ID ,
2113 l_header_adj_rec.AUTOMATIC_FLAG ,
2114 l_header_adj_rec.PERCENT ,
2115 null , --l_header_adj_rec.LINE_ID
2116 l_header_adj_rec.CONTEXT ,
2117 l_header_adj_rec.ATTRIBUTE1 ,
2118 l_header_adj_rec.ATTRIBUTE2 ,
2119 l_header_adj_rec.ATTRIBUTE3 ,
2120 l_header_adj_rec.ATTRIBUTE4 ,
2121 l_header_adj_rec.ATTRIBUTE5 ,
2122 l_header_adj_rec.ATTRIBUTE6 ,
2123 l_header_adj_rec.ATTRIBUTE7 ,
2124 l_header_adj_rec.ATTRIBUTE8 ,
2125 l_header_adj_rec.ATTRIBUTE9 ,
2126 l_header_adj_rec.ATTRIBUTE10 ,
2127 l_header_adj_rec.ATTRIBUTE11 ,
2128 l_header_adj_rec.ATTRIBUTE12 ,
2129 l_header_adj_rec.ATTRIBUTE13 ,
2130 l_header_adj_rec.ATTRIBUTE14 ,
2131 l_header_adj_rec.ATTRIBUTE15 ,
2132 l_header_adj_rec.ORIG_SYS_DISCOUNT_REF ,
2133 l_header_adj_rec.LIST_HEADER_ID ,
2134 l_header_adj_rec.LIST_LINE_ID ,
2135 l_header_adj_rec.LIST_LINE_TYPE_CODE ,
2136 l_header_adj_rec.MODIFIED_FROM ,
2137 l_header_adj_rec.MODIFIED_TO ,
2138 l_header_adj_rec.UPDATE_ALLOWED ,
2139 p_reason_code ,
2140 p_comments ,
2141 l_header_adj_rec.MODIFIER_MECHANISM_TYPE_CODE,
2142 l_header_adj_rec.UPDATED_FLAG ,
2143 l_header_adj_rec.APPLIED_FLAG ,
2144 l_header_adj_rec.OPERAND ,
2145 l_header_adj_rec.ARITHMETIC_OPERATOR ,
2146 l_header_adj_rec.COST_ID ,
2147 l_header_adj_rec.TAX_CODE ,
2148 l_header_adj_rec.TAX_EXEMPT_FLAG ,
2149 l_header_adj_rec.TAX_EXEMPT_NUMBER ,
2150 l_header_adj_rec.TAX_EXEMPT_REASON_CODE ,
2151 l_header_adj_rec.PARENT_ADJUSTMENT_ID ,
2152 l_header_adj_rec.INVOICED_FLAG ,
2153 l_header_adj_rec.ESTIMATED_FLAG ,
2154 l_header_adj_rec.INC_IN_SALES_PERFORMANCE ,
2155 l_header_adj_rec.SPLIT_ACTION_CODE ,
2156 l_header_adj_rec.ADJUSTED_AMOUNT ,
2157 l_header_adj_rec.PRICING_PHASE_ID ,
2158 l_header_adj_rec.CHARGE_TYPE_CODE ,
2159 l_header_adj_rec.CHARGE_SUBTYPE_CODE ,
2160 l_header_adj_rec.RANGE_BREAK_QUANTITY ,
2161 l_header_adj_rec.ACCRUAL_CONVERSION_RATE ,
2162 l_header_adj_rec.PRICING_GROUP_SEQUENCE ,
2163 l_header_adj_rec.ACCRUAL_FLAG ,
2164 l_header_adj_rec.LIST_LINE_NO ,
2165 l_header_adj_rec.SOURCE_SYSTEM_CODE ,
2166 l_header_adj_rec.BENEFIT_QTY ,
2167 l_header_adj_rec.BENEFIT_UOM_CODE ,
2168 l_header_adj_rec.PRINT_ON_INVOICE_FLAG ,
2169 l_header_adj_rec.EXPIRATION_DATE ,
2170 l_header_adj_rec.REBATE_TRANSACTION_TYPE_CODE,
2171 l_header_adj_rec.REBATE_TRANSACTION_REFERENCE,
2172 l_header_adj_rec.REBATE_PAYMENT_SYSTEM_CODE ,
2173 l_header_adj_rec.REDEEMED_DATE ,
2174 l_header_adj_rec.REDEEMED_FLAG ,
2175 l_header_adj_rec.MODIFIER_LEVEL_CODE ,
2176 l_header_adj_rec.PRICE_BREAK_TYPE_CODE ,
2177 l_header_adj_rec.SUBSTITUTION_ATTRIBUTE ,
2178 l_header_adj_rec.PRORATION_TYPE_CODE ,
2179 l_header_adj_rec.INCLUDE_ON_RETURNS_FLAG ,
2180 l_header_adj_rec.CREDIT_OR_CHARGE_FLAG ,
2181 l_header_adj_rec.AC_CONTEXT ,
2182 l_header_adj_rec.AC_ATTRIBUTE1 ,
2183 l_header_adj_rec.AC_ATTRIBUTE2 ,
2184 l_header_adj_rec.AC_ATTRIBUTE3 ,
2185 l_header_adj_rec.AC_ATTRIBUTE4 ,
2186 l_header_adj_rec.AC_ATTRIBUTE5 ,
2187 l_header_adj_rec.AC_ATTRIBUTE6 ,
2188 l_header_adj_rec.AC_ATTRIBUTE7 ,
2189 l_header_adj_rec.AC_ATTRIBUTE8 ,
2190 l_header_adj_rec.AC_ATTRIBUTE9 ,
2191 l_header_adj_rec.AC_ATTRIBUTE10 ,
2192 l_header_adj_rec.AC_ATTRIBUTE11 ,
2193 l_header_adj_rec.AC_ATTRIBUTE12 ,
2194 l_header_adj_rec.AC_ATTRIBUTE13 ,
2195 l_header_adj_rec.AC_ATTRIBUTE14 ,
2196 l_header_adj_rec.AC_ATTRIBUTE15 ,
2197 P_HIST_TYPE_CODE,
2198 sysdate,
2199 nvl(FND_GLOBAL.USER_ID, -1) ,
2200 nvl(FND_GLOBAL.RESP_ID, -1) ,
2201 --VERSIONING Changes
2202 p_AUDIT_FLAG,
2203 p_version_flag,
2204 p_phase_change_flag,
2205 p_version_number,
2206 p_reason_id
2207 --VERSIONING Changes END
2208 );
2209
2210 OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
2211 OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
2212 x_return_status := FND_API.G_RET_STS_SUCCESS;
2213
2214 IF l_debug_level > 0 THEN
2215 oe_debug_pub.add( 'EXITING RECORD HEADER ADJUSTMENTS HISTORY ' , 5 ) ;
2216 END IF;
2217
2218 EXCEPTION
2219 WHEN OTHERS THEN
2220 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2221 FND_MSG_PUB.Add_Exc_Msg
2222 (G_PKG_NAME
2223 ,'RecordHPAdjHist');
2224 END IF;
2225 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2226 END RecordHPAdjHist;
2227
2228 Procedure RecordLPAdjHist
2229 (p_line_adj_id In Number
2230 ,p_line_adj_rec In OE_ORDER_PUB.LINE_ADJ_REC_TYPE
2231 := OE_Order_PUB.G_MISS_LINE_ADJ_REC
2232 ,p_hist_type_code In Varchar2
2233 ,p_reason_code In varchar2
2234 ,p_comments IN Varchar2
2235 ,p_audit_flag IN Varchar2 := null
2236 ,p_version_flag IN Varchar2 := null
2237 ,p_phase_change_flag IN Varchar2 := null
2238 ,p_version_number IN NUMBER := null
2239 ,p_reason_id IN NUMBER := NULL
2240 ,p_wf_activity_code IN Varchar2 := null
2241 ,p_wf_result_code IN Varchar2 := null
2242 ,x_return_status Out NOCOPY /* file.sql.39 change */ Varchar2
2243 ) IS
2244 l_line_adj_rec OE_ORDER_PUB.LINE_ADJ_REC_TYPE := OE_Order_PUB.G_MISS_LINE_ADJ_REC;
2245 --
2246 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2247 --
2248 BEGIN
2249
2250 IF l_debug_level > 0 THEN
2251 oe_debug_pub.add( 'ENTERING RECORDLPADJHIST' ) ;
2252 END IF;
2253
2254 -- JPN: Added the G_MISS_NUM check before inserting the history record.
2255 if (p_line_adj_rec.price_adjustment_id is not null AND
2256 p_line_adj_rec.price_adjustment_id <> FND_API.G_MISS_NUM) then
2257 l_line_adj_rec := p_line_adj_rec;
2258 else
2259 -- query the header record
2260 OE_LINE_ADJ_UTIL.Query_Row
2261 (p_price_adjustment_id => p_line_adj_id,
2262 x_line_adj_rec => l_line_adj_rec);
2263 end if;
2264
2265 IF l_debug_level > 0 THEN
2266 oe_debug_pub.add( 'RECORDLPADJHIST:INSERT A ROW FOR P_LINE_ADJ_ID :' || TO_CHAR ( P_LINE_ADJ_ID ) ) ;
2267 END IF;
2268
2269 INSERT INTO OE_PRICE_ADJS_HISTORY
2270 (
2271 PRICE_ADJUSTMENT_ID ,
2272 CREATION_DATE ,
2273 CREATED_BY ,
2274 LAST_UPDATE_DATE ,
2275 LAST_UPDATED_BY ,
2276 LAST_UPDATE_LOGIN ,
2277 PROGRAM_APPLICATION_ID ,
2278 PROGRAM_ID ,
2279 PROGRAM_UPDATE_DATE ,
2280 REQUEST_ID ,
2281 HEADER_ID ,
2282 DISCOUNT_ID ,
2283 DISCOUNT_LINE_ID ,
2284 AUTOMATIC_FLAG ,
2285 PERCENT ,
2289 ATTRIBUTE2 ,
2286 LINE_ID ,
2287 CONTEXT ,
2288 ATTRIBUTE1 ,
2290 ATTRIBUTE3 ,
2291 ATTRIBUTE4 ,
2292 ATTRIBUTE5 ,
2293 ATTRIBUTE6 ,
2294 ATTRIBUTE7 ,
2295 ATTRIBUTE8 ,
2296 ATTRIBUTE9 ,
2297 ATTRIBUTE10 ,
2298 ATTRIBUTE11 ,
2299 ATTRIBUTE12 ,
2300 ATTRIBUTE13 ,
2301 ATTRIBUTE14 ,
2302 ATTRIBUTE15 ,
2303 ORIG_SYS_DISCOUNT_REF ,
2304 LIST_HEADER_ID ,
2305 LIST_LINE_ID ,
2306 LIST_LINE_TYPE_CODE ,
2307 MODIFIED_FROM ,
2308 MODIFIED_TO ,
2309 UPDATE_ALLOWED ,
2310 CHANGE_REASON_CODE ,
2311 CHANGE_REASON_TEXT ,
2312 MODIFIER_MECHANISM_TYPE_CODE,
2313 UPDATED_FLAG ,
2314 APPLIED_FLAG ,
2315 OPERAND ,
2316 ARITHMETIC_OPERATOR ,
2317 COST_ID ,
2318 TAX_CODE ,
2319 TAX_EXEMPT_FLAG ,
2320 TAX_EXEMPT_NUMBER ,
2321 TAX_EXEMPT_REASON_CODE ,
2322 PARENT_ADJUSTMENT_ID ,
2323 INVOICED_FLAG ,
2324 ESTIMATED_FLAG ,
2325 INC_IN_SALES_PERFORMANCE ,
2326 SPLIT_ACTION_CODE ,
2327 ADJUSTED_AMOUNT ,
2328 PRICING_PHASE_ID ,
2329 CHARGE_TYPE_CODE ,
2330 CHARGE_SUBTYPE_CODE ,
2331 RANGE_BREAK_QUANTITY ,
2332 ACCRUAL_CONVERSION_RATE ,
2333 PRICING_GROUP_SEQUENCE ,
2334 ACCRUAL_FLAG ,
2335 LIST_LINE_NO ,
2336 SOURCE_SYSTEM_CODE ,
2337 BENEFIT_QTY ,
2338 BENEFIT_UOM_CODE ,
2339 PRINT_ON_INVOICE_FLAG ,
2340 EXPIRATION_DATE ,
2341 REBATE_TRANSACTION_TYPE_CODE,
2342 REBATE_TRANSACTION_REFERENCE,
2343 REBATE_PAYMENT_SYSTEM_CODE ,
2344 REDEEMED_DATE ,
2345 REDEEMED_FLAG ,
2346 MODIFIER_LEVEL_CODE ,
2347 PRICE_BREAK_TYPE_CODE ,
2348 SUBSTITUTION_ATTRIBUTE ,
2349 PRORATION_TYPE_CODE ,
2350 INCLUDE_ON_RETURNS_FLAG ,
2351 CREDIT_OR_CHARGE_FLAG ,
2352 AC_CONTEXT ,
2353 AC_ATTRIBUTE1 ,
2354 AC_ATTRIBUTE2 ,
2355 AC_ATTRIBUTE3 ,
2356 AC_ATTRIBUTE4 ,
2357 AC_ATTRIBUTE5 ,
2358 AC_ATTRIBUTE6 ,
2359 AC_ATTRIBUTE7 ,
2360 AC_ATTRIBUTE8 ,
2361 AC_ATTRIBUTE9 ,
2362 AC_ATTRIBUTE10 ,
2363 AC_ATTRIBUTE11 ,
2364 AC_ATTRIBUTE12 ,
2365 AC_ATTRIBUTE13 ,
2366 AC_ATTRIBUTE14 ,
2367 AC_ATTRIBUTE15 ,
2368 HIST_TYPE_CODE ,
2369 HIST_CREATION_DATE ,
2370 HIST_CREATED_BY ,
2371 RESPONSIBILITY_ID ,
2372 --VERSIONING Changes
2373 AUDIT_FLAG ,
2374 VERSION_FLAG ,
2375 PHASE_CHANGE_FLAG ,
2376 VERSION_NUMBER ,
2377 REASON_ID ,
2378 --VERSIONING Changes END
2379 -- eBTax Changes
2380 TAX_RATE_ID
2381 )
2382 VALUES
2383 (
2384 l_line_adj_rec.PRICE_ADJUSTMENT_ID ,
2385 l_line_adj_rec.CREATION_DATE ,
2386 l_line_adj_rec.CREATED_BY ,
2387 l_line_adj_rec.LAST_UPDATE_DATE ,
2388 l_line_adj_rec.LAST_UPDATED_BY ,
2389 l_line_adj_rec.LAST_UPDATE_LOGIN ,
2390 l_line_adj_rec.PROGRAM_APPLICATION_ID ,
2391 l_line_adj_rec.PROGRAM_ID ,
2392 l_line_adj_rec.PROGRAM_UPDATE_DATE ,
2393 l_line_adj_rec.REQUEST_ID ,
2394 l_line_adj_rec.HEADER_ID ,
2395 l_line_adj_rec.DISCOUNT_ID ,
2396 l_line_adj_rec.DISCOUNT_LINE_ID ,
2397 l_line_adj_rec.AUTOMATIC_FLAG ,
2398 l_line_adj_rec.PERCENT ,
2399 l_line_adj_rec.LINE_ID ,
2400 l_line_adj_rec.CONTEXT ,
2401 l_line_adj_rec.ATTRIBUTE1 ,
2402 l_line_adj_rec.ATTRIBUTE2 ,
2403 l_line_adj_rec.ATTRIBUTE3 ,
2404 l_line_adj_rec.ATTRIBUTE4 ,
2405 l_line_adj_rec.ATTRIBUTE5 ,
2406 l_line_adj_rec.ATTRIBUTE6 ,
2407 l_line_adj_rec.ATTRIBUTE7 ,
2408 l_line_adj_rec.ATTRIBUTE8 ,
2409 l_line_adj_rec.ATTRIBUTE9 ,
2410 l_line_adj_rec.ATTRIBUTE10 ,
2411 l_line_adj_rec.ATTRIBUTE11 ,
2412 l_line_adj_rec.ATTRIBUTE12 ,
2413 l_line_adj_rec.ATTRIBUTE13 ,
2414 l_line_adj_rec.ATTRIBUTE14 ,
2415 l_line_adj_rec.ATTRIBUTE15 ,
2416 l_line_adj_rec.ORIG_SYS_DISCOUNT_REF ,
2417 l_line_adj_rec.LIST_HEADER_ID ,
2418 l_line_adj_rec.LIST_LINE_ID ,
2419 l_line_adj_rec.LIST_LINE_TYPE_CODE ,
2420 l_line_adj_rec.MODIFIED_FROM ,
2421 l_line_adj_rec.MODIFIED_TO ,
2422 l_line_adj_rec.UPDATE_ALLOWED ,
2423 p_reason_code ,
2424 p_comments ,
2425 l_line_adj_rec.MODIFIER_MECHANISM_TYPE_CODE,
2426 l_line_adj_rec.UPDATED_FLAG ,
2427 l_line_adj_rec.APPLIED_FLAG ,
2428 l_line_adj_rec.OPERAND ,
2429 l_line_adj_rec.ARITHMETIC_OPERATOR ,
2430 l_line_adj_rec.COST_ID ,
2431 l_line_adj_rec.TAX_CODE ,
2432 l_line_adj_rec.TAX_EXEMPT_FLAG ,
2433 l_line_adj_rec.TAX_EXEMPT_NUMBER ,
2434 l_line_adj_rec.TAX_EXEMPT_REASON_CODE ,
2435 l_line_adj_rec.PARENT_ADJUSTMENT_ID ,
2436 l_line_adj_rec.INVOICED_FLAG ,
2437 l_line_adj_rec.ESTIMATED_FLAG ,
2438 l_line_adj_rec.INC_IN_SALES_PERFORMANCE ,
2439 l_line_adj_rec.SPLIT_ACTION_CODE ,
2440 l_line_adj_rec.ADJUSTED_AMOUNT ,
2441 l_line_adj_rec.PRICING_PHASE_ID ,
2442 l_line_adj_rec.CHARGE_TYPE_CODE ,
2443 l_line_adj_rec.CHARGE_SUBTYPE_CODE ,
2444 l_line_adj_rec.RANGE_BREAK_QUANTITY ,
2445 l_line_adj_rec.ACCRUAL_CONVERSION_RATE ,
2446 l_line_adj_rec.PRICING_GROUP_SEQUENCE ,
2447 l_line_adj_rec.ACCRUAL_FLAG ,
2448 l_line_adj_rec.LIST_LINE_NO ,
2449 l_line_adj_rec.SOURCE_SYSTEM_CODE ,
2450 l_line_adj_rec.BENEFIT_QTY ,
2451 l_line_adj_rec.BENEFIT_UOM_CODE ,
2452 l_line_adj_rec.PRINT_ON_INVOICE_FLAG ,
2453 l_line_adj_rec.EXPIRATION_DATE ,
2454 l_line_adj_rec.REBATE_TRANSACTION_TYPE_CODE,
2455 l_line_adj_rec.REBATE_TRANSACTION_REFERENCE,
2456 l_line_adj_rec.REBATE_PAYMENT_SYSTEM_CODE ,
2457 l_line_adj_rec.REDEEMED_DATE ,
2458 l_line_adj_rec.REDEEMED_FLAG ,
2459 l_line_adj_rec.MODIFIER_LEVEL_CODE ,
2460 l_line_adj_rec.PRICE_BREAK_TYPE_CODE ,
2461 l_line_adj_rec.SUBSTITUTION_ATTRIBUTE ,
2462 l_line_adj_rec.PRORATION_TYPE_CODE ,
2463 l_line_adj_rec.INCLUDE_ON_RETURNS_FLAG ,
2464 l_line_adj_rec.CREDIT_OR_CHARGE_FLAG ,
2465 l_line_adj_rec.AC_CONTEXT ,
2466 l_line_adj_rec.AC_ATTRIBUTE1 ,
2467 l_line_adj_rec.AC_ATTRIBUTE2 ,
2468 l_line_adj_rec.AC_ATTRIBUTE3 ,
2469 l_line_adj_rec.AC_ATTRIBUTE4 ,
2470 l_line_adj_rec.AC_ATTRIBUTE5 ,
2471 l_line_adj_rec.AC_ATTRIBUTE6 ,
2472 l_line_adj_rec.AC_ATTRIBUTE7 ,
2473 l_line_adj_rec.AC_ATTRIBUTE8 ,
2474 l_line_adj_rec.AC_ATTRIBUTE9 ,
2475 l_line_adj_rec.AC_ATTRIBUTE10 ,
2476 l_line_adj_rec.AC_ATTRIBUTE11 ,
2477 l_line_adj_rec.AC_ATTRIBUTE12 ,
2478 l_line_adj_rec.AC_ATTRIBUTE13 ,
2479 l_line_adj_rec.AC_ATTRIBUTE14 ,
2480 l_line_adj_rec.AC_ATTRIBUTE15 ,
2481 P_HIST_TYPE_CODE ,
2482 sysdate ,
2483 nvl(FND_GLOBAL.USER_ID, -1) ,
2484 nvl(FND_GLOBAL.RESP_ID, -1) ,
2485 --VERSIONING Changes
2486 p_AUDIT_FLAG,
2487 p_version_flag,
2488 p_phase_change_flag,
2489 p_version_number,
2490 p_reason_id,
2491 --VERSIONING Changes END
2492 -- eBTax Changes
2493 l_line_adj_rec.tax_rate_id
2494 );
2495
2496 OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
2497 OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
2498 x_return_status := FND_API.G_RET_STS_SUCCESS;
2499 IF l_debug_level > 0 THEN
2500 oe_debug_pub.add( 'EXITING AFTER INSERTING LINE PRICE ADJUSTMENTS HISTORY' , 5 ) ;
2501 END IF;
2502
2503 EXCEPTION
2504 WHEN OTHERS THEN
2505 IF FND_MSG_PUB.Check_MSg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2506 FND_MSG_PUB.Add_Exc_Msg
2507 (G_PKG_NAME
2508 ,'RecordLPAdjHist');
2509 END IF;
2510 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2511 END RecordLPAdjHist;
2512
2513 -- Added to fix 2964593
2514 PROCEDURE Reset_Audit_History_Flags IS
2515 BEGIN
2516 OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG := 'N';
2517 OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG := 'N';
2518 OE_GLOBALS.OE_AUDIT_HISTORY_TBL.delete;
2519 OE_DEBUG_PUB.add('Reason Required Flag has been reset to N',1);
2520 END Reset_Audit_History_Flags;
2521
2522 END OE_CHG_ORDER_PVT;