DBA Data[Home] [Help]

APPS.CLN_NP_PROCESSOR_PKG dependencies on CLN_NP_PROCESSOR_PKG

Line 1: PACKAGE BODY CLN_NP_PROCESSOR_PKG AS

1: PACKAGE BODY CLN_NP_PROCESSOR_PKG AS
2: /* $Header: ECXNPNPB.pls 120.0 2005/08/25 04:47:39 nparihar noship $ */
3: l_debug_level NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4:
5: --

Line 7: -- CLN_NP_PROCESSOR_PKG_NEW

3: l_debug_level NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4:
5: --
6: -- Package
7: -- CLN_NP_PROCESSOR_PKG_NEW
8: --
9: -- Purpose
10: -- Spec of package CLN_NP_PROCESSOR_PKG_NEW
11: -- Based on the latesy CH enhancements, notification processing has been modified.

Line 10: -- Spec of package CLN_NP_PROCESSOR_PKG_NEW

6: -- Package
7: -- CLN_NP_PROCESSOR_PKG_NEW
8: --
9: -- Purpose
10: -- Spec of package CLN_NP_PROCESSOR_PKG_NEW
11: -- Based on the latesy CH enhancements, notification processing has been modified.
12: -- History
13: -- Mar-22-2001 Kodanda Ram Created
14: --

Line 59: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.SEND_MAIL', 2);

55: BEGIN
56: -- Sets the debug mode to FILE
57: --l_debug_mode := ecx_cln_debug_pub.Set_Debug_Mode('FILE');
58: IF (l_Debug_Level <= 2) THEN
59: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.SEND_MAIL', 2);
60: END IF;
61:
62: IF (l_Debug_Level <= 1) THEN
63: ecx_cln_debug_pub.Add('E-Mail to be sent to :' || p_role , 1);

Line 120: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.SEND_MAIL', 2);

116: -- if not then continue with the old code and if no, then we call different process
117:
118:
119: IF (l_Debug_Level <= 2) THEN
120: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.SEND_MAIL', 2);
121: END IF;
122:
123: END SEND_MAIL;
124:

Line 214: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);

210: BEGIN
211: -- Sets the debug mode to be FILE
212: --l_debug_mode := ecx_cln_debug_pub.Set_Debug_Mode('FILE');
213: IF (l_Debug_Level <= 2) THEN
214: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);
215: END IF;
216:
217: IF (l_Debug_Level <= 1) THEN
218: ecx_cln_debug_pub.Add('With the following parameters:', 1);

Line 961: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);

957:
958: END;
959: END Loop;
960: IF (l_Debug_Level <= 2) THEN
961: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);
962: END IF;
963:
964: EXCEPTION
965: WHEN FND_API.G_EXC_ERROR THEN

Line 969: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);

965: WHEN FND_API.G_EXC_ERROR THEN
966: x_ret_code := FND_API.G_RET_STS_ERROR;
967: IF (l_Debug_Level <= 5) THEN
968: ecx_cln_debug_pub.Add(x_ret_desc, 6);
969: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);
970: END IF;
971:
972: WHEN OTHERS THEN
973: l_error_code := SQLCODE;

Line 979: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);

975: x_ret_code := FND_API.G_RET_STS_UNEXP_ERROR ;
976: x_ret_desc := l_error_code || ':' || l_error_msg;
977: IF (l_Debug_Level <= 5) THEN
978: ecx_cln_debug_pub.Add(x_ret_desc,6);
979: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL', 2);
980: END IF;
981:
982: END TAKE_ACTIONS_INTERNAL;
983:

Line 988: -- Spec of package CLN_NP_PROCESSOR_PKG

984:
985: -- Name
986: -- PROCESS_NOTIFICATION
987: -- Purpose
988: -- Spec of package CLN_NP_PROCESSOR_PKG
989: -- Based on the notification code, fetches the notification actions
990: -- and executes the actions that are defined by the user.
991: -- The actions can be one of the following : Raise Event, Start Workflow,
992: -- Notify Administartor, Notify Trading Pratner and Call user Procedure.

Line 1043: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);

1039: SAVEPOINT PROCESS_NOTIFICATION;
1040: -- Sets the debug mode to be FILE
1041: --l_debug_mode := ecx_cln_debug_pub.Set_Debug_Mode('FILE');
1042: IF (l_Debug_Level <= 2) THEN
1043: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);
1044: END IF;
1045:
1046: IF (l_Debug_Level <= 1) THEN
1047: ecx_cln_debug_pub.Add('With the following parameters:', 1);

Line 1102: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);

