25:
26: FUNCTION Event_data_delete
27: -- Rule function for event data deletions used as the last subscription to AS events
28: (p_subscription_guid IN RAW,
29: p_event IN OUT NOCOPY WF_EVENT_T)
30: RETURN VARCHAR2
31: IS
32: l_key VARCHAR2(240);
33: BEGIN
46: FND_MESSAGE.Set_Name('AS', 'Error number ' || to_char(SQLCODE));
47: FND_MSG_PUB.ADD;
48:
49: WF_CORE.CONTEXT('AS_BUSINESS_EVENT_PVT', 'EVENT_DATA_DELETE', p_event.getEventName(), p_subscription_guid);
50: WF_EVENT.setErrorInfo(p_event, 'WARNING');
51:
52: RETURN 'WARNING';
53:
54: WHEN OTHERS THEN
57: FND_MESSAGE.Set_Name('AS', 'Error number ' || to_char(SQLCODE));
58: FND_MSG_PUB.ADD;
59:
60: WF_CORE.CONTEXT('AS_BUSINESS_EVENT_PVT', 'EVENT_DATA_DELETE', p_event.getEventName(), p_subscription_guid);
61: WF_EVENT.setErrorInfo(p_event, 'ERROR');
62:
63: RETURN 'ERROR';
64: END;
65:
71: IS
72: RetEvent VARCHAR2(240);
73: BEGIN
74: SELECT name INTO RetEvent
75: FROM wf_events
76: WHERE name = p_event_name;
77: IF SQL%NOTFOUND THEN
78: RetEvent := 'NOTFOUND';
79: END IF;
88: -----------------------------------------------------------------------
89: IS
90: CURSOR cu0 IS
91: SELECT 'Y'
92: FROM wf_events eve,
93: wf_event_subscriptions sub
94: WHERE eve.name = p_event_name
95: AND eve.status = 'ENABLED'
96: AND eve.guid = sub.event_filter_guid
89: IS
90: CURSOR cu0 IS
91: SELECT 'Y'
92: FROM wf_events eve,
93: wf_event_subscriptions sub
94: WHERE eve.name = p_event_name
95: AND eve.status = 'ENABLED'
96: AND eve.guid = sub.event_filter_guid
97: AND UPPER(sub.rule_function) = 'AS_BUSINESS_EVENT_PVT.EVENT_DATA_DELETE'
98: AND sub.status = 'ENABLED'
99: AND sub.source_type = 'LOCAL'
100: AND EXISTS (
101: SELECT 'X'
102: FROM wf_event_subscriptions sub1
103: WHERE sub1.event_filter_guid = eve.guid
104: AND UPPER(sub1.rule_function) <> 'AS_BUSINESS_EVENT_PVT.EVENT_DATA_DELETE'
105: AND sub1.status = 'ENABLED'
106: AND sub1.source_type = 'LOCAL')
196: -- debug rows from the as_event_data table.
197: FUNCTION Test_event
198: -- Rule function for event data deletions used as the last subscription to AS events
199: (p_subscription_guid IN RAW,
200: p_event IN OUT NOCOPY WF_EVENT_T)
201: RETURN VARCHAR2
202: IS
203: l_api_name CONSTANT VARCHAR2(30) := 'Test_event';
204: l_inded NUMBER;
285: FND_MESSAGE.Set_Name('AS', 'Error number ' || to_char(SQLCODE));
286: FND_MSG_PUB.ADD;
287:
288: WF_CORE.CONTEXT('AS_BUSINESS_EVENT_PVT', 'TEST_EVENT', p_event.getEventName(), p_subscription_guid);
289: WF_EVENT.setErrorInfo(p_event, 'WARNING');
290:
291: RETURN 'WARNING';
292:
293: WHEN OTHERS THEN
296: FND_MESSAGE.Set_Name('AS', 'Error number ' || to_char(SQLCODE));
297: FND_MSG_PUB.ADD;
298:
299: WF_CORE.CONTEXT('AS_BUSINESS_EVENT_PVT', 'TEST_EVENT', p_event.getEventName(), p_subscription_guid);
300: WF_EVENT.setErrorInfo(p_event, 'ERROR');
301:
302: RETURN 'ERROR';
303: END Test_event;
304:
443: END LOOP;
444: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'END Parameters') ;
445: END IF;
446:
447: Wf_Event.Raise
448: ( p_event_name => l_event,
449: p_event_key => p_event_key,
450: p_parameters => p_parameters,
451: p_event_data => p_data);
1181: -- called directly if the last parameter is AS_BUSINESS_EVENT_PVT.DIRECT_CALL
1182: -- and is set to Y
1183: FUNCTION Raise_update_oppty_event (
1184: p_subscription_guid IN RAW,
1185: p_event IN OUT NOCOPY WF_EVENT_T
1186: )
1187: RETURN VARCHAR2
1188: IS
1189:
1329: FND_MSG_PUB.ADD;
1330:
1331: IF l_direct_call <> 'Y' THEN
1332: WF_CORE.CONTEXT('AS_BUSINESS_EVENT_PVT', 'RAISE_UPDATE_OPPTY_EVENT', p_event.getEventName(), p_subscription_guid);
1333: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1334: END IF;
1335:
1336: RETURN 'ERROR';
1337: END Raise_update_oppty_event;
1431: l_api_name CONSTANT VARCHAR2(30) := 'Update_oppty_post_event';
1432: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1433: l_list WF_PARAMETER_LIST_T;
1434: l_param WF_PARAMETER_T;
1435: l_event WF_EVENT_T;
1436: l_status VARCHAR2(32);
1437: l_module CONSTANT VARCHAR2(255) := 'as.plsql.bevpv.Update_oppty_post_event';
1438:
1439: BEGIN
1492: l_list.extend;
1493: l_param.SetName( DIRECT_CALL );
1494: l_param.SetValue( 'Y' );
1495: l_list(l_list.last) := l_param;
1496: l_event := WF_EVENT_T(NULL, NULL, NULL, NULL, l_list, INT_OPPTY_UPDATE_EVENT,
1497: p_event_key, NULL, NULL, NULL, NULL, NULL, NULL);
1498: l_event.setParameterList(l_list);
1499:
1500: l_status := Raise_update_oppty_event(NULL, l_event);
1514: -- called directly if the last parameter is AS_BUSINESS_EVENT_PVT.DIRECT_CALL
1515: -- and is set to Y
1516: FUNCTION Raise_upd_opp_lines_evnt (
1517: p_subscription_guid IN RAW,
1518: p_event IN OUT NOCOPY WF_EVENT_T
1519: )
1520: RETURN VARCHAR2
1521: IS
1522:
1611: FND_MSG_PUB.ADD;
1612:
1613: IF l_direct_call <> 'Y' THEN
1614: WF_CORE.CONTEXT('AS_BUSINESS_EVENT_PVT', 'RAISE_UPD_OPP_LINES_EVNT', p_event.getEventName(), p_subscription_guid);
1615: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1616: END IF;
1617:
1618: RETURN 'ERROR';
1619: END Raise_upd_opp_lines_evnt;
1673: l_api_name CONSTANT VARCHAR2(30) := 'Upd_Opp_Lines_post_event';
1674: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1675: l_list WF_PARAMETER_LIST_T;
1676: l_param WF_PARAMETER_T;
1677: l_event WF_EVENT_T;
1678: l_status VARCHAR2(32);
1679: l_module CONSTANT VARCHAR2(255) := 'as.plsql.bevpv.Upd_Opp_Lines_post_event';
1680:
1681: BEGIN
1734: l_list.extend;
1735: l_param.SetName( DIRECT_CALL );
1736: l_param.SetValue( 'Y' );
1737: l_list(l_list.last) := l_param;
1738: l_event := WF_EVENT_T(NULL, NULL, NULL, NULL, l_list, INT_OPP_LINES_UPDATE_EVENT,
1739: p_event_key, NULL, NULL, NULL, NULL, NULL, NULL);
1740: l_event.setParameterList(l_list);
1741:
1742: l_status := Raise_upd_opp_lines_evnt(NULL, l_event);
1756: -- called directly if the last parameter is AS_BUSINESS_EVENT_PVT.DIRECT_CALL
1757: -- and is set to Y
1758: FUNCTION Raise_upd_STeam_evnt (
1759: p_subscription_guid IN RAW,
1760: p_event IN OUT NOCOPY WF_EVENT_T
1761: )
1762: RETURN VARCHAR2
1763: IS
1764:
1861: FND_MSG_PUB.ADD;
1862:
1863: IF l_direct_call <> 'Y' THEN
1864: WF_CORE.CONTEXT('AS_BUSINESS_EVENT_PVT', 'RAISE_UPD_STEAM_EVNT', p_event.getEventName(), p_subscription_guid);
1865: WF_EVENT.setErrorInfo(p_event, 'ERROR');
1866: END IF;
1867:
1868: RETURN 'ERROR';
1869: END Raise_upd_STeam_evnt;
1923: l_api_name CONSTANT VARCHAR2(30) := 'Upd_Opp_STeam_post_event';
1924: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1925: l_list WF_PARAMETER_LIST_T;
1926: l_param WF_PARAMETER_T;
1927: l_event WF_EVENT_T;
1928: l_status VARCHAR2(32);
1929: l_module CONSTANT VARCHAR2(255) := 'as.plsql.bevpv.Upd_Opp_STeam_post_event';
1930:
1931: BEGIN
1984: l_list.extend;
1985: l_param.SetName( DIRECT_CALL );
1986: l_param.SetValue( 'Y' );
1987: l_list(l_list.last) := l_param;
1988: l_event := WF_EVENT_T(NULL, NULL, NULL, NULL, l_list, INT_STEAM_UPDATE_EVENT,
1989: p_event_key, NULL, NULL, NULL, NULL, NULL, NULL);
1990: l_event.setParameterList(l_list);
1991:
1992: l_status := Raise_upd_STeam_evnt(NULL, l_event);
2054: l_api_name CONSTANT VARCHAR2(30) := 'Upd_Cust_STeam_post_event';
2055: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
2056: l_list WF_PARAMETER_LIST_T;
2057: l_param WF_PARAMETER_T;
2058: l_event WF_EVENT_T;
2059: l_status VARCHAR2(32);
2060: l_module CONSTANT VARCHAR2(255) := 'as.plsql.bevpv.Upd_Cust_STeam_post_event';
2061:
2062: BEGIN
2115: l_list.extend;
2116: l_param.SetName( DIRECT_CALL );
2117: l_param.SetValue( 'Y' );
2118: l_list(l_list.last) := l_param;
2119: l_event := WF_EVENT_T(NULL, NULL, NULL, NULL, l_list, INT_STEAM_UPDATE_EVENT,
2120: p_event_key, NULL, NULL, NULL, NULL, NULL, NULL);
2121: l_event.setParameterList(l_list);
2122:
2123: l_status := Raise_upd_STeam_evnt(NULL, l_event);