DBA Data[Home] [Help]

APPS.AP_WEB_OA_DISC_PKG dependencies on AP_WEB_OA_DISC_PKG

Line 1: PACKAGE BODY AP_WEB_OA_DISC_PKG AS

1: PACKAGE BODY AP_WEB_OA_DISC_PKG AS
2: /* $Header: apwoadib.pls 120.19.12010000.3 2008/10/22 09:34:50 meesubra ship $ */
3:
4: /* Constants */
5: C_Yes CONSTANT VARCHAR2(1) := 'Y';

Line 135: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start OAExpReport');

131: l_userId VARCHAR2(20):= null;
132: l_temp_array OIE_PDM_NUMBER_T; -- bug 5358186
133:
134: BEGIN
135: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start OAExpReport');
136:
137: ------------------------------------------------------
138: l_debug_info := 'Initalize global message table';
139: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

Line 139: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

135: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start OAExpReport');
136:
137: ------------------------------------------------------
138: l_debug_info := 'Initalize global message table';
139: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
140: ------------------------------------------------------
141: fnd_msg_pub.initialize;
142:
143: ------------------------------------------------------

Line 145: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

141: fnd_msg_pub.initialize;
142:
143: ------------------------------------------------------
144: l_debug_info := 'Retrieve employee information';
145: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
146: ------------------------------------------------------
147: -- Retrieve internal employee id
148: l_targ_emp_id := p_empid;
149:

Line 158: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

154: l_targ_emp_id);
155:
156: -------------------------------------------------
157: l_debug_info := 'get userid';
158: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
159: --------------------------------------------------
160: AP_WEB_OA_MAINFLOW_PKG.GetUserID(p_empid, l_userId);
161:
162: ------------------------------------------------------

Line 164: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

160: AP_WEB_OA_MAINFLOW_PKG.GetUserID(p_empid, l_userId);
161:
162: ------------------------------------------------------
163: l_debug_info := 'Initalize prompt array';
164: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
165: ------------------------------------------------------
166: AP_WEB_DISC_PKG.ap_web_init_prompts_array(TO_NUMBER(l_userId), l_table, l_temp_errors);
167:
168: ------------------------------------------------------

Line 170: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

166: AP_WEB_DISC_PKG.ap_web_init_prompts_array(TO_NUMBER(l_userId), l_table, l_temp_errors);
167:
168: ------------------------------------------------------
169: l_debug_info := 'Check for prompt array errors';
170: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
171: ------------------------------------------------------
172: IF l_temp_errors.count > 0 THEN
173: fnd_message.set_name('SQLAP','AP_WEB_DISC_ZERO_PROMPTS');
174: fnd_msg_pub.add();

Line 181: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