1098: END IF;
1099: l_update_collaboration_flag := FALSE; -- no need to update second or third time
1100: END LOOP;
1101: IF (l_Debug_Level <= 2) THEN
1102: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);
1103: END IF;
1104:
1105: EXCEPTION
1106: WHEN FND_API.G_EXC_ERROR THEN

Line 1123: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);

1119: || p_coll_id
1120: || ', encountered the following error:'
1121: || x_ret_desc);
1122: IF (l_Debug_Level <= 5) THEN
1123: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);
1124: END IF;
1125:
1126: WHEN OTHERS THEN
1127: ROLLBACK TO PROCESS_NOTIFICATION;

Line 1146: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);

1142: END IF;
1143:
1144: NOTIFY_ADMINISTRATOR(x_ret_desc);
1145: IF (l_Debug_Level <= 5) THEN
1146: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIFICATION', 2);
1147: END IF;
1148:
1149: END PROCESS_NOTIFICATION;
1150:

Line 1190: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);

1186: SAVEPOINT TAKE_ACTIONS;
1187: -- Sets the debug mode to be FILE
1188: --l_debug_mode := ecx_cln_debug_pub.Set_Debug_Mode('FILE');
1189: IF (l_Debug_Level <= 2) THEN
1190: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);
1191: END IF;
1192:
1193:
1194: x_ret_code := FND_API.G_RET_STS_SUCCESS;

Line 1226: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);

1222: x_ret_desc := l_return_msg;
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1225: IF (l_Debug_Level <= 2) THEN
1226: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);
1227: END IF;
1228:
1229: EXCEPTION
1230: WHEN FND_API.G_EXC_ERROR THEN

Line 1239: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);

1235:
1236: x_ret_code := FND_API.G_RET_STS_ERROR;
1237: IF (l_Debug_Level <= 5) THEN
1238: ecx_cln_debug_pub.Add(x_ret_desc, 6);
1239: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);
1240: END IF;
1241:
1242: WHEN OTHERS THEN
1243: ROLLBACK TO TAKE_ACTIONS;

Line 1254: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);

1250: x_ret_code := FND_API.G_RET_STS_UNEXP_ERROR;
1251: x_ret_desc := l_return_code||' : '||l_return_msg;
1252: IF (l_Debug_Level <= 5) THEN
1253: ecx_cln_debug_pub.Add(x_ret_desc, 6);
1254: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS', 2);
1255: END IF;
1256:
1257: END TAKE_ACTIONS;
1258:

Line 1303: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.GET_TRADING_PARTNER_DETAILS', 2);

1299:
1300: -- Sets the debug mode to be FILE
1301: --l_debug_mode := ecx_cln_debug_pub.Set_Debug_Mode('FILE');
1302: IF (l_Debug_Level <= 2) THEN
1303: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.GET_TRADING_PARTNER_DETAILS', 2);
1304: END IF;
1305:
1306:
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1347: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.GET_TRADING_PARTNER_DETAILS', 2);

1343: WHEN FND_API.G_EXC_ERROR THEN
1344: x_return_status := FND_API.G_RET_STS_ERROR;
1345: IF (l_Debug_Level <= 5) THEN
1346: ecx_cln_debug_pub.Add(x_msg_data, 4);
1347: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.GET_TRADING_PARTNER_DETAILS', 2);
1348: END IF;
1349:
1350: WHEN OTHERS THEN
1351: l_error_code := SQLCODE;

Line 1357: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.GET_TRADING_PARTNER_DETAILS', 2);

1353: x_msg_data := l_error_code || ':' || l_error_msg;
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1355: IF (l_Debug_Level <= 5) THEN
1356: ecx_cln_debug_pub.Add(x_msg_data, 6);
1357: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.GET_TRADING_PARTNER_DETAILS', 2);
1358: END IF;
1359:
1360: END GET_TRADING_PARTNER_DETAILS;
1361:

Line 1391: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR', 2);

1387: -- Sets the debug mode to be FILE
1388: --l_debug_mode := ecx_cln_debug_pub.Set_Debug_Mode('FILE');
1389:
1390: IF (l_Debug_Level <= 2) THEN
1391: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR', 2);
1392: END IF;
1393:
1394:
1395: l_role := FND_PROFILE.VALUE('CLN_ADMINISTRATOR');

Line 1442: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR', 2);

1438: WF_ENGINE.SetItemAttrText('CLN_NPNP', l_notification_flow_key, 'CLN_PERFORMER', l_role );
1439: WF_ENGINE.StartProcess('CLN_NPNP', l_notification_flow_key);
1440:
1441: IF (l_Debug_Level <= 2) THEN
1442: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR', 2);
1443: END IF;
1444:
1445: EXCEPTION
1446: WHEN OTHERS THEN

