72:
73: -- Standard call to check for call compatibility.
74: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
75: THEN
76: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME||': START');
76: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
77: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78: END IF;
79:
80: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME||': START');
81:
82: --Initialize message list if p_init_msg_list is TRUE.
83: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN
84: FND_MSG_PUB.INITIALIZE;
178: WHEN OTHERS THEN
179: ROLLBACK TO SEND_CANCEL_NOTIF;
180: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
181:
182: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
183:
184: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
185: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
186: FND_MESSAGE.SET_TOKEN('ROUTINE', L_FULL_NAME);
234:
235: -- Standard call to check for call compatibility.
236: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
237: THEN
238: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
238: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
243:
244: --Initialize message list if p_init_msg_list is TRUE.
245: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN
246: FND_MSG_PUB.INITIALIZE;
307: WHEN OTHERS THEN
308: ROLLBACK TO RAISE_BUS_EVT_FOR_PROC;
309: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
310:
311: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
312:
313: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
314: FND_MESSAGE.SET_NAME('FND', 'SQL_PLSQL_ERROR');
315: FND_MESSAGE.SET_TOKEN('ROUTINE', L_FULL_NAME);
364:
365: -- Standard call to check for call compatibility.
366: IF NOT FND_API.COMPATIBLE_API_CALL (L_API_VERSION, P_API_VERSION, L_API_NAME, G_PKG_NAME)
367: THEN
368: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;
371:
372: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
368: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ' : Not a compatible API call.');
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;
371:
372: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
373: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Program ID : ' || P_PROGRAM_ID );
374:
375: --Initialize message list if p_init_msg_list is TRUE.
376: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;
371:
372: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, l_module, L_API_NAME||': START');
373: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Program ID : ' || P_PROGRAM_ID );
374:
375: --Initialize message list if p_init_msg_list is TRUE.
376: IF FND_API.TO_BOOLEAN (P_INIT_MSG_LIST) THEN
377: FND_MSG_PUB.INITIALIZE;
381: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
382:
383: L_ITEM_KEY := DBMS_UTILITY.GET_TIME();
384:
385: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Event Key : ' || L_ITEM_KEY);
386:
387: L_EVENT_TEST := WF_EVENT.TEST(L_EVENT_NAME);
388:
389: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Event Test : ' || L_EVENT_TEST);
385: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Event Key : ' || L_ITEM_KEY);
386:
387: L_EVENT_TEST := WF_EVENT.TEST(L_EVENT_NAME);
388:
389: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Event Test : ' || L_EVENT_TEST);
390:
391: IF L_EVENT_TEST = 'NONE' THEN
392: X_MSG_DATA := FND_MESSAGE.GET();
393: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'No enabled local subscriptions reference the event, or the event does not exist.');
389: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Event Test : ' || L_EVENT_TEST);
390:
391: IF L_EVENT_TEST = 'NONE' THEN
392: X_MSG_DATA := FND_MESSAGE.GET();
393: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'No enabled local subscriptions reference the event, or the event does not exist.');
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No enabled local subscriptions reference the event, or the event does not exist.');
395: FND_FILE.NEW_LINE(FND_FILE.LOG);
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
402: P_EVENT_KEY => L_ITEM_KEY,
403: P_PARAMETERS => L_PARAMETER_LIST,
404: P_SEND_DATE => SYSDATE );
405:
406: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, L_API_NAME || ', Event raised : ' || L_ITEM_KEY );
407:
408: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Event raised : ' || L_ITEM_KEY );
409: FND_FILE.NEW_LINE(FND_FILE.LOG);
410:
414: EXCEPTION
415:
416: WHEN FND_API.G_EXC_ERROR THEN
417: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR ;
418: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_EXC_ERROR : ' || SQLERRM);
419:
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXC_ERROR : '||SQLERRM);
421: FND_FILE.NEW_LINE(FND_FILE.LOG);
422: ROLLBACK TO START_WF_ON_EFF_DATE;
427: END LOOP;
428: END IF;
429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
431: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ', FND_API.G_RET_STS_UNEXP_ERROR : ' || SQLERRM);
432:
433: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UNEXP_ERROR : '||SQLERRM);
434: FND_FILE.NEW_LINE(FND_FILE.LOG);
435: ROLLBACK TO START_WF_ON_EFF_DATE;
440: END LOOP;
441: END IF;
442: WHEN OTHERS THEN
443: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
444: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_EXCEPTION, l_module, L_API_NAME || ',FND_API.G_RET_STS_UNEXP_ERROR :: ' || SQLERRM);
445:
446: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OTHER_ERROR : '||SQLERRM);
447: FND_FILE.NEW_LINE(FND_FILE.LOG);
448: IF FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
497: BEGIN
498:
499: L_PROGRAM_ID := WF_ENGINE.GETITEMATTRNUMBER(ITEMTYPE => ITEMTYPE, ITEMKEY => ITEMKEY, ANAME =>'PROGRAM_ID');
500:
501: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemtype:' || itemtype);
502: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemkey:' || itemkey);
503: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: actid:' || actid);
504: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: funcmode:' || funcmode);
505: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: programid' || L_PROGRAM_ID);
498:
499: L_PROGRAM_ID := WF_ENGINE.GETITEMATTRNUMBER(ITEMTYPE => ITEMTYPE, ITEMKEY => ITEMKEY, ANAME =>'PROGRAM_ID');
500:
501: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemtype:' || itemtype);
502: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemkey:' || itemkey);
503: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: actid:' || actid);
504: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: funcmode:' || funcmode);
505: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: programid' || L_PROGRAM_ID);
506:
499: L_PROGRAM_ID := WF_ENGINE.GETITEMATTRNUMBER(ITEMTYPE => ITEMTYPE, ITEMKEY => ITEMKEY, ANAME =>'PROGRAM_ID');
500:
501: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemtype:' || itemtype);
502: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemkey:' || itemkey);
503: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: actid:' || actid);
504: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: funcmode:' || funcmode);
505: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: programid' || L_PROGRAM_ID);
506:
507: OPEN GET_USER_LIST(L_PROGRAM_ID);
500:
501: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemtype:' || itemtype);
502: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemkey:' || itemkey);
503: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: actid:' || actid);
504: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: funcmode:' || funcmode);
505: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: programid' || L_PROGRAM_ID);
506:
507: OPEN GET_USER_LIST(L_PROGRAM_ID);
508: LOOP
501: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemtype:' || itemtype);
502: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: itemkey:' || itemkey);
503: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: actid:' || actid);
504: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: funcmode:' || funcmode);
505: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: programid' || L_PROGRAM_ID);
506:
507: OPEN GET_USER_LIST(L_PROGRAM_ID);
508: LOOP
509: FETCH GET_USER_LIST INTO L_USER_ID, L_USER_NAME;
508: LOOP
509: FETCH GET_USER_LIST INTO L_USER_ID, L_USER_NAME;
510: EXIT WHEN GET_USER_LIST%NOTFOUND;
511:
512: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: ' || L_USER_ID);
513: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: ' || L_USER_NAME);
514:
515: WF_ENGINE.SETITEMATTRTEXT(ITEMTYPE => ITEMTYPE,
516: ITEMKEY => ITEMKEY,
509: FETCH GET_USER_LIST INTO L_USER_ID, L_USER_NAME;
510: EXIT WHEN GET_USER_LIST%NOTFOUND;
511:
512: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: ' || L_USER_ID);
513: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: ' || L_USER_NAME);
514:
515: WF_ENGINE.SETITEMATTRTEXT(ITEMTYPE => ITEMTYPE,
516: ITEMKEY => ITEMKEY,
517: ANAME => 'USER_ID',
537: CONTEXT => L_WF_ID || ':' || ITEMKEY || ':',
538: SEND_COMMENT => NULL,
539: PRIORITY => NULL );
540:
541: DPP_UTILITY_PVT.DEBUG_MESSAGE(FND_LOG.LEVEL_STATEMENT, l_module, 'SEND_EFFECTIVE_DATE_NOTIF :: ' || L_NOTIFY_ID);
542:
543: END LOOP;
544: CLOSE GET_USER_LIST;
545:
621: FND_MSG_PUB.initialize;
622: END IF;
623:
624: -- Debug Message
625: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'start');
626:
627: -- Initialize API return status to sucess
628: x_return_status := FND_API.g_ret_sts_success;
629:
657: END IF;
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END;
660:
661: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Execution Detail ID : ' || l_exe_dtl_id ||' For Transaction ID :'||p_txn_hdr_rec.Transaction_Header_ID);
662: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Process Code : ' || p_txn_hdr_rec.process_code);
663:
664: --Get the user name corresponding to the user id
665: BEGIN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END;
660:
661: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Execution Detail ID : ' || l_exe_dtl_id ||' For Transaction ID :'||p_txn_hdr_rec.Transaction_Header_ID);
662: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Process Code : ' || p_txn_hdr_rec.process_code);
663:
664: --Get the user name corresponding to the user id
665: BEGIN
666: SELECT user_name
706: RAISE FND_API.g_exc_error;
707: ELSE
708: --Concatinate the claim flag with necessary quotes to generate xml data
709: l_claim_type_flag := ''''||p_txn_hdr_rec.claim_type_flag||'''';
710: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Claim Type Flag : ' || l_claim_type_flag);
711: END IF;
712: --Delete the existing rows from the DPP_TRANSACTION_LINES_GT table
713: DELETE FROM DPP_TRANSACTION_LINES_GT;
714: --Check if any line id has been passed and insert into the table DPP_TRANSACTION_LINES_GT
838: AND nvl(update_item_list_price, 'N') = 'N';
839:
840: IF SQL%ROWCOUNT = 0 THEN
841: l_return_status := FND_API.G_RET_STS_ERROR;
842: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column update_item_list_price in DPP_TRANSACTION_LINES_ALL Table');
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
844: END IF;
845:
846: END IF;
893: AND nvl(NOTIFY_OUTBOUND_PRICELIST,'N') <> 'D';
894:
895: IF SQL%ROWCOUNT = 0 THEN
896: l_return_status := FND_API.G_RET_STS_ERROR;
897: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_OUTBOUND_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: END IF;
900: END IF;
901:
1022: AND nvl(NOTIFY_INBOUND_PRICELIST,'N') <> 'D';
1023:
1024: IF SQL%ROWCOUNT = 0 THEN
1025: l_return_status := FND_API.G_RET_STS_ERROR;
1026: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_INBOUND_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
1027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1028: END IF;
1029: END IF;
1030:
1077: AND nvl(NOTIFY_PROMOTIONS_PRICELIST,'N') <> 'D';
1078:
1079: IF SQL%ROWCOUNT = 0 THEN
1080: l_return_status := FND_API.G_RET_STS_ERROR;
1081: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column NOTIFY_PROMOTIONS_PRICELIST in DPP_TRANSACTION_LINES_ALL Table');
1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1083: END IF;
1084: END IF;
1085: ELSIF p_txn_hdr_rec.process_code = 'INVC' THEN
1143: END;
1144: END IF;
1145:
1146: IF l_cost_adj_acct IS NOT NULL THEN
1147: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Cost Adjustment Account : ' ||l_cost_adj_acct);
1148:
1149: --Generate the Input Xml required for the Business Event -- Update Inventory Costing
1150: l_queryCtx := dbms_xmlquery.newContext('SELECT Transaction_header_id,
1151: Transaction_number,
1193: AND nvl(UPDATE_INVENTORY_COSTING,'N') = 'N';
1194:
1195: IF SQL%ROWCOUNT = 0 THEN
1196: l_return_status := FND_API.G_RET_STS_ERROR;
1197: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column UPDATE_INVENTORY_COSTING in DPP_TRANSACTION_LINES_ALL Table');
1198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1199: END IF;
1200: END IF;
1201: ELSE
1260: AND nvl(notify_purchasing_docs ,'N') <> 'D';
1261:
1262: IF SQL%ROWCOUNT = 0 THEN
1263: l_return_status := FND_API.G_RET_STS_ERROR;
1264: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column notify_purchasing_docs in DPP_TRANSACTION_LINES_ALL Table');
1265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1266: END IF;
1267: END IF;
1268: ELSIF p_txn_hdr_rec.process_code = 'UPDTPO' THEN
1312: AND nvl(UPDATE_PURCHASING_DOCS ,'N')= 'N';
1313:
1314: IF SQL%ROWCOUNT = 0 THEN
1315: l_return_status := FND_API.G_RET_STS_ERROR;
1316: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column UPDATE_PURCHASING_DOCS in DPP_TRANSACTION_LINES_ALL Table');
1317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1318: END IF;
1319: END IF;
1320: ELSIF p_txn_hdr_rec.process_code = 'DSTRINVCL' THEN
1424: AND nvl(price_change,0) > 0;
1425:
1426: IF SQL%ROWCOUNT = 0 THEN
1427: l_return_status := FND_API.G_RET_STS_ERROR;
1428: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_DIST_CLAIM_STATUS in DPP_TRANSACTION_LINES_ALL Table');
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431: --Update those lines to Y who have the approved inventory as 0
1432: UPDATE DPP_TRANSACTION_LINES_ALL
1452: AND nvl(price_change,0) <> 0;
1453:
1454: IF SQL%ROWCOUNT = 0 THEN
1455: l_return_status := FND_API.G_RET_STS_ERROR;
1456: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_DIST_CLAIM_STATUS in DPP_TRANSACTION_LINES_ALL Table');
1457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1458: END IF;
1459: --Update those lines to Y who have the approved inventory as 0
1460: UPDATE DPP_TRANSACTION_LINES_ALL
1532: AND nvl(supp_claim_amt,0) > 0;
1533:
1534: IF SQL%ROWCOUNT = 0 THEN
1535: l_return_status := FND_API.G_RET_STS_ERROR;
1536: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supplier_claim_created in DPP_customer_claims_all Table');
1537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1538: END IF;
1539: --Update those lines to Y which have reported inventory as 0
1540: UPDATE DPP_customer_claims_all
1681: ,p_row_count => l_row_count
1682: ,p_exe_dtl_id => l_exe_dtl_id
1683: );
1684:
1685: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Raise_Workflow_Event =>'||l_return_status);
1686: --dpp_utility_pvt.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data =>'||l_msg_data),1,4000));
1687:
1688: -- Check return status from the above procedure call
1689: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1682: ,p_exe_dtl_id => l_exe_dtl_id
1683: );
1684:
1685: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Raise_Workflow_Event =>'||l_return_status);
1686: --dpp_utility_pvt.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data =>'||l_msg_data),1,4000));
1687:
1688: -- Check return status from the above procedure call
1689: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1690: RAISE FND_API.g_exc_error;
1805: l_new_item_key := TO_CHAR(SYSDATE,'DDMMRRRRHH24MISS');
1806: --Check if the event subscription can be raised or not before inserting into the DPP_EXECUTION_DETAILS table
1807: l_event_test := wf_event.test(l_event_name);
1808: IF l_event_test = 'NONE' THEN
1809: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'No enabled local subscriptions reference the event, or the event does not exist.');
1810: RAISE FND_API.g_exc_error;
1811: ELSE
1812: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Number of rows Processed : '||p_row_count);
1813:
1808: IF l_event_test = 'NONE' THEN
1809: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'No enabled local subscriptions reference the event, or the event does not exist.');
1810: RAISE FND_API.g_exc_error;
1811: ELSE
1812: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Number of rows Processed : '||p_row_count);
1813:
1814: --Check if the xml has any rows processed and raise the event
1815: IF p_row_count > 0 THEN
1816: --Insert a line in to the DPP_EXECUTION_DETAILS table corresponding to the process which has been started
1871: ,p_parameters => l_parameter_list
1872: ,p_send_date => sysdate
1873: );
1874:
1875: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Work Flow Event Raised');
1876:
1877: ELSE
1878: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Work Flow Event is not Raised');
1879: FND_MESSAGE.set_name('DPP', 'DPP_CC_NO_ELIGIBLE_LINES_MSG');
1874:
1875: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Work Flow Event Raised');
1876:
1877: ELSE
1878: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Work Flow Event is not Raised');
1879: FND_MESSAGE.set_name('DPP', 'DPP_CC_NO_ELIGIBLE_LINES_MSG');
1880: FND_MSG_PUB.add;
1881: RAISE FND_API.g_exc_error;
1882: END IF; --p_row_count > 0