177: END IF;
178:
179: ------------------------------------------------------
180: l_debug_info := 'Get more employee information';
181: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
182: ------------------------------------------------------
183: -- Determine whether project enabled
184:
185: AP_WEB_PROJECT_PKG.IsSessionProjectEnabled(

Line 201: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

197: END IF;
198:
199: -------------------------------------------------------
200: l_debug_info := 'parse exp report';
201: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
202: -------------------------------------------------------
203: l_report_header_info.employee_id := p_empid;
204: AP_WEB_DISC_PKG.ParseExpReport(
205: TO_NUMBER(l_userId), -- Bug 2242176, Employee FND user id

Line 236: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

232: );
233:
234: -------------------------------------------------------
235: l_debug_info := 'add line numbers to parse errors';
236: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
237: -------------------------------------------------------
238: AddLineNumbersToErrors (l_parse_header_errors, l_parse_receipt_errors);
239:
240: -- fnd_msg_pub.count_and_get() returns the number of error messages in the table.

Line 250: AP_WEB_OA_DISC_PKG.ValidateHeaderDFF(

246: END IF;
247:
248: -- Bug 4064985 - Need to prevent the user to skip to review if there are any required
249: -- segments in Header level descriptive flexfield
250: AP_WEB_OA_DISC_PKG.ValidateHeaderDFF(
251: TO_NUMBER(l_userId),
252: l_report_header_info,
253: l_parse_header_errors);
254:

Line 257: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

253: l_parse_header_errors);
254:
255: -------------------------------------------------
256: l_debug_info := 'validate receipt lines';
257: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
258: --------------------------------------------------
259: l_receipt_count := TO_NUMBER(l_report_header_info.receipt_count);
260: p_receipt_count := l_receipt_count;
261: IF (l_receipt_count > 0 ) THEN

Line 306: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

302: END IF;
303:
304: -------------------------------------------------------
305: l_debug_info := 'Validate Foreign Currencies';
306: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
307: -------------------------------------------------------
308: -- 1966365: Checks whether foreign currencies have a rate of 1 or null
309: AP_WEB_DISC_PKG.ValidateForeignCurrencies(l_report_header_info,
310: l_report_lines_info, l_validate_receipt_errors);

Line 314: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

310: l_report_lines_info, l_validate_receipt_errors);
311:
312: -------------------------------------------------------
313: l_debug_info := 'Validate Required Fields';
314: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
315: -------------------------------------------------------
316: -- 2159879: Checks whether Required fields are present or not
317: AP_WEB_OA_DISC_PKG.ValidateRequiredProjectTask(TO_NUMBER(p_empid),
318: TO_NUMBER(l_userId),

Line 317: AP_WEB_OA_DISC_PKG.ValidateRequiredProjectTask(TO_NUMBER(p_empid),

313: l_debug_info := 'Validate Required Fields';
314: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
315: -------------------------------------------------------
316: -- 2159879: Checks whether Required fields are present or not
317: AP_WEB_OA_DISC_PKG.ValidateRequiredProjectTask(TO_NUMBER(p_empid),
318: TO_NUMBER(l_userId),
319: l_report_header_info,
320: l_report_lines_info, l_validate_receipt_errors);
321:

Line 324: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

320: l_report_lines_info, l_validate_receipt_errors);
321:
322: -------------------------------------------------------
323: l_debug_info := 'Check for Mileage / Per Diem / Policy';
324: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
325: -------------------------------------------------------
326: AP_WEB_OA_DISC_PKG.CheckForMileagePerDiemPolicy(
327: TO_NUMBER(l_userId),
328: l_report_header_info,

Line 326: AP_WEB_OA_DISC_PKG.CheckForMileagePerDiemPolicy(

322: -------------------------------------------------------
323: l_debug_info := 'Check for Mileage / Per Diem / Policy';
324: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
325: -------------------------------------------------------
326: AP_WEB_OA_DISC_PKG.CheckForMileagePerDiemPolicy(
327: TO_NUMBER(l_userId),
328: l_report_header_info,
329: l_report_lines_info, l_parse_header_errors, l_validate_receipt_errors);
330:

Line 333: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

329: l_report_lines_info, l_parse_header_errors, l_validate_receipt_errors);
330:
331: -------------------------------------------------------
332: l_debug_info := 'Merge parse errors and validate errors';
333: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
334: -------------------------------------------------------
335: AP_WEB_UTILITIES_PKG.MergeErrorStacks(l_receipt_count, l_parse_receipt_errors,
336: l_validate_receipt_errors, l_validate_receipt_errors);
337:

Line 340: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

336: l_validate_receipt_errors, l_validate_receipt_errors);
337:
338: -------------------------------------------------------
339: l_debug_info := 'calculate number of receipts with errors';
340: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
341: -------------------------------------------------------
342: --calculate the correct number of receipts with errors:
343: p_receipt_with_error := AP_WEB_UTILITIES_PKG.NumOfReceiptWithError(
344: l_validate_receipt_errors );

Line 348: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

344: l_validate_receipt_errors );
345:
346: -------------------------------------------------------
347: l_debug_info := 'add line numbers to validation errors';
348: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
349: -------------------------------------------------------
350: AddLineNumbersToErrors (l_parse_header_errors, l_validate_receipt_errors);
351: END IF;
352:

Line 355: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

