[Home] [Help]
PACKAGE BODY: APPS.ICX_RQS_ATTACHMENT
Source
1 PACKAGE BODY icx_rqs_attachment as
2 /* $Header: ICXRQATB.pls 115.1 99/07/17 03:22:39 porting ship $ */
3
4 procedure header(c_inputs1 in varchar2 default null,
5 c_inputs2 in varchar2 default null,
6 c_inputs3 in varchar2 default null,
7 c_inputs4 in varchar2 default null,
8 c_inputs5 in varchar2 default null,
9 c_inputs6 in varchar2 default null,
10 c_inputs7 in varchar2 default null,
11 c_inputs8 in varchar2 default null,
12 c_inputs9 in varchar2 default null,
13 c_inputs10 in varchar2 default null,
14 c_outputs1 out varchar2,
15 c_outputs2 out varchar2,
16 c_outputs3 out varchar2,
17 c_outputs4 out varchar2,
18 c_outputs5 out varchar2,
19 c_outputs6 out varchar2,
20 c_outputs7 out varchar2,
21 c_outputs8 out varchar2,
22 c_outputs9 out varchar2,
23 c_outputs10 out varchar2)is
24
25 c_rowid varchar2(18);
26 c_dcdname varchar(200);
27 url varchar(300);
28 l_param varchar(240);
29 l_session_id number;
30
31 begin
32
33 -- The following information needs to be set up through ON forms, on particular
34 -- Page rlations.
35
36 if icx_sec.validateSession
37 then
38 l_session_id := icx_sec.getID(icx_sec.PV_SESSION_ID);
39 /*
40 c_dcdname := owa_util.get_cgi_env('SCRIPT_NAME');
41
42
43 select rowidtochar(ROWID)
44 into c_rowid
45 from AK_FLOW_REGION_RELATIONS
46 where FROM_REGION_CODE = 'ICX_RQS_HISTORY_1'
47 and FROM_REGION_APPL_ID = 178
48 and FROM_PAGE_CODE = 'ICX_RQS_HISTORY_1'
49 and FROM_PAGE_APPL_ID = 178
50 and TO_PAGE_CODE = 'ICX_RQS_HISTORY_DTL_D'
51 and TO_PAGE_APPL_ID = 178
52 and FLOW_CODE = 'ICX_EMPLOYEES'
53 and FLOW_APPLICATION_ID = 178;
54
55 l_param := icx_on_utilities.buildOracleONstring
56 (p_rowid => c_rowid,
57 p_primary_key => 'ICX_RQS_HISTORY_PK',
58 p1 => c_inputs1);
59
60 if l_session_id is null then
61 url := c_dcdname || '/OracleOn.IC?Y=' || icx_call.encrypt2(l_param,-999);
62 else
63 url := c_dcdname || '/OracleOn.IC?Y=' || icx_call.encrypt2(l_param,l_session_id);
64 end if;
65 */
66
67 fnd_webattch.Summary (function_name=>icx_call.encrypt2('ICX_REQS'),
68 entity_name=>icx_call.encrypt2('REQ_HEADERS'),
69 pk1_value=>icx_call.encrypt2(c_inputs1),
70 pk2_value=>icx_call.encrypt2(NULL),
71 pk3_value=>icx_call.encrypt2(NULL),
72 pk4_value=>icx_call.encrypt2( NULL),
73 pk5_value=>icx_call.encrypt2(NULL),
74 from_url=>icx_call.encrypt2(NULL),
75 query_only=>icx_call.encrypt2('Y'));
76
77 end if;
78 end;
79
80 procedure lines(c_inputs1 in varchar2 default null,
81 c_inputs2 in varchar2 default null,
82 c_inputs3 in varchar2 default null,
83 c_inputs4 in varchar2 default null,
84 c_inputs5 in varchar2 default null,
85 c_inputs6 in varchar2 default null,
86 c_inputs7 in varchar2 default null,
87 c_inputs8 in varchar2 default null,
88 c_inputs9 in varchar2 default null,
89 c_inputs10 in varchar2 default null,
90 c_outputs1 out varchar2,
91 c_outputs2 out varchar2,
92 c_outputs3 out varchar2,
93 c_outputs4 out varchar2,
94 c_outputs5 out varchar2,
95 c_outputs6 out varchar2,
96 c_outputs7 out varchar2,
97 c_outputs8 out varchar2,
98 c_outputs9 out varchar2,
99 c_outputs10 out varchar2)is
100
101 c_rowid varchar2(18);
102 c_dcdname varchar(200);
103 url varchar(300);
104 l_param varchar(240);
105 l_session_id number;
106
107 begin
108
109 -- The following information needs to be set up through ON forms, on particular
110 -- Page rlations.
111
112 if icx_sec.validateSession
113 then
114 l_session_id := icx_sec.getID(icx_sec.PV_SESSION_ID);
115 /*
116 c_dcdname := owa_util.get_cgi_env('SCRIPT_NAME');
117
118
119 select rowidtochar(ROWID)
120 into c_rowid
121 from AK_FLOW_REGION_RELATIONS
122 where FROM_REGION_CODE = 'ICX_RQS_HISTORY_1'
123 and FROM_REGION_APPL_ID = 178
124 and FROM_PAGE_CODE = 'ICX_RQS_HISTORY_1'
125 and FROM_PAGE_APPL_ID = 178
126 and TO_PAGE_CODE = 'ICX_RQS_HISTORY_DTL_D'
127 and TO_PAGE_APPL_ID = 178
128 and FLOW_CODE = 'ICX_EMPLOYEES'
129 and FLOW_APPLICATION_ID = 178;
130
131 l_param := icx_on_utilities.buildOracleONstring
132 (p_rowid => c_rowid,
133 p_primary_key => 'ICX_RQS_HISTORY_PK',
134 p1 => c_inputs1);
135
136 if l_session_id is null then
137 url := c_dcdname || '/OracleOn.IC?Y=' || icx_call.encrypt2(l_param,-999);
138 else
139 url := c_dcdname || '/OracleOn.IC?Y=' || icx_call.encrypt2(l_param,l_session_id);
140 end if;
141
142 */
143 fnd_webattch.Summary (function_name=>icx_call.encrypt2('ICX_REQS'),
144 entity_name=>icx_call.encrypt2('REQ_LINES'),
145 pk1_value=>icx_call.encrypt2(c_inputs2),
146 pk2_value=>icx_call.encrypt2(NULL),
147 pk3_value=>icx_call.encrypt2(NULL),
148 pk4_value=>icx_call.encrypt2( NULL),
149 pk5_value=>icx_call.encrypt2(NULL),
150 from_url=>icx_call.encrypt2(NULL),
151 query_only=>icx_call.encrypt2('Y'));
152
153 end if;
154 end;
155
156
157
158
159 procedure lines2(c_inputs1 in varchar2 default null,
160 c_inputs2 in varchar2 default null,
161 c_inputs3 in varchar2 default null,
162 c_inputs4 in varchar2 default null,
163 c_inputs5 in varchar2 default null,
164 c_inputs6 in varchar2 default null,
165 c_inputs7 in varchar2 default null,
166 c_inputs8 in varchar2 default null,
167 c_inputs9 in varchar2 default null,
168 c_inputs10 in varchar2 default null,
169 c_outputs1 out varchar2,
170 c_outputs2 out varchar2,
171 c_outputs3 out varchar2,
172 c_outputs4 out varchar2,
173 c_outputs5 out varchar2,
174 c_outputs6 out varchar2,
175 c_outputs7 out varchar2,
176 c_outputs8 out varchar2,
177 c_outputs9 out varchar2,
178 c_outputs10 out varchar2)is
179
180 c_rowid varchar2(18);
181 c_dcdname varchar(200);
182 url varchar(300);
183 l_param varchar(240);
184 l_session_id number;
185 pk1 varchar(30);
186 begin
187
188 -- The following information needs to be set up through ON forms, on particular
189 -- Page rlations.
190
191 if icx_sec.validateSession
192 then
193 l_session_id := icx_sec.getID(icx_sec.PV_SESSION_ID);
194 /*
195 c_dcdname := owa_util.get_cgi_env('SCRIPT_NAME');
196
197
198 select rowidtochar(ROWID)
199 into c_rowid
200 from AK_FLOW_REGION_RELATIONS
201 where FROM_REGION_CODE = 'ICX_RQS_HISTORY_1'
202 and FROM_REGION_APPL_ID = 178
203 and FROM_PAGE_CODE = 'ICX_RQS_HISTORY_1'
204 and FROM_PAGE_APPL_ID = 178
205 and TO_PAGE_CODE = 'ICX_RQS_HISTORY_DTL_D'
206 and TO_PAGE_APPL_ID = 178
207 and FLOW_CODE = 'ICX_EMPLOYEES'
208 and FLOW_APPLICATION_ID = 178;
209
210 l_param := icx_on_utilities.buildOracleONstring
211 (p_rowid => c_rowid,
212 p_primary_key => 'ICX_RQS_HISTORY_PK',
213 p1 => c_inputs1);
214
215 if l_session_id is null then
216 url := c_dcdname || '/OracleOn.IC?Y=' || icx_call.encrypt2(l_param,-999);
217 else
218 url := c_dcdname || '/OracleOn.IC?Y=' || icx_call.encrypt2(l_param,l_session_id);
219 end if;
220 */
221 select REQUISITION_HEADER_ID into pk1
222 from icx_po_requisition_open_v
223 where REQUISITION_LINE_ID = c_inputs1;
224
225 fnd_webattch.Summary (function_name=>icx_call.encrypt2('ICX_REQS'),
226 entity_name=>icx_call.encrypt2('REQ_LINES'),
227 pk1_value=>icx_call.encrypt2(c_inputs1),
228 pk2_value=>icx_call.encrypt2(NULL),
229 pk3_value=>icx_call.encrypt2(NULL),
230 pk4_value=>icx_call.encrypt2( NULL),
231 pk5_value=>icx_call.encrypt2(NULL),
232 from_url=>icx_call.encrypt2(NULL),
233 query_only=>icx_call.encrypt2('Y'));
234
235 end if;
236 end;
237
238
239
240 end icx_rqs_attachment;