[Home] [Help]
PACKAGE BODY: APPS.PON_TEST_BIZ_EVENTS_PVT
Source
1 PACKAGE BODY PON_TEST_BIZ_EVENTS_PVT AS
2 -- $Header: PONVTBEB.pls 120.2 2005/10/04 12:00:24 sapandey noship $
3
4 FUNCTION TEST( p_subscription_guid in raw,
5 p_event in out nocopy wf_event_t
6 ) return varchar2
7 IS
8 pos number := 1;
9 l_log VARCHAR2(3000);
10 l_param_list wf_parameter_list_t;
11 l_event_name VARCHAR2(25);
12 l_object_id NUMBER;
13 l_object_id2 NUMBER;
14
15 PRAGMA AUTONOMOUS_TRANSACTION;
16
17 BEGIN --{ Start of Test Subscription Function
18
19 l_param_list := p_event.GETPARAMETERLIST;
20 pos := l_param_list.LAST;
21
22 WHILE(POS IS NOT NULL) LOOP
23
24 IF (l_param_list(POS).GETNAME() IS NOT NULL) THEN
25 l_log := l_log||' {'||l_param_list(pos).getName()||':'||l_param_list(pos).getValue()||'},';
26 END IF;
27 pos := l_param_list.PRIOR(pos);
28
29 END LOOP;
30
31
32 --
33 -- Derive synthetic variables
34 --
35 IF ( p_event.GETEVENTNAME = 'oracle.apps.pon.event.negotiation.publish') THEN
36 l_event_name := 'negotiation.publish';
37 l_object_id := to_number(p_event.GETEVENTKEY); --auction_header_id
38 l_object_id2 := 0;
39 ELSIF ( p_event.GETEVENTNAME = 'oracle.apps.pon.event.response.publish') THEN
40 l_event_name := 'response.publish';
41 l_object_id := to_number(p_event.GETEVENTKEY); --bid_number
42 l_object_id2 := 0;
43 ELSIF ( p_event.GETEVENTNAME = 'oracle.apps.pon.event.response.disqualify') THEN
44 l_event_name := 'response.disqualify';
45 l_object_id := to_number(p_event.GETEVENTKEY); --bid_number
46 l_object_id2 := 0;
47 ELSIF ( p_event.GETEVENTNAME = 'oracle.apps.pon.event.negotiation.award_approval_start') THEN
48 l_event_name := 'award_approval_start';
49 l_object_id := to_number( SUBSTR(p_event.GETEVENTKEY,0,INSTR(p_event.GETEVENTKEY,'-') -1) ); --auction_header_id - award_appr_ame_trans_id
50 l_object_id2 := to_number( SUBSTR(p_event.GETEVENTKEY, INSTR(p_event.GETEVENTKEY,'-') +1) ); --auction_header_id - award_appr_ame_trans_id
51 ELSIF ( p_event.GETEVENTNAME = 'oracle.apps.pon.event.negotiation.award_complete') THEN
52 l_event_name := 'award_complete';
53 l_object_id := to_number(p_event.GETEVENTKEY); --auction_header_id
54 l_object_id2 := 0;
55 ELSIF ( p_event.GETEVENTNAME = 'oracle.apps.pon.event.purchaseorder.initiate') THEN
56 l_event_name := 'purchaseorder.initiate';
57 l_object_id := to_number( SUBSTR(p_event.GETEVENTKEY,0,INSTR(p_event.GETEVENTKEY,'-') -1) ); --auction_header_id - wf_ponc ompl_current_round
58 l_object_id2 := to_number( SUBSTR(p_event.GETEVENTKEY, INSTR(p_event.GETEVENTKEY,'-') +1) ); --auction_header_id - wf_ponc ompl_current_round
59 END IF;
60
61
62 INSERT INTO PON_ACTION_HISTORY
63 (
64 OBJECT_ID ,
65 OBJECT_ID2 ,
66 OBJECT_TYPE_CODE,
67 SEQUENCE_NUM ,
68 ACTION_TYPE ,
69 ACTION_DATE ,
70 ACTION_USER_ID ,
71 ACTION_NOTE
72 )
73 VALUES
74 (
75 l_object_id ,
76 l_object_id2,
77 l_event_name,
78 0 ,
79 'BUSINESS_EVENT',
80 SYSDATE ,
81 -1 ,
82 SUBSTR('Business Event fired with parameter values - '||l_log,0,2000)
83 );
84
85 commit;
86
87 RETURN NULL;
88
89 END; --{ End of Test Subscription Function
90
91
92
93 END PON_TEST_BIZ_EVENTS_PVT;