351: END IF;
352:
353: -----------------------------------------
354: l_debug_info := 'Set number of errors and error type';
355: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
356: ------------------------------------------
357: fnd_msg_pub.count_and_get(p_count => p_msg_count,
358: p_data => p_msg_data);
359:

Line 366: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

362: ELSE
363:
364: -----------------------------------------
365: l_debug_info := 'Check for warnings';
366: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
367: ------------------------------------------
368: CheckForReceiptWarnings (l_validate_receipt_errors);
369:
370: -----------------------------------------

Line 372: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

368: CheckForReceiptWarnings (l_validate_receipt_errors);
369:
370: -----------------------------------------
371: l_debug_info := 'Add warnings to message stack';
372: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
373: ------------------------------------------
374: fnd_msg_pub.count_and_get(p_count => p_msg_count,
375: p_data => p_msg_data);
376:

Line 386: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

382: END IF;
383:
384: -----------------------------------------
385: l_debug_info := 'Inserts into the Temporary Table';
386: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
387: ------------------------------------------
388: OAInsertTempData(
389: l_report_header_info,
390: l_report_lines_info,

Line 407: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'end OAExpReport');

403: Custom12_Array,
404: Custom13_Array,
405: Custom14_Array,
406: Custom15_Array);
407: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'end OAExpReport');
408:
409: EXCEPTION
410: WHEN OTHERS THEN
411: IF (SQLCODE <> -20001) THEN

Line 875: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start ValidateRequiredProjectTask');

871: lv_msg_type VARCHAR2(2000);
872: lv_procedure_billable_flag VARCHAR2(200);
873:
874: BEGIN
875: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start ValidateRequiredProjectTask');
876: ------------------------------------------------------
877: l_debug_info := 'Verify that the user is a projects user';
878: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
879: ------------------------------------------------------

Line 878: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

874: BEGIN
875: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start ValidateRequiredProjectTask');
876: ------------------------------------------------------
877: l_debug_info := 'Verify that the user is a projects user';
878: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
879: ------------------------------------------------------
880: AP_WEB_PROJECT_PKG.IsSessionProjectEnabled(
881: p_employee_id, p_user_id,
882: l_IsSessionProjectEnabled);

Line 890: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

886: END IF;
887:
888: ------------------------------------------------------
889: l_debug_info := 'Verify that the OIE:Enable Projects profile option is set to Required';
890: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
891: ------------------------------------------------------
892: l_is_project_required := AP_WEB_UTILITIES_PKG.VALUE_SPECIFIC(
893: p_name => 'AP_WEB_ENABLE_PROJECT_ACCOUNTING',
894: p_user_id => p_user_id,

Line 903: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

899: -- Loop through all receipts
900: FOR rec_count IN 1..l_receipt_count LOOP
901: ------------------------------------------------------
902: l_debug_info := 'Get the expenditure type for receipt '|| to_char(rec_count);
903: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
904: ------------------------------------------------------
905: AP_WEB_PROJECT_PKG.GetExpenditureTypeMapping(p_report_lines_info(rec_count).parameter_id,
906: l_pa_expenditure_type);
907:

Line 912: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

908: -- If the expenditure type is not null
909: IF (l_pa_expenditure_type IS NOT NULL) THEN
910: ------------------------------------------------------
911: l_debug_info := 'Check whether project number and task number are null';
912: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
913: ------------------------------------------------------
914:
915: -- Output error message if project number and task number is null
916: -- AP_WEB_ENABLE_PROJECT_ACCOUNTING can take Y, N, RA, YA, R

Line 1152: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'end ValidateRequiredProjectTask');

