[Home] [Help]
PACKAGE BODY: APPS.GMD_EDR_STANDARD
Source
1 PACKAGE BODY GMD_EDR_STANDARD AS
2 /* $Header: GMDERDSB.pls 120.1 2006/02/10 14:01:55 txdaniel noship $ */
3
4 --Bug 3222090, NSRIVAST 20-FEB-2004, BEGIN
5 --Forward declaration.
6 FUNCTION set_debug_flag RETURN VARCHAR2;
7 l_debug VARCHAR2(1) := set_debug_flag;
8
9 FUNCTION set_debug_flag RETURN VARCHAR2 IS
10 l_debug VARCHAR2(1):= 'N';
11 BEGIN
12 IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
13 l_debug := 'Y';
14 END IF;
15 RETURN l_debug;
16 END set_debug_flag;
17 --Bug 3222090, NSRIVAST, END
18
19 /*======================================================================
20 -- PROCEDURE :
21 -- raise_event
22 --
23 -- DESCRIPTION:
24 -- This PL/SQL procedure is responsible for invoking the workflow
25 -- raise event.
26 -- REQUIREMENTS
27 --
28 -- SYNOPSIS:
29 -- raise_event ('oracle.apps.gmd.operation.sts', 100,'DEFERED', 'Y');
30 --
31 --===================================================================== */
32 PROCEDURE raise_event (p_event_name in varchar2,
33 p_event_key in varchar2,
34 p_parameter_name1 in varchar2,
35 p_parameter_value1 in varchar2,
36 p_parameter_name2 in varchar2 ,
37 p_parameter_value2 in varchar2 ,
38 p_parameter_name3 in varchar2 ,
39 p_parameter_value3 in varchar2 ,
40 p_parameter_name4 in varchar2 ,
41 p_parameter_value4 in varchar2 ,
42 p_parameter_name5 in varchar2 ,
43 p_parameter_value5 in varchar2 ,
44 p_parameter_name6 in varchar2 ,
45 p_parameter_value6 in varchar2 ,
46 p_parameter_name7 in varchar2 ,
47 p_parameter_value7 in varchar2 ,
48 p_parameter_name8 in varchar2 ,
49 p_parameter_value8 in varchar2 ,
50 p_parameter_name9 in varchar2 ,
51 p_parameter_value9 in varchar2 ,
52 p_parameter_name10 in varchar2,
53 p_parameter_value10 in varchar2) IS
54
55 p_erecord_ids edr_eres_event_pub.erecord_id_tbl_type;
56 x_event_rec edr_eres_event_pub.eres_event_rec_type;
57
58 x_msg_count NUMBER;
59 x_msg_data VARCHAR2(2000);
60 l_return_status VARCHAR2(1);
61
62 BEGIN
63
64 -- p_erecord_ids(1) := NULL;
65
66 x_event_rec.event_name := p_event_name;
67 x_event_rec.event_key := p_event_key;
68
69 IF (p_parameter_name1 is not NULL) THEN
70 x_event_rec.param_name_1 := p_parameter_name1;
71 x_event_rec.param_value_1 := p_parameter_value1;
72 END IF;
73
74 IF (p_parameter_name2 is not NULL) THEN
75 x_event_rec.param_name_2 := p_parameter_name2;
76 x_event_rec.param_value_2 := p_parameter_value2;
77 END IF;
78
79 IF (p_parameter_name3 is not NULL) THEN
80 x_event_rec.param_name_3 := p_parameter_name3;
81 x_event_rec.param_value_3 := p_parameter_value3;
82 END IF;
83
84 IF (p_parameter_name4 is not NULL) THEN
85 x_event_rec.param_name_4 := p_parameter_name4;
86 x_event_rec.param_value_4 := p_parameter_value4;
87 END IF;
88
89 IF (p_parameter_name5 is not NULL) THEN
90 x_event_rec.param_name_5 := p_parameter_name5;
91 x_event_rec.param_value_5 := p_parameter_value5;
92 END IF;
93
94 IF (p_parameter_name6 is not NULL) THEN
95 x_event_rec.param_name_6 := p_parameter_name6;
96 x_event_rec.param_value_6 := p_parameter_value6;
97 END IF;
98
99 IF (p_parameter_name7 is not NULL) THEN
100 x_event_rec.param_name_7 := p_parameter_name7;
101 x_event_rec.param_value_7 := p_parameter_value7;
102 END IF;
103
104 IF (p_parameter_name8 is not NULL) THEN
105 x_event_rec.param_name_8 := p_parameter_name8;
106 x_event_rec.param_value_8 := p_parameter_value8;
107 END IF;
108
109 IF (p_parameter_name9 is not NULL) THEN
110 x_event_rec.param_name_9 := p_parameter_name9;
111 x_event_rec.param_value_9 := p_parameter_value9;
112 END IF;
113
114 IF (p_parameter_name10 is not NULL) THEN
115 x_event_rec.param_name_10 := p_parameter_name10;
116 x_event_rec.param_value_10 := p_parameter_value10;
117 END IF;
118
119 EDR_ERES_EVENT_PUB.raise_eres_event
120 ( p_api_version => 1.0
121 , p_init_msg_list => FND_API.G_TRUE
122 , p_validation_level => FND_API.G_VALID_LEVEL_FULL
123 , x_return_status => l_return_status
124 , x_msg_count => x_msg_count
125 , x_msg_data => x_msg_data
126 , p_child_erecords => p_erecord_ids --NULL
127 , x_event => x_event_rec);
128
129 IF x_event_rec.erecord_id IS NOT NULL THEN
130 EDR_TRANS_ACKN_PUB.SEND_ACKN
131 ( p_api_version => 1.0
132 , p_init_msg_list => FND_API.G_TRUE
133 , x_return_status => l_return_status
134 , x_msg_count => x_msg_count
135 , x_msg_data => x_msg_data
136 , p_event_name => p_event_name
137 , p_event_key => p_event_key
138 , p_erecord_id => x_event_rec.erecord_id
139 , p_trans_status => 'SUCCESS'
140 , p_ackn_by => NULL
141 , p_ackn_note => NULL
142 , p_autonomous_commit => FND_API.G_FALSE
143 );
144 END IF;
145
146 END raise_event;
147
148 END GMD_EDR_STANDARD;