458: | PARAMETERS
459: | p_report_header_id - The expense report ID.
460: |
461: | RETURNS
462: | ame_util.booleanAttributeTrue if Missing Receipts Shortpay
463: | ame_util.booleanAttributeFalse if not Missing Receipts Shortpay
464: *----------------------------------------------------------------------------*/
465: -------------------------------------------------------------------------
466: FUNCTION isMissingReceiptsShortpay(p_report_header_id IN NUMBER) RETURN VARCHAR2 IS
459: | p_report_header_id - The expense report ID.
460: |
461: | RETURNS
462: | ame_util.booleanAttributeTrue if Missing Receipts Shortpay
463: | ame_util.booleanAttributeFalse if not Missing Receipts Shortpay
464: *----------------------------------------------------------------------------*/
465: -------------------------------------------------------------------------
466: FUNCTION isMissingReceiptsShortpay(p_report_header_id IN NUMBER) RETURN VARCHAR2 IS
467: -------------------------------------------------------------------------
466: FUNCTION isMissingReceiptsShortpay(p_report_header_id IN NUMBER) RETURN VARCHAR2 IS
467: -------------------------------------------------------------------------
468: l_debug_info VARCHAR2(200);
469:
470: l_is_missing_shortpay varchar2(10) := ame_util.booleanAttributeFalse;
471:
472: l_apexp VARCHAR2(8) := 'APEXP';
473: l_no_receipts_shortpay_process VARCHAR2(30) := 'NO_RECEIPTS_SHORTPAY_PROCESS';
474:
476:
477: ------------------------------------------------------------
478: l_debug_info := 'Check if in-process Missing Receipts Shortpay';
479: ------------------------------------------------------------
480: select ame_util.booleanAttributeTrue
481: into l_is_missing_shortpay
482: from ap_expense_report_headers aerh,
483: wf_items wf
484: where aerh.report_header_id = p_report_header_id
492: return l_is_missing_shortpay;
493:
494: EXCEPTION
495: WHEN NO_DATA_FOUND THEN
496: RETURN ame_util.booleanAttributeFalse;
497: WHEN OTHERS THEN
498: IF (SQLCODE <> -20001) THEN
499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
662: p_display_instr OUT NOCOPY VARCHAR2) iS
663: -------------------------------------------------------------------------
664: l_debug_info VARCHAR2(200);
665: l_approvalProcessCompleteYNOut varchar2(10);
666: l_approversOut ame_util.approversTable2;
667: l_itemIndexesOut ame_util.idList;
668: l_itemClassesOut ame_util.stringList;
669: l_itemIdsOut ame_util.stringList;
670: l_itemSourcesOut ame_util.longStringList;
663: -------------------------------------------------------------------------
664: l_debug_info VARCHAR2(200);
665: l_approvalProcessCompleteYNOut varchar2(10);
666: l_approversOut ame_util.approversTable2;
667: l_itemIndexesOut ame_util.idList;
668: l_itemClassesOut ame_util.stringList;
669: l_itemIdsOut ame_util.stringList;
670: l_itemSourcesOut ame_util.longStringList;
671:
664: l_debug_info VARCHAR2(200);
665: l_approvalProcessCompleteYNOut varchar2(10);
666: l_approversOut ame_util.approversTable2;
667: l_itemIndexesOut ame_util.idList;
668: l_itemClassesOut ame_util.stringList;
669: l_itemIdsOut ame_util.stringList;
670: l_itemSourcesOut ame_util.longStringList;
671:
672: l_project_number pa_projects_all.segment1%type;
665: l_approvalProcessCompleteYNOut varchar2(10);
666: l_approversOut ame_util.approversTable2;
667: l_itemIndexesOut ame_util.idList;
668: l_itemClassesOut ame_util.stringList;
669: l_itemIdsOut ame_util.stringList;
670: l_itemSourcesOut ame_util.longStringList;
671:
672: l_project_number pa_projects_all.segment1%type;
673: l_project_name pa_projects_all.name%type;
666: l_approversOut ame_util.approversTable2;
667: l_itemIndexesOut ame_util.idList;
668: l_itemClassesOut ame_util.stringList;
669: l_itemIdsOut ame_util.stringList;
670: l_itemSourcesOut ame_util.longStringList;
671:
672: l_project_number pa_projects_all.segment1%type;
673: l_project_name pa_projects_all.name%type;
674: