DBA Data[Home] [Help]

APPS.AP_WEB_DISC_PKG dependencies on AP_WEB_DISC_PKG

Line 1: PACKAGE BODY AP_WEB_DISC_PKG AS

1: PACKAGE BODY AP_WEB_DISC_PKG AS
2: /* $Header: apwdiscb.pls 120.25.12010000.2 2008/08/06 10:15:06 rveliche ship $ */
3: --
4: -- Data section
5: --

Line 396: -- Changed all occurances of FND_MESSAGE.get() with FND_MESSAGE.get_encoded() AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start parseExpReportHeader');

392:
393:
394: BEGIN
395:
396: -- Changed all occurances of FND_MESSAGE.get() with FND_MESSAGE.get_encoded() AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start parseExpReportHeader');
397:
398: fnd_message.set_name('SQLAP', 'AP_WEB_DISCON_EMPTY_REPORT');
399: if (p_text is null) then
400: p_errors(1).text := FND_MESSAGE.Get_encoded();

Line 409: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

405: FND_MESSAGE.SET_NAME('SQLAP','AP_WEB_COST_CENTER_INVALID');
406: costcenter_invalid := FND_MESSAGE.Get;
407:
408: debug_info := 'Getting Header fields';
409: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
410: LOOP
411: BEGIN
412: debug_info := 'Get Line';
413: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

Line 413: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

409: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
410: LOOP
411: BEGIN
412: debug_info := 'Get Line';
413: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
414: BEGIN
415: GetLine(p_text, l_line);
416: EXCEPTION
417: when VALUE_ERROR then

Line 419: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

415: GetLine(p_text, l_line);
416: EXCEPTION
417: when VALUE_ERROR then
418: debug_info := 'Get Line: truncate to max length';
419: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
420: END;
421:
422: /* Here we are assuming one line per field/value pair. And they don't span
423: over multiple cells */

Line 425: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

421:
422: /* Here we are assuming one line per field/value pair. And they don't span
423: over multiple cells */
424: debug_info := 'Get Non Empty Field - label';
425: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
426: BEGIN
427: GetNonEmptyFld(l_line, l_label_text);
428: l_label_text := rtrim(l_label_text);
429: EXCEPTION

Line 432: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

428: l_label_text := rtrim(l_label_text);
429: EXCEPTION
430: when VALUE_ERROR then
431: debug_info := 'Get Non Empty Field - label: truncate';
432: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
433: END;
434: l_label_index := Disc_GetPromptIndex(l_label_text, p_table);
435:
436: /* Ignore if l_label_index = 0 -- we don't recognize this prompt. */

Line 457: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

453: end if;
454:
455: -- Get the value
456: debug_info := 'Get Non Empty Field - value';
457: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
458: BEGIN
459: GetNonEmptyFld(l_line,l_value);
460: l_value := rtrim(l_value);
461: EXCEPTION

Line 464: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

460: l_value := rtrim(l_value);
461: EXCEPTION
462: when VALUE_ERROR then
463: debug_info := 'Get Non Empty Field - value: truncate';
464: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
465: END;
466: if (l_label_code = 'AP_WEB_COSTCTR') then
467: if (length(l_value) > C_CostCenter_Size) then
468: p_header.cost_center := substr(l_value, 1, C_CostCenter_Size);

Line 555: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

