DBA Data[Home] [Help]

APPS.PV_AME_API_W dependencies on AME_UTIL

Line 30: , x_approver OUT NOCOPY ame_util.approverRecord2)

26: , p_user_id IN NUMBER
27: , p_person_id IN NUMBER
28: , p_mode IN VARCHAR2
29: , p_approval_level IN NUMBER
30: , x_approver OUT NOCOPY ame_util.approverRecord2)
31: RETURN BOOLEAN;
32:
33: PROCEDURE START_APPROVAL_PROCESS( p_api_version_number IN NUMBER
34: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE

Line 450: , p_response IN VARCHAR2 -- refer to AME_UTIL.approverIn

446: , p_commit IN VARCHAR2 := FND_API.G_FALSE
447: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
448: , p_referral_id IN NUMBER
449: , p_approval_entity IN VARCHAR2 -- PVREFFRL/PVDEALRN/PVDQMAPR
450: , p_response IN VARCHAR2 -- refer to AME_UTIL.approverIn
451: , p_approver_user_id IN NUMBER -- userID of the person sending approver resp
452: , p_forwardee_user_id IN NUMBER -- if forwarding then userID of the forwardee
453: , p_note_added_flag IN VARCHAR2 DEFAULT 'N' -- If note was added as part of this response.
454: , x_approval_done OUT NOCOPY VARCHAR2 -- True if approval process is finished False if not.

Line 463: l_forwardee ame_util.approverRecord2;

459:
460: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_APPROVER_RESPONSE';
461: l_api_version_number CONSTANT NUMBER := 1.0;
462:
463: l_forwardee ame_util.approverRecord2;
464: l_approver ame_util.approverRecord2;
465: l_approval_status VARCHAR2(30);
466: l_appr_usr_id NUMBER;
467: l_forwardee_user_id NUMBER;

Line 464: l_approver ame_util.approverRecord2;

460: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_APPROVER_RESPONSE';
461: l_api_version_number CONSTANT NUMBER := 1.0;
462:
463: l_forwardee ame_util.approverRecord2;
464: l_approver ame_util.approverRecord2;
465: l_approval_status VARCHAR2(30);
466: l_appr_usr_id NUMBER;
467: l_forwardee_user_id NUMBER;
468: l_benefit_id NUMBER;

Line 592: IF p_response = AME_UTIL.forwardStatus THEN -- FORWARD

588: OPEN lc_get_approver_details(pc_user_id => p_approver_user_id);
589: FETCH lc_get_approver_details INTO l_approver_source_id, l_approver_category, l_approver_name, l_user_name;
590: CLOSE lc_get_approver_details;
591:
592: IF p_response = AME_UTIL.forwardStatus THEN -- FORWARD
593:
594: FOR x IN (SELECT employee_id,user_name FROM fnd_user WHERE user_id = p_forwardee_user_id
595: AND (end_date IS NULL OR end_date > sysdate-1))
596: LOOP

Line 603: l_forwardee.approver_category := ame_util.approvalApproverCategory;

599: END LOOP;
600:
601: -- Forward case. create a forwadee record
602: l_forwardee.orig_system := 'PER';
603: l_forwardee.approver_category := ame_util.approvalApproverCategory;
604:
605: IF l_forwardee.orig_system_id IS NULL THEN
606: fnd_message.Set_Name('PV', 'PV_NO_PERSON_ERROR');
607: fnd_msg_pub.Add;

Line 624: ELSIF p_response = AME_UTIL.rejectStatus THEN

620: ,'Forward case :b4 updateStatus call Forwardee ID :' || l_forwardee.orig_system_id||
621: ' l_forwardee.name '||l_forwardee.name,FALSE);
622: END IF;
623:
624: ELSIF p_response = AME_UTIL.rejectStatus THEN
625:
626: OPEN lc_first_level_apporver;
627: FETCH lc_first_level_apporver INTO l_resp_count;
628: CLOSE lc_first_level_apporver;

Line 637: ELSIF p_response = AME_UTIL.approvedStatus THEN

