[Home] [Help]
75: SAVEPOINT Get_TransactionAmount_PVT;
76:
77: l_stmt_num := 0;
78:
79: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
80: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin','Get_TransactionAmount <<');
81: END IF;
82:
83: /************************************************
76:
77: l_stmt_num := 0;
78:
79: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
80: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin','Get_TransactionAmount <<');
81: END IF;
82:
83: /************************************************
84: * Standard call to check for call compatibility *
129: FROM ap_invoice_distributions APID
130: WHERE APID.invoice_distribution_id = p_rcv_accttxn.inv_distribution_id;
131: END IF;
132:
133: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
134: l_api_message := 'Transaction Amount : '||l_transaction_amount;
135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,l_api_message);
136: END IF;
137:
131: END IF;
132:
133: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
134: l_api_message := 'Transaction Amount : '||l_transaction_amount;
135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,l_api_message);
136: END IF;
137:
138: /*****************************************************************
139: * For encumbrance reversal transactions , only reverse encumbrance *
161: INTO l_po_amount_ordered, l_po_amount_delivered
162: FROM po_distributions POD
163: WHERE po_distribution_id = p_rcv_accttxn.po_distribution_id;
164:
165: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
166: l_api_message := substr('l_rcv_txn_type : '||l_rcv_txn_type||
167: ' l_par_rcv_txn_type : '||l_par_rcv_txn_type||
168: ' l_po_amount_ordered : '||l_po_amount_ordered||
169: ' l_po_amount_delivered : '||l_po_amount_delivered, 1, 1000);
166: l_api_message := substr('l_rcv_txn_type : '||l_rcv_txn_type||
167: ' l_par_rcv_txn_type : '||l_par_rcv_txn_type||
168: ' l_po_amount_ordered : '||l_po_amount_ordered||
169: ' l_po_amount_delivered : '||l_po_amount_delivered, 1, 1000);
170: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,l_api_message);
171: END IF;
172:
173: l_stmt_num := 70;
174: IF(l_rcv_txn_type = 'DELIVER' OR
201: END IF;
202:
203: x_transaction_amount := l_transaction_amount;
204:
205: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
206: l_api_message := 'x_transaction_amount : '||x_transaction_amount;
207: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,l_api_message);
208: END IF;
209:
203: x_transaction_amount := l_transaction_amount;
204:
205: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
206: l_api_message := 'x_transaction_amount : '||x_transaction_amount;
207: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,l_api_message);
208: END IF;
209:
210: /*****************************
211: * Standard check of p_commit *
218: * Standard Call to get message count and if count = 1, get message info *
219: ************************************************************************/
220: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,p_data => x_msg_data );
221:
222: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_TransactionAmount >>');
224: END IF;
225: EXCEPTION
226: WHEN FND_API.g_exc_error THEN
219: ************************************************************************/
220: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,p_data => x_msg_data );
221:
222: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_TransactionAmount >>');
224: END IF;
225: EXCEPTION
226: WHEN FND_API.g_exc_error THEN
227: ROLLBACK TO Get_TransactionAmount_PVT;
234: WHEN OTHERS THEN
235: ROLLBACK TO Get_TransactionAmount_PVT;
236: x_return_status := fnd_api.g_ret_sts_unexp_error ;
237:
238: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
239: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_TransactionAmount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
240: END IF;
241:
242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
235: ROLLBACK TO Get_TransactionAmount_PVT;
236: x_return_status := fnd_api.g_ret_sts_unexp_error ;
237:
238: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
239: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_TransactionAmount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
240: END IF;
241:
242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
243: FND_MSG_PUB.add_exc_msg( G_PKG_NAME,l_api_name || 'Statement -'||to_char(l_stmt_num));
301: SAVEPOINT Get_HookAccount_PVT;
302:
303: l_stmt_num := 0;
304:
305: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
306: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin','Get_HookAccount <<');
307: END IF;
308:
309: /************************************************
302:
303: l_stmt_num := 0;
304:
305: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
306: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin','Get_HookAccount <<');
307: END IF;
308:
309: /************************************************
310: * Standard call to check for call compatibility *
339: );
340:
341: IF l_return_status <> FND_API.g_ret_sts_success THEN
342: l_api_message := 'Error in Account Hook';
343: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
345: END IF;
346: RAISE FND_API.g_exc_unexpected_error;
347: END IF;
340:
341: IF l_return_status <> FND_API.g_ret_sts_success THEN
342: l_api_message := 'Error in Account Hook';
343: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
345: END IF;
346: RAISE FND_API.g_exc_unexpected_error;
347: END IF;
348:
357: AND GCC.code_combination_id = l_dist_acct_id;
358: IF (l_account_flag = 0) THEN
359: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
360: FND_MSG_pub.add;
361: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
362: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
363: END IF;
364: RAISE FND_API.g_exc_error;
365: END IF;
358: IF (l_account_flag = 0) THEN
359: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
360: FND_MSG_pub.add;
361: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
362: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
363: END IF;
364: RAISE FND_API.g_exc_error;
365: END IF;
366: END IF;
366: END IF;
367:
368: x_distribution_acct_id := l_dist_acct_id;
369:
370: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
371: l_api_message := 'x_distribution_acct_id : '||x_distribution_acct_id;
372: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,l_api_message);
373: END IF;
374:
368: x_distribution_acct_id := l_dist_acct_id;
369:
370: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
371: l_api_message := 'x_distribution_acct_id : '||x_distribution_acct_id;
372: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,l_api_message);
373: END IF;
374:
375: /*****************************
376: * Standard check of p_commit *
383: * Standard Call to get message count and if count = 1, get message info *
384: ************************************************************************/
385: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,p_data => x_msg_data );
386:
387: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
388: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_HookAccount >>');
389: END IF;
390: EXCEPTION
391: WHEN FND_API.g_exc_error THEN
384: ************************************************************************/
385: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,p_data => x_msg_data );
386:
387: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
388: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end','Get_HookAccount >>');
389: END IF;
390: EXCEPTION
391: WHEN FND_API.g_exc_error THEN
392: ROLLBACK TO Get_HookAccount_PVT;
398: FND_MSG_PUB.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
399: WHEN OTHERS THEN
400: ROLLBACK TO Get_HookAccount_PVT;
401: x_return_status := fnd_api.g_ret_sts_unexp_error ;
402: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
403: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
404: END IF;
405: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)THEN
406: FND_MSG_PUB.add_exc_msg( G_PKG_NAME,l_api_name || 'Statement -'||to_char(l_stmt_num));
399: WHEN OTHERS THEN
400: ROLLBACK TO Get_HookAccount_PVT;
401: x_return_status := fnd_api.g_ret_sts_unexp_error ;
402: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
403: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,'Get_HookAccount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
404: END IF;
405: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)THEN
406: FND_MSG_PUB.add_exc_msg( G_PKG_NAME,l_api_name || 'Statement -'||to_char(l_stmt_num));
407: END IF;
468: SAVEPOINT get_quantity_pvt;
469: l_stmt_num := 0;
470:
471: IF g_debug = 'Y'
472: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
473: THEN
474: fnd_log.STRING (fnd_log.level_procedure,
475: g_log_head || '.' || l_api_name || '.begin',
476: 'Get_Quantity <<'
470:
471: IF g_debug = 'Y'
472: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
473: THEN
474: fnd_log.STRING (fnd_log.level_procedure,
475: g_log_head || '.' || l_api_name || '.begin',
476: 'Get_Quantity <<'
477: );
478: END IF;
578: FROM po_distributions pod
579: WHERE pod.po_distribution_id = p_rcv_accttxn.po_distribution_id;
580:
581: IF g_debug = 'Y'
582: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
583: THEN
584: l_api_message :=
585: SUBSTR ( 'l_rcv_txn_type : '
586: || l_rcv_txn_type
596: || l_po_quantity_delivered,
597: 1,
598: 1000
599: );
600: fnd_log.STRING (fnd_log.level_statement,
601: g_log_head || '.' || l_api_name || '.'
602: || l_stmt_num,
603: l_api_message
604: );
667:
668: x_source_doc_quantity := l_source_doc_quantity;
669:
670: IF g_debug = 'Y'
671: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
672: THEN
673: l_api_message := 'x_source_doc_quantity : ' || x_source_doc_quantity;
674: fnd_log.STRING (fnd_log.level_statement,
675: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
670: IF g_debug = 'Y'
671: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
672: THEN
673: l_api_message := 'x_source_doc_quantity : ' || x_source_doc_quantity;
674: fnd_log.STRING (fnd_log.level_statement,
675: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
676: l_api_message
677: );
678: END IF;
687: fnd_msg_pub.count_and_get (p_count => x_msg_count,
688: p_data => x_msg_data);
689:
690: IF g_debug = 'Y'
691: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
692: THEN
693: fnd_log.STRING (fnd_log.level_procedure,
694: g_log_head || '.' || l_api_name || '.end',
695: 'Get_Quantity >>'
689:
690: IF g_debug = 'Y'
691: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
692: THEN
693: fnd_log.STRING (fnd_log.level_procedure,
694: g_log_head || '.' || l_api_name || '.end',
695: 'Get_Quantity >>'
696: );
697: END IF;
715: ROLLBACK TO get_quantity_pvt;
716: x_return_status := fnd_api.g_ret_sts_unexp_error;
717:
718: IF g_debug = 'Y'
719: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
720: THEN
721: fnd_log.STRING (fnd_log.level_unexpected,
722: g_log_head || '.' || l_api_name || l_stmt_num,
723: 'Get_Quantity : '
717:
718: IF g_debug = 'Y'
719: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
720: THEN
721: fnd_log.STRING (fnd_log.level_unexpected,
722: g_log_head || '.' || l_api_name || l_stmt_num,
723: 'Get_Quantity : '
724: || l_stmt_num
725: || ' : '
816: SAVEPOINT get_unitprice_pvt;
817: l_stmt_num := 0;
818:
819: IF g_debug = 'Y'
820: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
821: THEN
822: fnd_log.STRING (fnd_log.level_procedure,
823: g_log_head || '.' || l_api_name || '.begin',
824: 'Get_UnitPrice <<'
818:
819: IF g_debug = 'Y'
820: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
821: THEN
822: fnd_log.STRING (fnd_log.level_procedure,
823: g_log_head || '.' || l_api_name || '.begin',
824: 'Get_UnitPrice <<'
825: );
826: END IF;
881: fnd_message.set_name ('PO', 'PO_INVALID_ITEM');
882: fnd_msg_pub.ADD;
883:
884: IF g_debug = 'Y'
885: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
886: THEN
887: fnd_log.MESSAGE (fnd_log.level_error,
888: g_log_head || '.' || l_api_name
889: || l_stmt_num,
883:
884: IF g_debug = 'Y'
885: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
886: THEN
887: fnd_log.MESSAGE (fnd_log.level_error,
888: g_log_head || '.' || l_api_name
889: || l_stmt_num,
890: FALSE
891: );
911: fnd_message.set_name ('PO', 'PO_INVALID_ITEM');
912: fnd_msg_pub.ADD;
913:
914: IF g_debug = 'Y'
915: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
916: THEN
917: fnd_log.MESSAGE (fnd_log.level_error,
918: g_log_head || '.' || l_api_name
919: || l_stmt_num,
913:
914: IF g_debug = 'Y'
915: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
916: THEN
917: fnd_log.MESSAGE (fnd_log.level_error,
918: g_log_head || '.' || l_api_name
919: || l_stmt_num,
920: FALSE
921: );
932: END IF;
933: END IF;
934:
935: IF g_debug = 'Y'
936: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
937: THEN
938: l_api_message := 'l_ic_pricing_option : ' || l_ic_pricing_option;
939: fnd_log.STRING (fnd_log.level_statement,
940: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
935: IF g_debug = 'Y'
936: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
937: THEN
938: l_api_message := 'l_ic_pricing_option : ' || l_ic_pricing_option;
939: fnd_log.STRING (fnd_log.level_statement,
940: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
941: l_api_message
942: );
943: END IF;
981: -- to create the intercompany invoices.
982: l_stmt_num := 60;
983:
984: IF g_debug = 'Y'
985: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
986: THEN
987: l_api_message :=
988: 'Calling get_transfer_price API : '
989: || ' l_from_org_id : '
995: || ' item_id : '
996: || p_rcv_accttxn.item_id
997: || ' p_transaction_id : '
998: || p_rcv_accttxn.rcv_transaction_id;
999: fnd_log.STRING (fnd_log.level_event,
1000: g_log_head || '.' || l_api_name || '.'
1001: || l_stmt_num,
1002: l_api_message
1003: );
1024:
1025: IF l_return_status <> fnd_api.g_ret_sts_success
1026: THEN
1027: IF g_debug = 'Y'
1028: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1029: THEN
1030: l_api_message := 'Error getting transfer price';
1031: fnd_log.STRING (fnd_log.level_unexpected,
1032: g_log_head || '.' || l_api_name || l_stmt_num,
1027: IF g_debug = 'Y'
1028: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1029: THEN
1030: l_api_message := 'Error getting transfer price';
1031: fnd_log.STRING (fnd_log.level_unexpected,
1032: g_log_head || '.' || l_api_name || l_stmt_num,
1033: l_api_message
1034: );
1035: END IF;
1037: RAISE fnd_api.g_exc_unexpected_error;
1038: END IF;
1039:
1040: IF g_debug = 'Y'
1041: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1042: THEN
1043: l_api_message :=
1044: SUBSTR ( 'l_transfer_price : '
1045: || l_transfer_price
1050: || ' l_incr_currency_code : '
1051: || l_incr_currency_code,
1052: 1000
1053: );
1054: fnd_log.STRING (fnd_log.level_statement,
1055: g_log_head || '.' || l_api_name || l_stmt_num,
1056: 'Get_TransferPrice : '
1057: || l_stmt_num
1058: || ' : '
1088: x_unit_price := l_unit_price;
1089: x_currency_code := l_currency_code;
1090:
1091: IF g_debug = 'Y'
1092: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1093: THEN
1094: l_api_message :=
1095: SUBSTR ( 'x_ic_pricing_option : '
1096: || x_intercompany_pricing_option
1104: || x_incr_transfer_price,
1105: 1,
1106: 1000
1107: );
1108: fnd_log.STRING (fnd_log.level_statement,
1109: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
1110: l_api_message
1111: );
1112: END IF;
1121: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1122: p_data => x_msg_data);
1123:
1124: IF g_debug = 'Y'
1125: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1126: THEN
1127: fnd_log.STRING (fnd_log.level_procedure,
1128: g_log_head || '.' || l_api_name || '.end',
1129: 'Get_UnitPrice >>'
1123:
1124: IF g_debug = 'Y'
1125: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1126: THEN
1127: fnd_log.STRING (fnd_log.level_procedure,
1128: g_log_head || '.' || l_api_name || '.end',
1129: 'Get_UnitPrice >>'
1130: );
1131: END IF;
1149: ROLLBACK TO get_unitprice_pvt;
1150: x_return_status := fnd_api.g_ret_sts_unexp_error;
1151:
1152: IF g_debug = 'Y'
1153: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1154: THEN
1155: fnd_log.STRING (fnd_log.level_unexpected,
1156: g_log_head || '.' || l_api_name || l_stmt_num,
1157: 'Get_UnitPrice : '
1151:
1152: IF g_debug = 'Y'
1153: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1154: THEN
1155: fnd_log.STRING (fnd_log.level_unexpected,
1156: g_log_head || '.' || l_api_name || l_stmt_num,
1157: 'Get_UnitPrice : '
1158: || l_stmt_num
1159: || ' : '
1240: SAVEPOINT get_unittax_pvt;
1241: l_stmt_num := 0;
1242:
1243: IF g_debug = 'Y'
1244: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1245: THEN
1246: fnd_log.STRING (fnd_log.level_procedure,
1247: g_log_head || '.' || l_api_name || '.begin',
1248: 'Get_UnitTax <<'
1242:
1243: IF g_debug = 'Y'
1244: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1245: THEN
1246: fnd_log.STRING (fnd_log.level_procedure,
1247: g_log_head || '.' || l_api_name || '.begin',
1248: 'Get_UnitTax <<'
1249: );
1250: END IF;
1300: THEN
1301: l_api_message := 'Error getting Tax';
1302:
1303: IF g_debug = 'Y'
1304: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1305: THEN
1306: fnd_log.STRING (fnd_log.level_unexpected,
1307: g_log_head || '.' || l_api_name || l_stmt_num,
1308: 'Get_UnitPrice : '
1302:
1303: IF g_debug = 'Y'
1304: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1305: THEN
1306: fnd_log.STRING (fnd_log.level_unexpected,
1307: g_log_head || '.' || l_api_name || l_stmt_num,
1308: 'Get_UnitPrice : '
1309: || l_stmt_num
1310: || ' : '
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: END IF;
1317:
1318: IF g_debug = 'Y'
1319: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1320: THEN
1321: l_api_message :=
1322: SUBSTR ( 'l_recoverable_tax : '
1323: || l_recoverable_tax
1329: || l_old_non_recoverable_tax,
1330: 1,
1331: 1000
1332: );
1333: fnd_log.STRING (fnd_log.level_statement,
1334: g_log_head || '.' || l_api_name || '.'
1335: || l_stmt_num,
1336: l_api_message
1337: );
1376: x_prior_nr_tax := NVL (l_prior_nr_tax, 0);
1377: x_prior_rec_tax := NVL (l_prior_rec_tax, 0);
1378:
1379: IF g_debug = 'Y'
1380: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1381: THEN
1382: l_api_message :=
1383: SUBSTR ( 'x_unit_nr_tax : '
1384: || x_unit_nr_tax
1390: || x_prior_rec_tax,
1391: 1,
1392: 1000
1393: );
1394: fnd_log.STRING (fnd_log.level_statement,
1395: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
1396: l_api_message
1397: );
1398: END IF;
1407: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1408: p_data => x_msg_data);
1409:
1410: IF g_debug = 'Y'
1411: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1412: THEN
1413: fnd_log.STRING (fnd_log.level_procedure,
1414: g_log_head || '.' || l_api_name || '.end',
1415: 'Get_UnitTax >>'
1409:
1410: IF g_debug = 'Y'
1411: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1412: THEN
1413: fnd_log.STRING (fnd_log.level_procedure,
1414: g_log_head || '.' || l_api_name || '.end',
1415: 'Get_UnitTax >>'
1416: );
1417: END IF;
1435: ROLLBACK TO get_unittax_pvt;
1436: x_return_status := fnd_api.g_ret_sts_unexp_error;
1437:
1438: IF g_debug = 'Y'
1439: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1440: THEN
1441: fnd_log.STRING (fnd_log.level_unexpected,
1442: g_log_head || '.' || l_api_name || l_stmt_num,
1443: 'Get_UnitTax : '
1437:
1438: IF g_debug = 'Y'
1439: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1440: THEN
1441: fnd_log.STRING (fnd_log.level_unexpected,
1442: g_log_head || '.' || l_api_name || l_stmt_num,
1443: 'Get_UnitTax : '
1444: || l_stmt_num
1445: || ' : '
1534: fnd_msg_pub.initialize;
1535: END IF;
1536:
1537: IF g_debug = 'Y'
1538: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1539: THEN
1540: fnd_log.STRING (fnd_log.level_procedure,
1541: g_log_head || l_api_name || '.begin',
1542: 'Convert_UOM <<'
1536:
1537: IF g_debug = 'Y'
1538: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1539: THEN
1540: fnd_log.STRING (fnd_log.level_procedure,
1541: g_log_head || l_api_name || '.begin',
1542: 'Convert_UOM <<'
1543: );
1544: END IF;
1619: l_api_message :=
1620: 'inv_convert.inv_um_conversion() failed to get the UOM rate';
1621:
1622: IF g_debug = 'Y'
1623: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
1624: THEN
1625: fnd_log.STRING (fnd_log.level_error,
1626: g_log_head || l_api_name || '.' || l_stmt_num,
1627: l_api_message
1621:
1622: IF g_debug = 'Y'
1623: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
1624: THEN
1625: fnd_log.STRING (fnd_log.level_error,
1626: g_log_head || l_api_name || '.' || l_stmt_num,
1627: l_api_message
1628: );
1629: END IF;
1643: l_api_message :=
1644: 'inv_convert.inv_um_conversion() failed to get the UOM rate';
1645:
1646: IF g_debug = 'Y'
1647: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
1648: THEN
1649: fnd_log.STRING (fnd_log.level_error,
1650: g_log_head || l_api_name || '.' || l_stmt_num,
1651: l_api_message
1645:
1646: IF g_debug = 'Y'
1647: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
1648: THEN
1649: fnd_log.STRING (fnd_log.level_error,
1650: g_log_head || l_api_name || '.' || l_stmt_num,
1651: l_api_message
1652: );
1653: END IF;
1661: ROUND (l_trx_uom_rate * p_event_rec.source_doc_quantity, 6);
1662: x_trx_uom_code := l_trx_uom_code;
1663:
1664: IF g_debug = 'Y'
1665: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1666: THEN
1667: l_api_message :=
1668: 'x_primary_uom : '
1669: || x_primary_uom
1672: || ' x_transaction_qty : '
1673: || x_transaction_qty
1674: || ' x_trx_uom_code : '
1675: || x_trx_uom_code;
1676: fnd_log.STRING (fnd_log.level_statement,
1677: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
1678: l_api_message
1679: );
1680: END IF;
1687: COMMIT WORK;
1688: END IF;
1689:
1690: IF g_debug = 'Y'
1691: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1692: THEN
1693: fnd_log.STRING (fnd_log.level_procedure,
1694: g_log_head || l_api_name || '.end',
1695: 'Convert_UOM >>'
1689:
1690: IF g_debug = 'Y'
1691: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1692: THEN
1693: fnd_log.STRING (fnd_log.level_procedure,
1694: g_log_head || l_api_name || '.end',
1695: 'Convert_UOM >>'
1696: );
1697: END IF;
1718: ': Statement # ' || TO_CHAR (l_stmt_num)
1719: || ' - No UOM found.';
1720:
1721: IF g_debug = 'Y'
1722: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
1723: THEN
1724: fnd_log.STRING (fnd_log.level_error,
1725: g_log_head || l_api_name || '.' || l_stmt_num,
1726: l_api_message
1720:
1721: IF g_debug = 'Y'
1722: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
1723: THEN
1724: fnd_log.STRING (fnd_log.level_error,
1725: g_log_head || l_api_name || '.' || l_stmt_num,
1726: l_api_message
1727: );
1728: END IF;
1747: || '- '
1748: || SUBSTRB (SQLERRM, 1, 100);
1749:
1750: IF g_debug = 'Y'
1751: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1752: THEN
1753: fnd_log.STRING (fnd_log.level_unexpected,
1754: g_log_head || l_api_name || '.' || l_stmt_num,
1755: l_api_message
1749:
1750: IF g_debug = 'Y'
1751: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
1752: THEN
1753: fnd_log.STRING (fnd_log.level_unexpected,
1754: g_log_head || l_api_name || '.' || l_stmt_num,
1755: l_api_message
1756: );
1757: END IF;
1940: x_currency_conversion_date := NVL (l_currency_conversion_date, SYSDATE);
1941: x_currency_conversion_type := l_currency_conversion_type;
1942:
1943: IF g_debug = 'Y'
1944: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
1945: THEN
1946: l_api_message :=
1947: SUBSTR ( 'x_currency_code : '
1948: || x_currency_code
1954: || x_currency_conversion_type,
1955: 1,
1956: 1000
1957: );
1958: fnd_log.STRING (fnd_log.level_statement,
1959: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
1960: l_api_message
1961: );
1962: END IF;
1998: || '- '
1999: || SUBSTRB (SQLERRM, 1, 200);
2000:
2001: IF g_debug = 'Y'
2002: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
2003: THEN
2004: fnd_log.STRING (fnd_log.level_error,
2005: g_log_head || l_api_name || '.' || l_stmt_num,
2006: l_api_message
2000:
2001: IF g_debug = 'Y'
2002: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
2003: THEN
2004: fnd_log.STRING (fnd_log.level_error,
2005: g_log_head || l_api_name || '.' || l_stmt_num,
2006: l_api_message
2007: );
2008: END IF;
2030: || '- '
2031: || SUBSTRB (SQLERRM, 1, 200);
2032:
2033: IF g_debug = 'Y'
2034: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
2035: THEN
2036: fnd_log.STRING (fnd_log.level_error,
2037: g_log_head || l_api_name || '.' || l_stmt_num,
2038: l_api_message
2032:
2033: IF g_debug = 'Y'
2034: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
2035: THEN
2036: fnd_log.STRING (fnd_log.level_error,
2037: g_log_head || l_api_name || '.' || l_stmt_num,
2038: l_api_message
2039: );
2040: END IF;
2132: SAVEPOINT get_accounts_pvt;
2133: l_stmt_num := 0;
2134:
2135: IF g_debug = 'Y'
2136: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2137: THEN
2138: fnd_log.STRING (fnd_log.level_procedure,
2139: g_log_head || '.' || l_api_name || '.begin',
2140: 'Get_Accounts <<'
2134:
2135: IF g_debug = 'Y'
2136: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2137: THEN
2138: fnd_log.STRING (fnd_log.level_procedure,
2139: g_log_head || '.' || l_api_name || '.begin',
2140: 'Get_Accounts <<'
2141: );
2142: END IF;
2184: WHERE pod.po_distribution_id = p_rcv_accttxn.po_distribution_id;
2185:
2186: l_stmt_num := 20;
2187:
2188: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2189: fnd_log.STRING (
2190: fnd_log.level_procedure,
2191: g_log_head || '.' || l_api_name || 'stmt num 20',
2192: p_rcv_accttxn.organization_id
2185:
2186: l_stmt_num := 20;
2187:
2188: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2189: fnd_log.STRING (
2190: fnd_log.level_procedure,
2191: g_log_head || '.' || l_api_name || 'stmt num 20',
2192: p_rcv_accttxn.organization_id
2193: );
2186: l_stmt_num := 20;
2187:
2188: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2189: fnd_log.STRING (
2190: fnd_log.level_procedure,
2191: g_log_head || '.' || l_api_name || 'stmt num 20',
2192: p_rcv_accttxn.organization_id
2193: );
2194: END IF;
2199: l_retroprice_adj_acct_id
2200: FROM rcv_parameters
2201: WHERE organization_id = p_rcv_accttxn.organization_id;
2202:
2203: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2204: fnd_log.STRING (
2205: fnd_log.level_procedure,
2206: g_log_head || '.' || l_api_name || 'stmt num 20-2',
2207: p_rcv_accttxn.organization_id
2200: FROM rcv_parameters
2201: WHERE organization_id = p_rcv_accttxn.organization_id;
2202:
2203: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2204: fnd_log.STRING (
2205: fnd_log.level_procedure,
2206: g_log_head || '.' || l_api_name || 'stmt num 20-2',
2207: p_rcv_accttxn.organization_id
2208: );
2201: WHERE organization_id = p_rcv_accttxn.organization_id;
2202:
2203: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2204: fnd_log.STRING (
2205: fnd_log.level_procedure,
2206: g_log_head || '.' || l_api_name || 'stmt num 20-2',
2207: p_rcv_accttxn.organization_id
2208: );
2209: END IF;
2316: THEN
2317: l_api_message := 'Error in Get_HookAccount';
2318:
2319: IF g_debug = 'Y'
2320: AND fnd_log.level_unexpected >=
2321: fnd_log.g_current_runtime_level
2322: THEN
2323: fnd_log.STRING (fnd_log.level_unexpected,
2324: g_log_head || '.' || l_api_name
2317: l_api_message := 'Error in Get_HookAccount';
2318:
2319: IF g_debug = 'Y'
2320: AND fnd_log.level_unexpected >=
2321: fnd_log.g_current_runtime_level
2322: THEN
2323: fnd_log.STRING (fnd_log.level_unexpected,
2324: g_log_head || '.' || l_api_name
2325: || l_stmt_num,
2319: IF g_debug = 'Y'
2320: AND fnd_log.level_unexpected >=
2321: fnd_log.g_current_runtime_level
2322: THEN
2323: fnd_log.STRING (fnd_log.level_unexpected,
2324: g_log_head || '.' || l_api_name
2325: || l_stmt_num,
2326: 'Get_Accounts : '
2327: || l_stmt_num
2417: THEN
2418: l_api_message := 'Error in Get_HookAccount';
2419:
2420: IF g_debug = 'Y'
2421: AND fnd_log.level_unexpected >=
2422: fnd_log.g_current_runtime_level
2423: THEN
2424: fnd_log.STRING (fnd_log.level_unexpected,
2425: g_log_head || '.' || l_api_name
2418: l_api_message := 'Error in Get_HookAccount';
2419:
2420: IF g_debug = 'Y'
2421: AND fnd_log.level_unexpected >=
2422: fnd_log.g_current_runtime_level
2423: THEN
2424: fnd_log.STRING (fnd_log.level_unexpected,
2425: g_log_head || '.' || l_api_name
2426: || l_stmt_num,
2420: IF g_debug = 'Y'
2421: AND fnd_log.level_unexpected >=
2422: fnd_log.g_current_runtime_level
2423: THEN
2424: fnd_log.STRING (fnd_log.level_unexpected,
2425: g_log_head || '.' || l_api_name
2426: || l_stmt_num,
2427: 'Get_Accounts : '
2428: || l_stmt_num
2493: THEN
2494: l_api_message := 'Error in Get_HookAccount';
2495:
2496: IF g_debug = 'Y'
2497: AND fnd_log.level_unexpected >=
2498: fnd_log.g_current_runtime_level
2499: THEN
2500: fnd_log.STRING (fnd_log.level_unexpected,
2501: g_log_head
2494: l_api_message := 'Error in Get_HookAccount';
2495:
2496: IF g_debug = 'Y'
2497: AND fnd_log.level_unexpected >=
2498: fnd_log.g_current_runtime_level
2499: THEN
2500: fnd_log.STRING (fnd_log.level_unexpected,
2501: g_log_head
2502: || '.'
2496: IF g_debug = 'Y'
2497: AND fnd_log.level_unexpected >=
2498: fnd_log.g_current_runtime_level
2499: THEN
2500: fnd_log.STRING (fnd_log.level_unexpected,
2501: g_log_head
2502: || '.'
2503: || l_api_name
2504: || l_stmt_num,
2554: THEN
2555: l_api_message := 'Error in Get_HookAccount';
2556:
2557: IF g_debug = 'Y'
2558: AND fnd_log.level_unexpected >=
2559: fnd_log.g_current_runtime_level
2560: THEN
2561: fnd_log.STRING (fnd_log.level_unexpected,
2562: g_log_head
2555: l_api_message := 'Error in Get_HookAccount';
2556:
2557: IF g_debug = 'Y'
2558: AND fnd_log.level_unexpected >=
2559: fnd_log.g_current_runtime_level
2560: THEN
2561: fnd_log.STRING (fnd_log.level_unexpected,
2562: g_log_head
2563: || '.'
2557: IF g_debug = 'Y'
2558: AND fnd_log.level_unexpected >=
2559: fnd_log.g_current_runtime_level
2560: THEN
2561: fnd_log.STRING (fnd_log.level_unexpected,
2562: g_log_head
2563: || '.'
2564: || l_api_name
2565: || l_stmt_num,
2633: x_ic_cogs_acct_id :=
2634: p_transaction_forward_flow_rec.intercompany_cogs_account_id;
2635:
2636: IF g_debug = 'Y'
2637: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
2638: THEN
2639: l_api_message :=
2640: 'x_debit_acct_id : '
2641: || x_debit_acct_id
2642: || ' x_credit_acct_id : '
2643: || x_credit_acct_id
2644: || ' x_ic_cogs_acct_id : '
2645: || x_ic_cogs_acct_id;
2646: fnd_log.STRING (fnd_log.level_statement,
2647: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
2648: l_api_message
2649: );
2650: END IF;
2658: )
2659: )
2660: THEN
2661: IF g_debug = 'Y'
2662: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
2663: THEN
2664: l_api_message :=
2665: 'Unable to find credit and/or debit account. Setup is incomplete. ';
2666: fnd_log.STRING (fnd_log.level_statement,
2662: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
2663: THEN
2664: l_api_message :=
2665: 'Unable to find credit and/or debit account. Setup is incomplete. ';
2666: fnd_log.STRING (fnd_log.level_statement,
2667: g_log_head || '.' || l_api_name || '.'
2668: || l_stmt_num,
2669: l_api_message
2670: );
2673: fnd_message.set_name ('PO', 'PO_INVALID_ACCOUNT');
2674: fnd_msg_pub.ADD;
2675:
2676: IF g_debug = 'Y'
2677: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
2678: THEN
2679: fnd_log.MESSAGE (fnd_log.level_error,
2680: g_log_head || '.' || l_api_name || l_stmt_num,
2681: FALSE
2675:
2676: IF g_debug = 'Y'
2677: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
2678: THEN
2679: fnd_log.MESSAGE (fnd_log.level_error,
2680: g_log_head || '.' || l_api_name || l_stmt_num,
2681: FALSE
2682: );
2683: END IF;
2695: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2696: p_data => x_msg_data);
2697:
2698: IF g_debug = 'Y'
2699: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2700: THEN
2701: fnd_log.STRING (fnd_log.level_procedure,
2702: g_log_head || '.' || l_api_name || '.end',
2703: 'Get_Accounts >>'
2697:
2698: IF g_debug = 'Y'
2699: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2700: THEN
2701: fnd_log.STRING (fnd_log.level_procedure,
2702: g_log_head || '.' || l_api_name || '.end',
2703: 'Get_Accounts >>'
2704: );
2705: END IF;
2723: ROLLBACK TO get_accounts_pvt;
2724: x_return_status := fnd_api.g_ret_sts_unexp_error;
2725:
2726: IF g_debug = 'Y'
2727: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2728: THEN
2729: fnd_log.STRING (fnd_log.level_unexpected,
2730: g_log_head || '.' || l_api_name || l_stmt_num,
2731: 'Get_Accounts : '
2725:
2726: IF g_debug = 'Y'
2727: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2728: THEN
2729: fnd_log.STRING (fnd_log.level_unexpected,
2730: g_log_head || '.' || l_api_name || l_stmt_num,
2731: 'Get_Accounts : '
2732: || l_stmt_num
2733: || ' : '
2803: SAVEPOINT get_ussgltc_pvt;
2804: l_stmt_num := 0;
2805:
2806: IF g_debug = 'Y'
2807: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2808: THEN
2809: fnd_log.STRING (fnd_log.level_procedure,
2810: g_log_head || '.' || l_api_name || '.begin',
2811: 'Get_UssglTC <<'
2805:
2806: IF g_debug = 'Y'
2807: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2808: THEN
2809: fnd_log.STRING (fnd_log.level_procedure,
2810: g_log_head || '.' || l_api_name || '.begin',
2811: 'Get_UssglTC <<'
2812: );
2813: END IF;
2857:
2858: x_ussgl_tc := l_ussgl_tc;
2859:
2860: IF g_debug = 'Y'
2861: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
2862: THEN
2863: l_api_message := 'x_ussgl_tc : ' || x_ussgl_tc;
2864: fnd_log.STRING (fnd_log.level_statement,
2865: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
2860: IF g_debug = 'Y'
2861: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
2862: THEN
2863: l_api_message := 'x_ussgl_tc : ' || x_ussgl_tc;
2864: fnd_log.STRING (fnd_log.level_statement,
2865: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
2866: l_api_message
2867: );
2868: END IF;
2877: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2878: p_data => x_msg_data);
2879:
2880: IF g_debug = 'Y'
2881: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2882: THEN
2883: fnd_log.STRING (fnd_log.level_procedure,
2884: g_log_head || '.' || l_api_name || '.end',
2885: 'Get_UssglTC >>'
2879:
2880: IF g_debug = 'Y'
2881: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2882: THEN
2883: fnd_log.STRING (fnd_log.level_procedure,
2884: g_log_head || '.' || l_api_name || '.end',
2885: 'Get_UssglTC >>'
2886: );
2887: END IF;
2905: ROLLBACK TO get_ussgltc_pvt;
2906: x_return_status := fnd_api.g_ret_sts_unexp_error;
2907:
2908: IF g_debug = 'Y'
2909: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2910: THEN
2911: fnd_log.STRING (fnd_log.level_unexpected,
2912: g_log_head || '.' || l_api_name || l_stmt_num,
2913: 'Get_UssglTC : '
2907:
2908: IF g_debug = 'Y'
2909: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2910: THEN
2911: fnd_log.STRING (fnd_log.level_unexpected,
2912: g_log_head || '.' || l_api_name || l_stmt_num,
2913: 'Get_UssglTC : '
2914: || l_stmt_num
2915: || ' : '
2989: SAVEPOINT check_encumbranceflag_pvt;
2990: l_stmt_num := 0;
2991:
2992: IF g_debug = 'Y'
2993: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2994: THEN
2995: fnd_log.STRING (fnd_log.level_procedure,
2996: g_log_head || '.' || l_api_name || '.begin',
2997: 'Check_EncumbranceFlag <<'
2991:
2992: IF g_debug = 'Y'
2993: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2994: THEN
2995: fnd_log.STRING (fnd_log.level_procedure,
2996: g_log_head || '.' || l_api_name || '.begin',
2997: 'Check_EncumbranceFlag <<'
2998: );
2999: END IF;
3026: x_encumbrance_flag := l_encumbrance_flag;
3027: x_ussgl_option := NVL (fnd_profile.VALUE ('USSGL_OPTION'), 'N');
3028:
3029: IF g_debug = 'Y'
3030: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
3031: THEN
3032: l_api_message :=
3033: 'Encumbrance Flag : '
3034: || x_encumbrance_flag
3033: 'Encumbrance Flag : '
3034: || x_encumbrance_flag
3035: || ' Ussgl Option : '
3036: || x_ussgl_option;
3037: fnd_log.STRING (fnd_log.level_statement,
3038: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
3039: l_api_message
3040: );
3041: END IF;
3050: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3051: p_data => x_msg_data);
3052:
3053: IF g_debug = 'Y'
3054: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3055: THEN
3056: fnd_log.STRING (fnd_log.level_procedure,
3057: g_log_head || '.' || l_api_name || '.end',
3058: 'Check_EncumbranceFlag >>'
3052:
3053: IF g_debug = 'Y'
3054: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3055: THEN
3056: fnd_log.STRING (fnd_log.level_procedure,
3057: g_log_head || '.' || l_api_name || '.end',
3058: 'Check_EncumbranceFlag >>'
3059: );
3060: END IF;
3078: ROLLBACK TO check_encumbranceflag_pvt;
3079: x_return_status := fnd_api.g_ret_sts_unexp_error;
3080:
3081: IF g_debug = 'Y'
3082: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
3083: THEN
3084: fnd_log.STRING (fnd_log.level_unexpected,
3085: g_log_head || '.' || l_api_name || l_stmt_num,
3086: 'Check_EncumbranceFlag : '
3080:
3081: IF g_debug = 'Y'
3082: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
3083: THEN
3084: fnd_log.STRING (fnd_log.level_unexpected,
3085: g_log_head || '.' || l_api_name || l_stmt_num,
3086: 'Check_EncumbranceFlag : '
3087: || l_stmt_num
3088: || ' : '
3183: -- Standard start of API savepoint
3184: SAVEPOINT create_mmtrecord_pvt;
3185:
3186: IF g_debug = 'Y'
3187: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3188: THEN
3189: fnd_log.STRING (fnd_log.level_procedure,
3190: g_log_head || '.' || l_api_name || '.begin',
3191: 'Create_MMTRecord <<'
3185:
3186: IF g_debug = 'Y'
3187: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3188: THEN
3189: fnd_log.STRING (fnd_log.level_procedure,
3190: g_log_head || '.' || l_api_name || '.begin',
3191: 'Create_MMTRecord <<'
3192: );
3193: END IF;
3431: fnd_msg_pub.count_and_get (p_count => x_msg_count,
3432: p_data => x_msg_data);
3433:
3434: IF g_debug = 'Y'
3435: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3436: THEN
3437: fnd_log.STRING (fnd_log.level_procedure,
3438: g_log_head || '.' || l_api_name || '.end',
3439: 'Create_MMTRecord >>'
3433:
3434: IF g_debug = 'Y'
3435: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3436: THEN
3437: fnd_log.STRING (fnd_log.level_procedure,
3438: g_log_head || '.' || l_api_name || '.end',
3439: 'Create_MMTRecord >>'
3440: );
3441: END IF;
3472: 'Unexpected transaction type passed in: '
3473: || TO_CHAR (p_txn_type_id);
3474:
3475: IF g_debug = 'Y'
3476: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
3477: THEN
3478: fnd_log.STRING (fnd_log.level_error,
3479: g_log_head || l_api_name || '.' || l_stmt_num,
3480: l_api_message
3474:
3475: IF g_debug = 'Y'
3476: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
3477: THEN
3478: fnd_log.STRING (fnd_log.level_error,
3479: g_log_head || l_api_name || '.' || l_stmt_num,
3480: l_api_message
3481: );
3482: END IF;
3496: ROLLBACK TO create_mmtrecord_pvt;
3497: x_return_status := fnd_api.g_ret_sts_error;
3498:
3499: IF g_debug = 'Y'
3500: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
3501: THEN
3502: fnd_log.STRING (fnd_log.level_error,
3503: g_log_head || '.' || l_api_name || '.'
3504: || l_stmt_num,
3498:
3499: IF g_debug = 'Y'
3500: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
3501: THEN
3502: fnd_log.STRING (fnd_log.level_error,
3503: g_log_head || '.' || l_api_name || '.'
3504: || l_stmt_num,
3505: l_api_message
3506: );
3522: TO_CHAR (SQLCODE) || '- '
3523: || SUBSTRB (SQLERRM, 1, 100);
3524:
3525: IF g_debug = 'Y'
3526: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
3527: THEN
3528: fnd_log.STRING (fnd_log.level_unexpected,
3529: g_log_head || '.' || l_api_name || '.'
3530: || l_stmt_num,
3524:
3525: IF g_debug = 'Y'
3526: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
3527: THEN
3528: fnd_log.STRING (fnd_log.level_unexpected,
3529: g_log_head || '.' || l_api_name || '.'
3530: || l_stmt_num,
3531: 'Create_MMTRecord : '
3532: || l_stmt_num
3614: SAVEPOINT insert_mmt_pvt;
3615: l_stmt_num := 0;
3616:
3617: IF g_debug = 'Y'
3618: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3619: THEN
3620: fnd_log.STRING (fnd_log.level_procedure,
3621: g_log_head || l_api_name || '.begin',
3622: 'Insert_MMT <<'
3616:
3617: IF g_debug = 'Y'
3618: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3619: THEN
3620: fnd_log.STRING (fnd_log.level_procedure,
3621: g_log_head || l_api_name || '.begin',
3622: 'Insert_MMT <<'
3623: );
3624: END IF;
4050: l_ctr := p_rcv_accttxn_tbl.NEXT (l_ctr);
4051: END LOOP;
4052:
4053: IF g_debug = 'Y'
4054: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4055: THEN
4056: fnd_log.STRING (fnd_log.level_event,
4057: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4058: 'Creating Logical Transactions in MMT'
4052:
4053: IF g_debug = 'Y'
4054: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4055: THEN
4056: fnd_log.STRING (fnd_log.level_event,
4057: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4058: 'Creating Logical Transactions in MMT'
4059: );
4060: END IF;
4086: COMMIT WORK;
4087: END IF;
4088:
4089: IF g_debug = 'Y'
4090: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4091: THEN
4092: fnd_log.STRING (fnd_log.level_procedure,
4093: g_log_head || l_api_name || '.end',
4094: 'Insert_MMT >>'
4088:
4089: IF g_debug = 'Y'
4090: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4091: THEN
4092: fnd_log.STRING (fnd_log.level_procedure,
4093: g_log_head || l_api_name || '.end',
4094: 'Insert_MMT >>'
4095: );
4096: END IF;
4104: || TO_CHAR (l_ctr)
4105: || ' of input parameter p_rcv_accttxn_tbl';
4106:
4107: IF g_debug = 'Y'
4108: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
4109: THEN
4110: fnd_log.STRING (fnd_log.level_error,
4111: g_log_head || l_api_name || '.' || l_stmt_num,
4112: l_api_message
4106:
4107: IF g_debug = 'Y'
4108: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
4109: THEN
4110: fnd_log.STRING (fnd_log.level_error,
4111: g_log_head || l_api_name || '.' || l_stmt_num,
4112: l_api_message
4113: );
4114: END IF;
4129: x_return_status := fnd_api.g_ret_sts_error;
4130: l_api_message := 'Call to procedure failed';
4131:
4132: IF g_debug = 'Y'
4133: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
4134: THEN
4135: fnd_log.STRING (fnd_log.level_error,
4136: g_log_head || l_api_name || '.' || l_stmt_num,
4137: l_api_message
4131:
4132: IF g_debug = 'Y'
4133: AND fnd_log.level_error >= fnd_log.g_current_runtime_level
4134: THEN
4135: fnd_log.STRING (fnd_log.level_error,
4136: g_log_head || l_api_name || '.' || l_stmt_num,
4137: l_api_message
4138: );
4139: END IF;
4148: l_api_message :=
4149: 'Wrong version #, expecting version ' || TO_CHAR (l_api_version);
4150:
4151: IF g_debug = 'Y'
4152: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4153: THEN
4154: fnd_log.STRING (fnd_log.level_unexpected,
4155: g_log_head || l_api_name || '.' || l_stmt_num,
4156: l_api_message
4150:
4151: IF g_debug = 'Y'
4152: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4153: THEN
4154: fnd_log.STRING (fnd_log.level_unexpected,
4155: g_log_head || l_api_name || '.' || l_stmt_num,
4156: l_api_message
4157: );
4158: END IF;
4172: || '- '
4173: || SUBSTRB (SQLERRM, 1, 100);
4174:
4175: IF g_debug = 'Y'
4176: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4177: THEN
4178: fnd_log.STRING (fnd_log.level_unexpected,
4179: g_log_head || l_api_name || '.' || l_stmt_num,
4180: l_api_message
4174:
4175: IF g_debug = 'Y'
4176: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4177: THEN
4178: fnd_log.STRING (fnd_log.level_unexpected,
4179: g_log_head || l_api_name || '.' || l_stmt_num,
4180: l_api_message
4181: );
4182: END IF;
4276: SAVEPOINT insert_txn_pvt;
4277: l_stmt_num := 0;
4278:
4279: IF g_debug = 'Y'
4280: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4281: THEN
4282: fnd_log.STRING (fnd_log.level_procedure,
4283: g_log_head || '.' || l_api_name || '.begin',
4284: 'Insert_Txn <<'
4278:
4279: IF g_debug = 'Y'
4280: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4281: THEN
4282: fnd_log.STRING (fnd_log.level_procedure,
4283: g_log_head || '.' || l_api_name || '.begin',
4284: 'Insert_Txn <<'
4285: );
4286: END IF;
4304: -- Initialize API return status to success
4305: x_return_status := fnd_api.g_ret_sts_success;
4306:
4307: IF g_debug = 'Y'
4308: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
4309: THEN
4310: l_api_message :=
4311: 'Insert_Txn : PARAMETERS 1:'
4312: || ' p_event_source : '
4324: || ' p_gl_group_id : '
4325: || p_gl_group_id
4326: || ' p_cross_ou_flag : '
4327: || p_cross_ou_flag;
4328: fnd_log.STRING (fnd_log.level_statement,
4329: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4330: l_api_message
4331: );
4332: l_api_message :=
4350: || ' p_unit_price : '
4351: || p_unit_price
4352: || ' p_prior_unit_price : '
4353: || p_prior_unit_price;
4354: fnd_log.STRING (fnd_log.level_statement,
4355: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4356: l_api_message
4357: );
4358: END IF;
4372: IF (p_event_source = 'INVOICEMATCH')
4373: THEN
4374: -- This source is only for period end accruals, one-time items
4375: IF g_debug = 'Y'
4376: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
4377: THEN
4378: fnd_log.STRING (fnd_log.level_statement,
4379: g_log_head || '.' || l_api_name || '.'
4380: || l_stmt_num,
4374: -- This source is only for period end accruals, one-time items
4375: IF g_debug = 'Y'
4376: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
4377: THEN
4378: fnd_log.STRING (fnd_log.level_statement,
4379: g_log_head || '.' || l_api_name || '.'
4380: || l_stmt_num,
4381: 'Getting PO information from Invoice'
4382: );
4416: ELSE
4417: l_stmt_num := 30;
4418:
4419: IF g_debug = 'Y'
4420: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4421: THEN
4422: fnd_log.STRING
4423: (fnd_log.level_event,
4424: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4418:
4419: IF g_debug = 'Y'
4420: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4421: THEN
4422: fnd_log.STRING
4423: (fnd_log.level_event,
4424: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4425: 'Getting PO information from Receiving Transaction'
4426: );
4419: IF g_debug = 'Y'
4420: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4421: THEN
4422: fnd_log.STRING
4423: (fnd_log.level_event,
4424: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4425: 'Getting PO information from Receiving Transaction'
4426: );
4427: END IF;
4511: THEN
4512: l_stmt_num := 70;
4513:
4514: IF g_debug = 'Y'
4515: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4516: THEN
4517: fnd_log.STRING (fnd_log.level_event,
4518: g_log_head
4519: || '.'
4513:
4514: IF g_debug = 'Y'
4515: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4516: THEN
4517: fnd_log.STRING (fnd_log.level_event,
4518: g_log_head
4519: || '.'
4520: || l_api_name
4521: || '.'
4537: THEN
4538: l_api_message := 'Error in checking for encumbrance flag ';
4539:
4540: IF g_debug = 'Y'
4541: AND fnd_log.level_unexpected >=
4542: fnd_log.g_current_runtime_level
4543: THEN
4544: fnd_log.STRING (fnd_log.level_unexpected,
4545: g_log_head || '.' || l_api_name
4538: l_api_message := 'Error in checking for encumbrance flag ';
4539:
4540: IF g_debug = 'Y'
4541: AND fnd_log.level_unexpected >=
4542: fnd_log.g_current_runtime_level
4543: THEN
4544: fnd_log.STRING (fnd_log.level_unexpected,
4545: g_log_head || '.' || l_api_name
4546: || l_stmt_num,
4540: IF g_debug = 'Y'
4541: AND fnd_log.level_unexpected >=
4542: fnd_log.g_current_runtime_level
4543: THEN
4544: fnd_log.STRING (fnd_log.level_unexpected,
4545: g_log_head || '.' || l_api_name
4546: || l_stmt_num,
4547: 'Insert_Txn : '
4548: || l_stmt_num
4580: THEN
4581: l_stmt_num := 100;
4582:
4583: IF g_debug = 'Y'
4584: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4585: THEN
4586: fnd_log.STRING (fnd_log.level_event,
4587: g_log_head || '.' || l_api_name || '.'
4588: || l_stmt_num,
4582:
4583: IF g_debug = 'Y'
4584: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4585: THEN
4586: fnd_log.STRING (fnd_log.level_event,
4587: g_log_head || '.' || l_api_name || '.'
4588: || l_stmt_num,
4589: 'Service line type : Getting Transaction Amount'
4590: );
4602: THEN
4603: l_api_message := 'Error getting transaction amount';
4604:
4605: IF g_debug = 'Y'
4606: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4607: THEN
4608: fnd_log.STRING (fnd_log.level_unexpected,
4609: g_log_head || '.' || l_api_name || l_stmt_num,
4610: 'Insert_Txn : '
4604:
4605: IF g_debug = 'Y'
4606: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4607: THEN
4608: fnd_log.STRING (fnd_log.level_unexpected,
4609: g_log_head || '.' || l_api_name || l_stmt_num,
4610: 'Insert_Txn : '
4611: || l_stmt_num
4612: || ' : '
4621: ELSE
4622: l_stmt_num := 110;
4623:
4624: IF g_debug = 'Y'
4625: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4626: THEN
4627: fnd_log.STRING (fnd_log.level_event,
4628: g_log_head || '.' || l_api_name || '.'
4629: || l_stmt_num,
4623:
4624: IF g_debug = 'Y'
4625: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4626: THEN
4627: fnd_log.STRING (fnd_log.level_event,
4628: g_log_head || '.' || l_api_name || '.'
4629: || l_stmt_num,
4630: 'Non Service Line Type : Getting Unit Price'
4631: );
4664: THEN
4665: l_api_message := 'Error getting unit price';
4666:
4667: IF g_debug = 'Y'
4668: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4669: THEN
4670: fnd_log.STRING (fnd_log.level_unexpected,
4671: g_log_head || '.' || l_api_name || l_stmt_num,
4672: 'Insert_Txn : '
4666:
4667: IF g_debug = 'Y'
4668: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4669: THEN
4670: fnd_log.STRING (fnd_log.level_unexpected,
4671: g_log_head || '.' || l_api_name || l_stmt_num,
4672: 'Insert_Txn : '
4673: || l_stmt_num
4674: || ' : '
4691: THEN
4692: l_stmt_num := 120;
4693:
4694: IF g_debug = 'Y'
4695: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4696: THEN
4697: fnd_log.STRING (fnd_log.level_event,
4698: g_log_head || '.' || l_api_name || '.'
4699: || l_stmt_num,
4693:
4694: IF g_debug = 'Y'
4695: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4696: THEN
4697: fnd_log.STRING (fnd_log.level_event,
4698: g_log_head || '.' || l_api_name || '.'
4699: || l_stmt_num,
4700: 'Non Service line type : Getting Quantity'
4701: );
4713: THEN
4714: l_api_message := 'Error getting quantity';
4715:
4716: IF g_debug = 'Y'
4717: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4718: THEN
4719: fnd_log.STRING (fnd_log.level_unexpected,
4720: g_log_head || '.' || l_api_name || l_stmt_num,
4721: 'Insert_Txn : '
4715:
4716: IF g_debug = 'Y'
4717: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4718: THEN
4719: fnd_log.STRING (fnd_log.level_unexpected,
4720: g_log_head || '.' || l_api_name || l_stmt_num,
4721: 'Insert_Txn : '
4722: || l_stmt_num
4723: || ' : '
4735: THEN
4736: x_return_status := 'W';
4737:
4738: IF g_debug = 'Y'
4739: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4740: THEN
4741: l_api_message :=
4742: 'Transaction Quantity is 0. Returning without seeding event.';
4743: fnd_log.STRING (fnd_log.level_unexpected,
4739: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4740: THEN
4741: l_api_message :=
4742: 'Transaction Quantity is 0. Returning without seeding event.';
4743: fnd_log.STRING (fnd_log.level_unexpected,
4744: g_log_head || '.' || l_api_name || l_stmt_num,
4745: 'Insert_Txnt : '
4746: || l_stmt_num
4747: || ' : '
4755:
4756: l_stmt_num := 130;
4757:
4758: IF g_debug = 'Y'
4759: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4760: THEN
4761: fnd_log.STRING (fnd_log.level_event,
4762: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4763: 'Getting Tax'
4757:
4758: IF g_debug = 'Y'
4759: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4760: THEN
4761: fnd_log.STRING (fnd_log.level_event,
4762: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4763: 'Getting Tax'
4764: );
4765: END IF;
4779: THEN
4780: l_api_message := 'Error getting tax';
4781:
4782: IF g_debug = 'Y'
4783: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4784: THEN
4785: fnd_log.STRING (fnd_log.level_unexpected,
4786: g_log_head || '.' || l_api_name || l_stmt_num,
4787: 'Insert_Txn : '
4781:
4782: IF g_debug = 'Y'
4783: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4784: THEN
4785: fnd_log.STRING (fnd_log.level_unexpected,
4786: g_log_head || '.' || l_api_name || l_stmt_num,
4787: 'Insert_Txn : '
4788: || l_stmt_num
4789: || ' : '
4802:
4803: IF l_rcv_accttxn.service_flag = 'N'
4804: THEN
4805: IF g_debug = 'Y'
4806: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4807: THEN
4808: fnd_log.STRING (fnd_log.level_event,
4809: g_log_head || '.' || l_api_name || '.'
4810: || l_stmt_num,
4804: THEN
4805: IF g_debug = 'Y'
4806: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4807: THEN
4808: fnd_log.STRING (fnd_log.level_event,
4809: g_log_head || '.' || l_api_name || '.'
4810: || l_stmt_num,
4811: 'Getting UOM'
4812: );
4827: THEN
4828: l_api_message := 'Error Converting UOM';
4829:
4830: IF g_debug = 'Y'
4831: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4832: THEN
4833: fnd_log.STRING (fnd_log.level_unexpected,
4834: g_log_head || '.' || l_api_name || l_stmt_num,
4835: 'Insert_Txn : '
4829:
4830: IF g_debug = 'Y'
4831: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4832: THEN
4833: fnd_log.STRING (fnd_log.level_unexpected,
4834: g_log_head || '.' || l_api_name || l_stmt_num,
4835: 'Insert_Txn : '
4836: || l_stmt_num
4837: || ' : '
4851: -- Initialize Currency Information
4852: l_stmt_num := 150;
4853:
4854: IF g_debug = 'Y'
4855: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4856: THEN
4857: fnd_log.STRING (fnd_log.level_event,
4858: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4859: 'Getting Currency Information'
4853:
4854: IF g_debug = 'Y'
4855: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4856: THEN
4857: fnd_log.STRING (fnd_log.level_event,
4858: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4859: 'Getting Currency Information'
4860: );
4861: END IF;
4875: THEN
4876: l_api_message := 'Error Getting Currency';
4877:
4878: IF g_debug = 'Y'
4879: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4880: THEN
4881: fnd_log.STRING (fnd_log.level_unexpected,
4882: g_log_head || '.' || l_api_name || l_stmt_num,
4883: 'Insert_Txn : '
4877:
4878: IF g_debug = 'Y'
4879: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4880: THEN
4881: fnd_log.STRING (fnd_log.level_unexpected,
4882: g_log_head || '.' || l_api_name || l_stmt_num,
4883: 'Insert_Txn : '
4884: || l_stmt_num
4885: || ' : '
4897: -- Get Debit and Credit Accounts
4898: l_stmt_num := 160;
4899:
4900: IF g_debug = 'Y'
4901: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4902: THEN
4903: fnd_log.STRING (fnd_log.level_event,
4904: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4905: 'Getting Debit and Credit Accounts'
4899:
4900: IF g_debug = 'Y'
4901: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4902: THEN
4903: fnd_log.STRING (fnd_log.level_event,
4904: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4905: 'Getting Debit and Credit Accounts'
4906: );
4907: END IF;
4923: THEN
4924: l_api_message := 'Error getting account information';
4925:
4926: IF g_debug = 'Y'
4927: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4928: THEN
4929: fnd_log.STRING (fnd_log.level_unexpected,
4930: g_log_head || '.' || l_api_name || l_stmt_num,
4931: 'Insert_Txn : '
4925:
4926: IF g_debug = 'Y'
4927: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4928: THEN
4929: fnd_log.STRING (fnd_log.level_unexpected,
4930: g_log_head || '.' || l_api_name || l_stmt_num,
4931: 'Insert_Txn : '
4932: || l_stmt_num
4933: || ' : '
4944: -- Initialize USSGL Transaction Codes
4945: l_stmt_num := 170;
4946:
4947: IF g_debug = 'Y'
4948: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4949: THEN
4950: fnd_log.STRING (fnd_log.level_event,
4951: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4952: 'Getting USSGL TC'
4946:
4947: IF g_debug = 'Y'
4948: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
4949: THEN
4950: fnd_log.STRING (fnd_log.level_event,
4951: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
4952: 'Getting USSGL TC'
4953: );
4954: END IF;
4965: THEN
4966: l_api_message := 'Error getting USSGL Transaction Code';
4967:
4968: IF g_debug = 'Y'
4969: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4970: THEN
4971: fnd_log.STRING (fnd_log.level_unexpected,
4972: g_log_head || '.' || l_api_name || l_stmt_num,
4973: 'Insert_Txn : '
4967:
4968: IF g_debug = 'Y'
4969: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
4970: THEN
4971: fnd_log.STRING (fnd_log.level_unexpected,
4972: g_log_head || '.' || l_api_name || l_stmt_num,
4973: 'Insert_Txn : '
4974: || l_stmt_num
4975: || ' : '
4993: fnd_msg_pub.count_and_get (p_count => x_msg_count,
4994: p_data => x_msg_data);
4995:
4996: IF g_debug = 'Y'
4997: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4998: THEN
4999: fnd_log.STRING (fnd_log.level_procedure,
5000: g_log_head || '.' || l_api_name || '.end',
5001: 'Insert_Txn >>'
4995:
4996: IF g_debug = 'Y'
4997: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
4998: THEN
4999: fnd_log.STRING (fnd_log.level_procedure,
5000: g_log_head || '.' || l_api_name || '.end',
5001: 'Insert_Txn >>'
5002: );
5003: END IF;
5021: ROLLBACK TO insert_txn_pvt;
5022: x_return_status := fnd_api.g_ret_sts_unexp_error;
5023:
5024: IF g_debug = 'Y'
5025: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5026: THEN
5027: fnd_log.STRING (fnd_log.level_unexpected,
5028: g_log_head || '.' || l_api_name || l_stmt_num,
5029: 'Insert_Txn '
5023:
5024: IF g_debug = 'Y'
5025: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5026: THEN
5027: fnd_log.STRING (fnd_log.level_unexpected,
5028: g_log_head || '.' || l_api_name || l_stmt_num,
5029: 'Insert_Txn '
5030: || l_stmt_num
5031: || ' : '
5085: SAVEPOINT insert_txn2_pvt;
5086: l_stmt_num := 0;
5087:
5088: IF g_debug = 'Y'
5089: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
5090: THEN
5091: fnd_log.STRING (fnd_log.level_procedure,
5092: g_log_head || '.' || l_api_name || '.begin',
5093: 'Insert_Txn2 <<'
5087:
5088: IF g_debug = 'Y'
5089: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
5090: THEN
5091: fnd_log.STRING (fnd_log.level_procedure,
5092: g_log_head || '.' || l_api_name || '.begin',
5093: 'Insert_Txn2 <<'
5094: );
5095: END IF;
5113: -- Initialize API return status to success
5114: x_return_status := fnd_api.g_ret_sts_success;
5115:
5116: IF g_debug = 'Y'
5117: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5118: THEN
5119: l_api_message :=
5120: 'Inserting '
5121: || p_rcv_accttxn_tbl.COUNT
5119: l_api_message :=
5120: 'Inserting '
5121: || p_rcv_accttxn_tbl.COUNT
5122: || ' transactions into GRAT';
5123: fnd_log.STRING (fnd_log.level_statement,
5124: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
5125: l_api_message
5126: );
5127: END IF;
5146: INTO l_accounting_txn_id
5147: FROM DUAL;
5148:
5149: IF g_debug = 'Y'
5150: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5151: THEN
5152: l_api_message :=
5153: SUBSTR ( 'i : '
5154: || i
5170: || p_rcv_accttxn_tbl (i).unit_rec_tax,
5171: 1,
5172: 1000
5173: );
5174: fnd_log.STRING (fnd_log.level_statement,
5175: g_log_head || '.' || l_api_name || '.'
5176: || l_stmt_num,
5177: l_api_message
5178: );
5306: /* end LCM-OPM Integration */
5307: );
5308:
5309: IF g_debug = 'Y'
5310: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5311: THEN
5312: l_api_message :=
5313: 'Inserted '
5314: || SQL%ROWCOUNT
5313: 'Inserted '
5314: || SQL%ROWCOUNT
5315: || 'rows in GRAT for org '
5316: || p_rcv_accttxn_tbl (i).org_id;
5317: fnd_log.STRING (fnd_log.level_statement,
5318: g_log_head || '.' || l_api_name || '.'
5319: || l_stmt_num,
5320: l_api_message
5321: );
5339: fnd_msg_pub.count_and_get (p_count => x_msg_count,
5340: p_data => x_msg_data);
5341:
5342: IF g_debug = 'Y'
5343: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
5344: THEN
5345: fnd_log.STRING (fnd_log.level_procedure,
5346: g_log_head || '.' || l_api_name || '.end',
5347: 'Insert_Txn2 >>'
5341:
5342: IF g_debug = 'Y'
5343: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
5344: THEN
5345: fnd_log.STRING (fnd_log.level_procedure,
5346: g_log_head || '.' || l_api_name || '.end',
5347: 'Insert_Txn2 >>'
5348: );
5349: END IF;
5367: ROLLBACK TO insert_txn2_pvt;
5368: x_return_status := fnd_api.g_ret_sts_unexp_error;
5369:
5370: IF g_debug = 'Y'
5371: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5372: THEN
5373: fnd_log.STRING (fnd_log.level_unexpected,
5374: g_log_head || '.' || l_api_name || l_stmt_num,
5375: 'Insert_Txn2 : '
5369:
5370: IF g_debug = 'Y'
5371: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5372: THEN
5373: fnd_log.STRING (fnd_log.level_unexpected,
5374: g_log_head || '.' || l_api_name || l_stmt_num,
5375: 'Insert_Txn2 : '
5376: || l_stmt_num
5377: || ' : '
5465: SAVEPOINT create_receiveevents_pvt;
5466: l_stmt_num := 0;
5467:
5468: IF g_debug = 'Y'
5469: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
5470: THEN
5471: fnd_log.STRING (fnd_log.level_procedure,
5472: g_log_head || '.' || l_api_name || '.begin',
5473: 'Create_ReceiveEvents <<'
5467:
5468: IF g_debug = 'Y'
5469: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
5470: THEN
5471: fnd_log.STRING (fnd_log.level_procedure,
5472: g_log_head || '.' || l_api_name || '.begin',
5473: 'Create_ReceiveEvents <<'
5474: );
5475: END IF;
5530:
5531: l_stmt_num := 40;
5532:
5533: IF g_debug = 'Y'
5534: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5535: THEN
5536: l_api_message :=
5537: 'Creating Receive transactions : RCV Transaction ID : '
5538: || p_rcv_transaction_id
5561: || ', Category ID : '
5562: || l_category_id
5563: || ', Accrual Flag : '
5564: || l_accrual_flag;
5565: fnd_log.STRING (fnd_log.level_statement,
5566: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
5567: l_api_message
5568: );
5569: END IF;
5580: l_category_id;
5581: l_stmt_num := 50;
5582:
5583: IF g_debug = 'Y'
5584: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5585: THEN
5586: l_api_message :=
5587: 'Getting Procurement Transaction Flow :'
5588: || 'l_po_org_id : '
5590: || ' l_rcv_org_id : '
5591: || l_rcv_org_id
5592: || ' l_rcv_organization_id : '
5593: || l_rcv_organization_id;
5594: fnd_log.STRING (fnd_log.level_statement,
5595: g_log_head || '.' || l_api_name || '.'
5596: || l_stmt_num,
5597: l_api_message
5598: );
5620: l_trx_flow_header_id :=
5621: l_transaction_flows_tbl (l_transaction_flows_tbl.FIRST).header_id;
5622:
5623: IF g_debug = 'Y'
5624: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5625: THEN
5626: fnd_log.STRING (fnd_log.level_event,
5627: g_log_head
5628: || '.'
5622:
5623: IF g_debug = 'Y'
5624: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5625: THEN
5626: fnd_log.STRING (fnd_log.level_event,
5627: g_log_head
5628: || '.'
5629: || l_api_name
5630: || '.'
5637: THEN
5638: l_trx_flow_exists_flag := 0;
5639:
5640: IF g_debug = 'Y'
5641: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5642: THEN
5643: fnd_log.STRING (fnd_log.level_event,
5644: g_log_head
5645: || '.'
5639:
5640: IF g_debug = 'Y'
5641: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5642: THEN
5643: fnd_log.STRING (fnd_log.level_event,
5644: g_log_head
5645: || '.'
5646: || l_api_name
5647: || '.'
5656: THEN
5657: l_api_message := 'Transaction Flow does not exist';
5658:
5659: IF g_debug = 'Y'
5660: AND fnd_log.level_unexpected >=
5661: fnd_log.g_current_runtime_level
5662: THEN
5663: fnd_log.STRING (fnd_log.level_unexpected,
5664: g_log_head || '.' || l_api_name
5657: l_api_message := 'Transaction Flow does not exist';
5658:
5659: IF g_debug = 'Y'
5660: AND fnd_log.level_unexpected >=
5661: fnd_log.g_current_runtime_level
5662: THEN
5663: fnd_log.STRING (fnd_log.level_unexpected,
5664: g_log_head || '.' || l_api_name
5665: || l_stmt_num,
5659: IF g_debug = 'Y'
5660: AND fnd_log.level_unexpected >=
5661: fnd_log.g_current_runtime_level
5662: THEN
5663: fnd_log.STRING (fnd_log.level_unexpected,
5664: g_log_head || '.' || l_api_name
5665: || l_stmt_num,
5666: 'Create_ReceiveEvents : '
5667: || l_stmt_num
5675: ELSE
5676: l_api_message := 'Error occurred in Transaction Flow API';
5677:
5678: IF g_debug = 'Y'
5679: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5680: THEN
5681: fnd_log.STRING (fnd_log.level_unexpected,
5682: g_log_head || '.' || l_api_name || l_stmt_num,
5683: 'Create_ReceiveEvents : '
5677:
5678: IF g_debug = 'Y'
5679: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
5680: THEN
5681: fnd_log.STRING (fnd_log.level_unexpected,
5682: g_log_head || '.' || l_api_name || l_stmt_num,
5683: 'Create_ReceiveEvents : '
5684: || l_stmt_num
5685: || ' : '
5702: LOOP
5703: l_stmt_num := 60;
5704:
5705: IF g_debug = 'Y'
5706: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
5707: THEN
5708: l_api_message :=
5709: 'Creating Receive transactions : '
5710: || 'po_distribution_id : '
5712: || ' destination_type_code : '
5713: || rec_pod.destination_type_code
5714: || ' project_id : '
5715: || rec_pod.project_id;
5716: fnd_log.STRING (fnd_log.level_statement,
5717: g_log_head || '.' || l_api_name || '.'
5718: || l_stmt_num,
5719: l_api_message
5720: );
5738: FOR l_counter IN
5739: l_transaction_flows_tbl.FIRST .. l_transaction_flows_tbl.LAST
5740: LOOP
5741: IF g_debug = 'Y'
5742: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5743: THEN
5744: fnd_log.STRING (fnd_log.level_event,
5745: g_log_head
5746: || '.'
5740: LOOP
5741: IF g_debug = 'Y'
5742: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5743: THEN
5744: fnd_log.STRING (fnd_log.level_event,
5745: g_log_head
5746: || '.'
5747: || l_api_name
5748: || '.'
5809: THEN
5810: l_api_message := 'Error creating event';
5811:
5812: IF g_debug = 'Y'
5813: AND fnd_log.level_unexpected >=
5814: fnd_log.g_current_runtime_level
5815: THEN
5816: fnd_log.STRING (fnd_log.level_unexpected,
5817: g_log_head
5810: l_api_message := 'Error creating event';
5811:
5812: IF g_debug = 'Y'
5813: AND fnd_log.level_unexpected >=
5814: fnd_log.g_current_runtime_level
5815: THEN
5816: fnd_log.STRING (fnd_log.level_unexpected,
5817: g_log_head
5818: || '.'
5812: IF g_debug = 'Y'
5813: AND fnd_log.level_unexpected >=
5814: fnd_log.g_current_runtime_level
5815: THEN
5816: fnd_log.STRING (fnd_log.level_unexpected,
5817: g_log_head
5818: || '.'
5819: || l_api_name
5820: || l_stmt_num,
5839: THEN
5840: l_stmt_num := 90;
5841:
5842: IF g_debug = 'Y'
5843: AND fnd_log.level_event >=
5844: fnd_log.g_current_runtime_level
5845: THEN
5846: fnd_log.STRING (fnd_log.level_event,
5847: g_log_head
5840: l_stmt_num := 90;
5841:
5842: IF g_debug = 'Y'
5843: AND fnd_log.level_event >=
5844: fnd_log.g_current_runtime_level
5845: THEN
5846: fnd_log.STRING (fnd_log.level_event,
5847: g_log_head
5848: || '.'
5842: IF g_debug = 'Y'
5843: AND fnd_log.level_event >=
5844: fnd_log.g_current_runtime_level
5845: THEN
5846: fnd_log.STRING (fnd_log.level_event,
5847: g_log_head
5848: || '.'
5849: || l_api_name
5850: || '.'
5889: THEN
5890: l_api_message := 'Error creating event';
5891:
5892: IF g_debug = 'Y'
5893: AND fnd_log.level_unexpected >=
5894: fnd_log.g_current_runtime_level
5895: THEN
5896: fnd_log.STRING (fnd_log.level_unexpected,
5897: g_log_head
5890: l_api_message := 'Error creating event';
5891:
5892: IF g_debug = 'Y'
5893: AND fnd_log.level_unexpected >=
5894: fnd_log.g_current_runtime_level
5895: THEN
5896: fnd_log.STRING (fnd_log.level_unexpected,
5897: g_log_head
5898: || '.'
5892: IF g_debug = 'Y'
5893: AND fnd_log.level_unexpected >=
5894: fnd_log.g_current_runtime_level
5895: THEN
5896: fnd_log.STRING (fnd_log.level_unexpected,
5897: g_log_head
5898: || '.'
5899: || l_api_name
5900: || l_stmt_num,
5944: IF (l_drop_ship_flag IN (1, 2))
5945: THEN
5946: -- This is a pure (external) drop ship scenario. Seed a LOGICAL_RECEIVE event in the receiving org.
5947: IF g_debug = 'Y'
5948: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5949: THEN
5950: fnd_log.STRING (fnd_log.level_event,
5951: g_log_head
5952: || '.'
5946: -- This is a pure (external) drop ship scenario. Seed a LOGICAL_RECEIVE event in the receiving org.
5947: IF g_debug = 'Y'
5948: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
5949: THEN
5950: fnd_log.STRING (fnd_log.level_event,
5951: g_log_head
5952: || '.'
5953: || l_api_name
5954: || '.'
5990: THEN
5991: l_api_message := 'Error creating event';
5992:
5993: IF g_debug = 'Y'
5994: AND fnd_log.level_unexpected >=
5995: fnd_log.g_current_runtime_level
5996: THEN
5997: fnd_log.STRING (fnd_log.level_unexpected,
5998: g_log_head || '.' || l_api_name
5991: l_api_message := 'Error creating event';
5992:
5993: IF g_debug = 'Y'
5994: AND fnd_log.level_unexpected >=
5995: fnd_log.g_current_runtime_level
5996: THEN
5997: fnd_log.STRING (fnd_log.level_unexpected,
5998: g_log_head || '.' || l_api_name
5999: || l_stmt_num,
5993: IF g_debug = 'Y'
5994: AND fnd_log.level_unexpected >=
5995: fnd_log.g_current_runtime_level
5996: THEN
5997: fnd_log.STRING (fnd_log.level_unexpected,
5998: g_log_head || '.' || l_api_name
5999: || l_stmt_num,
6000: 'Create_ReceiveEvents : '
6001: || l_stmt_num
6016: FROM rcv_transactions rt
6017: WHERE transaction_id = p_rcv_transaction_id;
6018:
6019: IF g_debug = 'Y'
6020: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
6021: THEN
6022: fnd_log.STRING (fnd_log.level_event,
6023: g_log_head
6024: || '.'
6018:
6019: IF g_debug = 'Y'
6020: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
6021: THEN
6022: fnd_log.STRING (fnd_log.level_event,
6023: g_log_head
6024: || '.'
6025: || l_api_name
6026: || '.'
6062: THEN
6063: l_api_message := 'Error creating event';
6064:
6065: IF g_debug = 'Y'
6066: AND fnd_log.level_unexpected >=
6067: fnd_log.g_current_runtime_level
6068: THEN
6069: fnd_log.STRING (fnd_log.level_unexpected,
6070: g_log_head || '.' || l_api_name
6063: l_api_message := 'Error creating event';
6064:
6065: IF g_debug = 'Y'
6066: AND fnd_log.level_unexpected >=
6067: fnd_log.g_current_runtime_level
6068: THEN
6069: fnd_log.STRING (fnd_log.level_unexpected,
6070: g_log_head || '.' || l_api_name
6071: || l_stmt_num,
6065: IF g_debug = 'Y'
6066: AND fnd_log.level_unexpected >=
6067: fnd_log.g_current_runtime_level
6068: THEN
6069: fnd_log.STRING (fnd_log.level_unexpected,
6070: g_log_head || '.' || l_api_name
6071: || l_stmt_num,
6072: 'Create_ReceiveEvents : '
6073: || l_stmt_num
6085:
6086: l_stmt_num := 150;
6087:
6088: IF g_debug = 'Y'
6089: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
6090: THEN
6091: fnd_log.STRING (fnd_log.level_event,
6092: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
6093: 'Inserting transactions into GRAT'
6087:
6088: IF g_debug = 'Y'
6089: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
6090: THEN
6091: fnd_log.STRING (fnd_log.level_event,
6092: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
6093: 'Inserting transactions into GRAT'
6094: );
6095: END IF;
6104: THEN
6105: l_api_message := 'Error inserting transactions into GRAT';
6106:
6107: IF g_debug = 'Y'
6108: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6109: THEN
6110: fnd_log.STRING (fnd_log.level_unexpected,
6111: g_log_head || '.' || l_api_name || l_stmt_num,
6112: 'Create_ReceiveEvents : '
6106:
6107: IF g_debug = 'Y'
6108: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6109: THEN
6110: fnd_log.STRING (fnd_log.level_unexpected,
6111: g_log_head || '.' || l_api_name || l_stmt_num,
6112: 'Create_ReceiveEvents : '
6113: || l_stmt_num
6114: || ' : '
6123: THEN
6124: l_stmt_num := 160;
6125:
6126: IF g_debug = 'Y'
6127: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
6128: THEN
6129: fnd_log.STRING (fnd_log.level_event,
6130: g_log_head || '.' || l_api_name || '.'
6131: || l_stmt_num,
6125:
6126: IF g_debug = 'Y'
6127: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
6128: THEN
6129: fnd_log.STRING (fnd_log.level_event,
6130: g_log_head || '.' || l_api_name || '.'
6131: || l_stmt_num,
6132: 'Inserting transactions into MMT'
6133: );
6144: THEN
6145: l_api_message := 'Error inserting transactions into MMT';
6146:
6147: IF g_debug = 'Y'
6148: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6149: THEN
6150: fnd_log.STRING (fnd_log.level_unexpected,
6151: g_log_head || '.' || l_api_name || l_stmt_num,
6152: 'Create_ReceiveEvents : '
6146:
6147: IF g_debug = 'Y'
6148: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6149: THEN
6150: fnd_log.STRING (fnd_log.level_unexpected,
6151: g_log_head || '.' || l_api_name || l_stmt_num,
6152: 'Create_ReceiveEvents : '
6153: || l_stmt_num
6154: || ' : '
6170: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6171: p_data => x_msg_data);
6172:
6173: IF g_debug = 'Y'
6174: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
6175: THEN
6176: fnd_log.STRING (fnd_log.level_procedure,
6177: g_log_head || '.' || l_api_name || '.end',
6178: 'Create_ReceiveEvents >>'
6172:
6173: IF g_debug = 'Y'
6174: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
6175: THEN
6176: fnd_log.STRING (fnd_log.level_procedure,
6177: g_log_head || '.' || l_api_name || '.end',
6178: 'Create_ReceiveEvents >>'
6179: );
6180: END IF;
6198: ROLLBACK TO create_receiveevents_pvt;
6199: x_return_status := fnd_api.g_ret_sts_unexp_error;
6200:
6201: IF g_debug = 'Y'
6202: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6203: THEN
6204: fnd_log.STRING (fnd_log.level_unexpected,
6205: g_log_head || '.' || l_api_name || l_stmt_num,
6206: 'Create_ReceiveEvents : '
6200:
6201: IF g_debug = 'Y'
6202: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6203: THEN
6204: fnd_log.STRING (fnd_log.level_unexpected,
6205: g_log_head || '.' || l_api_name || l_stmt_num,
6206: 'Create_ReceiveEvents : '
6207: || l_stmt_num
6208: || ' : '
6284: -- Standard start of API savepoint
6285: SAVEPOINT create_deliver_txns;
6286: l_stmt_num := 0;
6287:
6288: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
6289: THEN
6290: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
6291: END IF;
6292:
6286: l_stmt_num := 0;
6287:
6288: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
6289: THEN
6290: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
6291: END IF;
6292:
6293: -- Initialize API return status to success
6294: x_return_status := fnd_api.g_ret_sts_success;
6331: SELECT set_of_books_id
6332: INTO l_po_ledger_id
6333: FROM financials_system_parameters;
6334:
6335: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
6336: THEN
6337: l_api_message :=
6338: 'Creating Deliver transactions : RCV Transaction ID : '
6339: || p_rcv_transaction_id
6358: || ', Category ID : '
6359: || l_category_id
6360: || ', Accrual Flag : '
6361: || l_accrual_flag;
6362: fnd_log.STRING (fnd_log.level_statement,
6363: c_log_module || '.' || l_stmt_num,
6364: l_api_message
6365: );
6366: END IF;
6389: inv_transaction_flow_pub.g_qualifier_code;
6390: l_qualifier_value_tbl (l_qualifier_value_tbl.COUNT + 1) :=
6391: l_category_id;
6392:
6393: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
6394: THEN
6395: l_api_message :=
6396: 'Getting Procurement Transaction Flow :'
6397: || 'l_po_org_id : '
6399: || ' l_rcv_org_id : '
6400: || l_rcv_org_id
6401: || ' l_rcv_organization_id : '
6402: || l_rcv_organization_id;
6403: fnd_log.STRING (fnd_log.level_statement,
6404: c_log_module || '.' || l_stmt_num,
6405: l_api_message
6406: );
6407: END IF;
6437: ELSIF (l_return_status = 'W')
6438: THEN
6439: l_trx_flow_exists_flag := 0;
6440:
6441: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6442: THEN
6443: fnd_log.STRING (fnd_log.level_event,
6444: c_log_module || '.' || l_stmt_num,
6445: 'Transaction Flow does not exist'
6439: l_trx_flow_exists_flag := 0;
6440:
6441: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6442: THEN
6443: fnd_log.STRING (fnd_log.level_event,
6444: c_log_module || '.' || l_stmt_num,
6445: 'Transaction Flow does not exist'
6446: );
6447: END IF;
6451: IF (l_po_ledger_id <> l_rcv_ledger_id)
6452: THEN
6453: l_api_message := 'Transaction Flow does not exist';
6454:
6455: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6456: )
6457: THEN
6458: fnd_log.STRING (fnd_log.level_unexpected,
6459: c_log_module || '.' || l_stmt_num,
6454:
6455: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6456: )
6457: THEN
6458: fnd_log.STRING (fnd_log.level_unexpected,
6459: c_log_module || '.' || l_stmt_num,
6460: l_api_message
6461: );
6462: END IF;
6466: ELSE
6467: l_api_message := 'Error occurred in Transaction Flow API';
6468:
6469: IF g_debug = 'Y'
6470: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6471: THEN
6472: fnd_log.STRING (fnd_log.level_unexpected,
6473: g_log_head || '.' || l_api_name || l_stmt_num,
6474: 'Create_DeliverEvents : '
6468:
6469: IF g_debug = 'Y'
6470: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6471: THEN
6472: fnd_log.STRING (fnd_log.level_unexpected,
6473: g_log_head || '.' || l_api_name || l_stmt_num,
6474: 'Create_DeliverEvents : '
6475: || l_stmt_num
6476: || ' : '
6515:
6516:
6517: l_stmt_num := 60;
6518:
6519: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6520: THEN
6521: fnd_log.STRING (fnd_log.level_event,
6522: c_log_module || '.' || l_stmt_num,
6523: 'Seeding Deliver Txn'
6517: l_stmt_num := 60;
6518:
6519: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6520: THEN
6521: fnd_log.STRING (fnd_log.level_event,
6522: c_log_module || '.' || l_stmt_num,
6523: 'Seeding Deliver Txn'
6524: );
6525: END IF;
6564: IF l_return_status <> fnd_api.g_ret_sts_success
6565: THEN
6566: l_api_message := 'Error creating Txn';
6567:
6568: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6569: THEN
6570: fnd_log.STRING (fnd_log.level_unexpected,
6571: c_log_module || '.' || l_stmt_num,
6572: l_api_message
6566: l_api_message := 'Error creating Txn';
6567:
6568: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6569: THEN
6570: fnd_log.STRING (fnd_log.level_unexpected,
6571: c_log_module || '.' || l_stmt_num,
6572: l_api_message
6573: );
6574: END IF;
6582: IF l_trx_flow_exists_flag = 0
6583: THEN
6584: l_stmt_num := 70;
6585:
6586: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6587: THEN
6588: fnd_log.STRING (fnd_log.level_event,
6589: c_log_module || '.' || l_stmt_num,
6590: 'Checking if encumbrance txns need to be created'
6584: l_stmt_num := 70;
6585:
6586: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6587: THEN
6588: fnd_log.STRING (fnd_log.level_event,
6589: c_log_module || '.' || l_stmt_num,
6590: 'Checking if encumbrance txns need to be created'
6591: );
6592: END IF;
6604: IF l_return_status <> fnd_api.g_ret_sts_success
6605: THEN
6606: l_api_message := 'Error in checking for encumbrance flag ';
6607:
6608: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6609: )
6610: THEN
6611: fnd_log.STRING (fnd_log.level_unexpected,
6612: c_log_module || '.' || l_stmt_num,
6607:
6608: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6609: )
6610: THEN
6611: fnd_log.STRING (fnd_log.level_unexpected,
6612: c_log_module || '.' || l_stmt_num,
6613: l_api_message
6614: );
6615: END IF;
6616:
6617: RAISE fnd_api.g_exc_unexpected_error;
6618: END IF;
6619:
6620: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
6621: THEN
6622: l_api_message := 'Encumbrance Flag : ' || l_encumbrance_flag;
6623: fnd_log.STRING (fnd_log.level_statement,
6624: c_log_module || '.' || l_stmt_num,
6619:
6620: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
6621: THEN
6622: l_api_message := 'Encumbrance Flag : ' || l_encumbrance_flag;
6623: fnd_log.STRING (fnd_log.level_statement,
6624: c_log_module || '.' || l_stmt_num,
6625: l_api_message
6626: );
6627: END IF;
6629: IF (l_encumbrance_flag = 'Y')
6630: THEN
6631: l_stmt_num := 80;
6632:
6633: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6634: THEN
6635: fnd_log.STRING (fnd_log.level_event,
6636: c_log_module || '.' || l_stmt_num,
6637: 'Seeding Encumbrance Reversal Txn'
6631: l_stmt_num := 80;
6632:
6633: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6634: THEN
6635: fnd_log.STRING (fnd_log.level_event,
6636: c_log_module || '.' || l_stmt_num,
6637: 'Seeding Encumbrance Reversal Txn'
6638: );
6639: END IF;
6678: ELSIF l_return_status <> 'W'
6679: THEN
6680: l_api_message := 'Error in seeding encumbrance reversal event';
6681:
6682: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6683: )
6684: THEN
6685: fnd_log.STRING (fnd_log.level_unexpected,
6686: c_log_module || '.' || l_stmt_num,
6681:
6682: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
6683: )
6684: THEN
6685: fnd_log.STRING (fnd_log.level_unexpected,
6686: c_log_module || '.' || l_stmt_num,
6687: l_api_message
6688: );
6689: END IF;
6694: END IF; -- end if trx_flow_exists_flag = 0
6695:
6696: l_stmt_num := 90;
6697:
6698: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6699: THEN
6700: fnd_log.STRING (fnd_log.level_event,
6701: c_log_module || '.' || l_stmt_num,
6702: 'Inserting txns into GRAT'
6696: l_stmt_num := 90;
6697:
6698: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
6699: THEN
6700: fnd_log.STRING (fnd_log.level_event,
6701: c_log_module || '.' || l_stmt_num,
6702: 'Inserting txns into GRAT'
6703: );
6704: END IF;
6712: IF l_return_status <> fnd_api.g_ret_sts_success
6713: THEN
6714: l_api_message := 'Error inserting txns into GRAT';
6715:
6716: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6717: THEN
6718: fnd_log.STRING (fnd_log.level_unexpected,
6719: c_log_module || l_stmt_num,
6720: l_api_message
6714: l_api_message := 'Error inserting txns into GRAT';
6715:
6716: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6717: THEN
6718: fnd_log.STRING (fnd_log.level_unexpected,
6719: c_log_module || l_stmt_num,
6720: l_api_message
6721: );
6722: END IF;
6732: -- Standard Call to get message count and if count = 1, get message info
6733: fnd_msg_pub.count_and_get (p_count => x_msg_count,
6734: p_data => x_msg_data);
6735:
6736: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
6737: THEN
6738: fnd_log.STRING (fnd_log.level_procedure, c_log_module, '...End');
6739: END IF;
6740: EXCEPTION
6734: p_data => x_msg_data);
6735:
6736: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
6737: THEN
6738: fnd_log.STRING (fnd_log.level_procedure, c_log_module, '...End');
6739: END IF;
6740: EXCEPTION
6741: WHEN fnd_api.g_exc_error
6742: THEN
6756: THEN
6757: ROLLBACK TO create_deliver_txns;
6758: x_return_status := fnd_api.g_ret_sts_unexp_error;
6759:
6760: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6761: THEN
6762: fnd_log.STRING (fnd_log.level_unexpected,
6763: c_log_module || '.' || l_stmt_num,
6764: SUBSTR (SQLERRM, 1, 200)
6758: x_return_status := fnd_api.g_ret_sts_unexp_error;
6759:
6760: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
6761: THEN
6762: fnd_log.STRING (fnd_log.level_unexpected,
6763: c_log_module || '.' || l_stmt_num,
6764: SUBSTR (SQLERRM, 1, 200)
6765: );
6766: END IF;
6836: SAVEPOINT create_rtrevents_pvt;
6837: l_stmt_num := 0;
6838:
6839: IF g_debug = 'Y'
6840: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
6841: THEN
6842: fnd_log.STRING (fnd_log.level_procedure,
6843: g_log_head || '.' || l_api_name || '.begin',
6844: 'Create_RTREvents <<'
6838:
6839: IF g_debug = 'Y'
6840: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
6841: THEN
6842: fnd_log.STRING (fnd_log.level_procedure,
6843: g_log_head || '.' || l_api_name || '.begin',
6844: 'Create_RTREvents <<'
6845: );
6846: END IF;
6903: INTO l_po_ledger_id
6904: FROM financials_system_parameters;
6905:
6906: IF g_debug = 'Y'
6907: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
6908: THEN
6909: l_api_message :=
6910: 'Creating RTR transactions : RCV Transaction ID : '
6911: || p_rcv_transaction_id
6934: || ', Category ID : '
6935: || l_category_id
6936: || ', Accrual Flag : '
6937: || l_accrual_flag;
6938: fnd_log.STRING (fnd_log.level_statement,
6939: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
6940: l_api_message
6941: );
6942: END IF;
6967: l_category_id;
6968: l_stmt_num := 40;
6969:
6970: IF g_debug = 'Y'
6971: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
6972: THEN
6973: l_api_message :=
6974: 'Getting Procurement Transaction Flow :'
6975: || 'l_po_org_id : '
6977: || ' l_rcv_org_id : '
6978: || l_rcv_org_id
6979: || ' l_rcv_organization_id : '
6980: || l_rcv_organization_id;
6981: fnd_log.STRING (fnd_log.level_statement,
6982: g_log_head || '.' || l_api_name || '.'
6983: || l_stmt_num,
6984: l_api_message
6985: );
7017: THEN
7018: l_trx_flow_exists_flag := 0;
7019:
7020: IF g_debug = 'Y'
7021: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7022: THEN
7023: fnd_log.STRING (fnd_log.level_event,
7024: g_log_head
7025: || '.'
7019:
7020: IF g_debug = 'Y'
7021: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7022: THEN
7023: fnd_log.STRING (fnd_log.level_event,
7024: g_log_head
7025: || '.'
7026: || l_api_name
7027: || '.'
7036: THEN
7037: l_api_message := 'Transaction Flow does not exist';
7038:
7039: IF g_debug = 'Y'
7040: AND fnd_log.level_unexpected >=
7041: fnd_log.g_current_runtime_level
7042: THEN
7043: fnd_log.STRING (fnd_log.level_unexpected,
7044: g_log_head || '.' || l_api_name
7037: l_api_message := 'Transaction Flow does not exist';
7038:
7039: IF g_debug = 'Y'
7040: AND fnd_log.level_unexpected >=
7041: fnd_log.g_current_runtime_level
7042: THEN
7043: fnd_log.STRING (fnd_log.level_unexpected,
7044: g_log_head || '.' || l_api_name
7045: || l_stmt_num,
7039: IF g_debug = 'Y'
7040: AND fnd_log.level_unexpected >=
7041: fnd_log.g_current_runtime_level
7042: THEN
7043: fnd_log.STRING (fnd_log.level_unexpected,
7044: g_log_head || '.' || l_api_name
7045: || l_stmt_num,
7046: 'Create_RTREvents : '
7047: || l_stmt_num
7055: ELSE
7056: l_api_message := 'Error occurred in Transaction Flow API';
7057:
7058: IF g_debug = 'Y'
7059: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7060: THEN
7061: fnd_log.STRING (fnd_log.level_unexpected,
7062: g_log_head || '.' || l_api_name || l_stmt_num,
7063: 'Create_RTREvents : '
7057:
7058: IF g_debug = 'Y'
7059: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7060: THEN
7061: fnd_log.STRING (fnd_log.level_unexpected,
7062: g_log_head || '.' || l_api_name || l_stmt_num,
7063: 'Create_RTREvents : '
7064: || l_stmt_num
7065: || ' : '
7083:
7084: l_stmt_num := 60;
7085:
7086: IF g_debug = 'Y'
7087: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7088: THEN
7089: fnd_log.STRING (fnd_log.level_event,
7090: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7091: 'Seeding RTR Event'
7085:
7086: IF g_debug = 'Y'
7087: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7088: THEN
7089: fnd_log.STRING (fnd_log.level_event,
7090: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7091: 'Seeding RTR Event'
7092: );
7093: END IF;
7125: THEN
7126: l_api_message := 'Error creating event';
7127:
7128: IF g_debug = 'Y'
7129: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7130: THEN
7131: fnd_log.STRING (fnd_log.level_unexpected,
7132: g_log_head || '.' || l_api_name || l_stmt_num,
7133: 'Create_RTREvents : '
7127:
7128: IF g_debug = 'Y'
7129: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7130: THEN
7131: fnd_log.STRING (fnd_log.level_unexpected,
7132: g_log_head || '.' || l_api_name || l_stmt_num,
7133: 'Create_RTREvents : '
7134: || l_stmt_num
7135: || ' : '
7144: THEN
7145: l_stmt_num := 70;
7146:
7147: IF g_debug = 'Y'
7148: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7149: THEN
7150: fnd_log.STRING
7151: (fnd_log.level_event,
7152: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7146:
7147: IF g_debug = 'Y'
7148: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7149: THEN
7150: fnd_log.STRING
7151: (fnd_log.level_event,
7152: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7153: 'Checking if encumbrance transactions need to be seeded.'
7154: );
7147: IF g_debug = 'Y'
7148: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7149: THEN
7150: fnd_log.STRING
7151: (fnd_log.level_event,
7152: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7153: 'Checking if encumbrance transactions need to be seeded.'
7154: );
7155: END IF;
7167: THEN
7168: l_api_message := 'Error in checking for encumbrance flag ';
7169:
7170: IF g_debug = 'Y'
7171: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7172: THEN
7173: fnd_log.STRING (fnd_log.level_unexpected,
7174: g_log_head || '.' || l_api_name || l_stmt_num,
7175: 'Create_RTREvents : '
7169:
7170: IF g_debug = 'Y'
7171: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7172: THEN
7173: fnd_log.STRING (fnd_log.level_unexpected,
7174: g_log_head || '.' || l_api_name || l_stmt_num,
7175: 'Create_RTREvents : '
7176: || l_stmt_num
7177: || ' : '
7182: RAISE fnd_api.g_exc_unexpected_error;
7183: END IF;
7184:
7185: IF g_debug = 'Y'
7186: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
7187: THEN
7188: l_api_message := 'Encumbrance Flag : ' || l_encumbrance_flag;
7189: fnd_log.STRING (fnd_log.level_statement,
7190: g_log_head || '.' || l_api_name || '.'
7185: IF g_debug = 'Y'
7186: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
7187: THEN
7188: l_api_message := 'Encumbrance Flag : ' || l_encumbrance_flag;
7189: fnd_log.STRING (fnd_log.level_statement,
7190: g_log_head || '.' || l_api_name || '.'
7191: || l_stmt_num,
7192: l_api_message
7193: );
7197: THEN
7198: l_stmt_num := 80;
7199:
7200: IF g_debug = 'Y'
7201: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7202: THEN
7203: fnd_log.STRING (fnd_log.level_event,
7204: g_log_head
7205: || '.'
7199:
7200: IF g_debug = 'Y'
7201: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7202: THEN
7203: fnd_log.STRING (fnd_log.level_event,
7204: g_log_head
7205: || '.'
7206: || l_api_name
7207: || '.'
7248: THEN
7249: l_api_message := 'Error in seeding encumbrance reversal event';
7250:
7251: IF g_debug = 'Y'
7252: AND fnd_log.level_unexpected >=
7253: fnd_log.g_current_runtime_level
7254: THEN
7255: fnd_log.STRING (fnd_log.level_unexpected,
7256: g_log_head || '.' || l_api_name
7249: l_api_message := 'Error in seeding encumbrance reversal event';
7250:
7251: IF g_debug = 'Y'
7252: AND fnd_log.level_unexpected >=
7253: fnd_log.g_current_runtime_level
7254: THEN
7255: fnd_log.STRING (fnd_log.level_unexpected,
7256: g_log_head || '.' || l_api_name
7257: || l_stmt_num,
7251: IF g_debug = 'Y'
7252: AND fnd_log.level_unexpected >=
7253: fnd_log.g_current_runtime_level
7254: THEN
7255: fnd_log.STRING (fnd_log.level_unexpected,
7256: g_log_head || '.' || l_api_name
7257: || l_stmt_num,
7258: 'Create_RTREvents : '
7259: || l_stmt_num
7269:
7270: l_stmt_num := 90;
7271:
7272: IF g_debug = 'Y'
7273: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7274: THEN
7275: fnd_log.STRING (fnd_log.level_event,
7276: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7277: 'Inserting transactions into GRAT'
7271:
7272: IF g_debug = 'Y'
7273: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7274: THEN
7275: fnd_log.STRING (fnd_log.level_event,
7276: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7277: 'Inserting transactions into GRAT'
7278: );
7279: END IF;
7288: THEN
7289: l_api_message := 'Error inserting transactions into GRAT';
7290:
7291: IF g_debug = 'Y'
7292: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7293: THEN
7294: fnd_log.STRING (fnd_log.level_unexpected,
7295: g_log_head || '.' || l_api_name || l_stmt_num,
7296: 'Create_RTREvents : '
7290:
7291: IF g_debug = 'Y'
7292: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7293: THEN
7294: fnd_log.STRING (fnd_log.level_unexpected,
7295: g_log_head || '.' || l_api_name || l_stmt_num,
7296: 'Create_RTREvents : '
7297: || l_stmt_num
7298: || ' : '
7313: fnd_msg_pub.count_and_get (p_count => x_msg_count,
7314: p_data => x_msg_data);
7315:
7316: IF g_debug = 'Y'
7317: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
7318: THEN
7319: fnd_log.STRING (fnd_log.level_procedure,
7320: g_log_head || '.' || l_api_name || '.end',
7321: 'Create_RTREvents >>'
7315:
7316: IF g_debug = 'Y'
7317: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
7318: THEN
7319: fnd_log.STRING (fnd_log.level_procedure,
7320: g_log_head || '.' || l_api_name || '.end',
7321: 'Create_RTREvents >>'
7322: );
7323: END IF;
7341: ROLLBACK TO create_rtrevents_pvt;
7342: x_return_status := fnd_api.g_ret_sts_unexp_error;
7343:
7344: IF g_debug = 'Y'
7345: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7346: THEN
7347: fnd_log.STRING (fnd_log.level_unexpected,
7348: g_log_head || '.' || l_api_name || l_stmt_num,
7349: 'Create_RTREvents : '
7343:
7344: IF g_debug = 'Y'
7345: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7346: THEN
7347: fnd_log.STRING (fnd_log.level_unexpected,
7348: g_log_head || '.' || l_api_name || l_stmt_num,
7349: 'Create_RTREvents : '
7350: || l_stmt_num
7351: || ' : '
7466: SAVEPOINT create_rtvevents_pvt;
7467: l_stmt_num := 0;
7468:
7469: IF g_debug = 'Y'
7470: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
7471: THEN
7472: fnd_log.STRING (fnd_log.level_procedure,
7473: g_log_head || '.' || l_api_name || '.begin',
7474: 'Create_RTVEvents <<'
7468:
7469: IF g_debug = 'Y'
7470: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
7471: THEN
7472: fnd_log.STRING (fnd_log.level_procedure,
7473: g_log_head || '.' || l_api_name || '.begin',
7474: 'Create_RTVEvents <<'
7475: );
7476: END IF;
7531:
7532: l_stmt_num := 40;
7533:
7534: IF g_debug = 'Y'
7535: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
7536: THEN
7537: l_api_message :=
7538: 'Creating RTV transactions : RCV Transaction ID : '
7539: || p_rcv_transaction_id
7562: || ', Category ID : '
7563: || l_category_id
7564: || ', Accrual Flag : '
7565: || l_accrual_flag;
7566: fnd_log.STRING (fnd_log.level_statement,
7567: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
7568: l_api_message
7569: );
7570: END IF;
7581: l_category_id;
7582: l_stmt_num := 50;
7583:
7584: IF g_debug = 'Y'
7585: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
7586: THEN
7587: l_api_message :=
7588: 'Getting Procurement Transaction Flow :'
7589: || 'l_po_org_id : '
7591: || ' l_rcv_org_id : '
7592: || l_rcv_org_id
7593: || ' l_rcv_organization_id : '
7594: || l_rcv_organization_id;
7595: fnd_log.STRING (fnd_log.level_statement,
7596: g_log_head || '.' || l_api_name || '.'
7597: || l_stmt_num,
7598: l_api_message
7599: );
7625: THEN
7626: l_trx_flow_exists_flag := 0;
7627:
7628: IF g_debug = 'Y'
7629: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7630: THEN
7631: fnd_log.STRING (fnd_log.level_event,
7632: g_log_head
7633: || '.'
7627:
7628: IF g_debug = 'Y'
7629: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7630: THEN
7631: fnd_log.STRING (fnd_log.level_event,
7632: g_log_head
7633: || '.'
7634: || l_api_name
7635: || '.'
7644: THEN
7645: l_api_message := 'Transaction Flow does not exist';
7646:
7647: IF g_debug = 'Y'
7648: AND fnd_log.level_unexpected >=
7649: fnd_log.g_current_runtime_level
7650: THEN
7651: fnd_log.STRING (fnd_log.level_unexpected,
7652: g_log_head || '.' || l_api_name
7645: l_api_message := 'Transaction Flow does not exist';
7646:
7647: IF g_debug = 'Y'
7648: AND fnd_log.level_unexpected >=
7649: fnd_log.g_current_runtime_level
7650: THEN
7651: fnd_log.STRING (fnd_log.level_unexpected,
7652: g_log_head || '.' || l_api_name
7653: || l_stmt_num,
7647: IF g_debug = 'Y'
7648: AND fnd_log.level_unexpected >=
7649: fnd_log.g_current_runtime_level
7650: THEN
7651: fnd_log.STRING (fnd_log.level_unexpected,
7652: g_log_head || '.' || l_api_name
7653: || l_stmt_num,
7654: 'Create_RTVEvents : '
7655: || l_stmt_num
7663: ELSE
7664: l_api_message := 'Error occurred in Transaction Flow API';
7665:
7666: IF g_debug = 'Y'
7667: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7668: THEN
7669: fnd_log.STRING (fnd_log.level_unexpected,
7670: g_log_head || '.' || l_api_name || l_stmt_num,
7671: 'Create_RTVEvents : '
7665:
7666: IF g_debug = 'Y'
7667: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7668: THEN
7669: fnd_log.STRING (fnd_log.level_unexpected,
7670: g_log_head || '.' || l_api_name || l_stmt_num,
7671: 'Create_RTVEvents : '
7672: || l_stmt_num
7673: || ' : '
7690: LOOP
7691: l_stmt_num := 50;
7692:
7693: IF g_debug = 'Y'
7694: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
7695: THEN
7696: l_api_message :=
7697: 'Creating transactions : '
7698: || 'po_distribution_id : '
7700: || ' destination_type_code : '
7701: || rec_pod.destination_type_code
7702: || ' project_id : '
7703: || rec_pod.project_id;
7704: fnd_log.STRING (fnd_log.level_statement,
7705: g_log_head || '.' || l_api_name || '.'
7706: || l_stmt_num,
7707: l_api_message
7708: );
7726: FOR l_counter IN
7727: l_transaction_flows_tbl.FIRST .. l_transaction_flows_tbl.LAST
7728: LOOP
7729: IF g_debug = 'Y'
7730: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7731: THEN
7732: fnd_log.STRING (fnd_log.level_event,
7733: g_log_head
7734: || '.'
7728: LOOP
7729: IF g_debug = 'Y'
7730: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7731: THEN
7732: fnd_log.STRING (fnd_log.level_event,
7733: g_log_head
7734: || '.'
7735: || l_api_name
7736: || '.'
7796: THEN
7797: l_api_message := 'Error creating event';
7798:
7799: IF g_debug = 'Y'
7800: AND fnd_log.level_unexpected >=
7801: fnd_log.g_current_runtime_level
7802: THEN
7803: fnd_log.STRING (fnd_log.level_unexpected,
7804: g_log_head
7797: l_api_message := 'Error creating event';
7798:
7799: IF g_debug = 'Y'
7800: AND fnd_log.level_unexpected >=
7801: fnd_log.g_current_runtime_level
7802: THEN
7803: fnd_log.STRING (fnd_log.level_unexpected,
7804: g_log_head
7805: || '.'
7799: IF g_debug = 'Y'
7800: AND fnd_log.level_unexpected >=
7801: fnd_log.g_current_runtime_level
7802: THEN
7803: fnd_log.STRING (fnd_log.level_unexpected,
7804: g_log_head
7805: || '.'
7806: || l_api_name
7807: || l_stmt_num,
7826: THEN
7827: l_stmt_num := 70;
7828:
7829: IF g_debug = 'Y'
7830: AND fnd_log.level_event >=
7831: fnd_log.g_current_runtime_level
7832: THEN
7833: fnd_log.STRING (fnd_log.level_event,
7834: g_log_head
7827: l_stmt_num := 70;
7828:
7829: IF g_debug = 'Y'
7830: AND fnd_log.level_event >=
7831: fnd_log.g_current_runtime_level
7832: THEN
7833: fnd_log.STRING (fnd_log.level_event,
7834: g_log_head
7835: || '.'
7829: IF g_debug = 'Y'
7830: AND fnd_log.level_event >=
7831: fnd_log.g_current_runtime_level
7832: THEN
7833: fnd_log.STRING (fnd_log.level_event,
7834: g_log_head
7835: || '.'
7836: || l_api_name
7837: || '.'
7875: THEN
7876: l_api_message := 'Error creating event';
7877:
7878: IF g_debug = 'Y'
7879: AND fnd_log.level_unexpected >=
7880: fnd_log.g_current_runtime_level
7881: THEN
7882: fnd_log.STRING (fnd_log.level_unexpected,
7883: g_log_head
7876: l_api_message := 'Error creating event';
7877:
7878: IF g_debug = 'Y'
7879: AND fnd_log.level_unexpected >=
7880: fnd_log.g_current_runtime_level
7881: THEN
7882: fnd_log.STRING (fnd_log.level_unexpected,
7883: g_log_head
7884: || '.'
7878: IF g_debug = 'Y'
7879: AND fnd_log.level_unexpected >=
7880: fnd_log.g_current_runtime_level
7881: THEN
7882: fnd_log.STRING (fnd_log.level_unexpected,
7883: g_log_head
7884: || '.'
7885: || l_api_name
7886: || l_stmt_num,
7935: FROM rcv_transactions rt
7936: WHERE transaction_id = p_rcv_transaction_id;
7937:
7938: IF g_debug = 'Y'
7939: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7940: THEN
7941: fnd_log.STRING (fnd_log.level_event,
7942: g_log_head || '.' || l_api_name || '.'
7943: || l_stmt_num,
7937:
7938: IF g_debug = 'Y'
7939: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
7940: THEN
7941: fnd_log.STRING (fnd_log.level_event,
7942: g_log_head || '.' || l_api_name || '.'
7943: || l_stmt_num,
7944: 'Seeding RTV in GRAT'
7945: );
7977: THEN
7978: l_api_message := 'Error creating event';
7979:
7980: IF g_debug = 'Y'
7981: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7982: THEN
7983: fnd_log.STRING (fnd_log.level_unexpected,
7984: g_log_head || '.' || l_api_name || l_stmt_num,
7985: 'Create_RTVEvents : '
7979:
7980: IF g_debug = 'Y'
7981: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
7982: THEN
7983: fnd_log.STRING (fnd_log.level_unexpected,
7984: g_log_head || '.' || l_api_name || l_stmt_num,
7985: 'Create_RTVEvents : '
7986: || l_stmt_num
7987: || ' : '
7997:
7998: l_stmt_num := 130;
7999:
8000: IF g_debug = 'Y'
8001: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
8002: THEN
8003: fnd_log.STRING (fnd_log.level_event,
8004: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
8005: 'Inserting transactions into GRAT'
7999:
8000: IF g_debug = 'Y'
8001: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
8002: THEN
8003: fnd_log.STRING (fnd_log.level_event,
8004: g_log_head || '.' || l_api_name || '.' || l_stmt_num,
8005: 'Inserting transactions into GRAT'
8006: );
8007: END IF;
8016: THEN
8017: l_api_message := 'Error inserting transactions into GRAT';
8018:
8019: IF g_debug = 'Y'
8020: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8021: THEN
8022: fnd_log.STRING (fnd_log.level_unexpected,
8023: g_log_head || '.' || l_api_name || l_stmt_num,
8024: 'Create_RTVEvents : '
8018:
8019: IF g_debug = 'Y'
8020: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8021: THEN
8022: fnd_log.STRING (fnd_log.level_unexpected,
8023: g_log_head || '.' || l_api_name || l_stmt_num,
8024: 'Create_RTVEvents : '
8025: || l_stmt_num
8026: || ' : '
8035: THEN
8036: l_stmt_num := 140;
8037:
8038: IF g_debug = 'Y'
8039: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
8040: THEN
8041: fnd_log.STRING (fnd_log.level_event,
8042: g_log_head || '.' || l_api_name || '.'
8043: || l_stmt_num,
8037:
8038: IF g_debug = 'Y'
8039: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
8040: THEN
8041: fnd_log.STRING (fnd_log.level_event,
8042: g_log_head || '.' || l_api_name || '.'
8043: || l_stmt_num,
8044: 'Inserting transactions into MMT'
8045: );
8056: THEN
8057: l_api_message := 'Error inserting transactions into MMT';
8058:
8059: IF g_debug = 'Y'
8060: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8061: THEN
8062: fnd_log.STRING (fnd_log.level_unexpected,
8063: g_log_head || '.' || l_api_name || l_stmt_num,
8064: 'Create_RTVEvents : '
8058:
8059: IF g_debug = 'Y'
8060: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8061: THEN
8062: fnd_log.STRING (fnd_log.level_unexpected,
8063: g_log_head || '.' || l_api_name || l_stmt_num,
8064: 'Create_RTVEvents : '
8065: || l_stmt_num
8066: || ' : '
8082: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8083: p_data => x_msg_data);
8084:
8085: IF g_debug = 'Y'
8086: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
8087: THEN
8088: fnd_log.STRING (fnd_log.level_procedure,
8089: g_log_head || '.' || l_api_name || '.end',
8090: 'Create_RTVEvents >>'
8084:
8085: IF g_debug = 'Y'
8086: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
8087: THEN
8088: fnd_log.STRING (fnd_log.level_procedure,
8089: g_log_head || '.' || l_api_name || '.end',
8090: 'Create_RTVEvents >>'
8091: );
8092: END IF;
8110: ROLLBACK TO create_rtvevents_pvt;
8111: x_return_status := fnd_api.g_ret_sts_unexp_error;
8112:
8113: IF g_debug = 'Y'
8114: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8115: THEN
8116: fnd_log.STRING (fnd_log.level_unexpected,
8117: g_log_head || '.' || l_api_name || l_stmt_num,
8118: 'Create_RTVEvents : '
8112:
8113: IF g_debug = 'Y'
8114: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8115: THEN
8116: fnd_log.STRING (fnd_log.level_unexpected,
8117: g_log_head || '.' || l_api_name || l_stmt_num,
8118: 'Create_RTVEvents : '
8119: || l_stmt_num
8120: || ' : '
8174:
8175: BEGIN
8176: SAVEPOINT s_create_accounting_txns;
8177:
8178: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
8179: THEN
8180: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
8181: END IF;
8182:
8176: SAVEPOINT s_create_accounting_txns;
8177:
8178: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
8179: THEN
8180: fnd_log.STRING (fnd_log.level_procedure, c_log_module, 'Begin...');
8181: END IF;
8182:
8183: -- Standard call to check for call compatibility
8184: IF NOT fnd_api.compatible_api_call (l_api_version,
8269: WHERE line_location_id = l_po_line_location_id;
8270:
8271: IF (l_shipment_type = 'PREPAYMENT')
8272: THEN
8273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
8274: THEN
8275: fnd_log.STRING
8276: (fnd_log.level_statement,
8277: c_log_module,
8271: IF (l_shipment_type = 'PREPAYMENT')
8272: THEN
8273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
8274: THEN
8275: fnd_log.STRING
8276: (fnd_log.level_statement,
8277: c_log_module,
8278: 'Shipment Type is Prepayment. No Receive accounting required'
8279: );
8272: THEN
8273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
8274: THEN
8275: fnd_log.STRING
8276: (fnd_log.level_statement,
8277: c_log_module,
8278: 'Shipment Type is Prepayment. No Receive accounting required'
8279: );
8280: END IF;
8294: THEN
8295: l_stmt_num := 80;
8296:
8297: IF g_debug = 'Y'
8298: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
8299: THEN
8300: fnd_log.STRING (fnd_log.level_event,
8301: c_log_module || '.' || l_stmt_num,
8302: 'Creating txns For RECEIVE transaction'
8296:
8297: IF g_debug = 'Y'
8298: AND fnd_log.level_event >= fnd_log.g_current_runtime_level
8299: THEN
8300: fnd_log.STRING (fnd_log.level_event,
8301: c_log_module || '.' || l_stmt_num,
8302: 'Creating txns For RECEIVE transaction'
8303: );
8304: END IF;
8319: )
8320: THEN
8321: l_stmt_num := 90;
8322:
8323: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8324: THEN
8325: fnd_log.STRING (fnd_log.level_event,
8326: c_log_module || l_stmt_num,
8327: 'Creating Txns For DELIVER transaction'
8321: l_stmt_num := 90;
8322:
8323: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8324: THEN
8325: fnd_log.STRING (fnd_log.level_event,
8326: c_log_module || l_stmt_num,
8327: 'Creating Txns For DELIVER transaction'
8328: );
8329: END IF;
8344: )
8345: THEN
8346: l_stmt_num := 100;
8347:
8348: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8349: THEN
8350: fnd_log.STRING
8351: (fnd_log.level_event,
8352: c_log_module || l_stmt_num,
8346: l_stmt_num := 100;
8347:
8348: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8349: THEN
8350: fnd_log.STRING
8351: (fnd_log.level_event,
8352: c_log_module || l_stmt_num,
8353: 'Creating Txns For RETURN TO RECEIVING transaction'
8354: );
8347:
8348: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8349: THEN
8350: fnd_log.STRING
8351: (fnd_log.level_event,
8352: c_log_module || l_stmt_num,
8353: 'Creating Txns For RETURN TO RECEIVING transaction'
8354: );
8355: END IF;
8368: )
8369: THEN
8370: l_stmt_num := 110;
8371:
8372: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8373: THEN
8374: fnd_log.STRING
8375: (fnd_log.level_event,
8376: c_log_module || l_stmt_num,
8370: l_stmt_num := 110;
8371:
8372: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8373: THEN
8374: fnd_log.STRING
8375: (fnd_log.level_event,
8376: c_log_module || l_stmt_num,
8377: 'Creating transactions For RETURN TO VENDOR transaction'
8378: );
8371:
8372: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
8373: THEN
8374: fnd_log.STRING
8375: (fnd_log.level_event,
8376: c_log_module || l_stmt_num,
8377: 'Creating transactions For RETURN TO VENDOR transaction'
8378: );
8379: END IF;
8391: THEN
8392: l_api_message := 'Error creating event';
8393:
8394: IF g_debug = 'Y'
8395: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8396: THEN
8397: fnd_log.STRING (fnd_log.level_unexpected,
8398: c_log_module || l_stmt_num,
8399: 'Create_ReceivingEvents : '
8393:
8394: IF g_debug = 'Y'
8395: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8396: THEN
8397: fnd_log.STRING (fnd_log.level_unexpected,
8398: c_log_module || l_stmt_num,
8399: 'Create_ReceivingEvents : '
8400: || l_stmt_num
8401: || ' : '
8417: -- Standard Call to get message count and if count = 1, get message info
8418: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8419: p_data => x_msg_data);
8420:
8421: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
8422: THEN
8423: fnd_log.STRING (fnd_log.level_procedure, c_log_module, '...End');
8424: END IF;
8425:
8419: p_data => x_msg_data);
8420:
8421: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
8422: THEN
8423: fnd_log.STRING (fnd_log.level_procedure, c_log_module, '...End');
8424: END IF;
8425:
8426: EXCEPTION
8427: -- rseshadr - return error back to caller
8437: ROLLBACK TO s_create_accounting_txns;
8438: x_return_status := fnd_api.g_ret_sts_unexp_error;
8439:
8440: IF g_debug = 'Y'
8441: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8442: THEN
8443: fnd_log.STRING (fnd_log.level_unexpected,
8444: g_log_head || '.' || l_api_name || l_stmt_num,
8445: 'Create_Accounting_Txns : '
8439:
8440: IF g_debug = 'Y'
8441: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8442: THEN
8443: fnd_log.STRING (fnd_log.level_unexpected,
8444: g_log_head || '.' || l_api_name || l_stmt_num,
8445: 'Create_Accounting_Txns : '
8446: || l_stmt_num
8447: || ' : '
8603: SAVEPOINT create_adjust_txns_pvt;
8604: l_stmt_num := 0;
8605:
8606: IF g_debug = 'Y'
8607: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
8608: THEN
8609: fnd_log.STRING (fnd_log.level_procedure,
8610: g_log_head || '.' || l_api_name || '.begin',
8611: 'Create_Adjust_Txns <<'
8605:
8606: IF g_debug = 'Y'
8607: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
8608: THEN
8609: fnd_log.STRING (fnd_log.level_procedure,
8610: g_log_head || '.' || l_api_name || '.begin',
8611: 'Create_Adjust_Txns <<'
8612: );
8613: END IF;
8634: -- If the old and new price are the same, return
8635: IF p_old_po_price = p_new_po_price
8636: THEN
8637: IF g_debug = 'Y'
8638: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8639: THEN
8640: fnd_log.STRING
8641: (fnd_log.level_statement,
8642: g_log_head || '.' || l_api_name,
8636: THEN
8637: IF g_debug = 'Y'
8638: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8639: THEN
8640: fnd_log.STRING
8641: (fnd_log.level_statement,
8642: g_log_head || '.' || l_api_name,
8643: 'Old and New Prices are same. No Adjust Transactions created'
8644: );
8637: IF g_debug = 'Y'
8638: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8639: THEN
8640: fnd_log.STRING
8641: (fnd_log.level_statement,
8642: g_log_head || '.' || l_api_name,
8643: 'Old and New Prices are same. No Adjust Transactions created'
8644: );
8645: END IF;
8672: -- If Line Type is Service (matching basis = AMOUNT), then return without doing anything
8673: IF (l_matching_basis IS NOT NULL AND l_matching_basis = 'AMOUNT')
8674: THEN
8675: IF g_debug = 'Y'
8676: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8677: THEN
8678: fnd_log.STRING
8679: (fnd_log.level_statement,
8680: g_log_head || '.' || l_api_name,
8674: THEN
8675: IF g_debug = 'Y'
8676: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8677: THEN
8678: fnd_log.STRING
8679: (fnd_log.level_statement,
8680: g_log_head || '.' || l_api_name,
8681: 'Service Line Type. No Adjust Transactions created'
8682: );
8675: IF g_debug = 'Y'
8676: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8677: THEN
8678: fnd_log.STRING
8679: (fnd_log.level_statement,
8680: g_log_head || '.' || l_api_name,
8681: 'Service Line Type. No Adjust Transactions created'
8682: );
8683: END IF;
8690: -- If Shipment Type is Prepayment, then return without doing anything
8691: IF (l_shipment_type = 'PREPAYMENT')
8692: THEN
8693: IF g_debug = 'Y'
8694: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8695: THEN
8696: fnd_log.STRING
8697: (fnd_log.level_statement,
8698: g_log_head || '.' || l_api_name,
8692: THEN
8693: IF g_debug = 'Y'
8694: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8695: THEN
8696: fnd_log.STRING
8697: (fnd_log.level_statement,
8698: g_log_head || '.' || l_api_name,
8699: 'Shipment Type is Prepayment. No Adjust Transactions created'
8700: );
8693: IF g_debug = 'Y'
8694: AND fnd_log.level_statement >= fnd_log.g_current_runtime_level
8695: THEN
8696: fnd_log.STRING
8697: (fnd_log.level_statement,
8698: g_log_head || '.' || l_api_name,
8699: 'Shipment Type is Prepayment. No Adjust Transactions created'
8700: );
8701: END IF;
8795: THEN
8796: l_api_message := 'Error seeding Transactions';
8797:
8798: IF g_debug = 'Y'
8799: AND fnd_log.level_unexpected >=
8800: fnd_log.g_current_runtime_level
8801: THEN
8802: fnd_log.STRING (fnd_log.level_unexpected,
8803: g_log_head || '.' || l_api_name
8796: l_api_message := 'Error seeding Transactions';
8797:
8798: IF g_debug = 'Y'
8799: AND fnd_log.level_unexpected >=
8800: fnd_log.g_current_runtime_level
8801: THEN
8802: fnd_log.STRING (fnd_log.level_unexpected,
8803: g_log_head || '.' || l_api_name
8804: || l_stmt_num,
8798: IF g_debug = 'Y'
8799: AND fnd_log.level_unexpected >=
8800: fnd_log.g_current_runtime_level
8801: THEN
8802: fnd_log.STRING (fnd_log.level_unexpected,
8803: g_log_head || '.' || l_api_name
8804: || l_stmt_num,
8805: 'Create_Adjust_Txns : '
8806: || l_stmt_num
8854: THEN
8855: l_api_message := 'Error seeding Transactions';
8856:
8857: IF g_debug = 'Y'
8858: AND fnd_log.level_unexpected >=
8859: fnd_log.g_current_runtime_level
8860: THEN
8861: fnd_log.STRING (fnd_log.level_unexpected,
8862: g_log_head
8855: l_api_message := 'Error seeding Transactions';
8856:
8857: IF g_debug = 'Y'
8858: AND fnd_log.level_unexpected >=
8859: fnd_log.g_current_runtime_level
8860: THEN
8861: fnd_log.STRING (fnd_log.level_unexpected,
8862: g_log_head
8863: || '.'
8857: IF g_debug = 'Y'
8858: AND fnd_log.level_unexpected >=
8859: fnd_log.g_current_runtime_level
8860: THEN
8861: fnd_log.STRING (fnd_log.level_unexpected,
8862: g_log_head
8863: || '.'
8864: || l_api_name
8865: || l_stmt_num,
8924: THEN
8925: l_api_message := 'Error seeding Transactions';
8926:
8927: IF g_debug = 'Y'
8928: AND fnd_log.level_unexpected >=
8929: fnd_log.g_current_runtime_level
8930: THEN
8931: fnd_log.STRING (fnd_log.level_unexpected,
8932: g_log_head
8925: l_api_message := 'Error seeding Transactions';
8926:
8927: IF g_debug = 'Y'
8928: AND fnd_log.level_unexpected >=
8929: fnd_log.g_current_runtime_level
8930: THEN
8931: fnd_log.STRING (fnd_log.level_unexpected,
8932: g_log_head
8933: || '.'
8927: IF g_debug = 'Y'
8928: AND fnd_log.level_unexpected >=
8929: fnd_log.g_current_runtime_level
8930: THEN
8931: fnd_log.STRING (fnd_log.level_unexpected,
8932: g_log_head
8933: || '.'
8934: || l_api_name
8935: || l_stmt_num,
8959: THEN
8960: l_api_message := 'Error inserting Transactions into GRAT';
8961:
8962: IF g_debug = 'Y'
8963: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8964: THEN
8965: fnd_log.STRING (fnd_log.level_unexpected,
8966: g_log_head || '.' || l_api_name || l_stmt_num,
8967: 'Create_Adjust_Txns : '
8961:
8962: IF g_debug = 'Y'
8963: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
8964: THEN
8965: fnd_log.STRING (fnd_log.level_unexpected,
8966: g_log_head || '.' || l_api_name || l_stmt_num,
8967: 'Create_Adjust_Txns : '
8968: || l_stmt_num
8969: || ' : '
8985: fnd_msg_pub.count_and_get (p_count => x_msg_count,
8986: p_data => x_msg_data);
8987:
8988: IF g_debug = 'Y'
8989: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
8990: THEN
8991: fnd_log.STRING (fnd_log.level_procedure,
8992: g_log_head || '.' || l_api_name || '.end',
8993: 'Create_Adjust_Txns >>'
8987:
8988: IF g_debug = 'Y'
8989: AND fnd_log.level_procedure >= fnd_log.g_current_runtime_level
8990: THEN
8991: fnd_log.STRING (fnd_log.level_procedure,
8992: g_log_head || '.' || l_api_name || '.end',
8993: 'Create_Adjust_Txns >>'
8994: );
8995: END IF;
9013: ROLLBACK TO create_adjust_txns_pvt;
9014: x_return_status := fnd_api.g_ret_sts_unexp_error;
9015:
9016: IF g_debug = 'Y'
9017: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
9018: THEN
9019: fnd_log.STRING (fnd_log.level_unexpected,
9020: g_log_head || '.' || l_api_name || l_stmt_num,
9021: 'Create_Adjust_Txns : '
9015:
9016: IF g_debug = 'Y'
9017: AND fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
9018: THEN
9019: fnd_log.STRING (fnd_log.level_unexpected,
9020: g_log_head || '.' || l_api_name || l_stmt_num,
9021: 'Create_Adjust_Txns : '
9022: || l_stmt_num
9023: || ' : '