551: END;
552: END LOOP;
553:
554: debug_info := 'Validate Cost Center';
555: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
556: IF (p_header.cost_center IS NULL) THEN
557: /* default to the employee's own cost center */
558: AP_WEB_UTILITIES_PKG.GetEmployeeInfo(l_employee_name,
559: l_employee_num,

Line 578: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

574: end if;
575: END IF;
576:
577: debug_info := 'Validate Purpose';
578: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
579: pp_required := AP_WEB_UTILITIES_PKG.value_specific(
580: p_name => 'AP_WEB_PURPOSE_REQUIRED',
581: p_user_id => p_user_id,
582: p_resp_id => null,

Line 600: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

596: --Bug 3786831: Validating approver, and set the approver name, when profile option,
597: --IE:Approver Required = "Yes with Default" and approver name is not provided
598: --in the upload SpreadSheet data.
599: debug_info := 'Validate Approver';
600: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
601:
602: l_OverriderReq := AP_WEB_UTILITIES_PKG.VALUE_SPECIFIC(
603: p_name => 'AP_WEB_OVERRIDE_APPR_REQ',
604: p_user_id => p_user_id,

Line 848: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start ap_web_disc_format_error');

844: l_unexp_error varchar2(300) := '';
845: l_encd_mesg varchar2(1000); -- Used in the new tech stack for error messages
846:
847: BEGIN
848: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start ap_web_disc_format_error');
849: FOR i in 1 .. p_table.COUNT LOOP
850: --
851: -- Either Daily Amount or Receipt Amount field found is ok
852: --

Line 976: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'end ap_web_disc_format_error');

972: -- will be ignored later.
973: elsif ((recCurr_found = false) AND (rate_found = true)) then
974: p_table(rate_index).required := 'NR';
975: end if;
976: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'end ap_web_disc_format_error');
977:
978: EXCEPTION
979: WHEN OTHERS THEN
980: --JMARY Replaced AP_WEB_DISC_UNEXP_ERR with APP_EXCEPTION.RAISE_EXCEPTION

Line 1214: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start parseExpReportReceipts');

1210: l_multiple_copy_check BOOLEAN := false;/*Bug No: 3075093 - set to true when import is successful*/
1211:
1212: BEGIN
1213:
1214: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start parseExpReportReceipts');
1215: -- check whether descriptive flexfield is enabled under profile option
1216: debug_info := 'Check profile option: descriptive flexfield';
1217: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1218: FND_PROFILE.GET('AP_WEB_DESC_FLEX_NAME', l_tempChar);

Line 1217: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1213:
1214: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start parseExpReportReceipts');
1215: -- check whether descriptive flexfield is enabled under profile option
1216: debug_info := 'Check profile option: descriptive flexfield';
1217: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1218: FND_PROFILE.GET('AP_WEB_DESC_FLEX_NAME', l_tempChar);
1219: -- Bug 3985122 Y-Lines Only, B - Both Header and Lines
1220: --l_dflex_enabled := (NVL(l_tempChar, 'N') = 'Y');
1221: l_dflex_enabled := ((NVL(l_tempChar, 'N') = 'Y') OR (NVL(l_tempChar, 'N') = 'B'));

Line 1273: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1269: -- Get line. If length of line > 2000, exception and warning.
1270: --
1271: BEGIN
1272: debug_info :='Get receipt line';
1273: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1274: GetLine(p_exp, l_line);
1275: EXCEPTION
1276: when VALUE_ERROR then
1277: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');

Line 1290: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1286: --
1287: -- initialize position pointer, arrays
1288: --
1289: debug_info := 'Initializing arrays';
1290: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1291: pos := 1;
1292: p_receipts(rec_count).parameter_id := '';
1293: p_receipts(rec_count).expense_type := '';
1294: p_receipts(rec_count).amount := '';

Line 1327: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1323: -- Loop through items in this line
1324: --
1325: LOOP
1326: debug_info := 'Get receipt item';
1327: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1328: -- If field length > 300, exception and warning
1329: BEGIN
1330: GetField(l_line, l_fld);
1331: l_fld := rtrim(l_fld);

Line 1379: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1375:
1376: IF (l_prompt_code = 'AP_WEB_STARTDATE' OR l_prompt_code = 'AP_WEB_ENDDATE') THEN
1377: --FlexDate
1378: debug_info := 'Assigning start date';
1379: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1380: l_date_temp := substr( l_fld, 1, C_MiniString_Size );
1381: l_prompt_text := p_table(pos).prompt_text;
1382: BEGIN
1383: debug_info := 'converting to date';

Line 1384: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1380: l_date_temp := substr( l_fld, 1, C_MiniString_Size );
1381: l_prompt_text := p_table(pos).prompt_text;
1382: BEGIN
1383: debug_info := 'converting to date';
1384: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1385: BEGIN
1386: /* Bug No # 4315875 : Replaced AP_WEB_INFRASTRUCTURE_PKG.getDateFormat with icx_sec.g_date_format
1387: so that preference changes made by user would be reflected without logging out
1388: */

Line 1443: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1439: END;
1440:
1441: elsif (l_prompt_code = 'AP_WEB_DAYS') then
1442: debug_info := 'Filling Days_Array';
1443: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1444: p_receipts(rec_count).days := substr(l_fld, 1, C_MiniString_Size);
1445: elsif (l_prompt_code = 'AP_WEB_DAILYAMT') then
1446: debug_info := 'Filling DAmount_Array';
1447: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

Line 1447: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1443: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1444: p_receipts(rec_count).days := substr(l_fld, 1, C_MiniString_Size);
1445: elsif (l_prompt_code = 'AP_WEB_DAILYAMT') then
1446: debug_info := 'Filling DAmount_Array';
1447: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1448: p_receipts(rec_count).daily_amount := substr(l_fld, 1, C_MiniString_Size);
1449: elsif (l_prompt_code = 'AP_WEB_RECAMT') then
1450: debug_info := 'Filling RecAmount_Array';
1451: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

Line 1451: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1447: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1448: p_receipts(rec_count).daily_amount := substr(l_fld, 1, C_MiniString_Size);
1449: elsif (l_prompt_code = 'AP_WEB_RECAMT') then
1450: debug_info := 'Filling RecAmount_Array';
1451: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1452: p_receipts(rec_count).receipt_amount := substr(l_fld, 1, C_MiniString_Size);
1453: elsif (l_prompt_code = 'AP_WEB_GRP') then
1454: debug_info := 'Filling Group_Array';
1455: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

Line 1455: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1451: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1452: p_receipts(rec_count).receipt_amount := substr(l_fld, 1, C_MiniString_Size);
1453: elsif (l_prompt_code = 'AP_WEB_GRP') then
1454: debug_info := 'Filling Group_Array';
1455: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1456: CheckStringSize(l_fld, C_Grp_Size, p_receipt_errors,rec_count,
1457: C_Grp_Prompt);
1458: p_receipts(rec_count).group_value := l_fld;
1459: elsif (l_prompt_code = 'AP_WEB_JUST') then

Line 1461: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1457: C_Grp_Prompt);
1458: p_receipts(rec_count).group_value := l_fld;
1459: elsif (l_prompt_code = 'AP_WEB_JUST') then
1460: debug_info := 'Filling Justification_Array - pre-CheckStringSize';
1461: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1462: CheckStringSize(l_fld, C_Just_Size, p_receipt_errors,rec_count,
1463: C_Just_Prompt);
1464: debug_info := 'Filling Justification_Array: ' || l_fld;
1465: p_receipts(rec_count).justification := l_fld;