633: ELSIF p_approval_entity = 'PVDEALRN' then
634: l_message_code := 'PV_LG_DEAL_REJECTED_BY_USER';
635: end if;
636:
637: ELSIF p_response = AME_UTIL.approvedStatus THEN
638:
639: l_approval_status := 'APPROVED';
640: IF p_approval_entity = 'PVREFFRL' then
641: l_message_code := 'PV_LG_REF_APPRVD_BY_USER';

Line 679: -- AME_UTIL.forwardStatus / AME_UTIL.rejectStatus / AME_UTIL.approvedStatus

675:
676: END IF;
677:
678: -- If Approval Status was null it means that something other than
679: -- AME_UTIL.forwardStatus / AME_UTIL.rejectStatus / AME_UTIL.approvedStatus
680: -- was sent to the API. Hence error!!!
681: IF l_approval_status IS NULL THEN
682: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
683: fnd_message.Set_Token('TEXT', 'Possible error. Invalid : Response ' || p_response);

Line 688: IF p_response = AME_UTIL.forwardStatus and p_forwardee_user_id is null then

684: fnd_msg_pub.Add;
685: RAISE FND_API.g_exc_error;
686: END IF;
687:
688: IF p_response = AME_UTIL.forwardStatus and p_forwardee_user_id is null then
689: fnd_message.Set_Name('PV', 'PV_REFERRAL_REASSIGN_APPROVER');
690: fnd_msg_pub.Add;
691: RAISE FND_API.g_exc_error;
692: END IF;

Line 777: IF (NOT l_approverInList AND (p_response = AME_UTIL.forwardStatus)) THEN

773:
774: -- In case of forward even if the approver is not in the list
775: -- an error will be thrown. In the other case i.e approve / reject
776: -- the AME update call is circumvented
777: IF (NOT l_approverInList AND (p_response = AME_UTIL.forwardStatus)) THEN
778:
779: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
781: ,'pv.plsql.' || g_pkg_name || '.' || l_api_name

Line 807: IF p_response = AME_UTIL.forwardStatus THEN

803:
804: END IF;
805: IF l_approver_current_status = 'PENDING_APPROVAL' THEN
806:
807: IF p_response = AME_UTIL.forwardStatus THEN
808:
809: IF (l_approver.authority = ame_util.authorityApprover AND
810: (l_approver.api_insertion = ame_util.apiAuthorityInsertion
811: OR l_approver.api_insertion = ame_util.oamGenerated) ) THEN

Line 809: IF (l_approver.authority = ame_util.authorityApprover AND

805: IF l_approver_current_status = 'PENDING_APPROVAL' THEN
806:
807: IF p_response = AME_UTIL.forwardStatus THEN
808:
809: IF (l_approver.authority = ame_util.authorityApprover AND
810: (l_approver.api_insertion = ame_util.apiAuthorityInsertion
811: OR l_approver.api_insertion = ame_util.oamGenerated) ) THEN
812:
813: l_forwardee.api_insertion := ame_util.apiAuthorityInsertion;

Line 810: (l_approver.api_insertion = ame_util.apiAuthorityInsertion

806:
807: IF p_response = AME_UTIL.forwardStatus THEN
808:
809: IF (l_approver.authority = ame_util.authorityApprover AND
810: (l_approver.api_insertion = ame_util.apiAuthorityInsertion
811: OR l_approver.api_insertion = ame_util.oamGenerated) ) THEN
812:
813: l_forwardee.api_insertion := ame_util.apiAuthorityInsertion;
814:

Line 811: OR l_approver.api_insertion = ame_util.oamGenerated) ) THEN

807: IF p_response = AME_UTIL.forwardStatus THEN
808:
809: IF (l_approver.authority = ame_util.authorityApprover AND
810: (l_approver.api_insertion = ame_util.apiAuthorityInsertion
811: OR l_approver.api_insertion = ame_util.oamGenerated) ) THEN
812:
813: l_forwardee.api_insertion := ame_util.apiAuthorityInsertion;
814:
815: ELSE

Line 813: l_forwardee.api_insertion := ame_util.apiAuthorityInsertion;