1148:
1149: -- Merge errors with receipt error stack
1150: AP_WEB_UTILITIES_PKG.MergeErrors(l_errors, p_receipts_errors);
1151:
1152: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'end ValidateRequiredProjectTask');
1153: END ValidateRequiredProjectTask;
1154:
1155:
1156: /*

Line 1400: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

1396: v_numRows NUMBER := 0;
1397: BEGIN
1398: ------------------------------------------------------
1399: l_debug_info := 'Verify that the OIE:Enable Tax profile option is set to Yes';
1400: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
1401: ------------------------------------------------------
1402: AP_WEB_DFLEX_PKG.IsSessionTaxEnabled(l_is_tax_enabled);
1403: IF (l_is_tax_enabled = C_Yes) THEN
1404: -- This query returns rows if any VAT merchant fields are required in this org

Line 1560: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start CheckForPerDiemMileagePolicy');

1556: l_receipt_required_amount AP_EXPENSE_REPORT_PARAMS.require_receipt_amount%TYPE;
1557: l_base_currency_code AP_WEB_DB_AP_INT_PKG.apSetUp_baseCurrencyCode;
1558:
1559: BEGIN
1560: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'start CheckForPerDiemMileagePolicy');
1561: -- Get reimbursement currency
1562: l_reimbursement_currency_code := p_report_header_info.reimbursement_currency_code;
1563:
1564: ------------------------------------------------------

Line 1566: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

1562: l_reimbursement_currency_code := p_report_header_info.reimbursement_currency_code;
1563:
1564: ------------------------------------------------------
1565: l_debug_info := 'Check whether there are any required VAT merchant fields';
1566: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
1567: ------------------------------------------------------
1568:
1569: ------------------------------------------------------
1570: l_debug_info := 'Go through all lines and check whether there are any Mileage, Per Diem, or Policy items';

Line 1571: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

1567: ------------------------------------------------------
1568:
1569: ------------------------------------------------------
1570: l_debug_info := 'Go through all lines and check whether there are any Mileage, Per Diem, or Policy items';
1571: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
1572: ------------------------------------------------------
1573:
1574: l_receipt_count := TO_NUMBER(p_report_header_info.receipt_count);
1575:

Line 1580: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

1576: -- Loop through all receipts
1577: FOR rec_count IN 1..l_receipt_count LOOP
1578: ------------------------------------------------------
1579: l_debug_info := 'Check Mileage/Per Diem for receipt '|| to_char(rec_count);
1580: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
1581: ------------------------------------------------------
1582: -- Only check if one or more monetary values is not null
1583: IF p_report_lines_info(rec_count).daily_amount IS NOT null
1584: OR p_report_lines_info(rec_count).receipt_amount IS NOT null

Line 1590: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

1586:
1587: IF AreMPDRateSchedulesAssigned(p_report_lines_info(rec_count).parameter_id) THEN
1588: ------------------------------------------------------
1589: l_debug_info := 'Blank out monetary values.';
1590: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
1591: ------------------------------------------------------
1592: p_report_lines_info(rec_count).daily_amount := null;
1593: p_report_lines_info(rec_count).receipt_amount := null;
1594: p_report_lines_info(rec_count).amount := null;

Line 1606: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);

1602: AND (l_reimbursement_currency_code <>
1603: p_report_lines_info(rec_count).currency_code)) THEN
1604: ------------------------------------------------------
1605: l_debug_info := 'Found foreign currency in receipt '|| to_char(rec_count);
1606: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_OA_DISC_PKG', l_debug_info);
1607: ------------------------------------------------------
1608: l_foreign_currency_present := TRUE;
1609: END IF;
1610: END LOOP;

Line 1624: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'end CheckForPerDiemMileagePolicy');

1620:
1621: -- Merge errors with receipt error stack
1622: AP_WEB_UTILITIES_PKG.MergeErrors(l_errors, p_receipts_errors);
1623:
1624: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_OA_DISC_PKG', 'end CheckForPerDiemMileagePolicy');
1625: END CheckForMileagePerDiemPolicy;
1626:
1627: /*
1628: Written by:

Line 1729: END AP_WEB_OA_DISC_PKG;

1725: AP_WEB_DB_UTIL_PKG.RaiseException('GetPolicyRateOptions');
1726: APP_EXCEPTION.RAISE_EXCEPTION;
1727: END GetPolicyRateOptions;
1728:
1729: END AP_WEB_OA_DISC_PKG;