[Home] [Help]
248: return;
249: end if;
250:
251: -- Use VALUE_SPECIFIC instead of GET - bug 2242176
252: l_AllowOverriderFlag := AP_WEB_UTILITIES_PKG.VALUE_SPECIFIC(
253: p_name => 'AP_WEB_ALLOW_OVERRIDE_APPROVER',
254: p_user_id => p_user_id,
255: p_resp_id => null,
256: p_apps_id => null);
255: p_resp_id => null,
256: p_apps_id => null);
257:
258: -- Overrider required if costcenter is different from your own?
259: l_ApprReqCC := AP_WEB_UTILITIES_PKG.VALUE_SPECIFIC(
260: p_name => 'AP_WEB_APPROVER_REQ_CC',
261: p_user_id => p_user_id,
262: p_resp_id => null,
263: p_apps_id => null);
262: p_resp_id => null,
263: p_apps_id => null);
264:
265: -- Override Approver is required?
266: l_OverriderReq := AP_WEB_UTILITIES_PKG.VALUE_SPECIFIC(
267: p_name => 'AP_WEB_OVERRIDE_APPR_REQ',
268: p_user_id => p_user_id,
269: p_resp_id => null,
270: p_apps_id => null);
355: p_text IN OUT NOCOPY LONG,
356: p_table IN OUT NOCOPY disc_prompts_table,
357: p_def_costcenter IN VARCHAR2,
358: p_header IN OUT NOCOPY AP_WEB_DFLEX_PKG.ExpReportHeaderRec,
359: p_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.expError) IS
360: l_label_text VARCHAR2(300) := '';
361: l_label_code VARCHAR2(100) := '';
362: l_label_index NUMBER;
363: l_value VARCHAR2(300) := ''; -- even purpose only takes 240 chars.
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();
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();
401: p_errors(1).type := AP_WEB_UTILITIES_PKG.C_WarningMessageType;
402: return;
403: end if;
404:
405: FND_MESSAGE.SET_NAME('SQLAP','AP_WEB_COST_CENTER_INVALID');
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);
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
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 */
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
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. */
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
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);
477: if (NOT isValidCurrency (p_header.reimbursement_currency_code)) then
478: fnd_message.set_name('SQLAP','AP_WEB_DISCON_INVALID_CURR');
479: fnd_message.set_token('curr', p_header.reimbursement_currency_code);
480:
481: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
482: fnd_message.get_encoded(),
483: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
484: end if;
485: end if;
479: fnd_message.set_token('curr', p_header.reimbursement_currency_code);
480:
481: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
482: fnd_message.get_encoded(),
483: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
484: end if;
485: end if;
486:
487: elsif (l_label_code = 'AP_WEB_PURPOSE') then
487: elsif (l_label_code = 'AP_WEB_PURPOSE') then
488: if (length(l_value) > C_Purpose_Size) then
489: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
490: fnd_message.set_token('MAXLEN', to_char(C_Purpose_Size));
491: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
492: fnd_message.get_encoded(),
493: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
494: p_header.purpose := substr(l_value, 1, C_Purpose_Size);
495: else
489: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
490: fnd_message.set_token('MAXLEN', to_char(C_Purpose_Size));
491: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
492: fnd_message.get_encoded(),
493: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
494: p_header.purpose := substr(l_value, 1, C_Purpose_Size);
495: else
496: p_header.purpose := l_value;
497: end if;
503: WHEN VALUE_ERROR then
504: p_header.template_name := substr(l_value, 1, C_Xtemplate_Size);
505: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
506: fnd_message.set_token('MAXLEN', to_char(C_Xtemplate_Size));
507: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
508: fnd_message.get_encoded(),
509: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
510: 'TEMPLATE');
511: END;
505: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
506: fnd_message.set_token('MAXLEN', to_char(C_Xtemplate_Size));
507: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
508: fnd_message.get_encoded(),
509: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
510: 'TEMPLATE');
511: END;
512: template_prompt := l_label_text;
513: elsif (l_label_code = 'AP_WEB_OVERRIDE_APPROVER') then
517: when VALUE_ERROR then
518: l_appr := substr(l_value, 1, C_Approver_Size);
519: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
520: fnd_message.set_token('MAXLEN', to_char(C_Approver_Size));
521: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
522: fnd_message.get_encoded(),
523: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
524: END;
525: approver_prompt := l_label_text;
519: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
520: fnd_message.set_token('MAXLEN', to_char(C_Approver_Size));
521: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
522: fnd_message.get_encoded(),
523: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
524: END;
525: approver_prompt := l_label_text;
526: p_header.override_approver_name := l_appr;
527:
528: end if;
529: end if; /* l_label_index <> 0 */
530: if (p_text is null) then
531: fnd_message.set_name('SQLAP', 'AP_WEB_DISCON_LINE_NOT_FOUND');
532: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
533: fnd_message.get_encoded(),
534: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
535: exit;
536: end if;
530: if (p_text is null) then
531: fnd_message.set_name('SQLAP', 'AP_WEB_DISCON_LINE_NOT_FOUND');
532: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
533: fnd_message.get_encoded(),
534: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
535: exit;
536: end if;
537: EXCEPTION
538: when OTHERS then
544: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',format_error);
545: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
546: FND_MESSAGE.SET_TOKEN('PARAMETERS','');
547:
548: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,fnd_message.get_encoded(),
549: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
550: end;
551: END;
552: END LOOP;
545: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
546: FND_MESSAGE.SET_TOKEN('PARAMETERS','');
547:
548: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,fnd_message.get_encoded(),
549: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
550: end;
551: END;
552: END LOOP;
553:
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,
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,
560: l_cost_center,
561: p_header.employee_id);
562:
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,
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,
583: p_apps_id => null);
586: -- 4087170 : msg for purpose req is shown twice, each is different
587: fnd_message.set_name('SQLAP', 'AP_WEB_PURPOSE_REQUIRED');
588: -- fnd_message.set_name('SQLAP', 'AP_WEB_SEL_BLANK_WRN');
589: -- fnd_message.set_token('FIELD_NAME', purpose_prompt);
590: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
591: fnd_message.get_encoded(),
592: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
593: end if;
594: end if;
588: -- fnd_message.set_name('SQLAP', 'AP_WEB_SEL_BLANK_WRN');
589: -- fnd_message.set_token('FIELD_NAME', purpose_prompt);
590: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
591: fnd_message.get_encoded(),
592: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
593: end if;
594: end if;
595:
596: --Bug 3786831: Validating approver, and set the approver name, when profile option,
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,
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,
605: p_resp_id => null,
606: p_apps_id => null);
607:
608:
609: IF p_header.override_approver_name is NULL AND l_OverriderReq = 'D' THEN
610:
611: AP_WEB_UTILITIES_PKG.GetOverrideApproverDetail(p_header.employee_id,l_OverriderReq, l_approver_id, l_approver_name);
612:
613: --Don't set the approver id here, set only the approver's name
614: p_header.override_approver_name := l_approver_name;
615:
773:
774: icx_util.copyright;
775: js.scriptOpen;
776:
777: AP_WEB_UTILITIES_PKG.CancelExpenseReport;
778: AP_WEB_UTILITIES_PKG.GoBack;
779:
780: js.scriptClose;
781: htp.headClose;
774: icx_util.copyright;
775: js.scriptOpen;
776:
777: AP_WEB_UTILITIES_PKG.CancelExpenseReport;
778: AP_WEB_UTILITIES_PKG.GoBack;
779:
780: js.scriptClose;
781: htp.headClose;
782: htp.p('
821: prompt_table. */
822:
823: PROCEDURE AP_WEB_DISC_FORMAT_ERROR(p_format_errors in out nocopy setup_error_stack,
824: p_table in out nocopy disc_prompts_table,
825: p_errors IN OUT NOCOPY AP_WEB_UTILITIES_PKG.expError)
826: IS
827:
828: i number := 1;
829: j number; /* p_format_errors count */
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: --
885: p_format_errors(j) := fnd_message.get;
886: fnd_message.set_encoded(l_encd_mesg);
887: fnd_msg_pub.add();
888: -- Added for bug 2132994
889: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
890: l_encd_mesg,
891: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
892: /* p_format_errors(j) := p_table(i).prompt_code || ':'
893: || required_fld_missing; */
887: fnd_msg_pub.add();
888: -- Added for bug 2132994
889: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
890: l_encd_mesg,
891: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
892: /* p_format_errors(j) := p_table(i).prompt_code || ':'
893: || required_fld_missing; */
894: --
895: -- Duplicate field
903: p_format_errors(j) := fnd_message.get;
904: fnd_message.set_encoded(l_encd_mesg);
905: fnd_msg_pub.add();
906: -- Added for bug 2132994
907: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
908: l_encd_mesg,
909: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
910: /*p_format_errors(j) := p_table(i).prompt_code || ':'
911: || dup_fld_found;*/
905: fnd_msg_pub.add();
906: -- Added for bug 2132994
907: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
908: l_encd_mesg,
909: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
910: /*p_format_errors(j) := p_table(i).prompt_code || ':'
911: || dup_fld_found;*/
912: else /* is it an expense type? */
913: begin
936: p_format_errors(j) := fnd_message.get;
937: fnd_message.set_encoded(l_encd_mesg);
938: fnd_msg_pub.add();
939: -- Added for bug 2132994
940: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
941: l_encd_mesg,
942: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
943: -- p_format_errors(j) := no_exptype_found;
944: -- RecAmount or DailyAmount
938: fnd_msg_pub.add();
939: -- Added for bug 2132994
940: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
941: l_encd_mesg,
942: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
943: -- p_format_errors(j) := no_exptype_found;
944: -- RecAmount or DailyAmount
945: elsif (amt_found = false) then
946: j:=p_format_errors.COUNT+1;
950: p_format_errors(j) := fnd_message.get;
951: fnd_message.set_encoded(l_encd_mesg);
952: fnd_msg_pub.add();
953: -- Added for bug 2132994
954: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
955: l_encd_mesg,
956: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
957: -- p_format_errors(j) := no_amt_found;
958: -- Currency and Rate
952: fnd_msg_pub.add();
953: -- Added for bug 2132994
954: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
955: l_encd_mesg,
956: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
957: -- p_format_errors(j) := no_amt_found;
958: -- Currency and Rate
959: elsif ((recCurr_found = true) AND (rate_found = false)) then
960: j:=p_format_errors.COUNT+1;
964: p_format_errors(j) := fnd_message.get;
965: fnd_message.set_encoded(l_encd_mesg);
966: fnd_msg_pub.add();
967: -- Added for bug 2132994
968: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
969: l_encd_mesg,
970: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
971: -- If only rate is found, but not currency, set the status to 'NR' so it
972: -- will be ignored later.
966: fnd_msg_pub.add();
967: -- Added for bug 2132994
968: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
969: l_encd_mesg,
970: AP_WEB_UTILITIES_PKG.C_ErrorMessageType);
971: -- If only rate is found, but not currency, set the status to 'NR' so it
972: -- will be ignored later.
973: elsif ((recCurr_found = false) AND (rate_found = true)) then
974: p_table(rate_index).required := 'NR';
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
1018: END InitMedStringArray;
1019:
1020:
1021: Function CheckPosNum(p_num in number,
1022: p_receipt_errors in out nocopy AP_WEB_UTILITIES_PKG.receipt_error_stack,
1023: p_index in number,
1024: p_prompt in varchar2) Return Boolean IS
1025: BEGIN
1026: if (p_num < 0) then
1025: BEGIN
1026: if (p_num < 0) then
1027: fnd_message.set_name('SQLAP', 'AP_WEB_NOT_POS_NUM');
1028: fnd_message.set_token('VALUE', to_char(p_num));
1029: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1030: P_index,
1031: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1032: fnd_message.get_encoded(),
1033: p_prompt);
1027: fnd_message.set_name('SQLAP', 'AP_WEB_NOT_POS_NUM');
1028: fnd_message.set_token('VALUE', to_char(p_num));
1029: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1030: P_index,
1031: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1032: fnd_message.get_encoded(),
1033: p_prompt);
1034: return false;
1035: end if; /* p_num < 0 */
1038:
1039:
1040: PROCEDURE CheckStringSize(p_fld in out nocopy varchar2,
1041: p_size in number,
1042: p_receipt_errors in out nocopy AP_WEB_UTILITIES_PKG.receipt_error_stack,
1043: p_rec_count in number,
1044: p_prompt_index in varchar2) IS
1045: BEGIN
1046:
1054: */
1055: p_fld := substr(p_fld, 1, p_size);
1056: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
1057: fnd_message.set_token('MAXLEN',to_char(p_size));
1058: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1059: p_rec_count,
1060: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1061: fnd_message.get_encoded(),
1062: p_prompt_index);
1056: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
1057: fnd_message.set_token('MAXLEN',to_char(p_size));
1058: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1059: p_rec_count,
1060: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1061: fnd_message.get_encoded(),
1062: p_prompt_index);
1063:
1064: end if;
1151: Custom12_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1152: Custom13_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1153: Custom14_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1154: Custom15_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1155: p_receipt_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack,
1156: p_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.expError, /*Bug No: 3075093*/
1157: p_error_type IN OUT NOCOPY VARCHAR2) IS
1158: i NUMBER;
1159: j NUMBER;
1152: Custom13_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1153: Custom14_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1154: Custom15_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1155: p_receipt_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack,
1156: p_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.expError, /*Bug No: 3075093*/
1157: p_error_type IN OUT NOCOPY VARCHAR2) IS
1158: i NUMBER;
1159: j NUMBER;
1160: k NUMBER;
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);
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'));
1250: /*Bug No: 3075093 - Check if spreadsheet data pasted multiple times */
1251: if (l_multiple_copy_check = true) then
1252: p_error_type := C_setupError;
1253: fnd_message.set_name('SQLAP','OIE_DISC_MULTIPLE_COPY');
1254: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
1255: fnd_message.get_encoded(),
1256: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1257: null,
1258: 0,
1252: p_error_type := C_setupError;
1253: fnd_message.set_name('SQLAP','OIE_DISC_MULTIPLE_COPY');
1254: AP_WEB_UTILITIES_PKG.AddExpError(p_errors,
1255: fnd_message.get_encoded(),
1256: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1257: null,
1258: 0,
1259: AP_WEB_UTILITIES_PKG.C_OtherMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1260: exit;
1255: fnd_message.get_encoded(),
1256: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1257: null,
1258: 0,
1259: AP_WEB_UTILITIES_PKG.C_OtherMessageCategory, AP_WEB_UTILITIES_PKG.IsMobileApp);
1260: exit;
1261: end if;
1262:
1263: --
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');
1275: EXCEPTION
1276: when VALUE_ERROR then
1277: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
1278: fnd_message.set_token('MAXLEN','2000');
1279: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1280: rec_count,
1281: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1282: fnd_message.get_encoded(),
1283: C_RecCurr_Prompt);
1277: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
1278: fnd_message.set_token('MAXLEN','2000');
1279: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1280: rec_count,
1281: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1282: fnd_message.get_encoded(),
1283: C_RecCurr_Prompt);
1284:
1285: END;
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 := '';
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);
1332: EXCEPTION
1333: when VALUE_ERROR then
1334: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
1335: fnd_message.set_token('MAXLEN','300');
1336: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1337: rec_count,
1338: AP_WEB_UTILITIES_PKG.C_WarningMessageType,
1339: fnd_message.get_encoded());
1340: END;
1334: fnd_message.set_name('SQLAP', 'AP_WEB_MAXLEN_WARNING');
1335: fnd_message.set_token('MAXLEN','300');
1336: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1337: rec_count,
1338: AP_WEB_UTILITIES_PKG.C_WarningMessageType,
1339: fnd_message.get_encoded());
1340: END;
1341: --
1342: -- pos 1 (Line column) has to be a number and can't be NULL.
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';
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: */
1420: fnd_message.set_token( 'format', nvl(icx_sec.g_date_format,icx_sec.getNLS_PARAMETER('NLS_DATE_FORMAT')));
1421: END IF;
1422:
1423: IF ( l_prompt_code = 'AP_WEB_START_DATE' ) THEN
1424: AP_WEB_UTILITIES_PKG.AddMessage(
1425: P_Receipt_Errors,
1426: rec_count,
1427: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1428: fnd_message.get_encoded(),
1423: IF ( l_prompt_code = 'AP_WEB_START_DATE' ) THEN
1424: AP_WEB_UTILITIES_PKG.AddMessage(
1425: P_Receipt_Errors,
1426: rec_count,
1427: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1428: fnd_message.get_encoded(),
1429: C_Date1_Prompt);
1430: ELSE
1431: AP_WEB_UTILITIES_PKG.AddMessage(
1427: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1428: fnd_message.get_encoded(),
1429: C_Date1_Prompt);
1430: ELSE
1431: AP_WEB_UTILITIES_PKG.AddMessage(
1432: P_Receipt_Errors,
1433: rec_count,
1434: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1435: fnd_message.get_encoded(),
1430: ELSE
1431: AP_WEB_UTILITIES_PKG.AddMessage(
1432: P_Receipt_Errors,
1433: rec_count,
1434: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1435: fnd_message.get_encoded(),
1436: C_Date2_Prompt);
1437: END IF;
1438:
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);
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);
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);
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
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;
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 := '';
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.
1494: if (NOT curr_found) then
1495: fnd_message.set_name('SQLAP','AP_WEB_DISCON_INVALID_CURR');
1496: fnd_message.set_token('curr', p_receipts(rec_count).currency_code);
1497:
1498: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1499: rec_count,
1500: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1501: fnd_message.get_encoded(),
1502: C_RecCurr_Prompt);
1496: fnd_message.set_token('curr', p_receipts(rec_count).currency_code);
1497:
1498: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1499: rec_count,
1500: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1501: fnd_message.get_encoded(),
1502: C_RecCurr_Prompt);
1503: p_error_type := C_setupError;
1504: end if;
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.
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.
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
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,
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,
1551: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1552: fnd_message.get_encoded(),
1553: C_Exptype_Prompt);
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,
1551: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1552: fnd_message.get_encoded(),
1553: C_Exptype_Prompt);
1554: p_error_type := C_setupError;
1555:
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';
1589: WHEN OTHERS THEN
1590: p_receipts(rec_count).parameter_id := null;
1591: fnd_message.set_name('SQLAP','AP_WEB_DISCON_INVALID_EXPTYPE');
1592: fnd_message.set_token('exptype', l_xtype_text);
1593: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1594: rec_count,
1595: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1596: fnd_message.get_encoded(),
1597: C_Exptype_Prompt);
1591: fnd_message.set_name('SQLAP','AP_WEB_DISCON_INVALID_EXPTYPE');
1592: fnd_message.set_token('exptype', l_xtype_text);
1593: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1594: rec_count,
1595: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1596: fnd_message.get_encoded(),
1597: C_Exptype_Prompt);
1598: p_error_type := C_setupError;
1599:
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);
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:
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
1666: end if;
1667: else -- duplicate prompt
1668: fnd_message.set_name('SQLAP','AP_WEB_DISCON_DUP_FLD');
1669: fnd_message.set_token('Field_name', l_fld);
1670: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1671: rec_count,
1672: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1673: fnd_message.get_encoded(),
1674: C_Exptype_Prompt);
1668: fnd_message.set_name('SQLAP','AP_WEB_DISCON_DUP_FLD');
1669: fnd_message.set_token('Field_name', l_fld);
1670: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1671: rec_count,
1672: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1673: fnd_message.get_encoded(),
1674: C_Exptype_Prompt);
1675: p_error_type := C_setupError;
1676: if (l_line is not null) then
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);
1707: if ((p_receipts(rec_count).parameter_id is not null) AND
1708: (p_receipts(rec_count).parameter_id <> l_prompt_code)) then
1709: fnd_message.set_name('SQLAP','AP_WEB_DISCON_MULTI_EXPTYPE');
1710: fnd_message.set_token('exptype', p_table(pos).prompt_text);
1711: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1712: rec_count,
1713: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1714: fnd_message.get_encoded(),
1715: C_Exptype_Prompt);
1709: fnd_message.set_name('SQLAP','AP_WEB_DISCON_MULTI_EXPTYPE');
1710: fnd_message.set_token('exptype', p_table(pos).prompt_text);
1711: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1712: rec_count,
1713: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1714: fnd_message.get_encoded(),
1715: C_Exptype_Prompt);
1716: p_error_type := C_setupError;
1717: else
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:
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,
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))
1825: -- processing expense type is not efficient since all the blank lines would be processed!
1826: -- The best way is to rewrite this module!(Quan 1/26/99)
1827: if (l_xtype_text is null) then
1828: fnd_message.set_name('SQLAP', 'AP_WEB_EXPENSE_TYPE_REQUIRED');
1829: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1830: rec_count,
1831: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1832: fnd_message.get_encoded(),
1833: C_Exptype_Prompt);
1827: if (l_xtype_text is null) then
1828: fnd_message.set_name('SQLAP', 'AP_WEB_EXPENSE_TYPE_REQUIRED');
1829: AP_WEB_UTILITIES_PKG.AddMessage(P_Receipt_Errors,
1830: rec_count,
1831: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
1832: fnd_message.get_encoded(),
1833: C_Exptype_Prompt);
1834: end if;
1835: end if;
1904: p_custom14_array IN OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1905: p_custom15_array IN OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
1906: p_has_core_field_errors OUT NOCOPY BOOLEAN,
1907: p_has_custom_field_errors OUT NOCOPY BOOLEAN,
1908: p_receipts_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack,
1909: p_receipts_with_errors_count OUT NOCOPY BINARY_INTEGER,
1910: p_IsSessionProjectEnabled IN VARCHAR2,
1911: p_calculate_receipt_index IN BINARY_INTEGER DEFAULT NULL,
1912: p_DataDefaultedUpdateable IN OUT NOCOPY BOOLEAN)
1912: p_DataDefaultedUpdateable IN OUT NOCOPY BOOLEAN)
1913: IS
1914: l_receipts_with_errors_core BINARY_INTEGER;
1915: l_receipts_with_errors_custom BINARY_INTEGER;
1916: l_errors AP_WEB_UTILITIES_PKG.expError;
1917: l_errors_custom AP_WEB_UTILITIES_PKG.expError;
1918:
1919: V_IsSessionTaxEnabled VARCHAR2(1);
1920:
1913: IS
1914: l_receipts_with_errors_core BINARY_INTEGER;
1915: l_receipts_with_errors_custom BINARY_INTEGER;
1916: l_errors AP_WEB_UTILITIES_PKG.expError;
1917: l_errors_custom AP_WEB_UTILITIES_PKG.expError;
1918:
1919: V_IsSessionTaxEnabled VARCHAR2(1);
1920:
1921: l_unexp_err VARCHAR2(2000);
1922: l_debug_info VARCHAR2(2000);
1923:
1924: l_receipt_count NUMBER;
1925: l_title AK_REGIONS_VL.NAME%TYPE;
1926: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
1927: l_recCount INTEGER;
1928:
1929: l_allow_credit_lines_profile VARCHAR2(1) := 'N';
1930: l_allow_credit_lines BOOLEAN;
1965: -- procedure.
1966: --
1967:
1968: -- Clear p_receipts_errors_custom and p_receipts_errors
1969: AP_WEB_UTILITIES_PKG.InitMessages(l_receipt_count, p_receipts_errors);
1970:
1971: -- htp.p('p_receipts_errors size = ' || to_char(p_receipts_errors.count));
1972: --AP_WEB_UTILITIES_PKG.CopyMessages(p_receipts_errors,
1973: -- p_receipts_errors_core);
1968: -- Clear p_receipts_errors_custom and p_receipts_errors
1969: AP_WEB_UTILITIES_PKG.InitMessages(l_receipt_count, p_receipts_errors);
1970:
1971: -- htp.p('p_receipts_errors size = ' || to_char(p_receipts_errors.count));
1972: --AP_WEB_UTILITIES_PKG.CopyMessages(p_receipts_errors,
1973: -- p_receipts_errors_core);
1974: --AP_WEB_UTILITIES_PKG.ClearMessages(p_receipts_errors);
1975:
1976: -- validate core lines fields
1970:
1971: -- htp.p('p_receipts_errors size = ' || to_char(p_receipts_errors.count));
1972: --AP_WEB_UTILITIES_PKG.CopyMessages(p_receipts_errors,
1973: -- p_receipts_errors_core);
1974: --AP_WEB_UTILITIES_PKG.ClearMessages(p_receipts_errors);
1975:
1976: -- validate core lines fields
1977: l_debug_info := 'ValidateExpLinesCoreFields';
1978: getPrompts(601,'AP_WEB_EXP_VIEW_REC',l_title,l_prompts);
2124: p_has_core_field_errors := (l_receipts_with_errors_core > 0);
2125: p_has_custom_field_errors := (l_receipts_with_errors_custom > 0);
2126:
2127: l_debug_info := 'merge error stacks';
2128: AP_WEB_UTILITIES_PKG.MergeExpErrors(l_errors,
2129: l_errors_custom);
2130: AP_WEB_UTILITIES_PKG.MergeErrors(l_errors,
2131: p_receipts_errors);
2132:
2126:
2127: l_debug_info := 'merge error stacks';
2128: AP_WEB_UTILITIES_PKG.MergeExpErrors(l_errors,
2129: l_errors_custom);
2130: AP_WEB_UTILITIES_PKG.MergeErrors(l_errors,
2131: p_receipts_errors);
2132:
2133: p_receipts_with_errors_count :=
2134: AP_WEB_UTILITIES_PKG.NumOfReceiptWithError(p_receipts_errors);
2130: AP_WEB_UTILITIES_PKG.MergeErrors(l_errors,
2131: p_receipts_errors);
2132:
2133: p_receipts_with_errors_count :=
2134: AP_WEB_UTILITIES_PKG.NumOfReceiptWithError(p_receipts_errors);
2135:
2136: EXCEPTION
2137: WHEN OTHERS THEN
2138: -- Using the AP_EBUG instead of the concatenated error text
2163: Custom15_Array IN AP_WEB_DFLEX_PKG.CustomFields_A,
2164: ReportHdrInfo IN AP_WEB_DFLEX_PKG.ExpReportHeaderRec,
2165: ExpReportLineInfo IN AP_WEB_DFLEX_PKG.ExpReportLines_A,
2166: ReportLine OUT NOCOPY LONG,
2167: p_receipt_errors IN OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack) IS
2168:
2169: l_index VARCHAR2(3) := '1';
2170: l_xtype VARCHAR2(1) := '';
2171: l_recCurr VARCHAR2(1) := '';
2595: Custom13_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
2596: Custom14_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
2597: Custom15_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
2598: P_DataDefaultedUpdateable OUT NOCOPY BOOLEAN,
2599: p_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.expError,
2600: p_receipt_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack,
2601: p_error_type OUT NOCOPY VARCHAR2, -- Setup/data/no errors encountered
2602: p_techstack IN VARCHAR2 DEFAULT C_OldStack -- Old or new tech stack
2603: ) IS
2596: Custom14_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
2597: Custom15_Array OUT NOCOPY AP_WEB_DFLEX_PKG.CustomFields_A,
2598: P_DataDefaultedUpdateable OUT NOCOPY BOOLEAN,
2599: p_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.expError,
2600: p_receipt_errors OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack,
2601: p_error_type OUT NOCOPY VARCHAR2, -- Setup/data/no errors encountered
2602: p_techstack IN VARCHAR2 DEFAULT C_OldStack -- Old or new tech stack
2603: ) IS
2604: l_exp LONG := p_exp;
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);
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'));
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().
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:
2727: IF (l_terror_exists = TRUE) then
2728: p_error_type := C_setupError;
2729: if (p_techstack = C_oldstack) then
2730: fnd_message.set_name('SQLAP', 'AP_WEB_DISCON_TEMP_INVALID');
2731: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
2732: end if;
2733: return;
2734: ELSE
2735: debug_info := 'get expense type';
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);
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: ------------------------------------------------------
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: ----------------------------------------------------
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
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;
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';
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;
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,
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);
2949: 'None passed.');
2950: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2951: END IF;
2952: IF (p_techstack = C_oldstack) THEN
2953: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
2954: ELSE
2955: APP_EXCEPTION.RAISE_EXCEPTION;
2956: END IF;
2957: END;
3371: END LOOP;
3372:
3373: EXCEPTION
3374: WHEN OTHERS THEN
3375: -- JMARY Replaced AP_WEB_UTILITIES_PKG.DisplayException with APP_EXCEPTION.RAISE_EXCPETION
3376: IF (SQLCODE <> -20001) THEN
3377: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3378: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3379: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3459: */
3460: PROCEDURE ValidateForeignCurrencies(
3461: p_report_header_info IN AP_WEB_DFLEX_PKG.ExpReportHeaderRec,
3462: p_report_lines_info IN AP_WEB_DFLEX_PKG.ExpReportLines_A,
3463: p_receipts_errors IN OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack) IS
3464:
3465: l_reimbursement_currency_code AP_WEB_DFLEX_PKG.expLines_currCode;
3466: l_errors AP_WEB_UTILITIES_PKG.expError;
3467: l_receipt_count BINARY_INTEGER;
3462: p_report_lines_info IN AP_WEB_DFLEX_PKG.ExpReportLines_A,
3463: p_receipts_errors IN OUT NOCOPY AP_WEB_UTILITIES_PKG.receipt_error_stack) IS
3464:
3465: l_reimbursement_currency_code AP_WEB_DFLEX_PKG.expLines_currCode;
3466: l_errors AP_WEB_UTILITIES_PKG.expError;
3467: l_receipt_count BINARY_INTEGER;
3468: rec_count NUMBER := 1; /* receipt count */
3469: l_date_format VARCHAR2(30);
3470: l_start_date DATE;
3511:
3512: -- Output error message if it is not a fixed rate
3513: IF (l_is_fixed_rate = 'N') THEN
3514: fnd_message.set_name('SQLAP', 'OIE_FOREIGN_EXCH_RATE_ONE');
3515: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
3516: fnd_message.get_encoded(),
3517: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
3518: C_Rate_Prompt,
3519: rec_count);
3513: IF (l_is_fixed_rate = 'N') THEN
3514: fnd_message.set_name('SQLAP', 'OIE_FOREIGN_EXCH_RATE_ONE');
3515: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
3516: fnd_message.get_encoded(),
3517: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
3518: C_Rate_Prompt,
3519: rec_count);
3520: END IF;
3521: -- Bug 3068461 : Don't raise an error if in setup the exchange rate is
3527: l_userPrefs.default_exchange_rate_flag = 'N')) ) THEN
3528:
3529: -- Output error message
3530: fnd_message.set_name('SQLAP', 'OIE_NEED_EXCH_RATE');
3531: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
3532: fnd_message.get_encoded(),
3533: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
3534: C_Rate_Prompt,
3535: rec_count);
3529: -- Output error message
3530: fnd_message.set_name('SQLAP', 'OIE_NEED_EXCH_RATE');
3531: AP_WEB_UTILITIES_PKG.AddExpError(l_errors,
3532: fnd_message.get_encoded(),
3533: AP_WEB_UTILITIES_PKG.C_ErrorMessageType,
3534: C_Rate_Prompt,
3535: rec_count);
3536: END IF; -- rate
3537: END IF; -- reimbursement currency <> receipt currency
3537: END IF; -- reimbursement currency <> receipt currency
3538: END LOOP;
3539:
3540: -- Merge errors with receipt error stack
3541: AP_WEB_UTILITIES_PKG.MergeErrors(l_errors, p_receipts_errors);
3542:
3543: END ValidateForeignCurrencies;
3544:
3545: ------------------------------------------------------------------------------------------------
3568:
3569: PROCEDURE getPrompts( c_region_application_id in number,
3570: c_region_code in varchar2,
3571: c_title out nocopy AK_REGIONS_VL.NAME%TYPE,
3572: c_prompts out nocopy AP_WEB_UTILITIES_PKG.prompts_table)
3573: IS
3574: l_title AK_REGIONS_VL.NAME%TYPE;
3575: l_prompts icx_util.g_prompts_table;
3576: i number;