809: IF (l_approver.authority = ame_util.authorityApprover AND
810: (l_approver.api_insertion = ame_util.apiAuthorityInsertion
811: OR l_approver.api_insertion = ame_util.oamGenerated) ) THEN
812:
813: l_forwardee.api_insertion := ame_util.apiAuthorityInsertion;
814:
815: ELSE
816:
817: l_forwardee.api_insertion := ame_util.apiInsertion;

Line 817: l_forwardee.api_insertion := ame_util.apiInsertion;

813: l_forwardee.api_insertion := ame_util.apiAuthorityInsertion;
814:
815: ELSE
816:
817: l_forwardee.api_insertion := ame_util.apiInsertion;
818:
819: END IF;
820:
821: l_forwardee.authority := l_approver.authority;

Line 829: * Rejection. So we pass AME_UTIL.rejectStatus to AME in case of a RETURN

825:
826: /*
827: * AME does not have the concept of RETURNing a transaction during approval
828: * but PRM does. As far as AME is concerned a return is equivalent to a
829: * Rejection. So we pass AME_UTIL.rejectStatus to AME in case of a RETURN
830: */
831: IF p_response = returnStatus THEN
832: l_response_to_ame := AME_UTIL.rejectStatus;
833: ELSE

Line 832: l_response_to_ame := AME_UTIL.rejectStatus;

828: * but PRM does. As far as AME is concerned a return is equivalent to a
829: * Rejection. So we pass AME_UTIL.rejectStatus to AME in case of a RETURN
830: */
831: IF p_response = returnStatus THEN
832: l_response_to_ame := AME_UTIL.rejectStatus;
833: ELSE
834: l_response_to_ame := p_response;
835: END IF;
836:

Line 892: IF p_response = AME_UTIL.approvedStatus or p_response = AME_UTIL.forwardStatus THEN

888: );
889: END IF;
890:
891:
892: IF p_response = AME_UTIL.approvedStatus or p_response = AME_UTIL.forwardStatus THEN
893:
894: IF p_approval_entity = 'PVDQMAPR' THEN
895: x_approval_done := 'Y';
896:

Line 962: AND p_response = AME_UTIL.forwardStatus)

958: END IF;
959:
960:
961: IF ((l_approval_list IS NULL OR l_approval_list.COUNT < 1)
962: AND p_response = AME_UTIL.forwardStatus)
963: THEN
964:
965: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
966: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT

Line 1015: IF p_response = AME_UTIL.forwardStatus THEN

1011:
1012: ELSE
1013:
1014: -- l_approver_current_status = 'PENDING_DEFAULT'
1015: IF p_response = AME_UTIL.forwardStatus THEN
1016: x_approval_done := 'N';
1017: l_approval_list := JTF_NUMBER_TABLE();
1018: l_approval_list.EXTEND();
1019: l_approval_list(1) := p_forwardee_user_id;

Line 1127: ELSIF p_response = AME_UTIL.rejectStatus THEN -- never the case for DQM

1123: END LOOP;
1124: END IF; -- If Approval is done
1125: END IF; -- Id it is PENDING_APPROVAL
1126:
1127: ELSIF p_response = AME_UTIL.rejectStatus THEN -- never the case for DQM
1128:
1129: -- In Case of DECLINE the response is rejectStatus. In this case however the
1130: -- referral approval process is not to be restarted. Conversely, in all cases of
1131: -- rejectStatus response other than DECLINED the approval process is restarted.

Line 1266: , x_approver OUT NOCOPY ame_util.approverRecord2)

1262: , p_user_id IN NUMBER
1263: , p_person_id IN NUMBER
1264: , p_mode IN VARCHAR2
1265: , p_approval_level IN NUMBER
1266: , x_approver OUT NOCOPY ame_util.approverRecord2)
1267: RETURN BOOLEAN IS
1268:
1269: CURSOR c_user(pc_person_id NUMBER) IS
1270: SELECT 'Y'

Line 1281: l_approversOut ame_util.approversTable;

1277: AND appr.ARC_APPR_FOR_ENTITY_CODE = p_transaction_type;
1278:
1279: l_is_valid BOOLEAN := false;
1280: l_usr_resp_pending VARCHAR2(1) := 'N';
1281: l_approversOut ame_util.approversTable;
1282:
1283: x_approvalProcessCompleteYNOut VARCHAR2(10);
1284: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1285: currApprRec ame_util.approverRecord2;