Line 1469: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1465: p_receipts(rec_count).justification := l_fld;
1466: debug_info := 'After Filling Justification_Array';
1467: elsif (l_prompt_code = 'AP_WEB_RECPT_MISSING') then
1468: debug_info := 'Filling Receipt_Missing_Array';
1469: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1470: if (l_fld is not null) then
1471: p_receipts(rec_count).receipt_missing_flag := 'Y';
1472: else
1473: p_receipts(rec_count).receipt_missing_flag := '';

Line 1477: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1473: p_receipts(rec_count).receipt_missing_flag := '';
1474: end if;
1475: elsif (l_prompt_code = 'AP_WEB_RECCURR') then
1476: debug_info := 'Filling Currency_Array';
1477: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1478: p_receipts(rec_count).currency_code := substr(l_fld, 1, C_MiniString_Size);
1479: --
1480: -- I only want to check the currency once, when I know that currency
1481: -- field exists.

Line 1511: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1507: p_receipts(rec_count).currency_code := l_base_curr;
1508: end if;
1509: elsif (l_prompt_code = 'AP_WEB_CONVRATE') then
1510: debug_info := 'Filling Rate_Array';
1511: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1512: p_receipts(rec_count).rate := substr(l_fld, 1, C_MiniString_Size);
1513:
1514: -- MS Excel passes 0 as .
1515: -- We need to convert it to 0 or TO_NUMBER will choke.

Line 1521: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1517: p_receipts(rec_count).rate := '0';
1518: end if;
1519: elsif (l_prompt_code = 'AP_WEB_AMT') then
1520: debug_info := 'Filling Amount_Array';
1521: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1522: p_receipts(rec_count).amount := substr(l_fld, 1, C_MiniString_Size);
1523: elsif (l_prompt_code = 'AP_WEB_EXPTYPE') then
1524: --------------------------------------------
1525: -- The pop list style of expense type entry.

Line 1528: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1524: --------------------------------------------
1525: -- The pop list style of expense type entry.
1526: --------------------------------------------
1527: debug_info := 'Filling Exptype array ' || l_fld;
1528: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1529: l_xtype_text := substr(l_fld, 1, C_MiniString_Size);
1530: if (l_xtype_text is not null) then
1531: ------------------------------------------
1532: -- Get parameter id from prompt tabel

Line 1546: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1542: ------------------------------------------
1543: -- Record multiple exptype error.
1544: ------------------------------------------
1545: debug_info := 'reporting multi expense type error';
1546: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1547: fnd_message.set_name('SQLAP','AP_WEB_DISCON_MULTI_EXPTYPE');
1548: fnd_message.set_token('exptype', l_xtype_text);
1549: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1550: rec_count,