Line 1452: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR', 2);

1448: l_error_msg := SQLERRM;
1449: IF (l_Debug_Level <= 5) THEN
1450: ecx_cln_debug_pub.Add(l_error_code || ':' || l_error_msg, 6);
1451: ecx_cln_debug_pub.Add('Failed to send a mail to administrator', 3);
1452: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR', 2);
1453: END IF;
1454:
1455: END NOTIFY_ADMINISTRATOR;
1456:

Line 1552: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);

1548:
1549:
1550: BEGIN
1551: IF (l_Debug_Level <= 2) THEN
1552: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);
1553: END IF;
1554:
1555: -- Initialize API return status to success
1556: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1774: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL(

1770:
1771: -- if send_mail is not null, directly call send_mail api.
1772: -- if notification_code is not null, then proceed further else return.
1773:
1774: CLN_NP_PROCESSOR_PKG.TAKE_ACTIONS_INTERNAL(
1775: x_ret_code => x_return_status,
1776: x_ret_desc => x_msg_data,
1777: p_notification_code => l_notification_code,
1778: p_notification_desc => l_notification_desc,

Line 1802: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);

1798: RAISE FND_API.G_EXC_ERROR;
1799: END IF;
1800:
1801: IF (l_Debug_Level <= 2) THEN
1802: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);
1803: END IF;
1804:
1805: EXCEPTION
1806: WHEN FND_API.G_EXC_ERROR THEN

Line 1809: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);

1805: EXCEPTION
1806: WHEN FND_API.G_EXC_ERROR THEN
1807: x_return_status := FND_API.G_RET_STS_ERROR;
1808: IF (l_Debug_Level <= 5) THEN
1809: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);
1810: END IF;
1811:
1812: WHEN OTHERS THEN
1813: l_return_code := SQLCODE;

Line 1820: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);

1816: x_msg_data := l_return_code||' : '||x_msg_data;
1817:
1818: IF (l_Debug_Level <= 5) THEN
1819: ecx_cln_debug_pub.Add(x_msg_data, 6);
1820: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_ACTIONS_EVT', 2);
1821: END IF;
1822:
1823: END PROCESS_NOTIF_ACTIONS_EVT;
1824:

Line 1887: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);

1883: l_collaboration_standard VARCHAR2(30);
1884:
1885: BEGIN
1886: IF (l_Debug_Level <= 2) THEN
1887: ecx_cln_debug_pub.Add('ENTERING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);
1888: END IF;
1889:
1890: -- Initialize API return status to success
1891: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2095: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.SEND_MAIL', 2);

2091: WF_ENGINE.SetItemAttrText('CLN_NPNP', l_notification_flow_key, 'CLN_PERFORMER', l_notif_receiver_role);
2092: WF_ENGINE.StartProcess('CLN_NPNP', l_notification_flow_key);
2093:
2094: IF (l_Debug_Level <= 2) THEN
2095: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.SEND_MAIL', 2);
2096: END IF;
2097:
2098:
2099: IF (l_Debug_Level <= 2) THEN

Line 2100: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);

2096: END IF;
2097:
2098:
2099: IF (l_Debug_Level <= 2) THEN
2100: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);
2101: END IF;
2102:
2103: EXCEPTION
2104: WHEN FND_API.G_EXC_ERROR THEN

Line 2107: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);

2103: EXCEPTION
2104: WHEN FND_API.G_EXC_ERROR THEN
2105: x_return_status := FND_API.G_RET_STS_ERROR;
2106: IF (l_Debug_Level <= 5) THEN
2107: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);
2108: END IF;
2109:
2110: WHEN OTHERS THEN
2111: l_return_code := SQLCODE;

Line 2118: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);

2114: x_msg_data := l_return_code||' : '||x_msg_data;
2115:
2116: IF (l_Debug_Level <= 5) THEN
2117: ecx_cln_debug_pub.Add(x_msg_data, 6);
2118: ecx_cln_debug_pub.Add('EXITING CLN_NP_PROCESSOR_PKG.PROCESS_NOTIF_BATCH_EVT', 2);
2119: END IF;
2120:
2121: END PROCESS_NOTIF_BATCH_EVT;
2122:

Line 2123: END CLN_NP_PROCESSOR_PKG;

2119: END IF;
2120:
2121: END PROCESS_NOTIF_BATCH_EVT;
2122:
2123: END CLN_NP_PROCESSOR_PKG;