Line 1284: x_nextApproversOut ame_util.approversTable2; -- New API approverOut

1280: l_usr_resp_pending VARCHAR2(1) := 'N';
1281: l_approversOut ame_util.approversTable;
1282:
1283: x_approvalProcessCompleteYNOut VARCHAR2(10);
1284: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1285: currApprRec ame_util.approverRecord2;
1286:
1287: xitemIndexesOut ame_util.idList;
1288: xitemClassesOut ame_util.stringList;

Line 1285: currApprRec ame_util.approverRecord2;

1281: l_approversOut ame_util.approversTable;
1282:
1283: x_approvalProcessCompleteYNOut VARCHAR2(10);
1284: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1285: currApprRec ame_util.approverRecord2;
1286:
1287: xitemIndexesOut ame_util.idList;
1288: xitemClassesOut ame_util.stringList;
1289: xitemIdsOut ame_util.stringList;

Line 1287: xitemIndexesOut ame_util.idList;

1283: x_approvalProcessCompleteYNOut VARCHAR2(10);
1284: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1285: currApprRec ame_util.approverRecord2;
1286:
1287: xitemIndexesOut ame_util.idList;
1288: xitemClassesOut ame_util.stringList;
1289: xitemIdsOut ame_util.stringList;
1290: xitemSourcesOut ame_util.longStringList;
1291:

Line 1288: xitemClassesOut ame_util.stringList;

1284: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1285: currApprRec ame_util.approverRecord2;
1286:
1287: xitemIndexesOut ame_util.idList;
1288: xitemClassesOut ame_util.stringList;
1289: xitemIdsOut ame_util.stringList;
1290: xitemSourcesOut ame_util.longStringList;
1291:
1292: BEGIN

Line 1289: xitemIdsOut ame_util.stringList;

1285: currApprRec ame_util.approverRecord2;
1286:
1287: xitemIndexesOut ame_util.idList;
1288: xitemClassesOut ame_util.stringList;
1289: xitemIdsOut ame_util.stringList;
1290: xitemSourcesOut ame_util.longStringList;
1291:
1292: BEGIN
1293: -- get all the approver list and loop till you find the matching

Line 1290: xitemSourcesOut ame_util.longStringList;

1286:
1287: xitemIndexesOut ame_util.idList;
1288: xitemClassesOut ame_util.stringList;
1289: xitemIdsOut ame_util.stringList;
1290: xitemSourcesOut ame_util.longStringList;
1291:
1292: BEGIN
1293: -- get all the approver list and loop till you find the matching
1294: -- and set the flag to true if you find any.

Line 1402: x_nextApproverOut ame_util.approverRecord; -- Old API approverOut

1398: ,x_user_id_exists OUT NOCOPY VARCHAR2)
1399: IS
1400: l_api_name VARCHAR2(20) := 'GET_APPROVERS';
1401:
1402: x_nextApproverOut ame_util.approverRecord; -- Old API approverOut
1403:
1404: x_approvalProcessCompleteYNOut VARCHAR2(100);
1405: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1406: currApprRec ame_util.approverRecord2;

Line 1405: x_nextApproversOut ame_util.approversTable2; -- New API approverOut

1401:
1402: x_nextApproverOut ame_util.approverRecord; -- Old API approverOut
1403:
1404: x_approvalProcessCompleteYNOut VARCHAR2(100);
1405: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1406: currApprRec ame_util.approverRecord2;
1407:
1408: xitemIndexesOut ame_util.idList;
1409: xitemClassesOut ame_util.stringList;

Line 1406: currApprRec ame_util.approverRecord2;

1402: x_nextApproverOut ame_util.approverRecord; -- Old API approverOut
1403:
1404: x_approvalProcessCompleteYNOut VARCHAR2(100);
1405: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1406: currApprRec ame_util.approverRecord2;
1407:
1408: xitemIndexesOut ame_util.idList;
1409: xitemClassesOut ame_util.stringList;
1410: xitemIdsOut ame_util.stringList;

Line 1408: xitemIndexesOut ame_util.idList;