Line 1562: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1558: ------------------------------------------
1559: -- Try to assign parameter id to xtype_array.
1560: ------------------------------------------
1561: debug_info := 'Get expense type id';
1562: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1563: if (l_xtype_code is null) then
1564: -- This will make to_number to fail, so one exception handles
1565: -- both null and non-null cases.
1566: l_xtype_code := 'not a number';

Line 1607: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1603:
1604: elsif (l_prompt_code = 'AP_WEB_PA_TASK_NUMBER') then
1605:
1606: debug_info := 'Filling in PA Task Name';
1607: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1608: -- Fill in PA info only if enabled, calculation of ID done later
1609: -- Requires ProjectID
1610: p_receipts(rec_count).task_number :=
1611: substr(l_fld, 1, C_MiniString_Size);

Line 1616: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1612:
1613: elsif (l_prompt_code = 'AP_WEB_PA_PROJECT_NUMBER') then
1614:
1615: debug_info := 'Filling in PA Project Name';
1616: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1617: -- Fill in PA info only if enabled, calculation of ID done later
1618: p_receipts(rec_count).project_number :=
1619: substr(l_fld, 1, C_MiniString_Size);
1620:

Line 1624: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1620:
1621: elsif (l_prompt_code = 'OIEAWARDNUM') then
1622:
1623: debug_info := 'Filling in Award Number';
1624: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1625: p_receipts(rec_count).award_number :=
1626: substr(l_fld, 1, C_MiniString_Size);
1627:
1628: elsif (p_table(pos).global_flag) then -- Global FlexField as a column

Line 1701: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1697: -------------------------------------------------------------
1698: -- Non-VB style Exptype: expense type prompts at table header
1699: -------------------------------------------------------------
1700: debug_info := 'Filling Exptype -- the old way';
1701: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1702: /* See if it is expense type. This should always be at the
1703: end. */
1704: if (p_table(pos).required = 'F') then
1705: l_number := to_number(l_prompt_code);

Line 1740: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1736: -------------------------------------------------------
1737: -- if receipt curr is not given, set it to base currency.
1738: -------------------------------------------------------
1739: debug_info := 'Set receipt currency';
1740: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1741: if (p_receipts(rec_count).currency_code is null) then
1742: p_receipts(rec_count).currency_code := l_base_curr;
1743: end if;
1744:

Line 1750: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1746: -- Validate the Project and Task Name fields and fill in
1747: -- Project and Task ID and Expenditure Type fields
1748: -------------------------------------------------------
1749: debug_info := 'Derive PA information';
1750: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1751: AP_WEB_PROJECT_PKG.DerivePAInfoFromUserInput(
1752: P_IsSessionProjectEnabled,
1753: p_receipts(rec_count).project_number,
1754: p_receipts(rec_count).project_id,

Line 1781: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

1777: -------------------------------------------------------
1778: -- determine if this receipt is worth keeping
1779: -------------------------------------------------------
1780: debug_info := 'Determine if this receipt is worth keeping';
1781: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
1782: BEGIN
1783: if (((to_date(p_receipts(rec_count).start_date,
1784: AP_WEB_INFRASTRUCTURE_PKG.getDateFormat) = l_date_str) OR
1785: (p_receipts(rec_count).start_date is null))

Line 2632: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start ParseExpReport');

2628: l_dateformat varchar2(100);
2629:
2630: BEGIN
2631:
2632: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start ParseExpReport');
2633:
2634: -- check whether descriptive flexfield is enabled under profile option
2635: debug_info := 'Check profile option: descriptive flexfield';
2636: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

Line 2636: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2632: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_DISC_PKG', 'start ParseExpReport');
2633:
2634: -- check whether descriptive flexfield is enabled under profile option
2635: debug_info := 'Check profile option: descriptive flexfield';
2636: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2637: FND_PROFILE.GET('AP_WEB_DESC_FLEX_NAME', l_tempChar);
2638: -- Bug 3985122 Y-Lines Only, B - Both Header and Lines
2639: --l_dflex_enabled := (NVL(l_tempChar, 'N') = 'Y');
2640: l_dflex_enabled := ((NVL(l_tempChar, 'N') = 'Y') OR (NVL(l_tempChar, 'N') = 'B'));

Line 2659: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2655: p_errors);
2656:
2657: -------------------------------------------------------
2658: debug_info := 'validate the exp report header';
2659: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2660: -------------------------------------------------------
2661:
2662: --JMARY : Replaced the call to ValidateReportHeader with ValidateHeaderNoValidSession
2663: -- ValidateHeaderNoValidSession does not have a call to the validatesession().

Line 2688: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2684: return;
2685: end if;
2686:
2687: debug_info := 'Check reimbursement currency';
2688: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2689:
2690: --chiho:1310737:initialize the l_currencyCode:
2691: l_currencyCode := p_report_header_info.reimbursement_currency_code;
2692:

Line 2736: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2732: end if;
2733: return;
2734: ELSE
2735: debug_info := 'get expense type';
2736: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2737: l_template_id := to_number(p_report_header_info.template_id);
2738:
2739: ap_web_disc_GetExpType(p_table, l_xtypecomp_array,
2740: l_template_id);

Line 2745: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2741: END IF;
2742:
2743: -----------------------------------------------------
2744: debug_info := 'validate receipt headers';
2745: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2746: -----------------------------------------------------
2747: ap_web_disc_val_rec_headers(l_exp, p_table, l_temp_errors);
2748:
2749: ------------------------------------------------------

Line 2751: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2747: ap_web_disc_val_rec_headers(l_exp, p_table, l_temp_errors);
2748:
2749: ------------------------------------------------------
2750: debug_info := 'check format error';
2751: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2752: ------------------------------------------------------
2753: ap_web_disc_format_error(l_temp_errors, p_table, p_errors);
2754:
2755: ----------------------------------------------------

Line 2757: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2753: ap_web_disc_format_error(l_temp_errors, p_table, p_errors);
2754:
2755: ----------------------------------------------------
2756: debug_info := 'Display format error if any';
2757: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2758: -- Introduced a check to differentiate between oldUI and newUI
2759: -- Introduced p_errors.count <> 0 to set error types -bug 6988475
2760:
2761: if (l_temp_errors.COUNT <> 0 OR p_errors.COUNT <> 0) then

Line 2771: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2767: end if;
2768:
2769: --Populate the header record
2770: debug_info := 'Initialize the record used in flexfield validation';
2771: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2772: p_report_header_info.receipt_count := '0';
2773: p_report_header_info.transaction_currency_type := 'multi';
2774: p_report_header_info.reimbursement_currency_code := l_currencyCode;
2775: p_report_header_info.reimbursement_currency_name := l_currencyName;

Line 2822: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2818: IF (l_receipt_count > 0) THEN
2819: l_last_receipt_date := to_char(p_report_lines_info(1).start_date, nvl(icx_sec.g_date_format,icx_sec.getNLS_PARAMETER('NLS_DATE_FORMAT')));
2820: l_dateformat := nvl(icx_sec.g_date_format,icx_sec.getNLS_PARAMETER('NLS_DATE_FORMAT'));
2821: debug_info := 'Populate core fields and empty custom fields';
2822: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2823: FOR I IN 1..l_receipt_count LOOP
2824:
2825: p_report_lines_info(I).receipt_index := I;
2826: p_report_lines_info(I).validation_required := 'Y';

Line 2871: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2867: PATaskNumber_Array(I),
2868: PAExpenditureType_Array(I));
2869: */
2870: debug_info := 'Populate Custom dflex array';
2871: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2872: if (not(l_dflex_enabled)) then -- get default values for custom fields
2873: Custom1_Array(I).value := null;
2874: Custom2_Array(I).value := null;
2875: Custom3_Array(I).value := null;

Line 2896: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2892: p_report_header_info.last_receipt_date := l_last_receipt_date;
2893:
2894: if (not(l_dflex_enabled)) then -- get default values for custom fields
2895: debug_info := 'Populate Custom values with defaults';
2896: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2897: AP_WEB_DFLEX_PKG.PopulateCustomDefaultValues( p_user_id,
2898: p_report_header_info,
2899: p_report_lines_info,
2900: l_receipt_count,

Line 2927: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);

2923: -- profile option.
2924: -- AP_WEB_DFLEX_PKG.IsSessionTaxEnabled(l_tax_enabled, p_user_id);
2925: --if (l_tax_enabled = 'Y') then -- get default values for tax fields
2926: debug_info := 'Populate Pseudo values with defaults';
2927: AP_WEB_UTILITIES_PKG.logStatement('AP_WEB_DISC_PKG', debug_info);
2928: AP_WEB_DFLEX_PKG.PopulatePseudoDefaultValues( p_report_header_info,
2929: p_report_lines_info,
2930: l_receipt_count,
2931: P_DataDefaultedUpdateable);

Line 3595: END AP_WEB_DISC_PKG;

3591: END LOOP;
3592:
3593: END getPrompts;
3594:
3595: END AP_WEB_DISC_PKG;