[Home] [Help]
PACKAGE BODY: APPS.AP_WEB_WRAPPER_PKG
Source
1 PACKAGE BODY AP_WEB_WRAPPER_PKG AS
2 /* $Header: apwxwrpb.pls 120.6.12000000.2 2007/04/26 18:28:18 skoukunt ship $ */
3
4
5 --------------------------------------------------------------------------
6 PROCEDURE ICXAdminSig_helpWinScript(v_defHlp IN VARCHAR2) IS
7 l_debugInfo varchar2(200);
8 begin
9 null;
10 EXCEPTION
11 WHEN OTHERS THEN
12 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
13 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
14 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','ICXAdminSig_helpWinScript');
15 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debugInfo);
16 APP_EXCEPTION.RAISE_EXCEPTION;
17
18 END ICXAdminSig_helpWinScript;
19
20 -----------------------------------------------------
21 PROCEDURE SetUpClientInfo
22 -----------------------------------------------------
23 IS
24
25 BEGIN
26 null;
27 EXCEPTION
28 WHEN OTHERS THEN
29 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
30 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
31 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_WEB_WRAPPER_PKG.SetUpClientInfo');
32 APP_EXCEPTION.RAISE_EXCEPTION;
33
34 END SetUpClientInfo;
35
36 /**********************************************************************
37 * Copied FND_DATE.string_to_canonical revision 115.3 for R11 backport
38 * because the old R11.0 did not have this functionality, which
39 * is called by AP_SSE_NOTIFY_EMPLOYEE.
40 **********************************************************************/
41 FUNCTION date_to_canonical(p_string IN date)
42 RETURN VARCHAR2 IS
43 BEGIN
44 RETURN(fnd_date.date_to_canonical(p_string));
45 EXCEPTION
46 WHEN OTHERS THEN
47 RETURN(NULL);
48 END date_to_canonical;
49
50
51 /**********************************************************************
52 * The old R11.0 does not have this functionality, which
53 * is called by AP_CREDIT_CARD_INVOICE_PKG.createCreditCardInvoice.
54 * This function is copied from version 115.3 of FND_DATE.string_to_date
55 * in the 11.0 backport version
56 **********************************************************************/
57 FUNCTION string_to_date(p_string IN VARCHAR2,
58 p_mask IN VARCHAR2)
59 RETURN DATE
60 IS
61 BEGIN
62 return FND_DATE.string_to_date(p_string, p_mask);
63
64 EXCEPTION
65 WHEN OTHERS THEN
66 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
67 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
68 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_WEB_WRAPPER_PKG.string_to_date');
69 APP_EXCEPTION.RAISE_EXCEPTION;
70 END string_to_date;
71
72
73 -----------------------------------------------------
74 PROCEDURE GenTaxFunctions
75 -----------------------------------------------------
76 IS
77 l_debugInfo varchar2(200);
78
79 l_total_tax_itmes varchar2(10);
80 l_tax_id varchar2(15);
81 l_tax_code varchar2(15);
82 l_tax_startDate DATE;
83 l_tax_inactiveDate DATE;
84 l_tax_item_count BINARY_INTEGER := 0;
85 V_Date_Format VARCHAR2(30);
86
87 BEGIN
88
89 null;
90
91 EXCEPTION
92 WHEN OTHERS THEN
93 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
94 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
95 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_WEB_WRAPPER_PKG.GenTaxFunctions');
96 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debugInfo);
97 APP_EXCEPTION.RAISE_EXCEPTION;
98
99 END GenTaxFunctions;
100
101 PROCEDURE insert_dist (p_invoice_id IN number,
102 p_Line_Type IN varchar2,
103 p_GL_Date IN date,
104 p_Period_Name IN varchar2,
105 p_Type_1099 IN varchar2,
106 p_Income_Tax_Region IN varchar2,
107 p_Amount IN number,
108 p_Vat_Code IN varchar2,
109 p_Code_Combination_Id IN number,
110 p_PA_Quantity IN number,
111 p_Description IN varchar2,
112 -- Bug 1105325. Passing the project info.
113 p_Project_Acct_Cont IN varchar2,
114 p_Project_Id IN number,
115 p_Task_Id IN number,
116 p_Expenditure_Type IN varchar2,
117 p_Expenditure_Org_Id IN number,
118 p_Exp_item_date IN date,
119 --Bug# 763539 . Passin the attribute category and the attributes
120 p_Attribute_Category IN varchar2,
121 p_Attribute1 IN varchar2,
122 p_Attribute2 IN varchar2,
123 p_Attribute3 IN varchar2,
124 p_Attribute4 IN varchar2,
125 p_Attribute5 IN varchar2,
126 p_Attribute6 IN varchar2,
127 p_Attribute7 IN varchar2,
128 p_Attribute8 IN varchar2,
129 p_Attribute9 IN varchar2,
130 p_Attribute10 IN varchar2,
131 p_Attribute11 IN varchar2,
132 p_Attribute12 IN varchar2,
133 p_Attribute13 IN varchar2,
134 p_Attribute14 IN varchar2,
135 p_Attribute15 IN varchar2,
136 --backport. Exists in 11i but not in 11.0
137 p_invoice_distribution_id IN number,
138 p_Tax_Code_Id IN NUMBER,
139 p_tax_recoverable_flag IN varchar2,
140 p_tax_recovery_rate IN number,
141 p_tax_code_override_flag IN varchar2,
142 p_tax_recovery_override_flag IN varchar2,
143 p_po_distribution_id IN number,
144 --end backport.
145 p_Calling_Sequence IN varchar2,
146 p_company_prepaid_invoice_id IN number DEFAULT NULL,
147 p_cc_reversal_flag IN varchar2 DEFAULT NULL)
148 IS
149
150 BEGIN
151
152 NULL;
153
154 /* This will not be used in Rel 12.0
155 AP_INVOICE_DISTRIBUTIONS_PKG.insert_dist(
156 X_invoice_id => p_invoice_Id,
157 X_invoice_distribution_id => null,
158 X_Line_Type => p_Line_Type,
159 X_GL_Date => p_gl_Date,
160 X_Period_Name => p_period_Name,
161 X_Type_1099 => null,
162 X_Income_Tax_Region => null,
163 X_Amount => -(p_Amount),
164 X_Tax_Code_Id => null,
165 X_Code_Combination_Id => p_code_combination_id,
166 X_PA_Quantity => null,
167 X_Description => null,
168 X_tax_recoverable_flag => null,
169 X_tax_recovery_rate => null,
170 X_tax_code_override_flag => null,
171 X_tax_recovery_override_flag => null,
172 X_po_distribution_id => null,
173 X_Attribute_Category => null,
174 X_Attribute1 => null,
175 X_Attribute2 => null,
176 X_Attribute3 => null,
177 X_Attribute4 => null,
178 X_Attribute5 => null,
179 X_Attribute6 => null,
180 X_Attribute7 => null,
181 X_Attribute8 => null,
182 X_Attribute9 => null,
183 X_Attribute10 => null,
184 X_Attribute11 => null,
185 X_Attribute12 => null,
186 X_Attribute13 => null,
187 X_Attribute14 => null,
188 X_Attribute15 => null,
189 X_Calling_Sequence => p_calling_sequence,
190 X_company_prepaid_invoice_id => p_company_prepaid_invoice_id,
191 X_cc_reversal_flag => 'Y');
192 */
193
194 EXCEPTION
195 WHEN OTHERS THEN
196 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
197 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
198 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_WEB_WRAPPER_PKG.insert_dist');
199 APP_EXCEPTION.RAISE_EXCEPTION;
200
201 END insert_dist;
202
203
204 PROCEDURE ValidatePATransaction(
205 P_project_id IN NUMBER,
206 P_task_id IN NUMBER,
207 P_ei_date IN DATE,
208 P_expenditure_type IN VARCHAR2,
209 P_non_labor_resource IN VARCHAR2,
210 P_person_id IN NUMBER,
211 P_quantity IN NUMBER DEFAULT NULL,
212 P_denom_currency_code IN VARCHAR2 DEFAULT NULL,
213 P_acct_currency_code IN VARCHAR2 DEFAULT NULL,
214 P_denom_raw_cost IN NUMBER DEFAULT NULL,
215 P_acct_raw_cost IN NUMBER DEFAULT NULL,
216 P_acct_rate_type IN VARCHAR2 DEFAULT NULL,
217 P_acct_rate_date IN DATE DEFAULT NULL,
218 P_acct_exchange_rate IN NUMBER DEFAULT NULL ,
219 P_transfer_ei IN NUMBER DEFAULT NULL,
220 P_incurred_by_org_id IN NUMBER DEFAULT NULL,
221 P_nl_resource_org_id IN NUMBER DEFAULT NULL,
222 P_transaction_source IN VARCHAR2 DEFAULT NULL ,
223 P_calling_module IN VARCHAR2 DEFAULT NULL,
224 P_vendor_id IN NUMBER DEFAULT NULL,
225 P_entered_by_user_id IN NUMBER DEFAULT NULL,
226 P_attribute_category IN VARCHAR2 DEFAULT NULL,
227 P_attribute1 IN VARCHAR2 DEFAULT NULL,
228 P_attribute2 IN VARCHAR2 DEFAULT NULL,
229 P_attribute3 IN VARCHAR2 DEFAULT NULL,
230 P_attribute4 IN VARCHAR2 DEFAULT NULL,
231 P_attribute5 IN VARCHAR2 DEFAULT NULL,
232 P_attribute6 IN VARCHAR2 DEFAULT NULL,
233 P_attribute7 IN VARCHAR2 DEFAULT NULL,
234 P_attribute8 IN VARCHAR2 DEFAULT NULL,
235 P_attribute9 IN VARCHAR2 DEFAULT NULL,
236 P_attribute10 IN VARCHAR2 DEFAULT NULL,
237 P_attribute11 IN VARCHAR2 DEFAULT NULL,
238 P_attribute12 IN VARCHAR2 DEFAULT NULL,
239 P_attribute13 IN VARCHAR2 DEFAULT NULL,
240 P_attribute14 IN VARCHAR2 DEFAULT NULL,
241 P_attribute15 IN VARCHAR2 DEFAULT NULL,
242 P_MsgApplication IN OUT NOCOPY VARCHAR2,
243 P_MsgType OUT NOCOPY VARCHAR2,
244 P_MsgToken1 OUT NOCOPY VARCHAR2,
245 P_MsgToken2 OUT NOCOPY VARCHAR2,
246 P_MsgToken3 OUT NOCOPY VARCHAR2,
247 P_MsgCount OUT NOCOPY NUMBER,
248 P_MsgName OUT NOCOPY VARCHAR2, -- P_msg_data will contain the error msg
249 P_Msg_Data OUT NOCOPY VARCHAR2,
250 P_billable_flag OUT NOCOPY VARCHAR2)
251 IS
252 l_debugInfo VARCHAR2(200);
253
254 BEGIN
255 --------------------------------------------------------------
256 l_debugInfo := 'ValidatePATransaction for 11.5';
257 --------------------------------------------------------------
258 PA_TRANSACTIONS_PUB.VALIDATE_TRANSACTION(
259 X_PROJECT_ID => P_project_id,
260 X_TASK_ID => P_task_id,
261 X_EI_DATE => P_ei_date,
262 X_EXPENDITURE_TYPE => P_expenditure_type,
263 X_NON_LABOR_RESOURCE => P_non_labor_resource,
264 X_PERSON_ID => P_person_id,
265 X_QUANTITY => P_quantity,
266 X_DENOM_CURRENCY_CODE =>P_denom_currency_code,
267 X_ACCT_CURRENCY_CODE => P_acct_currency_code,
268 X_DENOM_RAW_COST => P_denom_raw_cost,
269 X_ACCT_RAW_COST => P_acct_raw_cost,
270 X_ACCT_RATE_TYPE => P_acct_rate_type,
271 X_ACCT_RATE_DATE => P_acct_rate_date,
272 X_ACCT_EXCHANGE_RATE => P_acct_exchange_rate,
273 X_TRANSFER_EI => P_transfer_ei,
274 X_INCURRED_BY_ORG_ID => P_incurred_by_org_id,
275 X_NL_RESOURCE_ORG_ID => P_nl_resource_org_id,
276 X_TRANSACTION_SOURCE => P_transaction_source,
277 X_CALLING_MODULE => P_calling_module,
278 X_VENDOR_ID => P_vendor_id,
279 X_ENTERED_BY_USER_ID => P_entered_by_user_id,
280 X_ATTRIBUTE_CATEGORY => P_attribute_category,
281 X_ATTRIBUTE1 => P_attribute1,
282 X_ATTRIBUTE2 => P_attribute2,
283 X_ATTRIBUTE3 => P_attribute3,
284 X_ATTRIBUTE4 => P_attribute4,
285 X_ATTRIBUTE5 => P_attribute5,
286 X_ATTRIBUTE6 => P_attribute6,
287 X_ATTRIBUTE7 => P_attribute7,
288 X_ATTRIBUTE8 => P_attribute8,
289 X_ATTRIBUTE9 => P_attribute9,
290 X_ATTRIBUTE10 => P_attribute10,
291 X_ATTRIBUTE11 => P_attribute11,
292 X_ATTRIBUTE12 => P_attribute12,
293 X_ATTRIBUTE13 => P_attribute13,
294 X_ATTRIBUTE14 => P_attribute14,
295 X_ATTRIBUTE15 => P_attribute15,
296 X_MSG_APPLICATION => P_MsgApplication,
297 X_MSG_TYPE => P_MsgType,
298 X_MSG_TOKEN1 => P_MsgToken1,
299 X_MSG_TOKEN2 => P_MsgToken2,
300 X_MSG_TOKEN3 => P_MsgToken3,
301 X_MSG_COUNT => P_MsgCount,
302 X_MSG_DATA => P_MsgName, -- P_msg_data will contain the error msg
303 X_BILLABLE_FLAG => P_billable_flag);
304
305 EXCEPTION
306 WHEN OTHERS THEN
307 BEGIN
308 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
309 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
310 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'ValidatePATransaction');
311 AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
312 END;
313 END ValidatePATransaction;
314
315 ---------------------------------------------------------------------
316 PROCEDURE HaveAMEReCreateApprovalChain(p_approver_id IN NUMBER,
317 p_item_key IN VARCHAR2,
318 p_item_type IN VARCHAR2) IS
319 ---------------------------------------------------------------------
320 /* Have AME recreate approval chain based off of overriding approver,
321 by doing the following :
322 Create an ame_util.approverInsertionsTable containing 1 approver
323 insertion record with the employee_id set to l_curr_approver_id,
324 api_insertion set to 'Y', and authority set to 'Y' and passing the
325 table to ame_api.insertApprovers.
326 */
327
328 l_debug_info VARCHAR2(200);
329 l_recApprover AME_UTIL.approverRecord;
330
331 BEGIN
332
333 ame_api.clearAllApprovals(applicationIdIn => AP_WEB_DB_UTIL_PKG.GetApplicationID,
334 transactionIdIn => p_item_key,
335 transactionTypeIn => p_item_type);
336
337 ----------------------------------------------------
338 l_debug_info := 'Set the fields in the approver table';
339 ----------------------------------------------------
340 l_recApprover.person_id := p_approver_id;
341 l_recApprover.api_insertion := ame_util.apiAuthorityInsertion; -- 'A'
342 l_recApprover.authority := ame_util.authorityApprover; -- 'Y'
343
344 ----------------------------------------------------
345 l_debug_info := 'Calling AME_API.setFirstAuthorityApprover';
346 ----------------------------------------------------
347 AME_API.setFirstAuthorityApprover(applicationIdIn => AP_WEB_DB_UTIL_PKG.GetApplicationID,
348 transactionIdIn => p_item_key,
349 approverIn => l_recApprover,
350 transactionTypeIn => p_item_type);
351
352 ----------------------------------------------------
353 l_debug_info := 'Done Calling AME_API.insertApprovers';
354 ----------------------------------------------------
355
356 EXCEPTION
357 WHEN OTHERS THEN
358 BEGIN
359 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
360 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
361 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'HaveAMEReCreateApprovalChain');
362 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
363 AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
364 END;
365 END HaveAMEReCreateApprovalChain;
366
367 ---------------------------------------------------------------------
368 PROCEDURE SetRejectStatusInAME( p_item_key IN VARCHAR2,
369 p_item_type IN VARCHAR2) IS
370 ---------------------------------------------------------------------
371 l_debug_info VARCHAR2(200);
372 l_AMEEnabled VARCHAR2(1);
373 l_approver_id number;
374
375 BEGIN
376
377 ----------------------------------------------------
378 l_debug_info := 'Retrieve profile option AME Enabled?';
379 ----------------------------------------------------
380 l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
381 p_item_key,
382 'AME_ENABLED');
383
384 IF (l_AMEEnabled = 'Y') THEN
385
386 ------------------------------------------------------
387 l_debug_info := 'Retrieve Approver_ID Item Attribute';
388 -------------------------------------------------------
389 l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
390 p_item_key,
391 'APPROVER_ID');
392
393 /*Call AME UpdateApprovalStatus2 api to let AME know the
394 expense report is rejected */
395 ------------------------------------------------------
396 l_debug_info := 'Call AMEs updateApprovalAtatus api';
397 ------------------------------------------------------
398 AME_API.updateApprovalStatus2(applicationIdIn => AP_WEB_DB_UTIL_PKG.GetApplicationID,
399 transactionIdIn => p_item_key,
400 approvalStatusIn => AME_UTIL.rejectStatus,
401 approverPersonIdIn => l_approver_id,
402 approverUserIdIn => NULL,
403 transactionTypeIn => p_item_type);
404
405 END IF; -- if l_AMEEnabled;
406
407 EXCEPTION
408 WHEN OTHERS THEN
409 BEGIN
410 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
411 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
412 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'SetRejectStatusInAME');
413 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
414 AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
415 END;
416 END SetRejectStatusInAME;
417
418 ---------------------------------------------------------------------
419 PROCEDURE SetForwardInfoInAME( p_item_key IN VARCHAR2,
420 p_item_type IN VARCHAR2) IS
421 ---------------------------------------------------------------------
422 l_debug_info VARCHAR2(200);
423 l_AMEEnabled VARCHAR2(1);
424 l_approver_id number;
425 l_forward_from_id number;
426 l_recApprover AME_UTIL.approverRecord2;
427 l_approver_name varchar2(240);
428 l_forward_from_name varchar2(240);
429
430 C_WF_Version NUMBER := 0;
431 l_itemkey wf_items.item_key%TYPE;
432
433 BEGIN
434
435 ----------------------------------------------------
436 l_debug_info := 'Retrieve profile option AME Enabled?';
437 ----------------------------------------------------
438 l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
439 p_item_key,
440 'AME_ENABLED');
441
442 IF (l_AMEEnabled = 'Y') THEN
443
444 C_WF_VERSION := AP_WEB_EXPENSE_WF.GetFlowVersion(p_item_type, p_item_key);
445 -- l_itemkey is the itemkey of the parent, need parent item key
446 -- to update the approval status
447 IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
448 l_itemkey := WF_ENGINE.GetItemAttrText(p_item_type,
449 p_item_key,
450 'AME_MASTER_ITEM_KEY');
451 ELSE
452 l_itemkey := p_item_key;
453 END IF;
454
455 ------------------------------------------------------
456 l_debug_info := 'Retrieve Approver_ID Item Attribute';
457 -------------------------------------------------------
458 l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
459 p_item_key,
460 'APPROVER_ID');
461
462 ------------------------------------------------------
463 l_debug_info := 'Retrieve Approver_Name Item Attribute';
464 -------------------------------------------------------
465 l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
466 p_item_key,
467 'APPROVER_NAME');
468
469 ------------------------------------------------------
470 l_debug_info := 'Retrieve Forward_from_ID Item Attribute';
471 -------------------------------------------------------
472 l_forward_from_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
473 p_item_key,
474 'FORWARD_FROM_ID');
475
476 ------------------------------------------------------
477 l_debug_info := 'Retrieve Forward_from_Name Item Attribute';
478 -------------------------------------------------------
479 l_forward_from_name := WF_ENGINE.GetItemAttrText(p_item_type,
480 p_item_key,
481 'FORWARD_FROM_NAME');
482
483 /*Call AME UpdateApprovalStatus api to let AME know the
484 expense report is forwarded */
485 ------------------------------------------------------
486 l_debug_info := 'Call AMEs updateApprovalStatus api';
487 ------------------------------------------------------
488 /*
489 l_recApprover.person_id := l_approver_id;
490
491 AME_API.updateApprovalStatus2(applicationIdIn => AP_WEB_DB_UTIL_PKG.GetApplicationID,
492 transactionIdIn => p_item_key,
493 approvalStatusIn => ame_util.noResponseStatus,
494 approverPersonIdIn => l_forward_from_id,
495 approverUserIdIn => NULL,
496 transactionTypeIn => p_item_type,
497 forwardeeIn => l_recApprover);
498 */
499 l_recApprover.name := l_approver_name;
500
501 AME_API2.updateApprovalStatus2(applicationIdIn => AP_WEB_DB_UTIL_PKG.GetApplicationID,
502 transactionTypeIn => p_item_type,
503 transactionIdIn => l_itemkey,
504 approvalStatusIn => ame_util.noResponseStatus,
505 approverNameIn => l_forward_from_name,
506 forwardeeIn => l_recApprover);
507
508 END IF; -- if l_AMEEnabled;
509
510 EXCEPTION
511 WHEN OTHERS THEN
512 BEGIN
513 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
514 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
515 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'SetRejectStatusInAME');
516 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
517 AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
518 END;
519 END SetForwardInfoInAME;
520
521
522 FUNCTION isPopList(p_ValueSetFormat FND_VSET.VALUESET_DR) RETURN BOOLEAN IS
523 BEGIN
524
525 if (p_ValueSetFormat.longlist_flag is null OR
526 p_ValueSetFormat.longlist_flag = 'X') then
527 return true;
528 else
529 return false;
530 end if;
531
532
533 EXCEPTION
534 WHEN OTHERS THEN
535 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
536 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
537 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE','AP_WEB_WRAPPER_PKG.isPopList');
538 APP_EXCEPTION.RAISE_EXCEPTION;
539
540 END isPopList;
541
542 END AP_WEB_WRAPPER_PKG;