1404: x_approvalProcessCompleteYNOut VARCHAR2(100);
1405: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1406: currApprRec ame_util.approverRecord2;
1407:
1408: xitemIndexesOut ame_util.idList;
1409: xitemClassesOut ame_util.stringList;
1410: xitemIdsOut ame_util.stringList;
1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;

Line 1409: xitemClassesOut ame_util.stringList;

1405: x_nextApproversOut ame_util.approversTable2; -- New API approverOut
1406: currApprRec ame_util.approverRecord2;
1407:
1408: xitemIndexesOut ame_util.idList;
1409: xitemClassesOut ame_util.stringList;
1410: xitemIdsOut ame_util.stringList;
1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;

Line 1410: xitemIdsOut ame_util.stringList;

1406: currApprRec ame_util.approverRecord2;
1407:
1408: xitemIndexesOut ame_util.idList;
1409: xitemClassesOut ame_util.stringList;
1410: xitemIdsOut ame_util.stringList;
1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;
1414: xvariableValuesOut ame_util.stringList;

Line 1411: xitemSourcesOut ame_util.longStringList;

1407:
1408: xitemIndexesOut ame_util.idList;
1409: xitemClassesOut ame_util.stringList;
1410: xitemIdsOut ame_util.stringList;
1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;
1414: xvariableValuesOut ame_util.stringList;
1415: xtransVariableNamesOut ame_util.stringList;

Line 1412: xproductionIndexesOut ame_util.idList;

1408: xitemIndexesOut ame_util.idList;
1409: xitemClassesOut ame_util.stringList;
1410: xitemIdsOut ame_util.stringList;
1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;
1414: xvariableValuesOut ame_util.stringList;
1415: xtransVariableNamesOut ame_util.stringList;
1416: xtransVariableValuesOut ame_util.stringList;

Line 1413: xvariableNamesOut ame_util.stringList;

1409: xitemClassesOut ame_util.stringList;
1410: xitemIdsOut ame_util.stringList;
1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;
1414: xvariableValuesOut ame_util.stringList;
1415: xtransVariableNamesOut ame_util.stringList;
1416: xtransVariableValuesOut ame_util.stringList;
1417:

Line 1414: xvariableValuesOut ame_util.stringList;

1410: xitemIdsOut ame_util.stringList;
1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;
1414: xvariableValuesOut ame_util.stringList;
1415: xtransVariableNamesOut ame_util.stringList;
1416: xtransVariableValuesOut ame_util.stringList;
1417:
1418: l_valid_user_for_person VARCHAR2(1) := 'Y';

Line 1415: xtransVariableNamesOut ame_util.stringList;

1411: xitemSourcesOut ame_util.longStringList;
1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;
1414: xvariableValuesOut ame_util.stringList;
1415: xtransVariableNamesOut ame_util.stringList;
1416: xtransVariableValuesOut ame_util.stringList;
1417:
1418: l_valid_user_for_person VARCHAR2(1) := 'Y';
1419: l_orig_system VARCHAR2(20);

Line 1416: xtransVariableValuesOut ame_util.stringList;

1412: xproductionIndexesOut ame_util.idList;
1413: xvariableNamesOut ame_util.stringList;
1414: xvariableValuesOut ame_util.stringList;
1415: xtransVariableNamesOut ame_util.stringList;
1416: xtransVariableValuesOut ame_util.stringList;
1417:
1418: l_valid_user_for_person VARCHAR2(1) := 'Y';
1419: l_orig_system VARCHAR2(20);
1420: l_exception_flag VARCHAR2(1) := 'N';

Line 1453: ,flagApproversAsNotifiedIn => ame_util.booleanTrue

1449:
1450: AME_API2.getNextApprovers3(applicationIdIn => 691
1451: ,transactionTypeIn => p_approval_entity
1452: ,transactionIdIn => p_referral_id
1453: ,flagApproversAsNotifiedIn => ame_util.booleanTrue
1454: ,approvalProcessCompleteYNOut => x_approvalProcessCompleteYNOut
1455: ,nextApproversOut => x_nextApproversOut
1456: ,itemIndexesOut => xitemIndexesOut
1457: ,itemClassesOut => xitemClassesOut