[Home] [Help]
PACKAGE BODY: APPS.CE_P2P_UTIL_PKG
Source
1 PACKAGE BODY CE_P2P_UTIL_PKG as
2 /* $Header: cep2pulb.pls 120.1 2002/11/12 21:20:44 bhchung noship $ */
3 function SUBMIT_REQUEST (
4 application IN varchar2 default NULL,
5 program IN varchar2 default NULL,
6 description IN varchar2 default NULL,
7 start_time IN varchar2 default NULL,
8 sub_request IN varchar2 default 'FALSE',
9 argument1 IN varchar2 default CHR(0),
10 argument2 IN varchar2 default CHR(0),
11 argument3 IN varchar2 default CHR(0),
12 argument4 IN varchar2 default CHR(0),
13 argument5 IN varchar2 default CHR(0),
14 argument6 IN varchar2 default CHR(0),
15 argument7 IN varchar2 default CHR(0),
16 argument8 IN varchar2 default CHR(0),
17 argument9 IN varchar2 default CHR(0),
18 argument10 IN varchar2 default CHR(0),
19 argument11 IN varchar2 default CHR(0),
20 argument12 IN varchar2 default CHR(0),
21 argument13 IN varchar2 default CHR(0),
22 argument14 IN varchar2 default CHR(0),
23 argument15 IN varchar2 default CHR(0),
24 argument16 IN varchar2 default CHR(0),
25 argument17 IN varchar2 default CHR(0),
26 argument18 IN varchar2 default CHR(0),
27 argument19 IN varchar2 default CHR(0),
28 argument20 IN varchar2 default CHR(0),
29 argument21 IN varchar2 default CHR(0),
30 argument22 IN varchar2 default CHR(0),
31 argument23 IN varchar2 default CHR(0),
32 argument24 IN varchar2 default CHR(0),
33 argument25 IN varchar2 default CHR(0),
34 argument26 IN varchar2 default CHR(0),
35 argument27 IN varchar2 default CHR(0),
36 argument28 IN varchar2 default CHR(0),
37 argument29 IN varchar2 default CHR(0),
38 argument30 IN varchar2 default CHR(0),
39 argument31 IN varchar2 default CHR(0),
40 argument32 IN varchar2 default CHR(0),
41 argument33 IN varchar2 default CHR(0),
42 argument34 IN varchar2 default CHR(0),
43 argument35 IN varchar2 default CHR(0),
44 argument36 IN varchar2 default CHR(0),
45 argument37 IN varchar2 default CHR(0),
46 argument38 IN varchar2 default CHR(0),
47 argument39 IN varchar2 default CHR(0),
48 argument40 IN varchar2 default CHR(0),
49 argument41 IN varchar2 default CHR(0),
50 argument42 IN varchar2 default CHR(0),
51 argument43 IN varchar2 default CHR(0),
52 argument44 IN varchar2 default CHR(0),
53 argument45 IN varchar2 default CHR(0),
54 argument46 IN varchar2 default CHR(0),
55 argument47 IN varchar2 default CHR(0),
56 argument48 IN varchar2 default CHR(0),
57 argument49 IN varchar2 default CHR(0),
58 argument50 IN varchar2 default CHR(0),
59 argument51 IN varchar2 default CHR(0),
60 argument52 IN varchar2 default CHR(0),
61 argument53 IN varchar2 default CHR(0),
62 argument54 IN varchar2 default CHR(0),
63 argument55 IN varchar2 default CHR(0),
64 argument56 IN varchar2 default CHR(0),
65 argument57 IN varchar2 default CHR(0),
66 argument58 IN varchar2 default CHR(0),
67 argument59 IN varchar2 default CHR(0),
68 argument60 IN varchar2 default CHR(0),
69 argument61 IN varchar2 default CHR(0),
70 argument62 IN varchar2 default CHR(0),
71 argument63 IN varchar2 default CHR(0),
72 argument64 IN varchar2 default CHR(0),
73 argument65 IN varchar2 default CHR(0),
74 argument66 IN varchar2 default CHR(0),
75 argument67 IN varchar2 default CHR(0),
76 argument68 IN varchar2 default CHR(0),
77 argument69 IN varchar2 default CHR(0),
78 argument70 IN varchar2 default CHR(0),
79 argument71 IN varchar2 default CHR(0),
80 argument72 IN varchar2 default CHR(0),
81 argument73 IN varchar2 default CHR(0),
82 argument74 IN varchar2 default CHR(0),
83 argument75 IN varchar2 default CHR(0),
84 argument76 IN varchar2 default CHR(0),
85 argument77 IN varchar2 default CHR(0),
86 argument78 IN varchar2 default CHR(0),
87 argument79 IN varchar2 default CHR(0),
88 argument80 IN varchar2 default CHR(0),
89 argument81 IN varchar2 default CHR(0),
90 argument82 IN varchar2 default CHR(0),
91 argument83 IN varchar2 default CHR(0),
92 argument84 IN varchar2 default CHR(0),
93 argument85 IN varchar2 default CHR(0),
94 argument86 IN varchar2 default CHR(0),
95 argument87 IN varchar2 default CHR(0),
96 argument88 IN varchar2 default CHR(0),
97 argument89 IN varchar2 default CHR(0),
98 argument90 IN varchar2 default CHR(0),
99 argument91 IN varchar2 default CHR(0),
100 argument92 IN varchar2 default CHR(0),
101 argument93 IN varchar2 default CHR(0),
102 argument94 IN varchar2 default CHR(0),
103 argument95 IN varchar2 default CHR(0),
104 argument96 IN varchar2 default CHR(0),
105 argument97 IN varchar2 default CHR(0),
106 argument98 IN varchar2 default CHR(0),
107 argument99 IN varchar2 default CHR(0),
108 argument100 IN varchar2 default CHR(0))
109 return number is
110
111 req_ID number;
112 p_sub_request boolean;
113
114 begin
115 if (sub_request = 'FALSE') then
116 p_sub_request := FALSE;
117 else
118 p_sub_request := TRUE;
119 end if;
120 req_ID := FND_REQUEST.SUBMIT_REQUEST(
121 application, program, description, start_time, p_sub_request,
122 Argument1, Argument2, Argument3, Argument4, Argument5,
123 Argument6, Argument7, Argument8, Argument9, Argument10,
124 Argument11, Argument12, Argument13, Argument14, Argument15,
125 Argument16, Argument17, Argument18, Argument19, Argument20,
126 Argument21, Argument22, Argument23, Argument24, Argument25,
127 Argument26, Argument27, Argument28, Argument29, Argument30,
128 Argument31, Argument32, Argument33, Argument34, Argument35,
129 Argument36, Argument37, Argument38, Argument39, Argument40,
130 Argument41, Argument42, Argument43, Argument44, Argument45,
131 Argument46, Argument47, Argument48, Argument49, Argument50,
132 Argument51, Argument52, Argument53, Argument54, Argument55,
133 Argument56, Argument57, Argument58, Argument59, Argument60,
134 Argument61, Argument62, Argument63, Argument64, Argument65,
135 Argument66, Argument67, Argument68, Argument69, Argument70,
136 Argument71, Argument72, Argument73, Argument74, Argument75,
137 Argument76, Argument77, Argument78, Argument79, Argument80,
138 Argument81, Argument82, Argument83, Argument84, Argument85,
139 Argument86, Argument87, Argument88, Argument89, Argument90,
140 Argument91, Argument92, Argument93, Argument94, Argument95,
141 Argument96, Argument97, Argument98, Argument99, Argument100);
142 return(req_ID);
143 end;
144
145
146 function WAIT_FOR_REQUEST (request_id IN Number default NULL,
147 interval IN Number default 60,
148 max_wait IN Number default 0,
149 phase OUT NOCOPY varchar2,
150 status OUT NOCOPY varchar2,
151 dev_phase OUT NOCOPY varchar2,
152 dev_status OUT NOCOPY varchar2,
153 message OUT NOCOPY varchar2)
154 return varchar2 is
155
156 p_result boolean;
157
158 begin
159 p_result := FND_CONCURRENT.WAIT_FOR_REQUEST(
160 request_id, interval, max_wait,
161 phase, status, dev_phase,
162 dev_status, message);
163
164 IF (p_result = FALSE) THEN
165 return 'FALSE';
166 ELSE
167 return 'TRUE';
168 END IF;
169
170 end;
171
172
173 procedure send_email(p_wf_role in VARCHAR2,
174 p_file_name VARCHAR2,
175 p_transmission_code VARCHAR2,
176 p_transmission_type VARCHAR2,
177 p_process_type VARCHAR2) as
178
179 l_role VARCHAR2(100);
180 l_display_role_name VARCHAR2(100);
181 l_item_key VARCHAR2(100);
182
183 c_item_type varchar2(80); -- :='CESTMTWF';
184 c_process varchar2(80); -- :='CESTMTWF_P';
185
186 begin
187 l_role := null;
188 l_display_role_name := null;
189
190 --
191 -- Creating a workflow process
192 --
193
194 IF p_process_type = 'STATEMENT' THEN
195 select ce_p2p_inbound_stmt_s.nextval into l_item_key from dual;
196 c_item_type := 'CESTMTWF';
197 c_process := 'CESTMTWF_P';
198 ELSIF p_process_type = 'INTRA' THEN
199 select ce_p2p_inbound_intra_s.nextval into l_item_key from dual;
200 c_item_type := 'CEINTRWF';
201 c_process := 'CEINTRWF_P';
202 ELSE
203 select ce_p2p_inbound_exception_s.nextval into l_item_key from dual;
204 c_item_type := 'CEEXPTWF';
205 c_process := 'CEEXPTWF_P';
206 END IF;
207
208 WF_ENGINE.CreateProcess(c_item_type,l_item_key, c_process);
209
210 --
211 -- Initializing attributes
212 --
213
214 WF_ENGINE.setItemAttrText(c_item_type,l_item_key, 'WFROLE',p_wf_role);
215 WF_ENGINE.setItemAttrText(c_item_type,l_item_key, 'FILENAME',p_file_name);
216 WF_ENGINE.setItemAttrText(c_item_type,l_item_key, 'TRANCODE',p_transmission_code);
217 WF_ENGINE.setItemAttrText(c_item_type,l_item_key, 'TRANSMISSION_TYPE',p_transmission_type);
218 --WF_ENGINE.setItemAttrText(c_item_type,l_item_key, 'ADHOCROLE',l_role);
219
220 --
221 -- Starting the process
222 --
223
224 WF_ENGINE.startProcess(c_item_type, l_item_key);
225 commit;
226 end;
227
228
229
230 END CE_P2P_UTIL_PKG;