[Home] [Help]
23:
24: l_event_status varchar2(100);
25: l_sub_status varchar2(100);
26: l_sub_guid varchar2(4000);
27: evt wf_event_t;
28: l_application_id number;
29: l_application_code varchar2(32);
30: l_return_status varchar2(32);
31: l_application_name varchar2(240);
61: i integer;
62: CURSOR GET_EVT_SUBSCRIPTION_DETAILS IS
63: select b.guid,A.status,b.status
64: from
65: wf_events a, wf_event_subscriptions b
66: where a.GUID = b.EVENT_FILTER_GUID
67: and a.name = p_event
68: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
69: --Bug No 4912782- Start
108: -- Verify is more than one active ERES subscriptions are present
109: --
110: select count(*) INTO l_no_enabled_eres_sub
111: from
112: wf_events a, wf_event_subscriptions b
113: where a.GUID = b.EVENT_FILTER_GUID
114: and a.name = p_event
115: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
116: and b.STATUS = 'ENABLED'
122: RAISE MULTIPLE_ERES_SUBSCRIPTIONS;
123: ELSE
124: select count(*) INTO l_no_enabled_eres_sub
125: from
126: wf_events a, wf_event_subscriptions b
127: where a.GUID = b.EVENT_FILTER_GUID
128: and a.name = p_event
129: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
130: --Bug No 4912782- Start
167: RETURN;
168: END;
169:
170: /*check if any AMe stuff is available */
171: wf_event_t.initialize(evt);
172: evt.setSendDate(sysdate);
173: evt.setEventName(p_event);
174: evt.setEventKey(p_event_key);
175: -- Bug 5639849 : Starts
193: BEGIN
194: SELECT application_id,APPLICATION_SHORT_NAME into l_application_id,l_application_code
195: FROM FND_APPLICATION
196: WHERE APPLICATION_SHORT_NAME in
197: (SELECT OWNER_TAG from WF_EVENTS WHERE NAME=evt.getEventName( ));
198:
199: fnd_message.set_name('EDR', 'EDR_UTIL_PLS_EVENT_APP_CODE');
200: fnd_message.set_token( 'APPCODE', l_application_code);
201: fnd_file.put_line(fnd_file.output, fnd_message.get);
308: fnd_message.set_name('EDR', 'EDR_UTIL_PLS_DOC_GET_ID');
309: fnd_message.set_token( 'DOC_ID', evt.getEventKey());
310: fnd_file.put_line(fnd_file.output, fnd_message.get);
311:
312: wf_event.AddParameterToList('ECX_MAP_CODE', l_xml_map_code,evt.Parameter_List); /* XML Map Code*/
313: wf_event.AddParameterToList('ECX_DOCUMENT_ID', evt.getEventKey( ),evt.Parameter_List); /* XML Document ID*/
314:
315: fnd_file.put_line(fnd_file.output, fnd_message.get_string('EDR', 'EDR_UTIL_PLS_DOC_GET_ECX') );
316:
309: fnd_message.set_token( 'DOC_ID', evt.getEventKey());
310: fnd_file.put_line(fnd_file.output, fnd_message.get);
311:
312: wf_event.AddParameterToList('ECX_MAP_CODE', l_xml_map_code,evt.Parameter_List); /* XML Map Code*/
313: wf_event.AddParameterToList('ECX_DOCUMENT_ID', evt.getEventKey( ),evt.Parameter_List); /* XML Document ID*/
314:
315: fnd_file.put_line(fnd_file.output, fnd_message.get_string('EDR', 'EDR_UTIL_PLS_DOC_GET_ECX') );
316:
317: /* Generate XML Document */
557: p_param_value IN OUT NOCOPY FND_TABLE_OF_VARCHAR2_255 ) IS
558:
559: --Bug 3207385: Start
560: --This variable would now be a simple name/value param type.
561: l_param_list fnd_wf_event.param_table;
562: --Bug 3207385: End
563: ith number := 1;
564: len number := 1;
565: BEGIN
568: for ith in 1..len LOOP
569: --l_param_list.extend;
570: --Bug 3207385: Start
571: --We just have to add the parameters directly into the parameter list.
572: --wf_event.AddParameterToList( p_param_list(ith), p_param_value(ith),lparam_list);
573: l_param_list(ith).param_name := p_param_list(ith);
574: l_param_list(ith).param_value := p_param_value(ith);
575: --Bug 3207385: End
576: end LOOP;
575: --Bug 3207385: End
576: end LOOP;
577:
578: --Bug 3207385: Start
579: --wf_event.raise3(p_event_name, p_event_key, p_event_data, l_param_list, p_send_date);
580: --Call the new procedure "EDR_ERES_EVENT_PVT.RAISE_TABLE" to raise the business event.
581:
582: EDR_ERES_EVENT_PVT.RAISE_TABLE(P_EVENT_NAME,
583: P_EVENT_KEY,
1212:
1213: CURSOR c1 is
1214: SELECT DISPLAY_NAME
1215: from
1216: wf_events_vl
1217: WHERE NAME= P_EVENT;
1218:
1219: BEGIN
1220: OPEN C1;
1658: l_rule_eRecord_required varchar2(1);
1659: l_event_status varchar2(100);
1660: l_sub_status varchar2(100);
1661: l_sub_guid varchar2(4000);
1662: evt wf_event_t;
1663: l_application_id number;
1664: l_application_code varchar2(32);
1665: l_return_status varchar2(32);
1666: l_application_name varchar2(240);
1681: -- bug 5586151 : End
1682: CURSOR GET_EVT_SUBSCRIPTION_DETAILS IS
1683: select b.guid,A.status,b.status
1684: from
1685: wf_events a, wf_event_subscriptions b
1686: where a.GUID = b.EVENT_FILTER_GUID
1687: and a.name = p_event_name
1688: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
1689: -- bug 5586151 : start
1713:
1714:
1715: --Obtain the number of ERES subscriptions enabled for this event.
1716: select count(*) INTO l_no_enabled_eres_sub
1717: from wf_events a, wf_event_subscriptions b
1718: where a.GUID = b.EVENT_FILTER_GUID
1719: and a.name = p_event_name
1720: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
1721: and b.STATUS = 'ENABLED'
1760: --If both event and subscription is enabled then
1761: --set the workflow variable parameters.
1762: -- IF l_event_status='ENABLED' and l_sub_status='ENABLED' then
1763: IF l_sub_guid IS NOT NULL then
1764: wf_event_t.initialize(evt);
1765: evt.setSendDate(sysdate);
1766: evt.setEventName(p_event_name);
1767: evt.setEventKey(p_event_key);
1768:
1777:
1778: --Bug 4704598: start
1779: --comment this if and change the way subscription params are obtained
1780: --IF l_return_status='SUCCESS' THEN
1781: -- l_ame_transaction_type := NVL(wf_event.getValueForParameter('EDR_AME_TRANSACTION_TYPE',evt.Parameter_List),
1782: -- evt.getEventName( ));
1783:
1784: l_ame_transaction_type := edr_indexed_xml_util.get_wf_params('EDR_AME_TRANSACTION_TYPE',l_sub_guid);
1785: --Bug 4704598: end
1788: SELECT application_id,APPLICATION_SHORT_NAME into l_application_id,
1789: l_application_code
1790: FROM FND_APPLICATION
1791: WHERE APPLICATION_SHORT_NAME in
1792: (SELECT OWNER_TAG from WF_EVENTS
1793: WHERE NAME=evt.getEventName( ));
1794: --For the obtained AME transaction, fetch the rules that are are
1795: --applicable for the specified transaction id.
1796: