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;