73: -- Standard Start of API savepoint
74: SAVEPOINT sp_receive_item;
75:
76:
77: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
78: THEN
79: fnd_log.STRING (fnd_log.level_procedure,
80: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM.BEGIN',
81: 'Entered RECEIVE_ITEM'
75:
76:
77: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
78: THEN
79: fnd_log.STRING (fnd_log.level_procedure,
80: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM.BEGIN',
81: 'Entered RECEIVE_ITEM'
82: );
83: END IF;
82: );
83: END IF;
84:
85: dump_receive_tbl ( p_receive_tbl,
86: fnd_log.level_statement,
87: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM.BEGIN'
88: );
89: IF fnd_api.to_boolean (p_init_msg_list)
90: THEN
107:
108: /**********Program logic ******************/
109:
110: --Validate all the records in the input table.
111: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
112: THEN
113: fnd_log.STRING (fnd_log.level_event,
114: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
115: 'Validating Input'
109:
110: --Validate all the records in the input table.
111: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
112: THEN
113: fnd_log.STRING (fnd_log.level_event,
114: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
115: 'Validating Input'
116: );
117: END IF;
145:
146: END LOOP;
147:
148: --------POpulate the interface tables.
149: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
150: THEN
151: fnd_log.STRING (fnd_log.level_event,
152: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
153: 'Populating Interface tables'
147:
148: --------POpulate the interface tables.
149: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
150: THEN
151: fnd_log.STRING (fnd_log.level_event,
152: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
153: 'Populating Interface tables'
154: );
155: END IF;
170: RAISE fnd_api.g_exc_error;
171: END IF;
172:
173: -- Call request online to invoke receiving processsor in online mode.
174: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
175: THEN
176: fnd_log.STRING (fnd_log.level_event,
177: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
178: 'Calling the receive api online'
172:
173: -- Call request online to invoke receiving processsor in online mode.
174: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
175: THEN
176: fnd_log.STRING (fnd_log.level_event,
177: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
178: 'Calling the receive api online'
179: );
180: END IF;
193: THEN
194: RAISE fnd_api.g_exc_error;
195: END IF;
196:
197: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
198: THEN
199: fnd_log.STRING
200: (fnd_log.level_event,
201: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
195: END IF;
196:
197: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
198: THEN
199: fnd_log.STRING
200: (fnd_log.level_event,
201: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
202: 'Checking the errors in interface tables after the receive process'
203: );
196:
197: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
198: THEN
199: fnd_log.STRING
200: (fnd_log.level_event,
201: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
202: 'Checking the errors in interface tables after the receive process'
203: );
204: END IF;
233: -- Standard call to get message count and IF count is get message info.
234: fnd_msg_pub.count_and_get (p_count => x_msg_count,
235: p_data => x_msg_data);
236:
237: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
238: THEN
239: fnd_log.STRING (fnd_log.level_procedure,
240: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM.END',
241: 'Leaving RECEIVE_ITEM'
235: p_data => x_msg_data);
236:
237: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
238: THEN
239: fnd_log.STRING (fnd_log.level_procedure,
240: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM.END',
241: 'Leaving RECEIVE_ITEM'
242: );
243: END IF;
264: );
265: end if;
266: *****************************/
267:
268: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
269: THEN
270: fnd_log.STRING (fnd_log.level_error,
271: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
272: 'EXC_ERROR in Receive_Item[' || x_msg_data || ']'
266: *****************************/
267:
268: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
269: THEN
270: fnd_log.STRING (fnd_log.level_error,
271: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
272: 'EXC_ERROR in Receive_Item[' || x_msg_data || ']'
273: );
274: END IF;
278: ROLLBACK TO sp_receive_item;
279: fnd_msg_pub.count_and_get (p_count => x_msg_count,
280: p_data => x_msg_data);
281:
282: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
283: THEN
284: fnd_log.STRING (fnd_log.level_exception,
285: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
286: 'EXC_UNEXPECTED_ERROR in Receive_Item[' || x_msg_data || ']'
280: p_data => x_msg_data);
281:
282: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
283: THEN
284: fnd_log.STRING (fnd_log.level_exception,
285: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
286: 'EXC_UNEXPECTED_ERROR in Receive_Item[' || x_msg_data || ']'
287: );
288: END IF;
298:
299: fnd_msg_pub.count_and_get (p_count => x_msg_count,
300: p_data => x_msg_data);
301:
302: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
303: THEN
304: fnd_log.STRING (fnd_log.level_unexpected,
305: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
306: 'SQL Message in Receive_Item[' || SQLERRM || ']'
300: p_data => x_msg_data);
301:
302: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
303: THEN
304: fnd_log.STRING (fnd_log.level_unexpected,
305: 'CSD.PLSQL.CSD_RECEIVE_PVT.RECEIVE_ITEM',
306: 'SQL Message in Receive_Item[' || SQLERRM || ']'
307: );
308: END IF;
373:
374: BEGIN
375:
376:
377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
378: THEN
379: fnd_log.STRING
380: (fnd_log.level_procedure,
381: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS.BEGIN',
375:
376:
377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
378: THEN
379: fnd_log.STRING
380: (fnd_log.level_procedure,
381: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS.BEGIN',
382: 'Entered Populate_Rcv_Intf_Tbls'
383: );
376:
377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
378: THEN
379: fnd_log.STRING
380: (fnd_log.level_procedure,
381: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS.BEGIN',
382: 'Entered Populate_Rcv_Intf_Tbls'
383: );
384: END IF;
404: -- initialize return status
405: x_return_status := fnd_api.g_ret_sts_success;
406:
407: ---Program logic.......
408: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
409: THEN
410: fnd_log.STRING (fnd_log.level_event,
411: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
412: 'Inserting header interface table data'
406:
407: ---Program logic.......
408: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
409: THEN
410: fnd_log.STRING (fnd_log.level_event,
411: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
412: 'Inserting header interface table data'
413: );
414: END IF;
482: -- bug fix for performance bug 4277749 end
483:
484: IF (exec_flag)
485: THEN
486: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
487: THEN
488: fnd_log.STRING
489: (fnd_log.level_event,
490: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
484: IF (exec_flag)
485: THEN
486: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
487: THEN
488: fnd_log.STRING
489: (fnd_log.level_event,
490: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
491: 'Calling execute immediate with sql['
492: || sql_str
485: THEN
486: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
487: THEN
488: fnd_log.STRING
489: (fnd_log.level_event,
490: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
491: 'Calling execute immediate with sql['
492: || sql_str
493: || ']'
497: -- bug fix for performance bug 4277749 , added using clause
498: EXECUTE IMMEDIATE sql_str using l_hdr_intf_id;
499: END IF;
500:
501: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
502: THEN
503: fnd_log.STRING (fnd_log.level_event,
504: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
505: 'Inserting transactions interface table data'
499: END IF;
500:
501: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
502: THEN
503: fnd_log.STRING (fnd_log.level_event,
504: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
505: 'Inserting transactions interface table data'
506: );
507: END IF;
658: sql_str :=
659: ' UPDATE RCV_TRANSACTIONS_INTERFACE SET OE_ORDER_NUM = :1'
660: || ' WHERE INTERFACE_TRANSACTION_ID=:2' ;
661:
662: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
663: THEN
664: fnd_log.STRING
665: (fnd_log.level_event,
666: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
660: || ' WHERE INTERFACE_TRANSACTION_ID=:2' ;
661:
662: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
663: THEN
664: fnd_log.STRING
665: (fnd_log.level_event,
666: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
667: 'Calling execute immediate with sql['
668: || sql_str
661:
662: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
663: THEN
664: fnd_log.STRING
665: (fnd_log.level_event,
666: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
667: 'Calling execute immediate with sql['
668: || sql_str
669: || ']'
675:
676: /**********************Commented for 4277749
677: IF (sql_str IS NOT NULL)
678: THEN
679: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
680: THEN
681: fnd_log.STRING
682: (fnd_log.level_event,
683: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
677: IF (sql_str IS NOT NULL)
678: THEN
679: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
680: THEN
681: fnd_log.STRING
682: (fnd_log.level_event,
683: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
684: 'Calling execute immediate with sql['
685: || sql_str
678: THEN
679: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
680: THEN
681: fnd_log.STRING
682: (fnd_log.level_event,
683: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
684: 'Calling execute immediate with sql['
685: || sql_str
686: || ']'
701: ELSE
702: l_txn_tmp_id := l_intf_txn_id;
703: END IF;
704:
705: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.STRING
708: (fnd_log.level_event,
709: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
703: END IF;
704:
705: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.STRING
708: (fnd_log.level_event,
709: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
710: 'Inserting lot interface table data for ['
711: || l_intf_txn_id
704:
705: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.STRING
708: (fnd_log.level_event,
709: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
710: 'Inserting lot interface table data for ['
711: || l_intf_txn_id
712: || ']lot number['
742: -- bug fix for performance bug 4277749 changed the where clause
743: -- to use using clause
744: || ' Where transaction_interface_id = :1';
745:
746: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
747: THEN
748: fnd_log.STRING
749: (fnd_log.level_event,
750: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
744: || ' Where transaction_interface_id = :1';
745:
746: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
747: THEN
748: fnd_log.STRING
749: (fnd_log.level_event,
750: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
751: 'Calling execute immediate with sql['
752: || sql_str
745:
746: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
747: THEN
748: fnd_log.STRING
749: (fnd_log.level_event,
750: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
751: 'Calling execute immediate with sql['
752: || sql_str
753: || ']'
768: THEN
769: l_txn_tmp_id := l_intf_txn_id;
770: END IF;
771:
772: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
773: THEN
774: fnd_log.STRING
775: (fnd_log.level_event,
776: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
770: END IF;
771:
772: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
773: THEN
774: fnd_log.STRING
775: (fnd_log.level_event,
776: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
777: 'Inserting serial interface table data for ['
778: || l_intf_txn_id
771:
772: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
773: THEN
774: fnd_log.STRING
775: (fnd_log.level_event,
776: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
777: 'Inserting serial interface table data for ['
778: || l_intf_txn_id
779: || ']serial number['
809: -- bug fix for performance bug 4277749 changed the where clause
810: -- to use using clause
811: || ' Where transaction_interface_id = :1';
812:
813: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
814: THEN
815: fnd_log.STRING
816: (fnd_log.level_event,
817: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
811: || ' Where transaction_interface_id = :1';
812:
813: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
814: THEN
815: fnd_log.STRING
816: (fnd_log.level_event,
817: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
818: 'Calling execute immediate with sql['
819: || sql_str
812:
813: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
814: THEN
815: fnd_log.STRING
816: (fnd_log.level_event,
817: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
818: 'Calling execute immediate with sql['
819: || sql_str
820: || ']'
832: -- Standard call to get message count and IF count is get message info.
833: fnd_msg_pub.count_and_get (p_count => x_msg_count,
834: p_data => x_msg_data);
835:
836: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
837: THEN
838: fnd_log.STRING (fnd_log.level_procedure,
839: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
840: 'Leaving POPULATE_RCV_INTF_TBLS'
834: p_data => x_msg_data);
835:
836: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
837: THEN
838: fnd_log.STRING (fnd_log.level_procedure,
839: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
840: 'Leaving POPULATE_RCV_INTF_TBLS'
841: );
842: END IF;
851: ROLLBACK ;
852: fnd_msg_pub.count_and_get (p_count => x_msg_count,
853: p_data => x_msg_data);
854:
855: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
856: THEN
857: fnd_log.STRING
858: (fnd_log.level_error,
859: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
853: p_data => x_msg_data);
854:
855: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
856: THEN
857: fnd_log.STRING
858: (fnd_log.level_error,
859: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
860: 'EXC_EXC_ERROR in populate rcv intf tbls [' || x_msg_data || ']'
861: );
854:
855: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
856: THEN
857: fnd_log.STRING
858: (fnd_log.level_error,
859: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
860: 'EXC_EXC_ERROR in populate rcv intf tbls [' || x_msg_data || ']'
861: );
862: END IF;
866: ROLLBACK ;
867: fnd_msg_pub.count_and_get (p_count => x_msg_count,
868: p_data => x_msg_data);
869:
870: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
871: THEN
872: fnd_log.STRING
873: (fnd_log.level_exception,
874: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
868: p_data => x_msg_data);
869:
870: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
871: THEN
872: fnd_log.STRING
873: (fnd_log.level_exception,
874: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
875: 'EXC_UNEXPECTED_ERROR in populate rcv intf tbls[' || x_msg_data || ']'
876: );
869:
870: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
871: THEN
872: fnd_log.STRING
873: (fnd_log.level_exception,
874: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
875: 'EXC_UNEXPECTED_ERROR in populate rcv intf tbls[' || x_msg_data || ']'
876: );
877: END IF;
887:
888: fnd_msg_pub.count_and_get (p_count => x_msg_count,
889: p_data => x_msg_data);
890:
891: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
892: THEN
893: fnd_log.STRING
894: (fnd_log.level_unexpected,
895: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
889: p_data => x_msg_data);
890:
891: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
892: THEN
893: fnd_log.STRING
894: (fnd_log.level_unexpected,
895: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
896: 'SQL Message in populate rcv intf tbls[' || SQLERRM || ']'
897: );
890:
891: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
892: THEN
893: fnd_log.STRING
894: (fnd_log.level_unexpected,
895: 'CSD.PLSQL.CSD_RECEIVE_PVT.POPULATE_RCV_INTF_TBLS',
896: 'SQL Message in populate rcv intf tbls[' || SQLERRM || ']'
897: );
898: END IF;
972: l_index NUMBER;
973: BEGIN
974:
975:
976: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
977: THEN
978: fnd_log.STRING (fnd_log.level_procedure,
979: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE.BEGIN',
980: 'Entered RCV_REQ_ONLINE'
974:
975:
976: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
977: THEN
978: fnd_log.STRING (fnd_log.level_procedure,
979: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE.BEGIN',
980: 'Entered RCV_REQ_ONLINE'
981: );
982: END IF;
1009: /*
1010: ** Set the cursor style to working
1011: */
1012:
1013: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1014: THEN
1015: fnd_log.STRING (fnd_log.level_event,
1016: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1017: 'Calling receiving processor with req group id['
1011: */
1012:
1013: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1014: THEN
1015: fnd_log.STRING (fnd_log.level_event,
1016: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1017: 'Calling receiving processor with req group id['
1018: || p_request_group_id
1019: || ']'
1032: NULL, NULL, NULL, NULL, NULL, NULL,
1033: NULL, NULL, NULL, NULL, NULL, NULL
1034: );
1035:
1036: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1037: THEN
1038: fnd_log.STRING (fnd_log.level_event,
1039: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1040: 'receiving processor, rc=['
1034: );
1035:
1036: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1037: THEN
1038: fnd_log.STRING (fnd_log.level_event,
1039: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1040: 'receiving processor, rc=['
1041: || l_ret_code
1042: || '],message['
1047: );
1048: END IF;
1049:
1050: IF l_ret_code <> 0 THEN
1051: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1052: THEN
1053: FOR l_index IN 1 .. fnd_msg_pub.count_msg
1054: LOOP
1055: fnd_msg_pub.get (p_msg_index => l_index,
1056: p_encoded => 'F',
1057: p_data => l_MESSAGE,
1058: p_msg_index_out => l_msg_index_out
1059: );
1060: fnd_log.STRING (fnd_log.level_error,
1061: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1062: 'receiving processor, error[' || l_MESSAGE || ']'
1063: );
1064: END LOOP;
1081: THEN
1082: NULL;
1083: ELSIF (l_ret_code = 1)
1084: THEN
1085: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1086: THEN
1087: fnd_log.STRING (fnd_log.level_event,
1088: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1089: 'fnd_trnasaction.synchronous TIMED OUT'
1083: ELSIF (l_ret_code = 1)
1084: THEN
1085: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1086: THEN
1087: fnd_log.STRING (fnd_log.level_event,
1088: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1089: 'fnd_trnasaction.synchronous TIMED OUT'
1090: );
1091: END IF;
1108: x_return_status := fnd_api.g_ret_sts_error;
1109: END IF;
1110: ELSIF (l_Ret_code = 2)
1111: THEN
1112: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1113: THEN
1114: fnd_log.STRING
1115: (fnd_log.level_event,
1116: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1110: ELSIF (l_Ret_code = 2)
1111: THEN
1112: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1113: THEN
1114: fnd_log.STRING
1115: (fnd_log.level_event,
1116: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1117: 'fnd_trnasaction.synchronous: no concurrent manager available,groupid['
1118: || TO_CHAR (p_request_group_id)
1111: THEN
1112: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1113: THEN
1114: fnd_log.STRING
1115: (fnd_log.level_event,
1116: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1117: 'fnd_trnasaction.synchronous: no concurrent manager available,groupid['
1118: || TO_CHAR (p_request_group_id)
1119: || ']'
1121: END IF;
1122:
1123: IF (check_group_id (p_request_group_id))
1124: THEN
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1126: THEN
1127: fnd_log.STRING (fnd_log.level_statement,
1128: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1129: 'Adding FND message, groupid['
1123: IF (check_group_id (p_request_group_id))
1124: THEN
1125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1126: THEN
1127: fnd_log.STRING (fnd_log.level_statement,
1128: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1129: 'Adding FND message, groupid['
1130: || TO_CHAR (p_request_group_id)
1131: || ']'
1142: fnd_message.set_token ('PROGRAM', l_str2);
1143: fnd_message.set_token ('REQUEST', p_request_group_id);
1144: fnd_message.set_token ('REASON', l_str1);
1145:
1146: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1147: THEN
1148: fnd_log.MESSAGE (fnd_log.level_error,
1149: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE');
1150: END IF;
1144: fnd_message.set_token ('REASON', l_str1);
1145:
1146: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1147: THEN
1148: fnd_log.MESSAGE (fnd_log.level_error,
1149: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE');
1150: END IF;
1151:
1152: fnd_msg_pub.ADD;
1153: x_return_status := fnd_api.g_ret_sts_error;
1154: END IF;
1155: ELSIF (l_ret_code = 3 OR (l_outcome IN ('WARNING', 'ERROR')))
1156: THEN
1157: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1158: THEN
1159: fnd_log.STRING (fnd_log.level_event,
1160: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1161: 'fnd_synschronous:rc['
1155: ELSIF (l_ret_code = 3 OR (l_outcome IN ('WARNING', 'ERROR')))
1156: THEN
1157: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1158: THEN
1159: fnd_log.STRING (fnd_log.level_event,
1160: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1161: 'fnd_synschronous:rc['
1162: || l_Ret_code
1163: || '],outcome['
1293: FND_MESSAGE.SET_NAME('CSD','CSD_AUTO_RCV_ERROR');
1294: FND_MESSAGE.SET_TOKEN('RCV_ERROR',l_Str1);
1295: FND_MSG_PUB.add;
1296:
1297: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1298: THEN
1299: fnd_log.STRING (fnd_log.level_event,
1300: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1301: 'fnd_trnasaction.synchronous:[' || l_str1 || ']'
1295: FND_MSG_PUB.add;
1296:
1297: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1298: THEN
1299: fnd_log.STRING (fnd_log.level_event,
1300: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1301: 'fnd_trnasaction.synchronous:[' || l_str1 || ']'
1302: );
1303: END IF;
1309: -- Standard call to get message count and IF count is get message info.
1310: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1311: p_data => x_msg_data);
1312:
1313: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1314: THEN
1315: fnd_log.STRING (fnd_log.level_procedure,
1316: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE.END',
1317: 'Leaving RCV_REQ_ONLINE'
1311: p_data => x_msg_data);
1312:
1313: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1314: THEN
1315: fnd_log.STRING (fnd_log.level_procedure,
1316: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE.END',
1317: 'Leaving RCV_REQ_ONLINE'
1318: );
1319: END IF;
1324: ROLLBACK TO sp_rcv_req_online;
1325: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1326: p_data => x_msg_data);
1327:
1328: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1329: THEN
1330: fnd_log.STRING (fnd_log.level_error,
1331: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1332: 'EXC_ERROR[' || x_msg_data || ']'
1326: p_data => x_msg_data);
1327:
1328: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1329: THEN
1330: fnd_log.STRING (fnd_log.level_error,
1331: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1332: 'EXC_ERROR[' || x_msg_data || ']'
1333: );
1334: END IF;
1338: ROLLBACK TO sp_rcv_req_online;
1339: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1340: p_data => x_msg_data);
1341:
1342: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1343: THEN
1344: fnd_log.STRING (fnd_log.level_exception,
1345: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1346: 'EXC_UNEXPECTED_ERROR in RCV_REQ_ONLINE[' || x_msg_data || ']'
1340: p_data => x_msg_data);
1341:
1342: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1343: THEN
1344: fnd_log.STRING (fnd_log.level_exception,
1345: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1346: 'EXC_UNEXPECTED_ERROR in RCV_REQ_ONLINE[' || x_msg_data || ']'
1347: );
1348: END IF;
1358:
1359: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1360: p_data => x_msg_data);
1361:
1362: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1363: THEN
1364: fnd_log.STRING (fnd_log.level_unexpected,
1365: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1366: 'SQL Error MEssage in RCV_REQ_ONLINE[' || SQLERRM || ']'
1360: p_data => x_msg_data);
1361:
1362: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1363: THEN
1364: fnd_log.STRING (fnd_log.level_unexpected,
1365: 'CSD.PLSQL.CSD_RECEIVE_PVT.RCV_REQ_ONLINE',
1366: 'SQL Error MEssage in RCV_REQ_ONLINE[' || SQLERRM || ']'
1367: );
1368: END IF;
1403: FROM RCV_TRANSACTIONS_INTERFACE
1404: WHERE GROUP_ID = p_group_id;
1405: BEGIN
1406:
1407: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1408: THEN
1409: fnd_log.STRING (fnd_log.level_procedure,
1410: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS.BEGIN',
1411: 'Entered Delete_Intf_Tbls'
1405: BEGIN
1406:
1407: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1408: THEN
1409: fnd_log.STRING (fnd_log.level_procedure,
1410: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS.BEGIN',
1411: 'Entered Delete_Intf_Tbls'
1412: );
1413: END IF;
1468: END;
1469: END LOOP;
1470:
1471: ----------------------------------------------Delete from headers table.
1472: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1473: THEN
1474: fnd_log.STRING (fnd_log.level_event,
1475: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1476: 'Deleting from the headers table'
1470:
1471: ----------------------------------------------Delete from headers table.
1472: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1473: THEN
1474: fnd_log.STRING (fnd_log.level_event,
1475: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1476: 'Deleting from the headers table'
1477: );
1478: END IF;
1488: THEN
1489: RAISE fnd_api.g_exc_unexpected_error;
1490: END;
1491: ----------------------------------------------Delete from the detail txn records.
1492: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1493: THEN
1494: fnd_log.STRING (fnd_log.level_event,
1495: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1496: 'Deleting from the detail table'
1490: END;
1491: ----------------------------------------------Delete from the detail txn records.
1492: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1493: THEN
1494: fnd_log.STRING (fnd_log.level_event,
1495: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1496: 'Deleting from the detail table'
1497: );
1498: END IF;
1511:
1512:
1513: COMMIT;
1514:
1515: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1516: THEN
1517: fnd_log.STRING (fnd_log.level_procedure,
1518: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS.END',
1519: 'Leaving DELETE_INTF_TBLS'
1513: COMMIT;
1514:
1515: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1516: THEN
1517: fnd_log.STRING (fnd_log.level_procedure,
1518: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS.END',
1519: 'Leaving DELETE_INTF_TBLS'
1520: );
1521: END IF;
1523: WHEN fnd_api.g_exc_unexpected_error
1524: THEN
1525: x_return_status := fnd_api.g_ret_sts_unexp_error;
1526: ROLLBACK ;
1527: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1528: THEN
1529: fnd_log.STRING (fnd_log.level_exception,
1530: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1531: 'EXC_UNEXPECTED_ERROR in delete_intf_tbls'
1525: x_return_status := fnd_api.g_ret_sts_unexp_error;
1526: ROLLBACK ;
1527: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1528: THEN
1529: fnd_log.STRING (fnd_log.level_exception,
1530: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1531: 'EXC_UNEXPECTED_ERROR in delete_intf_tbls'
1532: );
1533: END IF;
1540: THEN
1541: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1542: END IF;
1543:
1544: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1545: THEN
1546: fnd_log.STRING (fnd_log.level_unexpected,
1547: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1548: 'SQL Message in delete_intf_tbls[' || SQLERRM || ']'
1542: END IF;
1543:
1544: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1545: THEN
1546: fnd_log.STRING (fnd_log.level_unexpected,
1547: 'CSD.PLSQL.CSD_RECEIVE_PVT.DELETE_INTF_TBLS',
1548: 'SQL Message in delete_intf_tbls[' || SQLERRM || ']'
1549: );
1550: END IF;
1562: RETURN BOOLEAN
1563: IS
1564: l_rec_count NUMBER := 0;
1565: BEGIN
1566: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1567: THEN
1568: fnd_log.STRING (fnd_log.level_procedure,
1569: 'CSD.PLSQL.CSD_RECEIVE_PVT.CHECK_GROUP_ID.BEGIN',
1570: 'Entered check_group_id, groupid[' || p_group_id
1564: l_rec_count NUMBER := 0;
1565: BEGIN
1566: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1567: THEN
1568: fnd_log.STRING (fnd_log.level_procedure,
1569: 'CSD.PLSQL.CSD_RECEIVE_PVT.CHECK_GROUP_ID.BEGIN',
1570: 'Entered check_group_id, groupid[' || p_group_id
1571: || ']'
1572: );
1578: WHERE GROUP_ID = p_group_id;
1579:
1580: IF (l_rec_count = 0)
1581: THEN
1582: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1583: THEN
1584: fnd_log.STRING (fnd_log.level_procedure,
1585: 'CSD.PLSQL.CSD_RECEIVE_PVT.CHECK_GROUP_ID.END',
1586: 'returning false from check_group_id'
1580: IF (l_rec_count = 0)
1581: THEN
1582: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1583: THEN
1584: fnd_log.STRING (fnd_log.level_procedure,
1585: 'CSD.PLSQL.CSD_RECEIVE_PVT.CHECK_GROUP_ID.END',
1586: 'returning false from check_group_id'
1587: );
1588: END IF;
1588: END IF;
1589:
1590: RETURN (FALSE);
1591: ELSE
1592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1593: THEN
1594: fnd_log.STRING (fnd_log.level_procedure,
1595: 'CSD.PLSQL.CSD_RECEIVE_PVT.CHECK_GROUP_ID.END',
1596: 'returning true from check_group_id'
1590: RETURN (FALSE);
1591: ELSE
1592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1593: THEN
1594: fnd_log.STRING (fnd_log.level_procedure,
1595: 'CSD.PLSQL.CSD_RECEIVE_PVT.CHECK_GROUP_ID.END',
1596: 'returning true from check_group_id'
1597: );
1598: END IF;
1622: i INTEGER;
1623: BEGIN
1624: FOR i IN p_receive_tbl.FIRST .. p_receive_tbl.LAST
1625: LOOP
1626: IF (p_level >= fnd_log.g_current_runtime_level)
1627: THEN
1628: fnd_log.STRING (p_level, p_module,
1629: TO_CHAR (i)
1630: || ':'
1624: FOR i IN p_receive_tbl.FIRST .. p_receive_tbl.LAST
1625: LOOP
1626: IF (p_level >= fnd_log.g_current_runtime_level)
1627: THEN
1628: fnd_log.STRING (p_level, p_module,
1629: TO_CHAR (i)
1630: || ':'
1631: || TO_CHAR (p_receive_tbl (i).customer_id)
1632: );
1629: TO_CHAR (i)
1630: || ':'
1631: || TO_CHAR (p_receive_tbl (i).customer_id)
1632: );
1633: fnd_log.STRING (p_level, p_module,
1634: TO_CHAR (i)
1635: || ':'
1636: || TO_CHAR (p_receive_tbl (i).customer_site_id)
1637: );
1634: TO_CHAR (i)
1635: || ':'
1636: || TO_CHAR (p_receive_tbl (i).customer_site_id)
1637: );
1638: fnd_log.STRING (p_level, p_module,
1639: TO_CHAR (i)
1640: || ':'
1641: || TO_CHAR (p_receive_tbl (i).employee_id)
1642: );
1639: TO_CHAR (i)
1640: || ':'
1641: || TO_CHAR (p_receive_tbl (i).employee_id)
1642: );
1643: fnd_log.STRING (p_level,
1644: p_module,
1645: TO_CHAR (i)
1646: || ':'
1647: || TO_CHAR (p_receive_tbl (i).quantity)
1645: TO_CHAR (i)
1646: || ':'
1647: || TO_CHAR (p_receive_tbl (i).quantity)
1648: );
1649: fnd_log.STRING (p_level,
1650: p_module,
1651: TO_CHAR (i) || ':' || p_receive_tbl (i).uom_code
1652: );
1653: fnd_log.STRING (p_level,
1649: fnd_log.STRING (p_level,
1650: p_module,
1651: TO_CHAR (i) || ':' || p_receive_tbl (i).uom_code
1652: );
1653: fnd_log.STRING (p_level,
1654: p_module,
1655: TO_CHAR (i)
1656: || ':'
1657: || TO_CHAR (p_receive_tbl (i).inventory_item_id)
1655: TO_CHAR (i)
1656: || ':'
1657: || TO_CHAR (p_receive_tbl (i).inventory_item_id)
1658: );
1659: fnd_log.STRING (p_level,
1660: p_module,
1661: TO_CHAR (i) || ':' || p_receive_tbl (i).item_revision
1662: );
1663: fnd_log.STRING (p_level,
1659: fnd_log.STRING (p_level,
1660: p_module,
1661: TO_CHAR (i) || ':' || p_receive_tbl (i).item_revision
1662: );
1663: fnd_log.STRING (p_level,
1664: p_module,
1665: TO_CHAR (i)
1666: || ':'
1667: || TO_CHAR (p_receive_tbl (i).to_organization_id)
1665: TO_CHAR (i)
1666: || ':'
1667: || TO_CHAR (p_receive_tbl (i).to_organization_id)
1668: );
1669: fnd_log.STRING (p_level,
1670: p_module,
1671: TO_CHAR (i)
1672: || ':'
1673: || p_receive_tbl (i).destination_type_code
1671: TO_CHAR (i)
1672: || ':'
1673: || p_receive_tbl (i).destination_type_code
1674: );
1675: fnd_log.STRING (p_level,
1676: p_module,
1677: TO_CHAR (i) || ':' || p_receive_tbl (i).subinventory
1678: );
1679: fnd_log.STRING (p_level,
1675: fnd_log.STRING (p_level,
1676: p_module,
1677: TO_CHAR (i) || ':' || p_receive_tbl (i).subinventory
1678: );
1679: fnd_log.STRING (p_level,
1680: p_module,
1681: TO_CHAR (i)
1682: || ':'
1683: || TO_CHAR (p_receive_tbl (i).locator_id)
1681: TO_CHAR (i)
1682: || ':'
1683: || TO_CHAR (p_receive_tbl (i).locator_id)
1684: );
1685: fnd_log.STRING (p_level,
1686: p_module,
1687: TO_CHAR (i)
1688: || ':'
1689: || TO_CHAR (p_receive_tbl (i).deliver_to_location_id)
1687: TO_CHAR (i)
1688: || ':'
1689: || TO_CHAR (p_receive_tbl (i).deliver_to_location_id)
1690: );
1691: fnd_log.STRING (p_level,
1692: p_module,
1693: TO_CHAR (i)
1694: || ':'
1695: || TO_CHAR (p_receive_tbl (i).requisition_number)
1693: TO_CHAR (i)
1694: || ':'
1695: || TO_CHAR (p_receive_tbl (i).requisition_number)
1696: );
1697: fnd_log.STRING (p_level,
1698: p_module,
1699: TO_CHAR (i)
1700: || ':'
1701: || TO_CHAR (p_receive_tbl (i).order_header_id)
1699: TO_CHAR (i)
1700: || ':'
1701: || TO_CHAR (p_receive_tbl (i).order_header_id)
1702: );
1703: fnd_log.STRING (p_level,
1704: p_module,
1705: TO_CHAR (i)
1706: || ':'
1707: || TO_CHAR (p_receive_tbl (i).order_line_id)
1705: TO_CHAR (i)
1706: || ':'
1707: || TO_CHAR (p_receive_tbl (i).order_line_id)
1708: );
1709: fnd_log.STRING (p_level,
1710: p_module,
1711: TO_CHAR (i) || ':' || p_receive_tbl (i).order_number
1712: );
1713: fnd_log.STRING (p_level,
1709: fnd_log.STRING (p_level,
1710: p_module,
1711: TO_CHAR (i) || ':' || p_receive_tbl (i).order_number
1712: );
1713: fnd_log.STRING (p_level,
1714: p_module,
1715: TO_CHAR (i) || ':' || p_receive_tbl (i).doc_number
1716: );
1717: fnd_log.STRING (p_level,
1713: fnd_log.STRING (p_level,
1714: p_module,
1715: TO_CHAR (i) || ':' || p_receive_tbl (i).doc_number
1716: );
1717: fnd_log.STRING (p_level,
1718: p_module,
1719: TO_CHAR (i)
1720: || ':'
1721: || p_receive_tbl (i).internal_order_flag
1719: TO_CHAR (i)
1720: || ':'
1721: || p_receive_tbl (i).internal_order_flag
1722: );
1723: fnd_log.STRING (p_level,
1724: p_module,
1725: TO_CHAR (i)
1726: || ':'
1727: || TO_CHAR (p_receive_tbl (i).from_organization_id)
1725: TO_CHAR (i)
1726: || ':'
1727: || TO_CHAR (p_receive_tbl (i).from_organization_id)
1728: );
1729: fnd_log.STRING (p_level,
1730: p_module,
1731: TO_CHAR (i)
1732: || ':'
1733: || TO_CHAR (p_receive_tbl (i).expected_receipt_date)
1731: TO_CHAR (i)
1732: || ':'
1733: || TO_CHAR (p_receive_tbl (i).expected_receipt_date)
1734: );
1735: fnd_log.STRING (p_level,
1736: p_module,
1737: TO_CHAR (i)
1738: || ':'
1739: || TO_CHAR (p_receive_tbl (i).transaction_date)
1737: TO_CHAR (i)
1738: || ':'
1739: || TO_CHAR (p_receive_tbl (i).transaction_date)
1740: );
1741: fnd_log.STRING (p_level,
1742: p_module,
1743: TO_CHAR (i)
1744: || ':'
1745: || TO_CHAR (p_receive_tbl (i).ship_to_location_id)
1767: p_data => l_msg,
1768: p_msg_index_out => l_index_out
1769: );
1770:
1771: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1772: THEN
1773: fnd_log.STRING (fnd_log.level_error,
1774: 'CSD.PLSQL.CSD_RECEIVE_PVT.log_error_stack',
1775: 'error[' || l_msg || ']'
1769: );
1770:
1771: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1772: THEN
1773: fnd_log.STRING (fnd_log.level_error,
1774: 'CSD.PLSQL.CSD_RECEIVE_PVT.log_error_stack',
1775: 'error[' || l_msg || ']'
1776: );
1777: END IF;