[Home] [Help]
66: FETCH temp_appr_csr INTO x_entity_approver_id, x_objNo,x_approval_status_code ;
67: CLOSE temp_appr_csr;
68: EXCEPTION
69: WHEN OTHERS THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: END CheckApprInTempApprTable;
72:
73: --------------------------------------------------------------------------
74: -- FUNCTION
120: EXCEPTION
121: WHEN NO_DATA_FOUND THEN
122: RETURN ame_util.booleanAttributeFalse;
123: WHEN OTHERS THEN
124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
125: END isPartnerType;
126:
127:
128: FUNCTION getUserId(p_user_name IN VARCHAR2)
138: CLOSE user_csr;
139: RETURN l_user_id;
140: EXCEPTION
141: WHEN OTHERS THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143: END getUserId;
144: --------------------------------------------------------------------------
145: -- FUNCTION
146: -- isnumber
205:
206: EXCEPTION
207:
208: WHEN OTHERS THEN
209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
210:
211: END getenddate;
212:
213:
306: RETURN l_end_date;
307:
308: EXCEPTION
309: WHEN OTHERS THEN
310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
311:
312: END getGlobalenddate;
313:
314: PROCEDURE getstart_and_end_date( p_api_version_number IN NUMBER
311:
312: END getGlobalenddate;
313:
314: PROCEDURE getstart_and_end_date( p_api_version_number IN NUMBER
315: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
316: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
317: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
318: ,enrl_request_id IN NUMBER
319: ,x_start_date OUT NOCOPY DATE
312: END getGlobalenddate;
313:
314: PROCEDURE getstart_and_end_date( p_api_version_number IN NUMBER
315: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
316: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
317: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
318: ,enrl_request_id IN NUMBER
319: ,x_start_date OUT NOCOPY DATE
320: ,x_end_date OUT NOCOPY DATE
313:
314: PROCEDURE getstart_and_end_date( p_api_version_number IN NUMBER
315: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
316: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
317: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
318: ,enrl_request_id IN NUMBER
319: ,x_start_date OUT NOCOPY DATE
320: ,x_end_date OUT NOCOPY DATE
321: ,x_return_status OUT NOCOPY VARCHAR2
361: FROM pv_pg_memberships memb
362: WHERE enrl_request_id=p_enrl_req_id;
363:
364: BEGIN
365: x_return_status := FND_API.G_RET_STS_SUCCESS;
366: OPEN enr_requests_dtl_cur(enrl_request_id);
367: FETCH enr_requests_dtl_cur
368: INTO p_enrollment_type
369: , p_program_id
416: END IF; --end of if else, if enrollment request is not approved.
417:
418: EXCEPTION
419: WHEN OTHERS THEN
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
422: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
423: END IF;
424: -- Standard call to get message count and if count=1, get the message
422: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
423: END IF;
424: -- Standard call to get message count and if count=1, get the message
425: FND_MSG_PUB.Count_And_Get (
426: p_encoded => FND_API.G_FALSE
427: ,p_count => x_msg_count
428: ,p_data => x_msg_data
429: );
430:
427: ,p_count => x_msg_count
428: ,p_data => x_msg_data
429: );
430:
431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
432: END getstart_and_end_date;
433:
434: FUNCTION iscontract_exists(p_program_id IN number) RETURN boolean IS
435: l_temp varchar2(1);
454:
455: EXCEPTION
456:
457: WHEN OTHERS THEN
458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
459:
460: END iscontract_exists;
461:
462: FUNCTION ispayment_exists(p_program_id IN number) RETURN boolean IS
480:
481: EXCEPTION
482:
483: WHEN OTHERS THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485:
486: END ispayment_exists;
487:
488:
517:
518: EXCEPTION
519:
520: WHEN OTHERS THEN
521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
522:
523: END getCustomSetupID;
524:
525:
546:
547: EXCEPTION
548:
549: WHEN OTHERS THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551:
552: END check_pending_default;
553:
554:
570:
571: EXCEPTION
572:
573: WHEN OTHERS THEN
574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
575:
576: END check_record_exists;
577:
578:
620:
621: EXCEPTION
622:
623: WHEN OTHERS THEN
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625:
626: END isApproverInList;
627:
628:
647:
648: EXCEPTION
649:
650: WHEN OTHERS THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652:
653: END check_pending_approval;
654:
655:
673:
674: EXCEPTION
675:
676: WHEN OTHERS THEN
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678:
679: END checkcontract_status;
680:
681:
721:
722: EXCEPTION
723:
724: WHEN OTHERS THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726:
727: END checklist_status;
728:
729: -- Fixed for bug 4868295
753:
754: EXCEPTION
755:
756: WHEN OTHERS THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758:
759: END isApproverExists;
760:
761:
778:
779: EXCEPTION
780:
781: WHEN OTHERS THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783:
784: END isParentApproved;
785: --------------------------------------------------------------------------
786: -- PROCEDURE
1619: x_approver_seq=> l_approver_seq,
1620: x_return_status=> l_return_status
1621: );
1622:
1623: IF l_return_status = fnd_api.g_ret_sts_success THEN
1624:
1625: wf_engine.setitemattrnumber (
1626: itemtype=> itemtype,
1627: itemkey=> itemkey,
1692:
1693: resultout := 'COMPLETE:SUCCESS';
1694: ELSE
1695: fnd_msg_pub.count_and_get (
1696: p_encoded=> fnd_api.g_false,
1697: p_count=> l_msg_count,
1698: p_data=> l_msg_data
1699: );
1700: ams_gen_approval_pvt.handle_err (
1712: itemkey,
1713: actid,
1714: l_error_msg
1715: );
1716: -- RAISE FND_API.G_EXC_ERROR;
1717: resultout := 'COMPLETE:ERROR';
1718: END IF;
1719: END IF;
1720:
1735: END IF;
1736: --
1737:
1738: EXCEPTION
1739: WHEN fnd_api.g_exc_error THEN
1740: wf_core.context (
1741: 'AMS_FundApproval_pvt',
1742: 'set_parprgm_activity_details',
1743: itemtype,
1748: );
1749: RAISE;
1750: WHEN OTHERS THEN
1751: fnd_msg_pub.count_and_get (
1752: p_encoded=> fnd_api.g_false,
1753: p_count=> l_msg_count,
1754: p_data=> l_msg_data
1755: );
1756: RAISE;
1792: ) IS
1793: l_status_code VARCHAR2 (15);
1794: l_child_prog_stat_code VARCHAR2 (30);
1795: l_api_version CONSTANT NUMBER := 1.0;
1796: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
1797: l_msg_count NUMBER;
1798: l_msg_data VARCHAR2 (4000);
1799: l_api_name CONSTANT VARCHAR2 (30) := 'Update_ParProgram_Status';
1800: l_full_name CONSTANT VARCHAR2 (60) := g_pkg_name
1896: itemtype=> itemtype,
1897: itemkey=> itemkey,
1898: aname => 'AMS_ACTIVITY_ID'
1899: );
1900: -- x_return_status := fnd_api.g_ret_sts_success;
1901:
1902: OPEN c_get_objverno(l_program_id);
1903: FETCH c_get_objverno INTO l_object_version_number;
1904: CLOSE c_get_objverno;
1917:
1918:
1919: PV_PARTNER_PROGRAM_PVT.Update_Partner_Program (
1920: p_api_version_number=> l_api_version,
1921: p_init_msg_list=> fnd_api.g_false,
1922: --p_commit => FND_API.G_FALSE,
1923: --p_validation_level => FND_API.g_valid_level_full,
1924: x_return_status=> l_return_status,
1925: x_msg_count=> l_msg_count,
1918:
1919: PV_PARTNER_PROGRAM_PVT.Update_Partner_Program (
1920: p_api_version_number=> l_api_version,
1921: p_init_msg_list=> fnd_api.g_false,
1922: --p_commit => FND_API.G_FALSE,
1923: --p_validation_level => FND_API.g_valid_level_full,
1924: x_return_status=> l_return_status,
1925: x_msg_count=> l_msg_count,
1926: x_msg_data=> l_msg_data,
1919: PV_PARTNER_PROGRAM_PVT.Update_Partner_Program (
1920: p_api_version_number=> l_api_version,
1921: p_init_msg_list=> fnd_api.g_false,
1922: --p_commit => FND_API.G_FALSE,
1923: --p_validation_level => FND_API.g_valid_level_full,
1924: x_return_status=> l_return_status,
1925: x_msg_count=> l_msg_count,
1926: x_msg_data=> l_msg_data,
1927: p_ptr_prgm_rec=> l_program_rec
1933:
1934: IF l_citem_version_id is NOT NULL THEN
1935: IBC_CITEM_ADMIN_GRP.approve_item(
1936: p_citem_ver_id => l_citem_version_id
1937: ,p_commit => FND_API.G_FALSE
1938: ,p_init_msg_list => FND_API.g_false
1939: ,p_api_version_number => IBC_CITEM_ADMIN_GRP.G_API_VERSION_DEFAULT
1940: ,px_object_version_number => l_citem_object_version_number
1941: ,x_return_status => l_return_status
1934: IF l_citem_version_id is NOT NULL THEN
1935: IBC_CITEM_ADMIN_GRP.approve_item(
1936: p_citem_ver_id => l_citem_version_id
1937: ,p_commit => FND_API.G_FALSE
1938: ,p_init_msg_list => FND_API.g_false
1939: ,p_api_version_number => IBC_CITEM_ADMIN_GRP.G_API_VERSION_DEFAULT
1940: ,px_object_version_number => l_citem_object_version_number
1941: ,x_return_status => l_return_status
1942: ,x_msg_count => l_msg_count
1952: IF l_status_code='APPROVED' THEN
1953: OPEN c_get_status_code('NEW');
1954: FETCH c_get_status_code into l_user_status_for_new;
1955: IF ( c_get_status_code%NOTFOUND) THEN
1956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1957: END IF;
1958: CLOSE c_get_status_code;
1959: OPEN c_get_status_code('APPROVED');
1960: FETCH c_get_status_code into l_user_status_for_approved;
1958: CLOSE c_get_status_code;
1959: OPEN c_get_status_code('APPROVED');
1960: FETCH c_get_status_code into l_user_status_for_approved;
1961: IF ( c_get_status_code%NOTFOUND) THEN
1962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1963: END IF;
1964: CLOSE c_get_status_code;
1965: OPEN c_get_status_code('REJECTED');
1966: FETCH c_get_status_code into l_user_status_for_rejected;
1964: CLOSE c_get_status_code;
1965: OPEN c_get_status_code('REJECTED');
1966: FETCH c_get_status_code into l_user_status_for_rejected;
1967: IF ( c_get_status_code%NOTFOUND) THEN
1968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1969: END IF;
1970: CLOSE c_get_status_code;
1971:
1972: OPEN c_get_status_code('PENDING_APPROVAL');
1971:
1972: OPEN c_get_status_code('PENDING_APPROVAL');
1973: FETCH c_get_status_code into l_user_status_for_pa;
1974: IF ( c_get_status_code%NOTFOUND) THEN
1975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1976: END IF;
1977: CLOSE c_get_status_code;
1978:
1979: for child_cur in c_get_partner_program(l_program_id) loop
2018: l_check_flag :=true;
2019: end loop;
2020:
2021: END IF;
2022: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2023: ams_gen_approval_pvt.handle_err (
2024: p_itemtype=> itemtype,
2025: p_itemkey=> itemkey,
2026: p_msg_count=> l_msg_count, -- Number of error Messages
2049: RETURN;
2050: END IF;
2051:
2052: fnd_msg_pub.count_and_get (
2053: p_encoded=> fnd_api.g_false,
2054: p_count=> l_msg_count,
2055: p_data=> l_msg_data
2056: );
2057: ams_utility_pvt.debug_message (
2060: || l_return_status
2061: );
2062: EXCEPTION
2063: WHEN OTHERS THEN
2064: -- x_return_status := fnd_api.g_ret_sts_error;
2065: fnd_msg_pub.count_and_get (
2066: p_encoded=> fnd_api.g_false,
2067: p_count=> l_msg_count,
2068: p_data=> l_msg_data
2062: EXCEPTION
2063: WHEN OTHERS THEN
2064: -- x_return_status := fnd_api.g_ret_sts_error;
2065: fnd_msg_pub.count_and_get (
2066: p_encoded=> fnd_api.g_false,
2067: p_count=> l_msg_count,
2068: p_data=> l_msg_data
2069: );
2070: RAISE;
2205:
2206:
2207: BEGIN
2208: /* Initialize API return status to success */
2209: x_return_status := FND_API.G_RET_STS_SUCCESS;
2210:
2211: OPEN c_enr_cur( p_entity_approver_id );
2212: FETCH c_enr_cur
2213: INTO x_partner_name
2216: CLOSE c_enr_cur;
2217:
2218: EXCEPTION
2219: WHEN OTHERS THEN
2220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2221: END getAttributeValues;
2222:
2223:
2224: PROCEDURE Initialize_Var
2255: , x_enrollment_type =>l_enrollment_type
2256: , x_return_status =>l_return_status
2257: );
2258:
2259: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2260: RAISE FND_API.G_EXC_ERROR;
2261: END IF;
2262:
2263: WF_ENGINE.SetItemAttrNumber
2256: , x_return_status =>l_return_status
2257: );
2258:
2259: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2260: RAISE FND_API.G_EXC_ERROR;
2261: END IF;
2262:
2263: WF_ENGINE.SetItemAttrNumber
2264: ( itemtype => p_itemtype
2360: ,x_role_name => l_role_name
2361: ,x_role_display_name => l_display_role_name
2362: ,x_return_status => l_return_status
2363: );
2364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2365: RAISE FND_API.G_EXC_ERROR;
2366: END IF;
2367: */
2368:
2361: ,x_role_display_name => l_display_role_name
2362: ,x_return_status => l_return_status
2363: );
2364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2365: RAISE FND_API.G_EXC_ERROR;
2366: END IF;
2367: */
2368:
2369: WF_ENGINE.SetItemAttrText (
2440:
2441: --write to the approver logs with the itemkey for tracking purposes.
2442: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
2443: ( p_api_version_number => 1.0
2444: , p_init_msg_list => FND_API.g_false
2445: , p_commit => FND_API.G_FALSE
2446: , p_validation_level => FND_API.g_valid_level_full
2447: , x_return_status => l_return_status
2448: , x_msg_count => l_msg_count
2441: --write to the approver logs with the itemkey for tracking purposes.
2442: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
2443: ( p_api_version_number => 1.0
2444: , p_init_msg_list => FND_API.g_false
2445: , p_commit => FND_API.G_FALSE
2446: , p_validation_level => FND_API.g_valid_level_full
2447: , x_return_status => l_return_status
2448: , x_msg_count => l_msg_count
2449: , x_msg_data => l_msg_data
2442: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
2443: ( p_api_version_number => 1.0
2444: , p_init_msg_list => FND_API.g_false
2445: , p_commit => FND_API.G_FALSE
2446: , p_validation_level => FND_API.g_valid_level_full
2447: , x_return_status => l_return_status
2448: , x_msg_count => l_msg_count
2449: , x_msg_data => l_msg_data
2450: , p_approver_rec => l_approver_rec
2449: , x_msg_data => l_msg_data
2450: , p_approver_rec => l_approver_rec
2451: );
2452:
2453: IF l_return_status = FND_API.g_ret_sts_error THEN
2454: RAISE FND_API.g_exc_error;
2455: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2456: RAISE FND_API.g_exc_unexpected_error;
2457: END IF;
2450: , p_approver_rec => l_approver_rec
2451: );
2452:
2453: IF l_return_status = FND_API.g_ret_sts_error THEN
2454: RAISE FND_API.g_exc_error;
2455: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2456: RAISE FND_API.g_exc_unexpected_error;
2457: END IF;
2458:
2451: );
2452:
2453: IF l_return_status = FND_API.g_ret_sts_error THEN
2454: RAISE FND_API.g_exc_error;
2455: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2456: RAISE FND_API.g_exc_unexpected_error;
2457: END IF;
2458:
2459:
2452:
2453: IF l_return_status = FND_API.g_ret_sts_error THEN
2454: RAISE FND_API.g_exc_error;
2455: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2456: RAISE FND_API.g_exc_unexpected_error;
2457: END IF;
2458:
2459:
2460: EXCEPTION
2501: ,l_tentative_end_date;
2502: CLOSE enr_request_cur;
2503: getstart_and_end_date(
2504: p_api_version_number => 1.0
2505: ,p_init_msg_list => FND_API.g_false
2506: ,p_commit => FND_API.G_FALSE
2507: ,p_validation_level => FND_API.g_valid_level_full
2508: ,enrl_request_id => pv_pg_memb_rec.enrl_request_id
2509: ,x_start_date =>l_tentative_start_date
2502: CLOSE enr_request_cur;
2503: getstart_and_end_date(
2504: p_api_version_number => 1.0
2505: ,p_init_msg_list => FND_API.g_false
2506: ,p_commit => FND_API.G_FALSE
2507: ,p_validation_level => FND_API.g_valid_level_full
2508: ,enrl_request_id => pv_pg_memb_rec.enrl_request_id
2509: ,x_start_date =>l_tentative_start_date
2510: ,x_end_date =>l_tentative_end_date
2503: getstart_and_end_date(
2504: p_api_version_number => 1.0
2505: ,p_init_msg_list => FND_API.g_false
2506: ,p_commit => FND_API.G_FALSE
2507: ,p_validation_level => FND_API.g_valid_level_full
2508: ,enrl_request_id => pv_pg_memb_rec.enrl_request_id
2509: ,x_start_date =>l_tentative_start_date
2510: ,x_end_date =>l_tentative_end_date
2511: ,x_return_status => x_return_status
2527:
2528:
2529: EXCEPTION
2530: WHEN OTHERS THEN
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: END setmembershipdetails;
2533:
2534: -- this api is called when the enrollment request is finally approved or when its rejected by any approvers
2535: PROCEDURE process_response
2665: l_approver_rec.approval_status_code:=approvalStatus;
2666:
2667: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr(
2668: p_api_version_number => 1.0
2669: ,p_init_msg_list => FND_API.g_false
2670: ,p_commit => FND_API.G_FALSE
2671: ,p_validation_level => FND_API.g_valid_level_full
2672: ,x_return_status => x_return_status
2673: ,x_msg_count => x_msg_count
2666:
2667: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr(
2668: p_api_version_number => 1.0
2669: ,p_init_msg_list => FND_API.g_false
2670: ,p_commit => FND_API.G_FALSE
2671: ,p_validation_level => FND_API.g_valid_level_full
2672: ,x_return_status => x_return_status
2673: ,x_msg_count => x_msg_count
2674: ,x_msg_data => x_msg_data
2667: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr(
2668: p_api_version_number => 1.0
2669: ,p_init_msg_list => FND_API.g_false
2670: ,p_commit => FND_API.G_FALSE
2671: ,p_validation_level => FND_API.g_valid_level_full
2672: ,x_return_status => x_return_status
2673: ,x_msg_count => x_msg_count
2674: ,x_msg_data => x_msg_data
2675: ,p_approver_rec =>l_approver_rec
2674: ,x_msg_data => x_msg_data
2675: ,p_approver_rec =>l_approver_rec
2676: );
2677:
2678: IF x_return_status = FND_API.g_ret_sts_error THEN
2679: RAISE FND_API.g_exc_error;
2680: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2681: RAISE FND_API.g_exc_unexpected_error;
2682: END IF;
2675: ,p_approver_rec =>l_approver_rec
2676: );
2677:
2678: IF x_return_status = FND_API.g_ret_sts_error THEN
2679: RAISE FND_API.g_exc_error;
2680: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2681: RAISE FND_API.g_exc_unexpected_error;
2682: END IF;
2683: */
2676: );
2677:
2678: IF x_return_status = FND_API.g_ret_sts_error THEN
2679: RAISE FND_API.g_exc_error;
2680: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2681: RAISE FND_API.g_exc_unexpected_error;
2682: END IF;
2683: */
2684:
2677:
2678: IF x_return_status = FND_API.g_ret_sts_error THEN
2679: RAISE FND_API.g_exc_error;
2680: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2681: RAISE FND_API.g_exc_unexpected_error;
2682: END IF;
2683: */
2684:
2685: FOR x in pending_appovers_csr(enrl_request_id) LOOP
2687: l_approver_rec.object_version_number:=x.object_version_number;
2688: l_approver_rec.approval_status_code:='PEER_RESPONDED';
2689: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
2690: ( p_api_version_number => 1.0
2691: , p_init_msg_list => FND_API.g_false
2692: , p_commit => FND_API.g_false
2693: , p_validation_level => FND_API.g_valid_level_full
2694: , x_return_status => x_return_status
2695: , x_msg_count => x_msg_count
2688: l_approver_rec.approval_status_code:='PEER_RESPONDED';
2689: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
2690: ( p_api_version_number => 1.0
2691: , p_init_msg_list => FND_API.g_false
2692: , p_commit => FND_API.g_false
2693: , p_validation_level => FND_API.g_valid_level_full
2694: , x_return_status => x_return_status
2695: , x_msg_count => x_msg_count
2696: , x_msg_data => x_msg_data
2689: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
2690: ( p_api_version_number => 1.0
2691: , p_init_msg_list => FND_API.g_false
2692: , p_commit => FND_API.g_false
2693: , p_validation_level => FND_API.g_valid_level_full
2694: , x_return_status => x_return_status
2695: , x_msg_count => x_msg_count
2696: , x_msg_data => x_msg_data
2697: , p_approver_rec =>l_approver_rec
2725: l_program_id:=pv_pg_memb_rec.program_id;
2726:
2727: PV_Pg_Memberships_PVT.Create_Pg_memberships(
2728: p_api_version_number=>1.0
2729: ,p_init_msg_list => FND_API.g_false
2730: ,p_commit => FND_API.G_FALSE
2731: ,p_validation_level => FND_API.g_valid_level_full
2732: ,x_return_status => x_return_status
2733: ,x_msg_count => x_msg_count
2726:
2727: PV_Pg_Memberships_PVT.Create_Pg_memberships(
2728: p_api_version_number=>1.0
2729: ,p_init_msg_list => FND_API.g_false
2730: ,p_commit => FND_API.G_FALSE
2731: ,p_validation_level => FND_API.g_valid_level_full
2732: ,x_return_status => x_return_status
2733: ,x_msg_count => x_msg_count
2734: ,x_msg_data => x_msg_data
2727: PV_Pg_Memberships_PVT.Create_Pg_memberships(
2728: p_api_version_number=>1.0
2729: ,p_init_msg_list => FND_API.g_false
2730: ,p_commit => FND_API.G_FALSE
2731: ,p_validation_level => FND_API.g_valid_level_full
2732: ,x_return_status => x_return_status
2733: ,x_msg_count => x_msg_count
2734: ,x_msg_data => x_msg_data
2735: ,p_memb_rec => pv_pg_memb_rec
2735: ,p_memb_rec => pv_pg_memb_rec
2736: ,x_membership_id => l_membership_id
2737: );
2738:
2739: IF x_return_status = FND_API.g_ret_sts_error THEN
2740: RAISE FND_API.g_exc_error;
2741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2742: RAISE FND_API.g_exc_unexpected_error;
2743: END IF;
2736: ,x_membership_id => l_membership_id
2737: );
2738:
2739: IF x_return_status = FND_API.g_ret_sts_error THEN
2740: RAISE FND_API.g_exc_error;
2741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2742: RAISE FND_API.g_exc_unexpected_error;
2743: END IF;
2744:
2737: );
2738:
2739: IF x_return_status = FND_API.g_ret_sts_error THEN
2740: RAISE FND_API.g_exc_error;
2741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2742: RAISE FND_API.g_exc_unexpected_error;
2743: END IF;
2744:
2745: ----DBMS_OUTPUT.PUT_LINE('after creating enrollment'||l_membership_id);
2738:
2739: IF x_return_status = FND_API.g_ret_sts_error THEN
2740: RAISE FND_API.g_exc_error;
2741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2742: RAISE FND_API.g_exc_unexpected_error;
2743: END IF;
2744:
2745: ----DBMS_OUTPUT.PUT_LINE('after creating enrollment'||l_membership_id);
2746:
2752: l_enrq_rec.tentative_end_date:= pv_pg_memb_rec.original_end_date;
2753:
2754: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests(
2755: p_api_version_number => 1.0
2756: ,p_init_msg_list => FND_API.g_false
2757: ,p_commit => FND_API.G_FALSE
2758: ,p_validation_level => FND_API.g_valid_level_full
2759: ,x_return_status => x_return_status
2760: ,x_msg_count => x_msg_count
2753:
2754: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests(
2755: p_api_version_number => 1.0
2756: ,p_init_msg_list => FND_API.g_false
2757: ,p_commit => FND_API.G_FALSE
2758: ,p_validation_level => FND_API.g_valid_level_full
2759: ,x_return_status => x_return_status
2760: ,x_msg_count => x_msg_count
2761: ,x_msg_data => x_msg_data
2754: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests(
2755: p_api_version_number => 1.0
2756: ,p_init_msg_list => FND_API.g_false
2757: ,p_commit => FND_API.G_FALSE
2758: ,p_validation_level => FND_API.g_valid_level_full
2759: ,x_return_status => x_return_status
2760: ,x_msg_count => x_msg_count
2761: ,x_msg_data => x_msg_data
2762: ,p_enrl_request_rec => l_enrq_rec );
2760: ,x_msg_count => x_msg_count
2761: ,x_msg_data => x_msg_data
2762: ,p_enrl_request_rec => l_enrq_rec );
2763:
2764: IF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2767: RAISE FND_API.g_exc_unexpected_error;
2768: END IF;
2761: ,x_msg_data => x_msg_data
2762: ,p_enrl_request_rec => l_enrq_rec );
2763:
2764: IF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2767: RAISE FND_API.g_exc_unexpected_error;
2768: END IF;
2769:
2762: ,p_enrl_request_rec => l_enrq_rec );
2763:
2764: IF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2767: RAISE FND_API.g_exc_unexpected_error;
2768: END IF;
2769:
2770: l_param_tbl_var(1).param_name := 'PROGRAM_NAME';
2763:
2764: IF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2767: RAISE FND_API.g_exc_unexpected_error;
2768: END IF;
2769:
2770: l_param_tbl_var(1).param_name := 'PROGRAM_NAME';
2771: l_param_tbl_var(1).param_value := l_program_name;
2779: ,p_partner_id => l_partner_id
2780: ,p_access_level_flag => 'P'
2781: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
2782: ,p_log_params_tbl => l_param_tbl_var
2783: ,p_init_msg_list => FND_API.g_false
2784: ,p_commit => FND_API.G_FALSE
2785: ,x_return_status => x_return_status
2786: ,x_msg_count => x_msg_count
2787: ,x_msg_data => x_msg_data
2780: ,p_access_level_flag => 'P'
2781: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
2782: ,p_log_params_tbl => l_param_tbl_var
2783: ,p_init_msg_list => FND_API.g_false
2784: ,p_commit => FND_API.G_FALSE
2785: ,x_return_status => x_return_status
2786: ,x_msg_count => x_msg_count
2787: ,x_msg_data => x_msg_data
2788: );
2787: ,x_msg_data => x_msg_data
2788: );
2789:
2790: ----DBMS_OUTPUT.PUT_LINE('after log');
2791: IF x_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2788: );
2789:
2790: ----DBMS_OUTPUT.PUT_LINE('after log');
2791: IF x_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2796:
2789:
2790: ----DBMS_OUTPUT.PUT_LINE('after log');
2791: IF x_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2796:
2797: PVX_UTILITY_PVT.create_history_log
2790: ----DBMS_OUTPUT.PUT_LINE('after log');
2791: IF x_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2796:
2797: PVX_UTILITY_PVT.create_history_log
2798: ( p_arc_history_for_entity_code => 'MEMBERSHIP'
2803: ,p_partner_id => l_partner_id
2804: ,p_access_level_flag => 'P'
2805: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
2806: ,p_log_params_tbl => l_param_tbl_var
2807: ,p_init_msg_list => FND_API.g_false
2808: ,p_commit => FND_API.G_FALSE
2809: ,x_return_status => x_return_status
2810: ,x_msg_count => x_msg_count
2811: ,x_msg_data => x_msg_data
2804: ,p_access_level_flag => 'P'
2805: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
2806: ,p_log_params_tbl => l_param_tbl_var
2807: ,p_init_msg_list => FND_API.g_false
2808: ,p_commit => FND_API.G_FALSE
2809: ,x_return_status => x_return_status
2810: ,x_msg_count => x_msg_count
2811: ,x_msg_data => x_msg_data
2812: );
2811: ,x_msg_data => x_msg_data
2812: );
2813:
2814: ----DBMS_OUTPUT.PUT_LINE('after log');
2815: IF x_return_status = FND_API.g_ret_sts_error THEN
2816: RAISE FND_API.g_exc_error;
2817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2818: RAISE FND_API.g_exc_unexpected_error;
2819: END IF;
2812: );
2813:
2814: ----DBMS_OUTPUT.PUT_LINE('after log');
2815: IF x_return_status = FND_API.g_ret_sts_error THEN
2816: RAISE FND_API.g_exc_error;
2817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2818: RAISE FND_API.g_exc_unexpected_error;
2819: END IF;
2820:
2813:
2814: ----DBMS_OUTPUT.PUT_LINE('after log');
2815: IF x_return_status = FND_API.g_ret_sts_error THEN
2816: RAISE FND_API.g_exc_error;
2817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2818: RAISE FND_API.g_exc_unexpected_error;
2819: END IF;
2820:
2821: IF l_enrollment_type_code='UPGRADE' THEN
2814: ----DBMS_OUTPUT.PUT_LINE('after log');
2815: IF x_return_status = FND_API.g_ret_sts_error THEN
2816: RAISE FND_API.g_exc_error;
2817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2818: RAISE FND_API.g_exc_unexpected_error;
2819: END IF;
2820:
2821: IF l_enrollment_type_code='UPGRADE' THEN
2822: --end date the previous enrollment
2832: pv_pg_prev_memb_rec.membership_status_code:='UPGRADED';
2833:
2834: PV_Pg_Memberships_PVT.Update_pg_memberships(
2835: p_api_version_number => 1.0
2836: ,p_init_msg_list => FND_API.g_false
2837: ,p_commit => FND_API.G_FALSE
2838: ,p_validation_level => FND_API.g_valid_level_full
2839: ,x_return_status => x_return_status
2840: ,x_msg_count => x_msg_count
2833:
2834: PV_Pg_Memberships_PVT.Update_pg_memberships(
2835: p_api_version_number => 1.0
2836: ,p_init_msg_list => FND_API.g_false
2837: ,p_commit => FND_API.G_FALSE
2838: ,p_validation_level => FND_API.g_valid_level_full
2839: ,x_return_status => x_return_status
2840: ,x_msg_count => x_msg_count
2841: ,x_msg_data => x_msg_data
2834: PV_Pg_Memberships_PVT.Update_pg_memberships(
2835: p_api_version_number => 1.0
2836: ,p_init_msg_list => FND_API.g_false
2837: ,p_commit => FND_API.G_FALSE
2838: ,p_validation_level => FND_API.g_valid_level_full
2839: ,x_return_status => x_return_status
2840: ,x_msg_count => x_msg_count
2841: ,x_msg_data => x_msg_data
2842: ,p_memb_rec => pv_pg_prev_memb_rec
2842: ,p_memb_rec => pv_pg_prev_memb_rec
2843: );
2844:
2845:
2846: IF x_return_status = FND_API.g_ret_sts_error THEN
2847: RAISE FND_API.g_exc_error;
2848: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2849: RAISE FND_API.g_exc_unexpected_error;
2850: END IF;
2843: );
2844:
2845:
2846: IF x_return_status = FND_API.g_ret_sts_error THEN
2847: RAISE FND_API.g_exc_error;
2848: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2849: RAISE FND_API.g_exc_unexpected_error;
2850: END IF;
2851:
2844:
2845:
2846: IF x_return_status = FND_API.g_ret_sts_error THEN
2847: RAISE FND_API.g_exc_error;
2848: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2849: RAISE FND_API.g_exc_unexpected_error;
2850: END IF;
2851:
2852: --call pv_pg_mmbr_transitions table api
2845:
2846: IF x_return_status = FND_API.g_ret_sts_error THEN
2847: RAISE FND_API.g_exc_error;
2848: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2849: RAISE FND_API.g_exc_unexpected_error;
2850: END IF;
2851:
2852: --call pv_pg_mmbr_transitions table api
2853: --confirm the business logic below
2857:
2858:
2859: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
2860: ( p_api_version_number =>1.0
2861: ,p_init_msg_list => FND_API.g_false
2862: ,p_commit => FND_API.G_FALSE
2863: ,p_validation_level => FND_API.g_valid_level_full
2864: ,x_return_status => x_return_status
2865: ,x_msg_count => x_msg_count
2858:
2859: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
2860: ( p_api_version_number =>1.0
2861: ,p_init_msg_list => FND_API.g_false
2862: ,p_commit => FND_API.G_FALSE
2863: ,p_validation_level => FND_API.g_valid_level_full
2864: ,x_return_status => x_return_status
2865: ,x_msg_count => x_msg_count
2866: ,x_msg_data => x_msg_data
2859: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
2860: ( p_api_version_number =>1.0
2861: ,p_init_msg_list => FND_API.g_false
2862: ,p_commit => FND_API.G_FALSE
2863: ,p_validation_level => FND_API.g_valid_level_full
2864: ,x_return_status => x_return_status
2865: ,x_msg_count => x_msg_count
2866: ,x_msg_data => x_msg_data
2867: ,p_mmbr_tran_rec => l_mmbr_tran_rec
2867: ,p_mmbr_tran_rec => l_mmbr_tran_rec
2868: ,x_mmbr_transition_id => l_mmbr_transition_id
2869: );
2870:
2871: IF x_return_status = FND_API.g_ret_sts_error THEN
2872: RAISE FND_API.g_exc_error;
2873: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2874: RAISE FND_API.g_exc_unexpected_error;
2875: END IF;
2868: ,x_mmbr_transition_id => l_mmbr_transition_id
2869: );
2870:
2871: IF x_return_status = FND_API.g_ret_sts_error THEN
2872: RAISE FND_API.g_exc_error;
2873: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2874: RAISE FND_API.g_exc_unexpected_error;
2875: END IF;
2876:
2869: );
2870:
2871: IF x_return_status = FND_API.g_ret_sts_error THEN
2872: RAISE FND_API.g_exc_error;
2873: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2874: RAISE FND_API.g_exc_unexpected_error;
2875: END IF;
2876:
2877: END LOOP ;
2870:
2871: IF x_return_status = FND_API.g_ret_sts_error THEN
2872: RAISE FND_API.g_exc_error;
2873: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2874: RAISE FND_API.g_exc_unexpected_error;
2875: END IF;
2876:
2877: END LOOP ;
2878: END IF;--end of processing if its upgrade
2896:
2897:
2898: PV_Pg_Memberships_PVT.Update_Pg_memberships(
2899: p_api_version_number => 1.0
2900: ,p_init_msg_list => FND_API.g_false
2901: ,p_commit => FND_API.G_FALSE
2902: ,p_validation_level => FND_API.g_valid_level_full
2903: ,x_return_status => x_return_status
2904: ,x_msg_count => x_msg_count
2897:
2898: PV_Pg_Memberships_PVT.Update_Pg_memberships(
2899: p_api_version_number => 1.0
2900: ,p_init_msg_list => FND_API.g_false
2901: ,p_commit => FND_API.G_FALSE
2902: ,p_validation_level => FND_API.g_valid_level_full
2903: ,x_return_status => x_return_status
2904: ,x_msg_count => x_msg_count
2905: ,x_msg_data => x_msg_data
2898: PV_Pg_Memberships_PVT.Update_Pg_memberships(
2899: p_api_version_number => 1.0
2900: ,p_init_msg_list => FND_API.g_false
2901: ,p_commit => FND_API.G_FALSE
2902: ,p_validation_level => FND_API.g_valid_level_full
2903: ,x_return_status => x_return_status
2904: ,x_msg_count => x_msg_count
2905: ,x_msg_data => x_msg_data
2906: ,p_memb_rec => pv_pg_prev_memb_rec
2906: ,p_memb_rec => pv_pg_prev_memb_rec
2907: );
2908:
2909:
2910: IF x_return_status = FND_API.g_ret_sts_error THEN
2911: RAISE FND_API.g_exc_error;
2912: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2913: RAISE FND_API.g_exc_unexpected_error;
2914: END IF;
2907: );
2908:
2909:
2910: IF x_return_status = FND_API.g_ret_sts_error THEN
2911: RAISE FND_API.g_exc_error;
2912: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2913: RAISE FND_API.g_exc_unexpected_error;
2914: END IF;
2915:
2908:
2909:
2910: IF x_return_status = FND_API.g_ret_sts_error THEN
2911: RAISE FND_API.g_exc_error;
2912: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2913: RAISE FND_API.g_exc_unexpected_error;
2914: END IF;
2915:
2916: --call pv_pg_mmbr_transitions table api
2909:
2910: IF x_return_status = FND_API.g_ret_sts_error THEN
2911: RAISE FND_API.g_exc_error;
2912: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2913: RAISE FND_API.g_exc_unexpected_error;
2914: END IF;
2915:
2916: --call pv_pg_mmbr_transitions table api
2917: l_mmbr_tran_rec.FROM_MEMBERSHIP_ID:=l_previous_membership_id;
2918: l_mmbr_tran_rec.TO_MEMBERSHIP_ID:=l_membership_id;
2919:
2920: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans(
2921: p_api_version_number => 1.0
2922: ,p_init_msg_list => FND_API.g_false
2923: ,p_commit => FND_API.G_FALSE
2924: ,p_validation_level => FND_API.g_valid_level_full
2925: ,x_return_status => x_return_status
2926: ,x_msg_count => x_msg_count
2919:
2920: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans(
2921: p_api_version_number => 1.0
2922: ,p_init_msg_list => FND_API.g_false
2923: ,p_commit => FND_API.G_FALSE
2924: ,p_validation_level => FND_API.g_valid_level_full
2925: ,x_return_status => x_return_status
2926: ,x_msg_count => x_msg_count
2927: ,x_msg_data => x_msg_data
2920: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans(
2921: p_api_version_number => 1.0
2922: ,p_init_msg_list => FND_API.g_false
2923: ,p_commit => FND_API.G_FALSE
2924: ,p_validation_level => FND_API.g_valid_level_full
2925: ,x_return_status => x_return_status
2926: ,x_msg_count => x_msg_count
2927: ,x_msg_data => x_msg_data
2928: ,p_mmbr_tran_rec => l_mmbr_tran_rec
2936: for currnet memberships or previous memberships as required */
2937:
2938: Pv_User_Resp_Pvt.manage_memb_resp
2939: ( p_api_version_number => 1.0
2940: ,p_init_msg_list => Fnd_Api.g_false
2941: ,p_commit => Fnd_Api.g_false
2942: ,p_membership_id => l_membership_id
2943: ,x_return_status => x_return_status
2944: ,x_msg_count => x_msg_count
2937:
2938: Pv_User_Resp_Pvt.manage_memb_resp
2939: ( p_api_version_number => 1.0
2940: ,p_init_msg_list => Fnd_Api.g_false
2941: ,p_commit => Fnd_Api.g_false
2942: ,p_membership_id => l_membership_id
2943: ,x_return_status => x_return_status
2944: ,x_msg_count => x_msg_count
2945: ,x_msg_data => x_msg_data
2943: ,x_return_status => x_return_status
2944: ,x_msg_count => x_msg_count
2945: ,x_msg_data => x_msg_data
2946: );
2947: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: END IF;
2944: ,x_msg_count => x_msg_count
2945: ,x_msg_data => x_msg_data
2946: );
2947: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: END IF;
2952:
2945: ,x_msg_data => x_msg_data
2946: );
2947: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: END IF;
2952:
2953: --store the attribute values at the time of enrollment approvals
2946: );
2947: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: END IF;
2952:
2953: --store the attribute values at the time of enrollment approvals
2954: OPEN check_attr_exist(l_program_id);
2961: CLOSE attribute_id_csr;
2962:
2963: pv_enty_attr_value_pub.copy_partner_attr_values
2964: ( p_api_version_number =>1.0
2965: ,p_init_msg_list => fnd_api.g_false
2966: ,p_commit => fnd_api.g_false
2967: ,p_validation_level => fnd_api.g_valid_level_full
2968: ,x_return_status => x_return_status
2969: ,x_msg_count => x_msg_count
2962:
2963: pv_enty_attr_value_pub.copy_partner_attr_values
2964: ( p_api_version_number =>1.0
2965: ,p_init_msg_list => fnd_api.g_false
2966: ,p_commit => fnd_api.g_false
2967: ,p_validation_level => fnd_api.g_valid_level_full
2968: ,x_return_status => x_return_status
2969: ,x_msg_count => x_msg_count
2970: ,x_msg_data => x_msg_data
2963: pv_enty_attr_value_pub.copy_partner_attr_values
2964: ( p_api_version_number =>1.0
2965: ,p_init_msg_list => fnd_api.g_false
2966: ,p_commit => fnd_api.g_false
2967: ,p_validation_level => fnd_api.g_valid_level_full
2968: ,x_return_status => x_return_status
2969: ,x_msg_count => x_msg_count
2970: ,x_msg_data => x_msg_data
2971: ,p_attr_id_tbl => l_attr_id_tbl
2973: ,p_entity_id => enrl_request_id
2974: ,p_partner_id => l_partner_id
2975: );
2976: ----DBMS_OUTPUT.PUT_LINE('after copy');
2977: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2974: ,p_partner_id => l_partner_id
2975: );
2976: ----DBMS_OUTPUT.PUT_LINE('after copy');
2977: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2982: END IF; --end of if for coying attributes if there is any attribute defined
2975: );
2976: ----DBMS_OUTPUT.PUT_LINE('after copy');
2977: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2982: END IF; --end of if for coying attributes if there is any attribute defined
2983:
2976: ----DBMS_OUTPUT.PUT_LINE('after copy');
2977: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2981: END IF;
2982: END IF; --end of if for coying attributes if there is any attribute defined
2983:
2984:
2987: ----DBMS_OUTPUT.PUT_LINE('before book order');
2988: PV_ORDER_MGMT_PVT.book_order
2989: (
2990: p_api_version_number =>1.0
2991: ,p_init_msg_list => Fnd_Api.g_false
2992: ,p_commit => Fnd_Api.g_false
2993: ,p_order_header_id => l_order_header_id
2994: ,x_return_status => x_return_status
2995: ,x_msg_count => x_msg_count
2988: PV_ORDER_MGMT_PVT.book_order
2989: (
2990: p_api_version_number =>1.0
2991: ,p_init_msg_list => Fnd_Api.g_false
2992: ,p_commit => Fnd_Api.g_false
2993: ,p_order_header_id => l_order_header_id
2994: ,x_return_status => x_return_status
2995: ,x_msg_count => x_msg_count
2996: ,x_msg_data => x_msg_data
2994: ,x_return_status => x_return_status
2995: ,x_msg_count => x_msg_count
2996: ,x_msg_data => x_msg_data
2997: );
2998: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2999: RAISE FND_API.G_EXC_ERROR;
3000: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: END IF;
2995: ,x_msg_count => x_msg_count
2996: ,x_msg_data => x_msg_data
2997: );
2998: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2999: RAISE FND_API.G_EXC_ERROR;
3000: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: END IF;
3003: ----DBMS_OUTPUT.PUT_LINE('after book order');
2996: ,x_msg_data => x_msg_data
2997: );
2998: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2999: RAISE FND_API.G_EXC_ERROR;
3000: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: END IF;
3003: ----DBMS_OUTPUT.PUT_LINE('after book order');
3004: END IF;
2997: );
2998: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2999: RAISE FND_API.G_EXC_ERROR;
3000: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: END IF;
3003: ----DBMS_OUTPUT.PUT_LINE('after book order');
3004: END IF;
3005:
3007: ----DBMS_OUTPUT.PUT_LINE('before notify');
3008: /**
3009: PV_PG_NOTIF_UTILITY_PVT.send_welcome_notif
3010: ( p_api_version => 1.0
3011: ,p_init_msg_list => Fnd_Api.g_false
3012: ,p_commit => Fnd_Api.g_false
3013: ,p_validation_level => FND_API.g_valid_level_full
3014: ,x_return_status => x_return_status
3015: ,x_msg_count => x_msg_count
3008: /**
3009: PV_PG_NOTIF_UTILITY_PVT.send_welcome_notif
3010: ( p_api_version => 1.0
3011: ,p_init_msg_list => Fnd_Api.g_false
3012: ,p_commit => Fnd_Api.g_false
3013: ,p_validation_level => FND_API.g_valid_level_full
3014: ,x_return_status => x_return_status
3015: ,x_msg_count => x_msg_count
3016: ,x_msg_data => x_msg_data
3009: PV_PG_NOTIF_UTILITY_PVT.send_welcome_notif
3010: ( p_api_version => 1.0
3011: ,p_init_msg_list => Fnd_Api.g_false
3012: ,p_commit => Fnd_Api.g_false
3013: ,p_validation_level => FND_API.g_valid_level_full
3014: ,x_return_status => x_return_status
3015: ,x_msg_count => x_msg_count
3016: ,x_msg_data => x_msg_data
3017: ,p_membership_id => l_membership_id
3020: -- calling the new workflow process in 11.5.10 :pukken
3021: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3022: (
3023: p_api_version_number => 1.0
3024: , p_init_msg_list => Fnd_Api.g_false
3025: , p_commit => Fnd_Api.g_false
3026: , p_validation_level => FND_API.g_valid_level_full
3027: , p_context_id => l_partner_id
3028: , p_context_code => 'PARTNER'
3021: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3022: (
3023: p_api_version_number => 1.0
3024: , p_init_msg_list => Fnd_Api.g_false
3025: , p_commit => Fnd_Api.g_false
3026: , p_validation_level => FND_API.g_valid_level_full
3027: , p_context_id => l_partner_id
3028: , p_context_code => 'PARTNER'
3029: , p_target_ctgry => 'PARTNER'
3022: (
3023: p_api_version_number => 1.0
3024: , p_init_msg_list => Fnd_Api.g_false
3025: , p_commit => Fnd_Api.g_false
3026: , p_validation_level => FND_API.g_valid_level_full
3027: , p_context_id => l_partner_id
3028: , p_context_code => 'PARTNER'
3029: , p_target_ctgry => 'PARTNER'
3030: , p_target_ctgry_pt_id => l_partner_id
3036: , x_msg_count => x_msg_count
3037: , x_msg_data => x_msg_data
3038: );
3039:
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3037: , x_msg_data => x_msg_data
3038: );
3039:
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3038: );
3039:
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3046:
3039:
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3046:
3047:
3051: --the code below is for enrollments that are rejected by any appprover.
3052: --update the enrollment requests table with the approvalstatus
3053: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests(
3054: p_api_version_number => 1.0
3055: ,p_init_msg_list => FND_API.g_false
3056: ,p_commit => FND_API.G_FALSE
3057: ,p_validation_level => FND_API.g_valid_level_full
3058: ,x_return_status => x_return_status
3059: ,x_msg_count => x_msg_count
3052: --update the enrollment requests table with the approvalstatus
3053: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests(
3054: p_api_version_number => 1.0
3055: ,p_init_msg_list => FND_API.g_false
3056: ,p_commit => FND_API.G_FALSE
3057: ,p_validation_level => FND_API.g_valid_level_full
3058: ,x_return_status => x_return_status
3059: ,x_msg_count => x_msg_count
3060: ,x_msg_data => x_msg_data
3053: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests(
3054: p_api_version_number => 1.0
3055: ,p_init_msg_list => FND_API.g_false
3056: ,p_commit => FND_API.G_FALSE
3057: ,p_validation_level => FND_API.g_valid_level_full
3058: ,x_return_status => x_return_status
3059: ,x_msg_count => x_msg_count
3060: ,x_msg_data => x_msg_data
3061: ,p_enrl_request_rec => l_enrq_rec
3060: ,x_msg_data => x_msg_data
3061: ,p_enrl_request_rec => l_enrq_rec
3062: );
3063:
3064: IF x_return_status = FND_API.g_ret_sts_error THEN
3065: RAISE FND_API.g_exc_error;
3066: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3067: RAISE FND_API.g_exc_unexpected_error;
3068: END IF;
3061: ,p_enrl_request_rec => l_enrq_rec
3062: );
3063:
3064: IF x_return_status = FND_API.g_ret_sts_error THEN
3065: RAISE FND_API.g_exc_error;
3066: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3067: RAISE FND_API.g_exc_unexpected_error;
3068: END IF;
3069:
3062: );
3063:
3064: IF x_return_status = FND_API.g_ret_sts_error THEN
3065: RAISE FND_API.g_exc_error;
3066: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3067: RAISE FND_API.g_exc_unexpected_error;
3068: END IF;
3069:
3070:
3063:
3064: IF x_return_status = FND_API.g_ret_sts_error THEN
3065: RAISE FND_API.g_exc_error;
3066: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3067: RAISE FND_API.g_exc_unexpected_error;
3068: END IF;
3069:
3070:
3071: IF l_order_header_id is not null THEN
3071: IF l_order_header_id is not null THEN
3072: PV_ORDER_MGMT_PVT.cancel_order
3073: (
3074: p_api_version_number =>1.0
3075: ,p_init_msg_list => Fnd_Api.g_false
3076: ,p_commit => Fnd_Api.g_false
3077: ,p_order_header_id => l_order_header_id
3078: ,x_return_status => x_return_status
3079: ,x_msg_count => x_msg_count
3072: PV_ORDER_MGMT_PVT.cancel_order
3073: (
3074: p_api_version_number =>1.0
3075: ,p_init_msg_list => Fnd_Api.g_false
3076: ,p_commit => Fnd_Api.g_false
3077: ,p_order_header_id => l_order_header_id
3078: ,x_return_status => x_return_status
3079: ,x_msg_count => x_msg_count
3080: ,x_msg_data => x_msg_data
3080: ,x_msg_data => x_msg_data
3081: );
3082: END IF;
3083:
3084: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3085: RAISE FND_API.G_EXC_ERROR;
3086: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3088: END IF;
3081: );
3082: END IF;
3083:
3084: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3085: RAISE FND_API.G_EXC_ERROR;
3086: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3088: END IF;
3089:
3082: END IF;
3083:
3084: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3085: RAISE FND_API.G_EXC_ERROR;
3086: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3088: END IF;
3089:
3090:
3083:
3084: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3085: RAISE FND_API.G_EXC_ERROR;
3086: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3088: END IF;
3089:
3090:
3091: --store the attribute values at the time of enrollment approvals
3099: CLOSE attribute_id_csr;
3100:
3101: pv_enty_attr_value_pub.copy_partner_attr_values
3102: ( p_api_version_number =>1.0
3103: ,p_init_msg_list => fnd_api.g_false
3104: ,p_commit => fnd_api.g_false
3105: ,p_validation_level => fnd_api.g_valid_level_full
3106: ,x_return_status => x_return_status
3107: ,x_msg_count => x_msg_count
3100:
3101: pv_enty_attr_value_pub.copy_partner_attr_values
3102: ( p_api_version_number =>1.0
3103: ,p_init_msg_list => fnd_api.g_false
3104: ,p_commit => fnd_api.g_false
3105: ,p_validation_level => fnd_api.g_valid_level_full
3106: ,x_return_status => x_return_status
3107: ,x_msg_count => x_msg_count
3108: ,x_msg_data => x_msg_data
3101: pv_enty_attr_value_pub.copy_partner_attr_values
3102: ( p_api_version_number =>1.0
3103: ,p_init_msg_list => fnd_api.g_false
3104: ,p_commit => fnd_api.g_false
3105: ,p_validation_level => fnd_api.g_valid_level_full
3106: ,x_return_status => x_return_status
3107: ,x_msg_count => x_msg_count
3108: ,x_msg_data => x_msg_data
3109: ,p_attr_id_tbl => l_attr_id_tbl
3111: ,p_entity_id => enrl_request_id
3112: ,p_partner_id => l_partner_id
3113: );
3114: ----DBMS_OUTPUT.PUT_LINE('after copy');
3115: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3116: RAISE FND_API.G_EXC_ERROR;
3117: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
3118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3119: END IF;
3112: ,p_partner_id => l_partner_id
3113: );
3114: ----DBMS_OUTPUT.PUT_LINE('after copy');
3115: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3116: RAISE FND_API.G_EXC_ERROR;
3117: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
3118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3119: END IF;
3120: END IF; --end of if for coying attributes if there is any attribute defined
3113: );
3114: ----DBMS_OUTPUT.PUT_LINE('after copy');
3115: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3116: RAISE FND_API.G_EXC_ERROR;
3117: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
3118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3119: END IF;
3120: END IF; --end of if for coying attributes if there is any attribute defined
3121:
3114: ----DBMS_OUTPUT.PUT_LINE('after copy');
3115: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3116: RAISE FND_API.G_EXC_ERROR;
3117: ELSIF x_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
3118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3119: END IF;
3120: END IF; --end of if for coying attributes if there is any attribute defined
3121:
3122:
3122:
3123: --send workflow notification to partner about the rejection of enrollment request
3124: /**PV_PG_NOTIF_UTILITY_PVT.send_rejection_notif
3125: ( p_api_version => 1.0
3126: ,p_init_msg_list => Fnd_Api.g_false
3127: ,p_commit => Fnd_Api.g_false
3128: ,p_validation_level => FND_API.g_valid_level_full
3129: ,x_return_status => x_return_status
3130: ,x_msg_count => x_msg_count
3123: --send workflow notification to partner about the rejection of enrollment request
3124: /**PV_PG_NOTIF_UTILITY_PVT.send_rejection_notif
3125: ( p_api_version => 1.0
3126: ,p_init_msg_list => Fnd_Api.g_false
3127: ,p_commit => Fnd_Api.g_false
3128: ,p_validation_level => FND_API.g_valid_level_full
3129: ,x_return_status => x_return_status
3130: ,x_msg_count => x_msg_count
3131: ,x_msg_data => x_msg_data
3124: /**PV_PG_NOTIF_UTILITY_PVT.send_rejection_notif
3125: ( p_api_version => 1.0
3126: ,p_init_msg_list => Fnd_Api.g_false
3127: ,p_commit => Fnd_Api.g_false
3128: ,p_validation_level => FND_API.g_valid_level_full
3129: ,x_return_status => x_return_status
3130: ,x_msg_count => x_msg_count
3131: ,x_msg_data => x_msg_data
3132: ,p_enrl_request_id => enrl_request_id
3135: -- calling the new workflow process in 11.5.10 pukken
3136: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3137: (
3138: p_api_version_number => 1.0
3139: , p_init_msg_list => Fnd_Api.g_false
3140: , p_commit => Fnd_Api.g_false
3141: , p_validation_level => FND_API.g_valid_level_full
3142: , p_context_id => l_partner_id
3143: , p_context_code => 'PARTNER'
3136: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
3137: (
3138: p_api_version_number => 1.0
3139: , p_init_msg_list => Fnd_Api.g_false
3140: , p_commit => Fnd_Api.g_false
3141: , p_validation_level => FND_API.g_valid_level_full
3142: , p_context_id => l_partner_id
3143: , p_context_code => 'PARTNER'
3144: , p_target_ctgry => 'PARTNER'
3137: (
3138: p_api_version_number => 1.0
3139: , p_init_msg_list => Fnd_Api.g_false
3140: , p_commit => Fnd_Api.g_false
3141: , p_validation_level => FND_API.g_valid_level_full
3142: , p_context_id => l_partner_id
3143: , p_context_code => 'PARTNER'
3144: , p_target_ctgry => 'PARTNER'
3145: , p_target_ctgry_pt_id => l_partner_id
3151: , x_msg_count => x_msg_count
3152: , x_msg_data => x_msg_data
3153: );
3154:
3155: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3156: RAISE FND_API.G_EXC_ERROR;
3157: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3159: END IF;
3152: , x_msg_data => x_msg_data
3153: );
3154:
3155: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3156: RAISE FND_API.G_EXC_ERROR;
3157: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3159: END IF;
3160: ----DBMS_OUTPUT.PUT_LINE('after rejection notify');
3153: );
3154:
3155: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3156: RAISE FND_API.G_EXC_ERROR;
3157: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3159: END IF;
3160: ----DBMS_OUTPUT.PUT_LINE('after rejection notify');
3161:
3154:
3155: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3156: RAISE FND_API.G_EXC_ERROR;
3157: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3159: END IF;
3160: ----DBMS_OUTPUT.PUT_LINE('after rejection notify');
3161:
3162: END IF; --end of if rejected
3165: -- that IMP's enrollment had been approved.
3166: send_notifications
3167: (
3168: p_api_version_number => 1.0
3169: , p_init_msg_list => Fnd_Api.g_false
3170: , p_commit => Fnd_Api.g_false
3171: , p_validation_level => FND_API.g_valid_level_full
3172: , p_partner_id => l_partner_id
3173: , p_enrl_request_id => enrl_request_id
3166: send_notifications
3167: (
3168: p_api_version_number => 1.0
3169: , p_init_msg_list => Fnd_Api.g_false
3170: , p_commit => Fnd_Api.g_false
3171: , p_validation_level => FND_API.g_valid_level_full
3172: , p_partner_id => l_partner_id
3173: , p_enrl_request_id => enrl_request_id
3174: , p_memb_type => null
3167: (
3168: p_api_version_number => 1.0
3169: , p_init_msg_list => Fnd_Api.g_false
3170: , p_commit => Fnd_Api.g_false
3171: , p_validation_level => FND_API.g_valid_level_full
3172: , p_partner_id => l_partner_id
3173: , p_enrl_request_id => enrl_request_id
3174: , p_memb_type => null
3175: , p_enrq_status => approvalStatus
3176: , x_return_status => x_return_status
3177: , x_msg_count => x_msg_count
3178: , x_msg_data => x_msg_data
3179: );
3180: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3184: END IF;
3177: , x_msg_count => x_msg_count
3178: , x_msg_data => x_msg_data
3179: );
3180: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3184: END IF;
3185:
3178: , x_msg_data => x_msg_data
3179: );
3180: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3184: END IF;
3185:
3186: EXCEPTION
3179: );
3180: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3181: RAISE FND_API.G_EXC_ERROR;
3182: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3184: END IF;
3185:
3186: EXCEPTION
3187:
3185:
3186: EXCEPTION
3187:
3188: WHEN OTHERS THEN
3189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3190:
3191: END process_response;
3192:
3193: --------------------------------------------------------------------------
3203:
3204: PROCEDURE submit_enrl_req_for_approval
3205: (
3206: p_api_version_number IN NUMBER
3207: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3208: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3209: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3210: , enrl_request_id IN NUMBER
3211: , entity_code IN VARCHAR2
3204: PROCEDURE submit_enrl_req_for_approval
3205: (
3206: p_api_version_number IN NUMBER
3207: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3208: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3209: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3210: , enrl_request_id IN NUMBER
3211: , entity_code IN VARCHAR2
3212: , x_return_status OUT NOCOPY VARCHAR2
3205: (
3206: p_api_version_number IN NUMBER
3207: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3208: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3209: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3210: , enrl_request_id IN NUMBER
3211: , entity_code IN VARCHAR2
3212: , x_return_status OUT NOCOPY VARCHAR2
3213: , x_msg_count OUT NOCOPY NUMBER
3309: BEGIN
3310: -- call AME api to get the next
3311: SAVEPOINT submit_enrl_req_for_approval;
3312: -- Standard call to check for call compatibility.
3313: IF NOT FND_API.Compatible_API_Call
3314: ( l_api_version_number
3315: , p_api_version_number
3316: , l_api_name
3317: , G_PKG_NAME
3316: , l_api_name
3317: , G_PKG_NAME
3318: )
3319: THEN
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322:
3323: -- Initialize message list if p_init_msg_list is set to TRUE.
3324: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322:
3323: -- Initialize message list if p_init_msg_list is set to TRUE.
3324: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3325: FND_MSG_PUB.initialize;
3326: END IF;
3327:
3328: -- Debug Message
3329: IF (PV_DEBUG_HIGH_ON) THEN
3330: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3331: END IF;
3332: -- Initialize API return status to SUCCESS
3333: x_return_status := FND_API.G_RET_STS_SUCCESS;
3334:
3335: OPEN c_enrl_cur( enrl_request_id );
3336: FETCH c_enrl_cur INTO l_partner_id;
3337: CLOSE c_enrl_cur;
3379: IF l_rec_appr.entity_approver_id IS NOT NULL THEN
3380: l_rec_appr.approval_status_code:='APPROVED';
3381: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3382: ( p_api_version_number => 1.0
3383: , p_init_msg_list => FND_API.g_false
3384: , p_commit => FND_API.g_false
3385: , p_validation_level => FND_API.g_valid_level_full
3386: , x_return_status => x_return_status
3387: , x_msg_count => x_msg_count
3380: l_rec_appr.approval_status_code:='APPROVED';
3381: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3382: ( p_api_version_number => 1.0
3383: , p_init_msg_list => FND_API.g_false
3384: , p_commit => FND_API.g_false
3385: , p_validation_level => FND_API.g_valid_level_full
3386: , x_return_status => x_return_status
3387: , x_msg_count => x_msg_count
3388: , x_msg_data => x_msg_data
3381: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3382: ( p_api_version_number => 1.0
3383: , p_init_msg_list => FND_API.g_false
3384: , p_commit => FND_API.g_false
3385: , p_validation_level => FND_API.g_valid_level_full
3386: , x_return_status => x_return_status
3387: , x_msg_count => x_msg_count
3388: , x_msg_data => x_msg_data
3389: , p_approver_rec =>l_rec_appr
3388: , x_msg_data => x_msg_data
3389: , p_approver_rec =>l_rec_appr
3390: );
3391: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3392: IF x_return_status = FND_API.g_ret_sts_error THEN
3393: RAISE FND_API.g_exc_error;
3394: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3395: RAISE FND_API.g_exc_unexpected_error;
3396: END IF;
3389: , p_approver_rec =>l_rec_appr
3390: );
3391: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3392: IF x_return_status = FND_API.g_ret_sts_error THEN
3393: RAISE FND_API.g_exc_error;
3394: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3395: RAISE FND_API.g_exc_unexpected_error;
3396: END IF;
3397: END IF;
3390: );
3391: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3392: IF x_return_status = FND_API.g_ret_sts_error THEN
3393: RAISE FND_API.g_exc_error;
3394: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3395: RAISE FND_API.g_exc_unexpected_error;
3396: END IF;
3397: END IF;
3398:
3391: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3392: IF x_return_status = FND_API.g_ret_sts_error THEN
3393: RAISE FND_API.g_exc_error;
3394: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3395: RAISE FND_API.g_exc_unexpected_error;
3396: END IF;
3397: END IF;
3398:
3399: process_response
3403: , x_msg_count =>x_msg_count
3404: , x_msg_data =>x_msg_data
3405: );
3406:
3407: IF x_return_status = FND_API.g_ret_sts_error THEN
3408: RAISE FND_API.g_exc_error;
3409: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3410: RAISE FND_API.g_exc_unexpected_error;
3411: END IF;
3404: , x_msg_data =>x_msg_data
3405: );
3406:
3407: IF x_return_status = FND_API.g_ret_sts_error THEN
3408: RAISE FND_API.g_exc_error;
3409: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3410: RAISE FND_API.g_exc_unexpected_error;
3411: END IF;
3412:
3405: );
3406:
3407: IF x_return_status = FND_API.g_ret_sts_error THEN
3408: RAISE FND_API.g_exc_error;
3409: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3410: RAISE FND_API.g_exc_unexpected_error;
3411: END IF;
3412:
3413: ELSIF l_check_row_pa =true AND g_isApproverInList=false THEN
3406:
3407: IF x_return_status = FND_API.g_ret_sts_error THEN
3408: RAISE FND_API.g_exc_error;
3409: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3410: RAISE FND_API.g_exc_unexpected_error;
3411: END IF;
3412:
3413: ELSIF l_check_row_pa =true AND g_isApproverInList=false THEN
3414:
3422: l_rec_appr.object_version_number:=x.object_version_number;
3423: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3424: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3425: ( p_api_version_number => 1.0
3426: , p_init_msg_list => FND_API.g_false
3427: , p_commit => FND_API.g_false
3428: , p_validation_level => FND_API.g_valid_level_full
3429: , x_return_status => x_return_status
3430: , x_msg_count => x_msg_count
3423: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3424: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3425: ( p_api_version_number => 1.0
3426: , p_init_msg_list => FND_API.g_false
3427: , p_commit => FND_API.g_false
3428: , p_validation_level => FND_API.g_valid_level_full
3429: , x_return_status => x_return_status
3430: , x_msg_count => x_msg_count
3431: , x_msg_data => x_msg_data
3424: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3425: ( p_api_version_number => 1.0
3426: , p_init_msg_list => FND_API.g_false
3427: , p_commit => FND_API.g_false
3428: , p_validation_level => FND_API.g_valid_level_full
3429: , x_return_status => x_return_status
3430: , x_msg_count => x_msg_count
3431: , x_msg_data => x_msg_data
3432: , p_approver_rec =>l_rec_appr
3431: , x_msg_data => x_msg_data
3432: , p_approver_rec =>l_rec_appr
3433: );
3434: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3435: IF x_return_status = FND_API.g_ret_sts_error THEN
3436: RAISE FND_API.g_exc_error;
3437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3438: RAISE FND_API.g_exc_unexpected_error;
3439: END IF;
3432: , p_approver_rec =>l_rec_appr
3433: );
3434: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3435: IF x_return_status = FND_API.g_ret_sts_error THEN
3436: RAISE FND_API.g_exc_error;
3437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3438: RAISE FND_API.g_exc_unexpected_error;
3439: END IF;
3440: END LOOP;
3433: );
3434: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3435: IF x_return_status = FND_API.g_ret_sts_error THEN
3436: RAISE FND_API.g_exc_error;
3437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3438: RAISE FND_API.g_exc_unexpected_error;
3439: END IF;
3440: END LOOP;
3441:
3434: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3435: IF x_return_status = FND_API.g_ret_sts_error THEN
3436: RAISE FND_API.g_exc_error;
3437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3438: RAISE FND_API.g_exc_unexpected_error;
3439: END IF;
3440: END LOOP;
3441:
3442: process_response
3446: , x_msg_count =>x_msg_count
3447: , x_msg_data =>x_msg_data
3448: );
3449: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3450: IF x_return_status = FND_API.g_ret_sts_error THEN
3451: RAISE FND_API.g_exc_error;
3452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3453: RAISE FND_API.g_exc_unexpected_error;
3454: END IF;
3447: , x_msg_data =>x_msg_data
3448: );
3449: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3450: IF x_return_status = FND_API.g_ret_sts_error THEN
3451: RAISE FND_API.g_exc_error;
3452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3453: RAISE FND_API.g_exc_unexpected_error;
3454: END IF;
3455:
3448: );
3449: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3450: IF x_return_status = FND_API.g_ret_sts_error THEN
3451: RAISE FND_API.g_exc_error;
3452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3453: RAISE FND_API.g_exc_unexpected_error;
3454: END IF;
3455:
3456:
3449: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3450: IF x_return_status = FND_API.g_ret_sts_error THEN
3451: RAISE FND_API.g_exc_error;
3452: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3453: RAISE FND_API.g_exc_unexpected_error;
3454: END IF;
3455:
3456:
3457: END IF;
3470: l_default_approver_id:= isnumber( FND_PROFILE.VALUE('PV_ENRQ_DEFAULT_APPR') );
3471: IF ( l_default_approver_id is NULL ) THEN
3472: FND_MESSAGE.set_name('PV', 'PV_ENRQ_APPR_NOT_SET');
3473: FND_MSG_PUB.add;
3474: RAISE FND_API.G_EXC_ERROR;
3475: END IF;
3476:
3477:
3478: l_approver_rec.arc_appr_for_entity_code :='ENRQ';
3505: */
3506:
3507: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3508: ( p_api_version_number => 1.0
3509: , p_init_msg_list => FND_API.g_false
3510: , p_commit => FND_API.g_false
3511: , p_validation_level => FND_API.g_valid_level_full
3512: , x_return_status => x_return_status
3513: , x_msg_count => x_msg_count
3506:
3507: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3508: ( p_api_version_number => 1.0
3509: , p_init_msg_list => FND_API.g_false
3510: , p_commit => FND_API.g_false
3511: , p_validation_level => FND_API.g_valid_level_full
3512: , x_return_status => x_return_status
3513: , x_msg_count => x_msg_count
3514: , x_msg_data => x_msg_data
3507: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3508: ( p_api_version_number => 1.0
3509: , p_init_msg_list => FND_API.g_false
3510: , p_commit => FND_API.g_false
3511: , p_validation_level => FND_API.g_valid_level_full
3512: , x_return_status => x_return_status
3513: , x_msg_count => x_msg_count
3514: , x_msg_data => x_msg_data
3515: , p_approver_rec =>l_approver_rec
3515: , p_approver_rec =>l_approver_rec
3516:
3517: );
3518: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3519: IF x_return_status = FND_API.g_ret_sts_error THEN
3520: RAISE FND_API.g_exc_error;
3521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3522: RAISE FND_API.g_exc_unexpected_error;
3523: END IF;
3516:
3517: );
3518: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3519: IF x_return_status = FND_API.g_ret_sts_error THEN
3520: RAISE FND_API.g_exc_error;
3521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3522: RAISE FND_API.g_exc_unexpected_error;
3523: END IF;
3524: --call process response
3517: );
3518: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3519: IF x_return_status = FND_API.g_ret_sts_error THEN
3520: RAISE FND_API.g_exc_error;
3521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3522: RAISE FND_API.g_exc_unexpected_error;
3523: END IF;
3524: --call process response
3525: /* there could have been approvers for the enrollment and
3518: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3519: IF x_return_status = FND_API.g_ret_sts_error THEN
3520: RAISE FND_API.g_exc_error;
3521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3522: RAISE FND_API.g_exc_unexpected_error;
3523: END IF;
3524: --call process response
3525: /* there could have been approvers for the enrollment and
3526: since the rule changed, they are no longer valid approvers and
3531: l_rec_appr.object_version_number:=x.object_version_number;
3532: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3533: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3534: ( p_api_version_number => 1.0
3535: , p_init_msg_list => FND_API.g_false
3536: , p_commit => FND_API.g_false
3537: , p_validation_level => FND_API.g_valid_level_full
3538: , x_return_status => x_return_status
3539: , x_msg_count => x_msg_count
3532: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3533: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3534: ( p_api_version_number => 1.0
3535: , p_init_msg_list => FND_API.g_false
3536: , p_commit => FND_API.g_false
3537: , p_validation_level => FND_API.g_valid_level_full
3538: , x_return_status => x_return_status
3539: , x_msg_count => x_msg_count
3540: , x_msg_data => x_msg_data
3533: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3534: ( p_api_version_number => 1.0
3535: , p_init_msg_list => FND_API.g_false
3536: , p_commit => FND_API.g_false
3537: , p_validation_level => FND_API.g_valid_level_full
3538: , x_return_status => x_return_status
3539: , x_msg_count => x_msg_count
3540: , x_msg_data => x_msg_data
3541: , p_approver_rec =>l_rec_appr
3540: , x_msg_data => x_msg_data
3541: , p_approver_rec =>l_rec_appr
3542: );
3543: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3544: IF x_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3541: , p_approver_rec =>l_rec_appr
3542: );
3543: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3544: IF x_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3549: END LOOP;
3542: );
3543: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3544: IF x_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3549: END LOOP;
3550:
3543: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3544: IF x_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3549: END LOOP;
3550:
3551: process_response
3555: , x_msg_count =>x_msg_count
3556: , x_msg_data =>x_msg_data
3557: );
3558: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3559: IF x_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3556: , x_msg_data =>x_msg_data
3557: );
3558: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3559: IF x_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3564: ELSE
3557: );
3558: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3559: IF x_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3564: ELSE
3565: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3558: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3559: IF x_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3564: ELSE
3565: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3566: ( p_api_version_number => 1.0
3563: END IF;
3564: ELSE
3565: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3566: ( p_api_version_number => 1.0
3567: , p_init_msg_list => FND_API.g_false
3568: , p_commit => FND_API.g_false
3569: , p_validation_level => FND_API.g_valid_level_full
3570: , x_return_status => x_return_status
3571: , x_msg_count => x_msg_count
3564: ELSE
3565: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3566: ( p_api_version_number => 1.0
3567: , p_init_msg_list => FND_API.g_false
3568: , p_commit => FND_API.g_false
3569: , p_validation_level => FND_API.g_valid_level_full
3570: , x_return_status => x_return_status
3571: , x_msg_count => x_msg_count
3572: , x_msg_data => x_msg_data
3565: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3566: ( p_api_version_number => 1.0
3567: , p_init_msg_list => FND_API.g_false
3568: , p_commit => FND_API.g_false
3569: , p_validation_level => FND_API.g_valid_level_full
3570: , x_return_status => x_return_status
3571: , x_msg_count => x_msg_count
3572: , x_msg_data => x_msg_data
3573: , p_approver_rec =>l_approver_rec
3573: , p_approver_rec =>l_approver_rec
3574:
3575: );
3576: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3577: IF x_return_status = FND_API.g_ret_sts_error THEN
3578: RAISE FND_API.g_exc_error;
3579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3580: RAISE FND_API.g_exc_unexpected_error;
3581: END IF;
3574:
3575: );
3576: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3577: IF x_return_status = FND_API.g_ret_sts_error THEN
3578: RAISE FND_API.g_exc_error;
3579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3580: RAISE FND_API.g_exc_unexpected_error;
3581: END IF;
3582: WF_DIRECTORY.getrolename
3575: );
3576: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3577: IF x_return_status = FND_API.g_ret_sts_error THEN
3578: RAISE FND_API.g_exc_error;
3579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3580: RAISE FND_API.g_exc_unexpected_error;
3581: END IF;
3582: WF_DIRECTORY.getrolename
3583: ( p_orig_system => 'PER'
3576: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3577: IF x_return_status = FND_API.g_ret_sts_error THEN
3578: RAISE FND_API.g_exc_error;
3579: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3580: RAISE FND_API.g_exc_unexpected_error;
3581: END IF;
3582: WF_DIRECTORY.getrolename
3583: ( p_orig_system => 'PER'
3584: , p_orig_system_id => l_approver_rec.approver_id
3601: -- means if its rejected
3602: l_approver_rec.approval_status_code:=g_approver_response;
3603: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3604: ( p_api_version_number => 1.0
3605: , p_init_msg_list => FND_API.g_false
3606: , p_commit => FND_API.g_false
3607: , p_validation_level => FND_API.g_valid_level_full
3608: , x_return_status => x_return_status
3609: , x_msg_count => x_msg_count
3602: l_approver_rec.approval_status_code:=g_approver_response;
3603: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3604: ( p_api_version_number => 1.0
3605: , p_init_msg_list => FND_API.g_false
3606: , p_commit => FND_API.g_false
3607: , p_validation_level => FND_API.g_valid_level_full
3608: , x_return_status => x_return_status
3609: , x_msg_count => x_msg_count
3610: , x_msg_data => x_msg_data
3603: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3604: ( p_api_version_number => 1.0
3605: , p_init_msg_list => FND_API.g_false
3606: , p_commit => FND_API.g_false
3607: , p_validation_level => FND_API.g_valid_level_full
3608: , x_return_status => x_return_status
3609: , x_msg_count => x_msg_count
3610: , x_msg_data => x_msg_data
3611: , p_approver_rec =>l_approver_rec
3611: , p_approver_rec =>l_approver_rec
3612:
3613: );
3614: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3615: IF x_return_status = FND_API.g_ret_sts_error THEN
3616: RAISE FND_API.g_exc_error;
3617: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3618: RAISE FND_API.g_exc_unexpected_error;
3619: END IF;
3612:
3613: );
3614: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3615: IF x_return_status = FND_API.g_ret_sts_error THEN
3616: RAISE FND_API.g_exc_error;
3617: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3618: RAISE FND_API.g_exc_unexpected_error;
3619: END IF;
3620: FOR x in pending_appovers_csr(enrl_request_id) LOOP
3613: );
3614: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3615: IF x_return_status = FND_API.g_ret_sts_error THEN
3616: RAISE FND_API.g_exc_error;
3617: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3618: RAISE FND_API.g_exc_unexpected_error;
3619: END IF;
3620: FOR x in pending_appovers_csr(enrl_request_id) LOOP
3621: l_rec_appr.entity_approver_id :=x.entity_approver_id;
3614: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3615: IF x_return_status = FND_API.g_ret_sts_error THEN
3616: RAISE FND_API.g_exc_error;
3617: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3618: RAISE FND_API.g_exc_unexpected_error;
3619: END IF;
3620: FOR x in pending_appovers_csr(enrl_request_id) LOOP
3621: l_rec_appr.entity_approver_id :=x.entity_approver_id;
3622: l_rec_appr.object_version_number:=x.object_version_number;
3622: l_rec_appr.object_version_number:=x.object_version_number;
3623: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3624: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3625: ( p_api_version_number => 1.0
3626: , p_init_msg_list => FND_API.g_false
3627: , p_commit => FND_API.g_false
3628: , p_validation_level => FND_API.g_valid_level_full
3629: , x_return_status => x_return_status
3630: , x_msg_count => x_msg_count
3623: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3624: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3625: ( p_api_version_number => 1.0
3626: , p_init_msg_list => FND_API.g_false
3627: , p_commit => FND_API.g_false
3628: , p_validation_level => FND_API.g_valid_level_full
3629: , x_return_status => x_return_status
3630: , x_msg_count => x_msg_count
3631: , x_msg_data => x_msg_data
3624: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3625: ( p_api_version_number => 1.0
3626: , p_init_msg_list => FND_API.g_false
3627: , p_commit => FND_API.g_false
3628: , p_validation_level => FND_API.g_valid_level_full
3629: , x_return_status => x_return_status
3630: , x_msg_count => x_msg_count
3631: , x_msg_data => x_msg_data
3632: , p_approver_rec =>l_rec_appr
3631: , x_msg_data => x_msg_data
3632: , p_approver_rec =>l_rec_appr
3633: );
3634: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3635: IF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3638: RAISE FND_API.g_exc_unexpected_error;
3639: END IF;
3632: , p_approver_rec =>l_rec_appr
3633: );
3634: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3635: IF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3638: RAISE FND_API.g_exc_unexpected_error;
3639: END IF;
3640: END LOOP;
3633: );
3634: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3635: IF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3638: RAISE FND_API.g_exc_unexpected_error;
3639: END IF;
3640: END LOOP;
3641: --call process response
3634: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3635: IF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3638: RAISE FND_API.g_exc_unexpected_error;
3639: END IF;
3640: END LOOP;
3641: --call process response
3642: process_response
3646: , x_msg_count =>x_msg_count
3647: , x_msg_data =>x_msg_data
3648: );
3649: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3650: IF x_return_status = FND_API.g_ret_sts_error THEN
3651: RAISE FND_API.g_exc_error;
3652: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3653: RAISE FND_API.g_exc_unexpected_error;
3654: END IF;
3647: , x_msg_data =>x_msg_data
3648: );
3649: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3650: IF x_return_status = FND_API.g_ret_sts_error THEN
3651: RAISE FND_API.g_exc_error;
3652: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3653: RAISE FND_API.g_exc_unexpected_error;
3654: END IF;
3655: END IF;
3648: );
3649: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3650: IF x_return_status = FND_API.g_ret_sts_error THEN
3651: RAISE FND_API.g_exc_error;
3652: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3653: RAISE FND_API.g_exc_unexpected_error;
3654: END IF;
3655: END IF;
3656: ELSE
3649: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3650: IF x_return_status = FND_API.g_ret_sts_error THEN
3651: RAISE FND_API.g_exc_error;
3652: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3653: RAISE FND_API.g_exc_unexpected_error;
3654: END IF;
3655: END IF;
3656: ELSE
3657: /* there could have been approvers for the enrollment and
3663: l_rec_appr.object_version_number:=x.object_version_number;
3664: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3665: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3666: ( p_api_version_number => 1.0
3667: , p_init_msg_list => FND_API.g_false
3668: , p_commit => FND_API.g_false
3669: , p_validation_level => FND_API.g_valid_level_full
3670: , x_return_status => x_return_status
3671: , x_msg_count => x_msg_count
3664: l_rec_appr.approval_status_code:='APPROVER_CHANGED';
3665: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3666: ( p_api_version_number => 1.0
3667: , p_init_msg_list => FND_API.g_false
3668: , p_commit => FND_API.g_false
3669: , p_validation_level => FND_API.g_valid_level_full
3670: , x_return_status => x_return_status
3671: , x_msg_count => x_msg_count
3672: , x_msg_data => x_msg_data
3665: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3666: ( p_api_version_number => 1.0
3667: , p_init_msg_list => FND_API.g_false
3668: , p_commit => FND_API.g_false
3669: , p_validation_level => FND_API.g_valid_level_full
3670: , x_return_status => x_return_status
3671: , x_msg_count => x_msg_count
3672: , x_msg_data => x_msg_data
3673: , p_approver_rec =>l_rec_appr
3671: , x_msg_count => x_msg_count
3672: , x_msg_data => x_msg_data
3673: , p_approver_rec =>l_rec_appr
3674: );
3675: IF x_return_status = FND_API.g_ret_sts_error THEN
3676: RAISE FND_API.g_exc_error;
3677: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3678: RAISE FND_API.g_exc_unexpected_error;
3679: END IF;
3672: , x_msg_data => x_msg_data
3673: , p_approver_rec =>l_rec_appr
3674: );
3675: IF x_return_status = FND_API.g_ret_sts_error THEN
3676: RAISE FND_API.g_exc_error;
3677: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3678: RAISE FND_API.g_exc_unexpected_error;
3679: END IF;
3680: END LOOP;
3673: , p_approver_rec =>l_rec_appr
3674: );
3675: IF x_return_status = FND_API.g_ret_sts_error THEN
3676: RAISE FND_API.g_exc_error;
3677: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3678: RAISE FND_API.g_exc_unexpected_error;
3679: END IF;
3680: END LOOP;
3681:
3674: );
3675: IF x_return_status = FND_API.g_ret_sts_error THEN
3676: RAISE FND_API.g_exc_error;
3677: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3678: RAISE FND_API.g_exc_unexpected_error;
3679: END IF;
3680: END LOOP;
3681:
3682: /* create a row for the new default approver with status pending_default */
3689: , x_entity_approver_id =>l_entity_approver_id
3690: );
3691:
3692: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3693: IF x_return_status = FND_API.g_ret_sts_error THEN
3694: RAISE FND_API.g_exc_error;
3695: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3696: RAISE FND_API.g_exc_unexpected_error;
3697: END IF;
3690: );
3691:
3692: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3693: IF x_return_status = FND_API.g_ret_sts_error THEN
3694: RAISE FND_API.g_exc_error;
3695: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3696: RAISE FND_API.g_exc_unexpected_error;
3697: END IF;
3698: -- also log into enrollment history that its beem send to default approver.
3691:
3692: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3693: IF x_return_status = FND_API.g_ret_sts_error THEN
3694: RAISE FND_API.g_exc_error;
3695: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3696: RAISE FND_API.g_exc_unexpected_error;
3697: END IF;
3698: -- also log into enrollment history that its beem send to default approver.
3699:
3692: ----DBMS_OUTPUT.PUT_LINE('inserted into temp approvers');
3693: IF x_return_status = FND_API.g_ret_sts_error THEN
3694: RAISE FND_API.g_exc_error;
3695: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3696: RAISE FND_API.g_exc_unexpected_error;
3697: END IF;
3698: -- also log into enrollment history that its beem send to default approver.
3699:
3700: l_param_tbl_var(1).param_name := 'APPROVER_NAME';
3708: , p_partner_id => l_partner_id
3709: , p_access_level_flag => 'P'
3710: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
3711: , p_log_params_tbl => l_param_tbl_var
3712: , p_init_msg_list => FND_API.g_false
3713: , p_commit => FND_API.G_FALSE
3714: , x_return_status => x_return_status
3715: , x_msg_count => x_msg_count
3716: , x_msg_data => x_msg_data
3709: , p_access_level_flag => 'P'
3710: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
3711: , p_log_params_tbl => l_param_tbl_var
3712: , p_init_msg_list => FND_API.g_false
3713: , p_commit => FND_API.G_FALSE
3714: , x_return_status => x_return_status
3715: , x_msg_count => x_msg_count
3716: , x_msg_data => x_msg_data
3717: );
3714: , x_return_status => x_return_status
3715: , x_msg_count => x_msg_count
3716: , x_msg_data => x_msg_data
3717: );
3718: IF x_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3715: , x_msg_count => x_msg_count
3716: , x_msg_data => x_msg_data
3717: );
3718: IF x_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723: --call workflow process
3716: , x_msg_data => x_msg_data
3717: );
3718: IF x_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723: --call workflow process
3724:
3717: );
3718: IF x_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723: --call workflow process
3724:
3725: WF_DIRECTORY.getrolename
3762: IF l_rec_appr.entity_approver_id IS NOT NULL THEN
3763: l_rec_appr.approval_status_code:=g_approver_response;
3764: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3765: ( p_api_version_number => 1.0
3766: , p_init_msg_list => FND_API.g_false
3767: , p_commit => FND_API.g_false
3768: , p_validation_level => FND_API.g_valid_level_full
3769: , x_return_status => x_return_status
3770: , x_msg_count => x_msg_count
3763: l_rec_appr.approval_status_code:=g_approver_response;
3764: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3765: ( p_api_version_number => 1.0
3766: , p_init_msg_list => FND_API.g_false
3767: , p_commit => FND_API.g_false
3768: , p_validation_level => FND_API.g_valid_level_full
3769: , x_return_status => x_return_status
3770: , x_msg_count => x_msg_count
3771: , x_msg_data => x_msg_data
3764: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3765: ( p_api_version_number => 1.0
3766: , p_init_msg_list => FND_API.g_false
3767: , p_commit => FND_API.g_false
3768: , p_validation_level => FND_API.g_valid_level_full
3769: , x_return_status => x_return_status
3770: , x_msg_count => x_msg_count
3771: , x_msg_data => x_msg_data
3772: , p_approver_rec =>l_rec_appr
3770: , x_msg_count => x_msg_count
3771: , x_msg_data => x_msg_data
3772: , p_approver_rec =>l_rec_appr
3773: );
3774: IF x_return_status = FND_API.g_ret_sts_error THEN
3775: RAISE FND_API.g_exc_error;
3776: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3777: RAISE FND_API.g_exc_unexpected_error;
3778: END IF;
3771: , x_msg_data => x_msg_data
3772: , p_approver_rec =>l_rec_appr
3773: );
3774: IF x_return_status = FND_API.g_ret_sts_error THEN
3775: RAISE FND_API.g_exc_error;
3776: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3777: RAISE FND_API.g_exc_unexpected_error;
3778: END IF;
3779: END IF;
3772: , p_approver_rec =>l_rec_appr
3773: );
3774: IF x_return_status = FND_API.g_ret_sts_error THEN
3775: RAISE FND_API.g_exc_error;
3776: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3777: RAISE FND_API.g_exc_unexpected_error;
3778: END IF;
3779: END IF;
3780: ----DBMS_OUTPUT.PUT_LINE('iafter temp');
3773: );
3774: IF x_return_status = FND_API.g_ret_sts_error THEN
3775: RAISE FND_API.g_exc_error;
3776: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3777: RAISE FND_API.g_exc_unexpected_error;
3778: END IF;
3779: END IF;
3780: ----DBMS_OUTPUT.PUT_LINE('iafter temp');
3781: /**if nextApprover.approval_status = ame_util.exception, it means an error has occurred
3805: , p_partner_id => l_partner_id
3806: , p_access_level_flag => 'P'
3807: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
3808: , p_log_params_tbl => l_param_tbl_var
3809: , p_init_msg_list => FND_API.g_false
3810: , p_commit => FND_API.G_FALSE
3811: , x_return_status => x_return_status
3812: , x_msg_count => x_msg_count
3813: , x_msg_data => x_msg_data
3806: , p_access_level_flag => 'P'
3807: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
3808: , p_log_params_tbl => l_param_tbl_var
3809: , p_init_msg_list => FND_API.g_false
3810: , p_commit => FND_API.G_FALSE
3811: , x_return_status => x_return_status
3812: , x_msg_count => x_msg_count
3813: , x_msg_data => x_msg_data
3814: );
3811: , x_return_status => x_return_status
3812: , x_msg_count => x_msg_count
3813: , x_msg_data => x_msg_data
3814: );
3815: IF x_return_status = FND_API.g_ret_sts_error THEN
3816: RAISE FND_API.g_exc_error;
3817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3818: RAISE FND_API.g_exc_unexpected_error;
3819: END IF;
3812: , x_msg_count => x_msg_count
3813: , x_msg_data => x_msg_data
3814: );
3815: IF x_return_status = FND_API.g_ret_sts_error THEN
3816: RAISE FND_API.g_exc_error;
3817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3818: RAISE FND_API.g_exc_unexpected_error;
3819: END IF;
3820:
3813: , x_msg_data => x_msg_data
3814: );
3815: IF x_return_status = FND_API.g_ret_sts_error THEN
3816: RAISE FND_API.g_exc_error;
3817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3818: RAISE FND_API.g_exc_unexpected_error;
3819: END IF;
3820:
3821: IF l_admin_id IS NOT NULL THEN
3814: );
3815: IF x_return_status = FND_API.g_ret_sts_error THEN
3816: RAISE FND_API.g_exc_error;
3817: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3818: RAISE FND_API.g_exc_unexpected_error;
3819: END IF;
3820:
3821: IF l_admin_id IS NOT NULL THEN
3822: l_approver_rec:=NULL;
3832: l_approver_rec.entity_approver_id :=l_entity_approver_id;
3833: l_approver_rec.object_version_number:=l_object_version_number;
3834: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3835: ( p_api_version_number => 1.0
3836: , p_init_msg_list => FND_API.g_false
3837: , p_commit => FND_API.g_false
3838: , p_validation_level => FND_API.g_valid_level_full
3839: , x_return_status => x_return_status
3840: , x_msg_count => x_msg_count
3833: l_approver_rec.object_version_number:=l_object_version_number;
3834: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3835: ( p_api_version_number => 1.0
3836: , p_init_msg_list => FND_API.g_false
3837: , p_commit => FND_API.g_false
3838: , p_validation_level => FND_API.g_valid_level_full
3839: , x_return_status => x_return_status
3840: , x_msg_count => x_msg_count
3841: , x_msg_data => x_msg_data
3834: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3835: ( p_api_version_number => 1.0
3836: , p_init_msg_list => FND_API.g_false
3837: , p_commit => FND_API.g_false
3838: , p_validation_level => FND_API.g_valid_level_full
3839: , x_return_status => x_return_status
3840: , x_msg_count => x_msg_count
3841: , x_msg_data => x_msg_data
3842: , p_approver_rec =>l_approver_rec
3851: , p_approver_rec =>l_approver_rec
3852: , x_entity_approver_id =>l_entity_approver_id
3853: );
3854: END IF;
3855: IF x_return_status = FND_API.g_ret_sts_error THEN
3856: RAISE FND_API.g_exc_error;
3857: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3858: RAISE FND_API.g_exc_unexpected_error;
3859: END IF;
3852: , x_entity_approver_id =>l_entity_approver_id
3853: );
3854: END IF;
3855: IF x_return_status = FND_API.g_ret_sts_error THEN
3856: RAISE FND_API.g_exc_error;
3857: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3858: RAISE FND_API.g_exc_unexpected_error;
3859: END IF;
3860: END IF; --end of if if no row exists in approver table for errored records.
3853: );
3854: END IF;
3855: IF x_return_status = FND_API.g_ret_sts_error THEN
3856: RAISE FND_API.g_exc_error;
3857: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3858: RAISE FND_API.g_exc_unexpected_error;
3859: END IF;
3860: END IF; --end of if if no row exists in approver table for errored records.
3861: END IF; -- end of if , if adminApprover.name is not null
3854: END IF;
3855: IF x_return_status = FND_API.g_ret_sts_error THEN
3856: RAISE FND_API.g_exc_error;
3857: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3858: RAISE FND_API.g_exc_unexpected_error;
3859: END IF;
3860: END IF; --end of if if no row exists in approver table for errored records.
3861: END IF; -- end of if , if adminApprover.name is not null
3862: ELSE
3874: l_approver_rec.object_version_number:=x.object_version_number;
3875: l_approver_rec.approval_status_code:='PEER_RESPONDED';
3876: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3877: ( p_api_version_number => 1.0
3878: , p_init_msg_list => FND_API.g_false
3879: , p_commit => FND_API.g_false
3880: , p_validation_level => FND_API.g_valid_level_full
3881: , x_return_status => x_return_status
3882: , x_msg_count => x_msg_count
3875: l_approver_rec.approval_status_code:='PEER_RESPONDED';
3876: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3877: ( p_api_version_number => 1.0
3878: , p_init_msg_list => FND_API.g_false
3879: , p_commit => FND_API.g_false
3880: , p_validation_level => FND_API.g_valid_level_full
3881: , x_return_status => x_return_status
3882: , x_msg_count => x_msg_count
3883: , x_msg_data => x_msg_data
3876: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3877: ( p_api_version_number => 1.0
3878: , p_init_msg_list => FND_API.g_false
3879: , p_commit => FND_API.g_false
3880: , p_validation_level => FND_API.g_valid_level_full
3881: , x_return_status => x_return_status
3882: , x_msg_count => x_msg_count
3883: , x_msg_data => x_msg_data
3884: , p_approver_rec =>l_approver_rec
3882: , x_msg_count => x_msg_count
3883: , x_msg_data => x_msg_data
3884: , p_approver_rec =>l_approver_rec
3885: );
3886: IF x_return_status = FND_API.g_ret_sts_error THEN
3887: RAISE FND_API.g_exc_error;
3888: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3889: RAISE FND_API.g_exc_unexpected_error;
3890: END IF;
3883: , x_msg_data => x_msg_data
3884: , p_approver_rec =>l_approver_rec
3885: );
3886: IF x_return_status = FND_API.g_ret_sts_error THEN
3887: RAISE FND_API.g_exc_error;
3888: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3889: RAISE FND_API.g_exc_unexpected_error;
3890: END IF;
3891: END LOOP;
3884: , p_approver_rec =>l_approver_rec
3885: );
3886: IF x_return_status = FND_API.g_ret_sts_error THEN
3887: RAISE FND_API.g_exc_error;
3888: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3889: RAISE FND_API.g_exc_unexpected_error;
3890: END IF;
3891: END LOOP;
3892: END If;
3885: );
3886: IF x_return_status = FND_API.g_ret_sts_error THEN
3887: RAISE FND_API.g_exc_error;
3888: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3889: RAISE FND_API.g_exc_unexpected_error;
3890: END IF;
3891: END LOOP;
3892: END If;
3893:
3906: ELSE
3907: FND_MESSAGE.set_name('PV', 'PV_ENRQ_INCAPPRMSG_TO_PTNR');
3908: END IF;
3909: FND_MSG_PUB.add;
3910: RAISE FND_API.G_EXC_ERROR;
3911: END IF;
3912:
3913: IF l_personid IS NOT NULL THEN
3914: l_approver_rec:=NULL;
3925: l_approver_rec.entity_approver_id :=l_entity_approver_id;
3926: l_approver_rec.object_version_number:=l_object_version_number;
3927: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3928: ( p_api_version_number => 1.0
3929: , p_init_msg_list => FND_API.g_false
3930: , p_commit => FND_API.g_false
3931: , p_validation_level => FND_API.g_valid_level_full
3932: , x_return_status => x_return_status
3933: , x_msg_count => x_msg_count
3926: l_approver_rec.object_version_number:=l_object_version_number;
3927: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3928: ( p_api_version_number => 1.0
3929: , p_init_msg_list => FND_API.g_false
3930: , p_commit => FND_API.g_false
3931: , p_validation_level => FND_API.g_valid_level_full
3932: , x_return_status => x_return_status
3933: , x_msg_count => x_msg_count
3934: , x_msg_data => x_msg_data
3927: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
3928: ( p_api_version_number => 1.0
3929: , p_init_msg_list => FND_API.g_false
3930: , p_commit => FND_API.g_false
3931: , p_validation_level => FND_API.g_valid_level_full
3932: , x_return_status => x_return_status
3933: , x_msg_count => x_msg_count
3934: , x_msg_data => x_msg_data
3935: , p_approver_rec =>l_approver_rec
3944: ,p_approver_rec =>l_approver_rec
3945: ,x_entity_approver_id =>l_entity_approver_id
3946: );
3947: END IF;
3948: IF x_return_status = FND_API.g_ret_sts_error THEN
3949: RAISE FND_API.g_exc_error;
3950: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3951: RAISE FND_API.g_exc_unexpected_error;
3952: END IF;
3945: ,x_entity_approver_id =>l_entity_approver_id
3946: );
3947: END IF;
3948: IF x_return_status = FND_API.g_ret_sts_error THEN
3949: RAISE FND_API.g_exc_error;
3950: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3951: RAISE FND_API.g_exc_unexpected_error;
3952: END IF;
3953: END If;
3946: );
3947: END IF;
3948: IF x_return_status = FND_API.g_ret_sts_error THEN
3949: RAISE FND_API.g_exc_error;
3950: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3951: RAISE FND_API.g_exc_unexpected_error;
3952: END IF;
3953: END If;
3954: -- --DBMS_OUTPUT.PUT_LINE('before calling history for submiiting to approver');
3947: END IF;
3948: IF x_return_status = FND_API.g_ret_sts_error THEN
3949: RAISE FND_API.g_exc_error;
3950: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3951: RAISE FND_API.g_exc_unexpected_error;
3952: END IF;
3953: END If;
3954: -- --DBMS_OUTPUT.PUT_LINE('before calling history for submiiting to approver');
3955: -- also write to the enrolllments log with the approver name
3971: , p_partner_id => l_partner_id
3972: , p_access_level_flag => 'P'
3973: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
3974: , p_log_params_tbl => l_param_tbl_var
3975: , p_init_msg_list => FND_API.g_false
3976: , p_commit => FND_API.G_FALSE
3977: , x_return_status => x_return_status
3978: , x_msg_count => x_msg_count
3979: , x_msg_data => x_msg_data
3972: , p_access_level_flag => 'P'
3973: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
3974: , p_log_params_tbl => l_param_tbl_var
3975: , p_init_msg_list => FND_API.g_false
3976: , p_commit => FND_API.G_FALSE
3977: , x_return_status => x_return_status
3978: , x_msg_count => x_msg_count
3979: , x_msg_data => x_msg_data
3980: );
3979: , x_msg_data => x_msg_data
3980: );
3981:
3982: ----DBMS_OUTPUT.PUT_LINE('after calling history for submiiting to approver');
3983: IF x_return_status = FND_API.g_ret_sts_error THEN
3984: RAISE FND_API.g_exc_error;
3985: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3986: RAISE FND_API.g_exc_unexpected_error;
3987: END IF;
3980: );
3981:
3982: ----DBMS_OUTPUT.PUT_LINE('after calling history for submiiting to approver');
3983: IF x_return_status = FND_API.g_ret_sts_error THEN
3984: RAISE FND_API.g_exc_error;
3985: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3986: RAISE FND_API.g_exc_unexpected_error;
3987: END IF;
3988:
3981:
3982: ----DBMS_OUTPUT.PUT_LINE('after calling history for submiiting to approver');
3983: IF x_return_status = FND_API.g_ret_sts_error THEN
3984: RAISE FND_API.g_exc_error;
3985: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3986: RAISE FND_API.g_exc_unexpected_error;
3987: END IF;
3988:
3989: StartProcess
3982: ----DBMS_OUTPUT.PUT_LINE('after calling history for submiiting to approver');
3983: IF x_return_status = FND_API.g_ret_sts_error THEN
3984: RAISE FND_API.g_exc_error;
3985: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3986: RAISE FND_API.g_exc_unexpected_error;
3987: END IF;
3988:
3989: StartProcess
3990: ( p_object_id => enrl_request_id
4002: END LOOP;
4003: END IF; --end of if else for admin exception or not.
4004: END IF; --end of if , if approver count>0
4005: END IF;-- end of first if
4006: IF FND_API.to_Boolean( p_commit ) THEN
4007: COMMIT WORK;
4008: END IF;
4009:
4010: EXCEPTION
4008: END IF;
4009:
4010: EXCEPTION
4011:
4012: WHEN FND_API.G_EXC_ERROR THEN
4013: ROLLBACK TO submit_enrl_req_for_approval;
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: -- Standard call to get message count and if count=1, get the message
4016: FND_MSG_PUB.Count_And_Get (
4010: EXCEPTION
4011:
4012: WHEN FND_API.G_EXC_ERROR THEN
4013: ROLLBACK TO submit_enrl_req_for_approval;
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: -- Standard call to get message count and if count=1, get the message
4016: FND_MSG_PUB.Count_And_Get (
4017: p_encoded => FND_API.G_FALSE
4018: ,p_count => x_msg_count
4013: ROLLBACK TO submit_enrl_req_for_approval;
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: -- Standard call to get message count and if count=1, get the message
4016: FND_MSG_PUB.Count_And_Get (
4017: p_encoded => FND_API.G_FALSE
4018: ,p_count => x_msg_count
4019: ,p_data => x_msg_data
4020: );
4021: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4018: ,p_count => x_msg_count
4019: ,p_data => x_msg_data
4020: );
4021: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4023: ROLLBACK TO submit_enrl_req_for_approval;
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025: -- Standard call to get message count and if count=1, get the message
4026: FND_MSG_PUB.Count_And_Get (
4020: );
4021: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4023: ROLLBACK TO submit_enrl_req_for_approval;
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025: -- Standard call to get message count and if count=1, get the message
4026: FND_MSG_PUB.Count_And_Get (
4027: p_encoded => FND_API.G_FALSE
4028: ,p_count => x_msg_count
4023: ROLLBACK TO submit_enrl_req_for_approval;
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025: -- Standard call to get message count and if count=1, get the message
4026: FND_MSG_PUB.Count_And_Get (
4027: p_encoded => FND_API.G_FALSE
4028: ,p_count => x_msg_count
4029: ,p_data => x_msg_data
4030: );
4031:
4030: );
4031:
4032: WHEN OTHERS THEN
4033: ROLLBACK TO submit_enrl_req_for_approval;
4034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4035: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4036: THEN
4037: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4038: END IF;
4037: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4038: END IF;
4039: -- Standard call to get message count and if count=1, get the message
4040: FND_MSG_PUB.Count_And_Get (
4041: p_encoded => FND_API.G_FALSE
4042: ,p_count => x_msg_count
4043: ,p_data => x_msg_data
4044: );
4045: END submit_enrl_req_for_approval;
4057:
4058: PROCEDURE update_enrl_req_status
4059: (
4060: p_api_version_number IN NUMBER
4061: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4062: , p_commit IN VARCHAR2 := FND_API.G_FALSE
4063: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4064: , enrl_request_id IN NUMBER
4065: , entity_code IN VARCHAR2
4058: PROCEDURE update_enrl_req_status
4059: (
4060: p_api_version_number IN NUMBER
4061: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4062: , p_commit IN VARCHAR2 := FND_API.G_FALSE
4063: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4064: , enrl_request_id IN NUMBER
4065: , entity_code IN VARCHAR2
4066: , approvalStatus IN VARCHAR2
4059: (
4060: p_api_version_number IN NUMBER
4061: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4062: , p_commit IN VARCHAR2 := FND_API.G_FALSE
4063: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4064: , enrl_request_id IN NUMBER
4065: , entity_code IN VARCHAR2
4066: , approvalStatus IN VARCHAR2
4067: , start_date IN DATE
4132: BEGIN
4133: -- call AME api to get the next approver
4134: SAVEPOINT update_enrl_req_status;
4135: -- Standard call to check for call compatibility.
4136: IF NOT FND_API.Compatible_API_Call
4137: ( l_api_version_number
4138: , p_api_version_number
4139: , l_api_name
4140: , G_PKG_NAME
4139: , l_api_name
4140: , G_PKG_NAME
4141: )
4142: THEN
4143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4144: END IF;
4145: -- Initialize message list if p_init_msg_list is set to TRUE.
4146: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4147: FND_MSG_PUB.initialize;
4142: THEN
4143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4144: END IF;
4145: -- Initialize message list if p_init_msg_list is set to TRUE.
4146: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4147: FND_MSG_PUB.initialize;
4148: END IF;
4149: PVX_UTILITY_PVT.debug_message('FND Global user id is'|| FND_GLOBAL.USER_ID );
4150: PVX_UTILITY_PVT.debug_message('FND Employee user id is'|| FND_GLOBAL.EMPLOYEE_ID );
4154: PVX_UTILITY_PVT.debug_message('FND Global user id is'|| FND_GLOBAL.USER_ID );
4155: PVX_UTILITY_PVT.debug_message('FND Employee user id is'|| FND_GLOBAL.EMPLOYEE_ID );
4156: END IF;
4157: -- Initialize API return status to SUCCESS
4158: x_return_status := FND_API.G_RET_STS_SUCCESS;
4159: --RAISE FND_API.g_exc_error;
4160: g_approver_response:=approvalStatus;
4161: l_approverPersonId:= FND_GLOBAL.EMPLOYEE_ID;
4162: l_approverUserId:= FND_GLOBAL.USER_ID;
4155: PVX_UTILITY_PVT.debug_message('FND Employee user id is'|| FND_GLOBAL.EMPLOYEE_ID );
4156: END IF;
4157: -- Initialize API return status to SUCCESS
4158: x_return_status := FND_API.G_RET_STS_SUCCESS;
4159: --RAISE FND_API.g_exc_error;
4160: g_approver_response:=approvalStatus;
4161: l_approverPersonId:= FND_GLOBAL.EMPLOYEE_ID;
4162: l_approverUserId:= FND_GLOBAL.USER_ID;
4163:
4179: l_contract_signed:=checkcontract_status(enrl_request_id);
4180: IF l_contract_signed =false THEN
4181: FND_MESSAGE.set_name('PV', 'PV_ENRQ_CONTRACT_NOT_SIGNED');
4182: FND_MSG_PUB.add;
4183: RAISE FND_API.G_EXC_ERROR;
4184: END IF;
4185: END IF;
4186:
4187: --check whther approver has checked alll the checklist items
4190: IF l_checklistStatus=false THEN
4191: FND_MESSAGE.set_name('PV', 'PV_CHECKLIST_INCOMPLETE');
4192: --FND_MESSAGE.set_token ('CHECKLISTLINK', l_checklistlink, FALSE);
4193: FND_MSG_PUB.add;
4194: RAISE FND_API.G_EXC_ERROR;
4195: END IF;
4196:
4197: l_approvalStatus:=ame_util.approvedStatus;
4198: l_message_code :='PV_ENR_REQ_APPROVED_BY_APPR';
4203: l_enrq_rec.tentative_end_date:=end_date;
4204:
4205: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
4206: ( p_api_version_number => 1.0
4207: , p_init_msg_list => FND_API.g_false
4208: , p_commit => FND_API.G_FALSE
4209: , p_validation_level => FND_API.g_valid_level_full
4210: , x_return_status => x_return_status
4211: , x_msg_count => x_msg_count
4204:
4205: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
4206: ( p_api_version_number => 1.0
4207: , p_init_msg_list => FND_API.g_false
4208: , p_commit => FND_API.G_FALSE
4209: , p_validation_level => FND_API.g_valid_level_full
4210: , x_return_status => x_return_status
4211: , x_msg_count => x_msg_count
4212: , x_msg_data => x_msg_data
4205: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
4206: ( p_api_version_number => 1.0
4207: , p_init_msg_list => FND_API.g_false
4208: , p_commit => FND_API.G_FALSE
4209: , p_validation_level => FND_API.g_valid_level_full
4210: , x_return_status => x_return_status
4211: , x_msg_count => x_msg_count
4212: , x_msg_data => x_msg_data
4213: , p_enrl_request_rec => l_enrq_rec
4211: , x_msg_count => x_msg_count
4212: , x_msg_data => x_msg_data
4213: , p_enrl_request_rec => l_enrq_rec
4214: );
4215: IF x_return_status = FND_API.g_ret_sts_error THEN
4216: RAISE FND_API.g_exc_error;
4217: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: END IF;
4212: , x_msg_data => x_msg_data
4213: , p_enrl_request_rec => l_enrq_rec
4214: );
4215: IF x_return_status = FND_API.g_ret_sts_error THEN
4216: RAISE FND_API.g_exc_error;
4217: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: END IF;
4220: ELSE
4213: , p_enrl_request_rec => l_enrq_rec
4214: );
4215: IF x_return_status = FND_API.g_ret_sts_error THEN
4216: RAISE FND_API.g_exc_error;
4217: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: END IF;
4220: ELSE
4221: l_approvalStatus:=ame_util.rejectStatus;
4214: );
4215: IF x_return_status = FND_API.g_ret_sts_error THEN
4216: RAISE FND_API.g_exc_error;
4217: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: END IF;
4220: ELSE
4221: l_approvalStatus:=ame_util.rejectStatus;
4222: l_message_code :='PV_ENR_REQ_REJECTED';
4252: , p_partner_id => l_partner_id
4253: , p_access_level_flag => 'P'
4254: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
4255: , p_log_params_tbl => l_param_tbl_var
4256: , p_init_msg_list => FND_API.g_false
4257: , p_commit => FND_API.G_FALSE
4258: , x_return_status => x_return_status
4259: , x_msg_count => x_msg_count
4260: , x_msg_data => x_msg_data
4253: , p_access_level_flag => 'P'
4254: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
4255: , p_log_params_tbl => l_param_tbl_var
4256: , p_init_msg_list => FND_API.g_false
4257: , p_commit => FND_API.G_FALSE
4258: , x_return_status => x_return_status
4259: , x_msg_count => x_msg_count
4260: , x_msg_data => x_msg_data
4261: );
4258: , x_return_status => x_return_status
4259: , x_msg_count => x_msg_count
4260: , x_msg_data => x_msg_data
4261: );
4262: IF x_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4259: , x_msg_count => x_msg_count
4260: , x_msg_data => x_msg_data
4261: );
4262: IF x_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4267:
4260: , x_msg_data => x_msg_data
4261: );
4262: IF x_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4267:
4268: l_checkrow_pending:=check_pending_default(enrl_request_id);
4261: );
4262: IF x_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4267:
4268: l_checkrow_pending:=check_pending_default(enrl_request_id);
4269: -- the if block below updates OAM with the approval status . if the request
4299:
4300: submit_enrl_req_for_approval
4301: ( p_api_version_number
4302: , p_init_msg_list
4303: , FND_API.G_FALSE
4304: , p_validation_level
4305: , enrl_request_id
4306: , 'ENRQ'
4307: , x_return_status
4307: , x_return_status
4308: , x_msg_count
4309: , x_msg_data
4310: );
4311: IF x_return_status = FND_API.g_ret_sts_error THEN
4312: RAISE FND_API.g_exc_error;
4313: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4314: RAISE FND_API.g_exc_unexpected_error;
4315: END IF;
4308: , x_msg_count
4309: , x_msg_data
4310: );
4311: IF x_return_status = FND_API.g_ret_sts_error THEN
4312: RAISE FND_API.g_exc_error;
4313: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4314: RAISE FND_API.g_exc_unexpected_error;
4315: END IF;
4316: ELSE
4309: , x_msg_data
4310: );
4311: IF x_return_status = FND_API.g_ret_sts_error THEN
4312: RAISE FND_API.g_exc_error;
4313: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4314: RAISE FND_API.g_exc_unexpected_error;
4315: END IF;
4316: ELSE
4317: -- means enrollment has been rejected
4310: );
4311: IF x_return_status = FND_API.g_ret_sts_error THEN
4312: RAISE FND_API.g_exc_error;
4313: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4314: RAISE FND_API.g_exc_unexpected_error;
4315: END IF;
4316: ELSE
4317: -- means enrollment has been rejected
4318: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4316: ELSE
4317: -- means enrollment has been rejected
4318: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4319: ( p_api_version_number => 1.0
4320: , p_init_msg_list => FND_API.g_false
4321: , p_commit => FND_API.g_false
4322: , p_validation_level => FND_API.g_valid_level_full
4323: , x_return_status => x_return_status
4324: , x_msg_count => x_msg_count
4317: -- means enrollment has been rejected
4318: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4319: ( p_api_version_number => 1.0
4320: , p_init_msg_list => FND_API.g_false
4321: , p_commit => FND_API.g_false
4322: , p_validation_level => FND_API.g_valid_level_full
4323: , x_return_status => x_return_status
4324: , x_msg_count => x_msg_count
4325: , x_msg_data => x_msg_data
4318: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4319: ( p_api_version_number => 1.0
4320: , p_init_msg_list => FND_API.g_false
4321: , p_commit => FND_API.g_false
4322: , p_validation_level => FND_API.g_valid_level_full
4323: , x_return_status => x_return_status
4324: , x_msg_count => x_msg_count
4325: , x_msg_data => x_msg_data
4326: , p_approver_rec =>l_approver_rec
4325: , x_msg_data => x_msg_data
4326: , p_approver_rec =>l_approver_rec
4327:
4328: );
4329: IF x_return_status = FND_API.g_ret_sts_error THEN
4330: RAISE FND_API.g_exc_error;
4331: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4332: RAISE FND_API.g_exc_unexpected_error;
4333: END IF;
4326: , p_approver_rec =>l_approver_rec
4327:
4328: );
4329: IF x_return_status = FND_API.g_ret_sts_error THEN
4330: RAISE FND_API.g_exc_error;
4331: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4332: RAISE FND_API.g_exc_unexpected_error;
4333: END IF;
4334:
4327:
4328: );
4329: IF x_return_status = FND_API.g_ret_sts_error THEN
4330: RAISE FND_API.g_exc_error;
4331: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4332: RAISE FND_API.g_exc_unexpected_error;
4333: END IF;
4334:
4335: process_response
4328: );
4329: IF x_return_status = FND_API.g_ret_sts_error THEN
4330: RAISE FND_API.g_exc_error;
4331: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4332: RAISE FND_API.g_exc_unexpected_error;
4333: END IF;
4334:
4335: process_response
4336: ( enrl_request_id => enrl_request_id
4338: , x_return_status => x_return_status
4339: , x_msg_count => x_msg_count
4340: , x_msg_data => x_msg_data
4341: );
4342: IF x_return_status = FND_API.g_ret_sts_error THEN
4343: RAISE FND_API.g_exc_error;
4344: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4345: RAISE FND_API.g_exc_unexpected_error;
4346: END IF;
4339: , x_msg_count => x_msg_count
4340: , x_msg_data => x_msg_data
4341: );
4342: IF x_return_status = FND_API.g_ret_sts_error THEN
4343: RAISE FND_API.g_exc_error;
4344: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4345: RAISE FND_API.g_exc_unexpected_error;
4346: END IF;
4347: END IF;
4340: , x_msg_data => x_msg_data
4341: );
4342: IF x_return_status = FND_API.g_ret_sts_error THEN
4343: RAISE FND_API.g_exc_error;
4344: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4345: RAISE FND_API.g_exc_unexpected_error;
4346: END IF;
4347: END IF;
4348: ELSE
4341: );
4342: IF x_return_status = FND_API.g_ret_sts_error THEN
4343: RAISE FND_API.g_exc_error;
4344: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4345: RAISE FND_API.g_exc_unexpected_error;
4346: END IF;
4347: END IF;
4348: ELSE
4349: -- means current approver is not in the list of approvers anymore
4356: , p_partner_id => l_partner_id
4357: , p_access_level_flag => 'P'
4358: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4359: , p_log_params_tbl => l_param_tbl_var
4360: , p_init_msg_list => FND_API.g_false
4361: , p_commit => FND_API.G_FALSE
4362: , x_return_status => x_return_status
4363: , x_msg_count => x_msg_count
4364: , x_msg_data => x_msg_data
4357: , p_access_level_flag => 'P'
4358: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4359: , p_log_params_tbl => l_param_tbl_var
4360: , p_init_msg_list => FND_API.g_false
4361: , p_commit => FND_API.G_FALSE
4362: , x_return_status => x_return_status
4363: , x_msg_count => x_msg_count
4364: , x_msg_data => x_msg_data
4365: );
4362: , x_return_status => x_return_status
4363: , x_msg_count => x_msg_count
4364: , x_msg_data => x_msg_data
4365: );
4366: IF x_return_status = FND_API.g_ret_sts_error THEN
4367: RAISE FND_API.g_exc_error;
4368: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4369: RAISE FND_API.g_exc_unexpected_error;
4370: END IF;
4363: , x_msg_count => x_msg_count
4364: , x_msg_data => x_msg_data
4365: );
4366: IF x_return_status = FND_API.g_ret_sts_error THEN
4367: RAISE FND_API.g_exc_error;
4368: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4369: RAISE FND_API.g_exc_unexpected_error;
4370: END IF;
4371: submit_enrl_req_for_approval
4364: , x_msg_data => x_msg_data
4365: );
4366: IF x_return_status = FND_API.g_ret_sts_error THEN
4367: RAISE FND_API.g_exc_error;
4368: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4369: RAISE FND_API.g_exc_unexpected_error;
4370: END IF;
4371: submit_enrl_req_for_approval
4372: ( p_api_version_number
4365: );
4366: IF x_return_status = FND_API.g_ret_sts_error THEN
4367: RAISE FND_API.g_exc_error;
4368: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4369: RAISE FND_API.g_exc_unexpected_error;
4370: END IF;
4371: submit_enrl_req_for_approval
4372: ( p_api_version_number
4373: , p_init_msg_list
4370: END IF;
4371: submit_enrl_req_for_approval
4372: ( p_api_version_number
4373: , p_init_msg_list
4374: , FND_API.G_FALSE
4375: , p_validation_level
4376: , enrl_request_id
4377: , 'ENRQ'
4378: , x_return_status
4378: , x_return_status
4379: , x_msg_count
4380: , x_msg_data
4381: );
4382: IF x_return_status = FND_API.g_ret_sts_error THEN
4383: RAISE FND_API.g_exc_error;
4384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4385: RAISE FND_API.g_exc_unexpected_error;
4386: END IF;
4379: , x_msg_count
4380: , x_msg_data
4381: );
4382: IF x_return_status = FND_API.g_ret_sts_error THEN
4383: RAISE FND_API.g_exc_error;
4384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4385: RAISE FND_API.g_exc_unexpected_error;
4386: END IF;
4387: END IF;
4380: , x_msg_data
4381: );
4382: IF x_return_status = FND_API.g_ret_sts_error THEN
4383: RAISE FND_API.g_exc_error;
4384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4385: RAISE FND_API.g_exc_unexpected_error;
4386: END IF;
4387: END IF;
4388: --g_isApproverInList:=true;
4381: );
4382: IF x_return_status = FND_API.g_ret_sts_error THEN
4383: RAISE FND_API.g_exc_error;
4384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4385: RAISE FND_API.g_exc_unexpected_error;
4386: END IF;
4387: END IF;
4388: --g_isApproverInList:=true;
4389: ELSE --code if approver is deafault approver
4391: IF ( l_default_approver_id is NULL ) THEN
4392:
4393: FND_MESSAGE.set_name('PV', 'PV_ENRQ_APPR_NOT_SET');
4394: FND_MSG_PUB.add;
4395: RAISE FND_API.G_EXC_ERROR;
4396: END IF;
4397: OPEN person_id_csr (l_default_approver_id);
4398: FETCH person_id_csr INTO l_default_person_id,l_display_name;
4399: CLOSE person_id_csr;
4409: , p_partner_id => l_partner_id
4410: , p_access_level_flag => 'P'
4411: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4412: , p_log_params_tbl => l_param_tbl_var
4413: , p_init_msg_list => FND_API.g_false
4414: , p_commit => FND_API.G_FALSE
4415: , x_return_status => x_return_status
4416: , x_msg_count => x_msg_count
4417: , x_msg_data => x_msg_data
4410: , p_access_level_flag => 'P'
4411: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4412: , p_log_params_tbl => l_param_tbl_var
4413: , p_init_msg_list => FND_API.g_false
4414: , p_commit => FND_API.G_FALSE
4415: , x_return_status => x_return_status
4416: , x_msg_count => x_msg_count
4417: , x_msg_data => x_msg_data
4418: );
4415: , x_return_status => x_return_status
4416: , x_msg_count => x_msg_count
4417: , x_msg_data => x_msg_data
4418: );
4419: IF x_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4416: , x_msg_count => x_msg_count
4417: , x_msg_data => x_msg_data
4418: );
4419: IF x_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4424: */
4417: , x_msg_data => x_msg_data
4418: );
4419: IF x_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4424: */
4425: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4418: );
4419: IF x_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4424: */
4425: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4426: ( p_api_version_number => 1.0
4423: END IF;
4424: */
4425: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4426: ( p_api_version_number => 1.0
4427: , p_init_msg_list => FND_API.g_false
4428: , p_commit => FND_API.g_false
4429: , p_validation_level => FND_API.g_valid_level_full
4430: , x_return_status => x_return_status
4431: , x_msg_count => x_msg_count
4424: */
4425: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4426: ( p_api_version_number => 1.0
4427: , p_init_msg_list => FND_API.g_false
4428: , p_commit => FND_API.g_false
4429: , p_validation_level => FND_API.g_valid_level_full
4430: , x_return_status => x_return_status
4431: , x_msg_count => x_msg_count
4432: , x_msg_data => x_msg_data
4425: Pv_Ge_Temp_Approvers_PVT.Update_Ptr_Enr_Temp_Appr
4426: ( p_api_version_number => 1.0
4427: , p_init_msg_list => FND_API.g_false
4428: , p_commit => FND_API.g_false
4429: , p_validation_level => FND_API.g_valid_level_full
4430: , x_return_status => x_return_status
4431: , x_msg_count => x_msg_count
4432: , x_msg_data => x_msg_data
4433: , p_approver_rec =>l_approver_rec
4431: , x_msg_count => x_msg_count
4432: , x_msg_data => x_msg_data
4433: , p_approver_rec =>l_approver_rec
4434: );
4435: IF x_return_status = FND_API.g_ret_sts_error THEN
4436: RAISE FND_API.g_exc_error;
4437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4438: RAISE FND_API.g_exc_unexpected_error;
4439: END IF;
4432: , x_msg_data => x_msg_data
4433: , p_approver_rec =>l_approver_rec
4434: );
4435: IF x_return_status = FND_API.g_ret_sts_error THEN
4436: RAISE FND_API.g_exc_error;
4437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4438: RAISE FND_API.g_exc_unexpected_error;
4439: END IF;
4440:
4433: , p_approver_rec =>l_approver_rec
4434: );
4435: IF x_return_status = FND_API.g_ret_sts_error THEN
4436: RAISE FND_API.g_exc_error;
4437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4438: RAISE FND_API.g_exc_unexpected_error;
4439: END IF;
4440:
4441: process_response
4434: );
4435: IF x_return_status = FND_API.g_ret_sts_error THEN
4436: RAISE FND_API.g_exc_error;
4437: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4438: RAISE FND_API.g_exc_unexpected_error;
4439: END IF;
4440:
4441: process_response
4442: ( enrl_request_id => enrl_request_id
4445: , x_msg_count => x_msg_count
4446: , x_msg_data => x_msg_data
4447: );
4448:
4449: IF x_return_status = FND_API.g_ret_sts_error THEN
4450: RAISE FND_API.g_exc_error;
4451: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4452: RAISE FND_API.g_exc_unexpected_error;
4453: END IF;
4446: , x_msg_data => x_msg_data
4447: );
4448:
4449: IF x_return_status = FND_API.g_ret_sts_error THEN
4450: RAISE FND_API.g_exc_error;
4451: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4452: RAISE FND_API.g_exc_unexpected_error;
4453: END IF;
4454: ELSE
4447: );
4448:
4449: IF x_return_status = FND_API.g_ret_sts_error THEN
4450: RAISE FND_API.g_exc_error;
4451: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4452: RAISE FND_API.g_exc_unexpected_error;
4453: END IF;
4454: ELSE
4455: --write to the logs that the current approver for this enrollment request has changed
4448:
4449: IF x_return_status = FND_API.g_ret_sts_error THEN
4450: RAISE FND_API.g_exc_error;
4451: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4452: RAISE FND_API.g_exc_unexpected_error;
4453: END IF;
4454: ELSE
4455: --write to the logs that the current approver for this enrollment request has changed
4456: PVX_UTILITY_PVT.create_history_log
4462: , p_partner_id => l_partner_id
4463: , p_access_level_flag => 'P'
4464: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4465: , p_log_params_tbl => l_param_tbl_var
4466: , p_init_msg_list => FND_API.g_false
4467: , p_commit => FND_API.G_FALSE
4468: , x_return_status => x_return_status
4469: , x_msg_count => x_msg_count
4470: , x_msg_data => x_msg_data
4463: , p_access_level_flag => 'P'
4464: , p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4465: , p_log_params_tbl => l_param_tbl_var
4466: , p_init_msg_list => FND_API.g_false
4467: , p_commit => FND_API.G_FALSE
4468: , x_return_status => x_return_status
4469: , x_msg_count => x_msg_count
4470: , x_msg_data => x_msg_data
4471: );
4468: , x_return_status => x_return_status
4469: , x_msg_count => x_msg_count
4470: , x_msg_data => x_msg_data
4471: );
4472: IF x_return_status = FND_API.g_ret_sts_error THEN
4473: RAISE FND_API.g_exc_error;
4474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4475: RAISE FND_API.g_exc_unexpected_error;
4476: END IF;
4469: , x_msg_count => x_msg_count
4470: , x_msg_data => x_msg_data
4471: );
4472: IF x_return_status = FND_API.g_ret_sts_error THEN
4473: RAISE FND_API.g_exc_error;
4474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4475: RAISE FND_API.g_exc_unexpected_error;
4476: END IF;
4477: submit_enrl_req_for_approval
4470: , x_msg_data => x_msg_data
4471: );
4472: IF x_return_status = FND_API.g_ret_sts_error THEN
4473: RAISE FND_API.g_exc_error;
4474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4475: RAISE FND_API.g_exc_unexpected_error;
4476: END IF;
4477: submit_enrl_req_for_approval
4478: ( p_api_version_number
4471: );
4472: IF x_return_status = FND_API.g_ret_sts_error THEN
4473: RAISE FND_API.g_exc_error;
4474: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4475: RAISE FND_API.g_exc_unexpected_error;
4476: END IF;
4477: submit_enrl_req_for_approval
4478: ( p_api_version_number
4479: , p_init_msg_list
4476: END IF;
4477: submit_enrl_req_for_approval
4478: ( p_api_version_number
4479: , p_init_msg_list
4480: , FND_API.G_FALSE
4481: , p_validation_level
4482: , enrl_request_id
4483: , 'ENRQ'
4484: , x_return_status
4484: , x_return_status
4485: , x_msg_count
4486: , x_msg_data
4487: );
4488: IF x_return_status = FND_API.g_ret_sts_error THEN
4489: RAISE FND_API.g_exc_error;
4490: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4491: RAISE FND_API.g_exc_unexpected_error;
4492: END IF;
4485: , x_msg_count
4486: , x_msg_data
4487: );
4488: IF x_return_status = FND_API.g_ret_sts_error THEN
4489: RAISE FND_API.g_exc_error;
4490: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4491: RAISE FND_API.g_exc_unexpected_error;
4492: END IF;
4493: END IF;
4486: , x_msg_data
4487: );
4488: IF x_return_status = FND_API.g_ret_sts_error THEN
4489: RAISE FND_API.g_exc_error;
4490: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4491: RAISE FND_API.g_exc_unexpected_error;
4492: END IF;
4493: END IF;
4494: END IF; -- end of if else for approver is deafault approver
4487: );
4488: IF x_return_status = FND_API.g_ret_sts_error THEN
4489: RAISE FND_API.g_exc_error;
4490: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4491: RAISE FND_API.g_exc_unexpected_error;
4492: END IF;
4493: END IF;
4494: END IF; -- end of if else for approver is deafault approver
4495: IF FND_API.to_Boolean( p_commit ) THEN
4491: RAISE FND_API.g_exc_unexpected_error;
4492: END IF;
4493: END IF;
4494: END IF; -- end of if else for approver is deafault approver
4495: IF FND_API.to_Boolean( p_commit ) THEN
4496: COMMIT WORK;
4497: END IF;
4498: EXCEPTION
4499: WHEN FND_API.G_EXC_ERROR THEN
4495: IF FND_API.to_Boolean( p_commit ) THEN
4496: COMMIT WORK;
4497: END IF;
4498: EXCEPTION
4499: WHEN FND_API.G_EXC_ERROR THEN
4500: ROLLBACK TO update_enrl_req_status;
4501: x_return_status := FND_API.G_RET_STS_ERROR;
4502: -- Standard call to get message count and if count=1, get the message
4503: FND_MSG_PUB.Count_And_Get
4497: END IF;
4498: EXCEPTION
4499: WHEN FND_API.G_EXC_ERROR THEN
4500: ROLLBACK TO update_enrl_req_status;
4501: x_return_status := FND_API.G_RET_STS_ERROR;
4502: -- Standard call to get message count and if count=1, get the message
4503: FND_MSG_PUB.Count_And_Get
4504: ( p_encoded => FND_API.G_FALSE
4505: , p_count => x_msg_count
4500: ROLLBACK TO update_enrl_req_status;
4501: x_return_status := FND_API.G_RET_STS_ERROR;
4502: -- Standard call to get message count and if count=1, get the message
4503: FND_MSG_PUB.Count_And_Get
4504: ( p_encoded => FND_API.G_FALSE
4505: , p_count => x_msg_count
4506: , p_data => x_msg_data
4507: );
4508: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4505: , p_count => x_msg_count
4506: , p_data => x_msg_data
4507: );
4508: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4510: ROLLBACK TO update_enrl_req_status;
4511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4512: -- Standard call to get message count and if count=1, get the message
4513: FND_MSG_PUB.Count_And_Get
4507: );
4508: --write to enrollment log that an error has occured?. how do we handle the situation if an error occured in process
4509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4510: ROLLBACK TO update_enrl_req_status;
4511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4512: -- Standard call to get message count and if count=1, get the message
4513: FND_MSG_PUB.Count_And_Get
4514: ( p_encoded => FND_API.G_FALSE
4515: , p_count => x_msg_count
4510: ROLLBACK TO update_enrl_req_status;
4511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4512: -- Standard call to get message count and if count=1, get the message
4513: FND_MSG_PUB.Count_And_Get
4514: ( p_encoded => FND_API.G_FALSE
4515: , p_count => x_msg_count
4516: , p_data => x_msg_data
4517: );
4518: WHEN OTHERS THEN
4516: , p_data => x_msg_data
4517: );
4518: WHEN OTHERS THEN
4519: ROLLBACK TO update_enrl_req_status;
4520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4521: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4522: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4523: END IF;
4524: -- Standard call to get message count and if count=1, get the message
4522: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4523: END IF;
4524: -- Standard call to get message count and if count=1, get the message
4525: FND_MSG_PUB.Count_And_Get
4526: ( p_encoded => FND_API.G_FALSE
4527: , p_count => x_msg_count
4528: , p_data => x_msg_data
4529: );
4530: END update_enrl_req_status;
4573: l_enrl_request_id := l_get_errored_requests_rec.appr_for_entity_id;
4574: Write_log (1, 'Processing enrollment request id: '|| l_enrl_request_id);
4575: submit_enrl_req_for_approval(
4576: p_api_version_number => 1.0
4577: ,p_init_msg_list => FND_API.G_FALSE
4578: ,p_commit => FND_API.G_FALSE
4579: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4580: ,enrl_request_id => l_get_errored_requests_rec.appr_for_entity_id
4581: ,entity_code => l_get_errored_requests_rec.arc_appr_for_entity_code
4574: Write_log (1, 'Processing enrollment request id: '|| l_enrl_request_id);
4575: submit_enrl_req_for_approval(
4576: p_api_version_number => 1.0
4577: ,p_init_msg_list => FND_API.G_FALSE
4578: ,p_commit => FND_API.G_FALSE
4579: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4580: ,enrl_request_id => l_get_errored_requests_rec.appr_for_entity_id
4581: ,entity_code => l_get_errored_requests_rec.arc_appr_for_entity_code
4582: ,x_return_status => l_return_status
4575: submit_enrl_req_for_approval(
4576: p_api_version_number => 1.0
4577: ,p_init_msg_list => FND_API.G_FALSE
4578: ,p_commit => FND_API.G_FALSE
4579: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4580: ,enrl_request_id => l_get_errored_requests_rec.appr_for_entity_id
4581: ,entity_code => l_get_errored_requests_rec.arc_appr_for_entity_code
4582: ,x_return_status => l_return_status
4583: ,x_msg_count => l_msg_count
4581: ,entity_code => l_get_errored_requests_rec.arc_appr_for_entity_code
4582: ,x_return_status => l_return_status
4583: ,x_msg_count => l_msg_count
4584: ,x_msg_data => l_msg_data );
4585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4586: RAISE FND_API.G_EXC_ERROR;
4587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: END IF;
4582: ,x_return_status => l_return_status
4583: ,x_msg_count => l_msg_count
4584: ,x_msg_data => l_msg_data );
4585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4586: RAISE FND_API.G_EXC_ERROR;
4587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: END IF;
4590: END LOOP;
4583: ,x_msg_count => l_msg_count
4584: ,x_msg_data => l_msg_data );
4585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4586: RAISE FND_API.G_EXC_ERROR;
4587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: END IF;
4590: END LOOP;
4591:
4584: ,x_msg_data => l_msg_data );
4585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4586: RAISE FND_API.G_EXC_ERROR;
4587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4589: END IF;
4590: END LOOP;
4591:
4592: -- return the success code.
4592: -- return the success code.
4593: retcode := '0';
4594:
4595: EXCEPTION
4596: WHEN FND_API.G_EXC_ERROR THEN
4597: ERRBUF := ERRBUF || sqlerrm;
4598: RETCODE := '1';
4599: ROLLBACK TO Process_errored_requests;
4600: --l_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', SQLERRM);
4599: ROLLBACK TO Process_errored_requests;
4600: --l_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', SQLERRM);
4601: Write_log (1, 'Error in submitting the enrollment request id of '|| l_enrl_request_id ||' for approval');
4602: Write_log (1, 'SQLCODE ' || to_char(SQLCODE) || ' SQLERRM ' || substr(SQLERRM, 1, 100));
4603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4604: ERRBUF := ERRBUF||sqlerrm;
4605: RETCODE := '1';
4606: ROLLBACK TO Process_errored_requests;
4607: --l_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', SQLERRM);
4630:
4631:
4632: PROCEDURE terminate_downgrade_memb(
4633: p_api_version_number IN NUMBER
4634: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4635: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4636: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4637: ,p_membership_id IN NUMBER
4638: ,p_event_code IN VARCHAR2 -- pass 'TERMINATED' or 'DOWNGRADED' depending on the event
4631:
4632: PROCEDURE terminate_downgrade_memb(
4633: p_api_version_number IN NUMBER
4634: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4635: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4636: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4637: ,p_membership_id IN NUMBER
4638: ,p_event_code IN VARCHAR2 -- pass 'TERMINATED' or 'DOWNGRADED' depending on the event
4639: ,p_status_reason_code IN VARCHAR2 -- reason for termoination or downgrade
4632: PROCEDURE terminate_downgrade_memb(
4633: p_api_version_number IN NUMBER
4634: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4635: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4636: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4637: ,p_membership_id IN NUMBER
4638: ,p_event_code IN VARCHAR2 -- pass 'TERMINATED' or 'DOWNGRADED' depending on the event
4639: ,p_status_reason_code IN VARCHAR2 -- reason for termoination or downgrade
4640: ,p_comments IN VARCHAR2 DEFAULT NULL
4676:
4677: BEGIN
4678: SAVEPOINT terminate_downgrade_memb;
4679: -- Standard call to check for call compatibility.
4680: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
4681: ,p_api_version_number
4682: ,l_api_name
4683: ,G_PKG_NAME
4684: )
4683: ,G_PKG_NAME
4684: )
4685:
4686: THEN
4687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4688: END IF;
4689:
4690: -- Initialize message list if p_init_msg_list is set to TRUE.
4691: IF FND_API.to_Boolean( p_init_msg_list )
4687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4688: END IF;
4689:
4690: -- Initialize message list if p_init_msg_list is set to TRUE.
4691: IF FND_API.to_Boolean( p_init_msg_list )
4692: THEN
4693: FND_MSG_PUB.initialize;
4694: END IF;
4695:
4699: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4700: END IF;
4701:
4702: -- Initialize API return status to SUCCESS
4703: x_return_status := FND_API.G_RET_STS_SUCCESS;
4704:
4705: -- =========================================================================
4706: -- Validate Environment
4707: -- =========================================================================
4707: -- =========================================================================
4708:
4709: IF FND_GLOBAL.USER_ID IS NULL THEN
4710: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
4711: RAISE FND_API.G_EXC_ERROR;
4712: END IF;
4713:
4714:
4715:
4727:
4728:
4729: PV_Pg_Memberships_PVT.Update_Pg_Memberships
4730: ( p_api_version_number => 1.0
4731: ,p_init_msg_list => Fnd_Api.g_false
4732: ,p_commit => Fnd_Api.g_false
4733: ,x_return_status => x_return_status
4734: ,x_msg_count => x_msg_count
4735: ,x_msg_data => x_msg_data
4728:
4729: PV_Pg_Memberships_PVT.Update_Pg_Memberships
4730: ( p_api_version_number => 1.0
4731: ,p_init_msg_list => Fnd_Api.g_false
4732: ,p_commit => Fnd_Api.g_false
4733: ,x_return_status => x_return_status
4734: ,x_msg_count => x_msg_count
4735: ,x_msg_data => x_msg_data
4736: ,p_memb_rec => l_pv_pg_memb_rec
4735: ,x_msg_data => x_msg_data
4736: ,p_memb_rec => l_pv_pg_memb_rec
4737: );
4738:
4739: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4740: RAISE FND_API.G_EXC_ERROR;
4741: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4736: ,p_memb_rec => l_pv_pg_memb_rec
4737: );
4738:
4739: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4740: RAISE FND_API.G_EXC_ERROR;
4741: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4744:
4737: );
4738:
4739: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4740: RAISE FND_API.G_EXC_ERROR;
4741: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4744:
4745:
4738:
4739: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4740: RAISE FND_API.G_EXC_ERROR;
4741: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4743: END IF;
4744:
4745:
4746: Pv_User_Resp_Pvt.manage_memb_resp
4744:
4745:
4746: Pv_User_Resp_Pvt.manage_memb_resp
4747: ( p_api_version_number => 1.0
4748: ,p_init_msg_list => Fnd_Api.g_false
4749: ,p_commit => Fnd_Api.g_false
4750: ,p_membership_id => p_membership_id
4751: ,x_return_status => x_return_status
4752: ,x_msg_count => x_msg_count
4745:
4746: Pv_User_Resp_Pvt.manage_memb_resp
4747: ( p_api_version_number => 1.0
4748: ,p_init_msg_list => Fnd_Api.g_false
4749: ,p_commit => Fnd_Api.g_false
4750: ,p_membership_id => p_membership_id
4751: ,x_return_status => x_return_status
4752: ,x_msg_count => x_msg_count
4753: ,x_msg_data => x_msg_data
4752: ,x_msg_count => x_msg_count
4753: ,x_msg_data => x_msg_data
4754: );
4755:
4756: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4757: RAISE FND_API.G_EXC_ERROR;
4758: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4760: END IF;
4753: ,x_msg_data => x_msg_data
4754: );
4755:
4756: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4757: RAISE FND_API.G_EXC_ERROR;
4758: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4760: END IF;
4761:
4754: );
4755:
4756: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4757: RAISE FND_API.G_EXC_ERROR;
4758: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4760: END IF;
4761:
4762:
4755:
4756: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4757: RAISE FND_API.G_EXC_ERROR;
4758: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4760: END IF;
4761:
4762:
4763: p_new_memb_id:=null;
4781: l_pv_pg_enrq_rec.custom_setup_id:=getCustomSetupID(p_program_id_downgraded_to);
4782:
4783: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
4784: ( p_api_version_number =>1.0
4785: ,p_init_msg_list => FND_API.g_false
4786: ,p_commit => FND_API.G_FALSE
4787: ,p_validation_level => FND_API.g_valid_level_full
4788: ,x_return_status => x_return_status
4789: ,x_msg_count => x_msg_count
4782:
4783: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
4784: ( p_api_version_number =>1.0
4785: ,p_init_msg_list => FND_API.g_false
4786: ,p_commit => FND_API.G_FALSE
4787: ,p_validation_level => FND_API.g_valid_level_full
4788: ,x_return_status => x_return_status
4789: ,x_msg_count => x_msg_count
4790: ,x_msg_data => x_msg_data
4783: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
4784: ( p_api_version_number =>1.0
4785: ,p_init_msg_list => FND_API.g_false
4786: ,p_commit => FND_API.G_FALSE
4787: ,p_validation_level => FND_API.g_valid_level_full
4788: ,x_return_status => x_return_status
4789: ,x_msg_count => x_msg_count
4790: ,x_msg_data => x_msg_data
4791: ,p_enrl_request_rec => l_pv_pg_enrq_rec
4791: ,p_enrl_request_rec => l_pv_pg_enrq_rec
4792: ,x_enrl_request_id => l_enrl_request_id
4793: );
4794:
4795: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4796: RAISE FND_API.G_EXC_ERROR;
4797: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4799: END IF;
4792: ,x_enrl_request_id => l_enrl_request_id
4793: );
4794:
4795: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4796: RAISE FND_API.G_EXC_ERROR;
4797: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4799: END IF;
4800:
4793: );
4794:
4795: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4796: RAISE FND_API.G_EXC_ERROR;
4797: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4799: END IF;
4800:
4801:
4794:
4795: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4796: RAISE FND_API.G_EXC_ERROR;
4797: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4799: END IF;
4800:
4801:
4802: --create a membership record with the downgraded program id and end date of the program from which it was
4809: l_pv_pg_new_memb_rec.program_id:=p_program_id_downgraded_to;
4810:
4811: PV_Pg_Memberships_PVT.Create_Pg_memberships
4812: ( p_api_version_number=>1.0
4813: ,p_init_msg_list => FND_API.g_false
4814: ,p_commit => FND_API.G_FALSE
4815: ,p_validation_level => FND_API.g_valid_level_full
4816: ,x_return_status => x_return_status
4817: ,x_msg_count => x_msg_count
4810:
4811: PV_Pg_Memberships_PVT.Create_Pg_memberships
4812: ( p_api_version_number=>1.0
4813: ,p_init_msg_list => FND_API.g_false
4814: ,p_commit => FND_API.G_FALSE
4815: ,p_validation_level => FND_API.g_valid_level_full
4816: ,x_return_status => x_return_status
4817: ,x_msg_count => x_msg_count
4818: ,x_msg_data => x_msg_data
4811: PV_Pg_Memberships_PVT.Create_Pg_memberships
4812: ( p_api_version_number=>1.0
4813: ,p_init_msg_list => FND_API.g_false
4814: ,p_commit => FND_API.G_FALSE
4815: ,p_validation_level => FND_API.g_valid_level_full
4816: ,x_return_status => x_return_status
4817: ,x_msg_count => x_msg_count
4818: ,x_msg_data => x_msg_data
4819: ,p_memb_rec => l_pv_pg_new_memb_rec
4819: ,p_memb_rec => l_pv_pg_new_memb_rec
4820: ,x_membership_id => l_membership_id
4821: );
4822:
4823: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4824: RAISE FND_API.G_EXC_ERROR;
4825: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4827: END IF;
4820: ,x_membership_id => l_membership_id
4821: );
4822:
4823: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4824: RAISE FND_API.G_EXC_ERROR;
4825: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4827: END IF;
4828:
4821: );
4822:
4823: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4824: RAISE FND_API.G_EXC_ERROR;
4825: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4827: END IF;
4828:
4829: p_new_memb_id :=l_membership_id;
4822:
4823: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4824: RAISE FND_API.G_EXC_ERROR;
4825: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4827: END IF;
4828:
4829: p_new_memb_id :=l_membership_id;
4830: --insert into member transitions table
4831: l_mmbr_tran_rec.from_membership_id:=p_membership_id;
4832: l_mmbr_tran_rec.to_membership_id:=l_membership_id;
4833: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
4834: ( p_api_version_number =>1.0
4835: ,p_init_msg_list => FND_API.g_false
4836: ,p_commit => FND_API.G_FALSE
4837: ,p_validation_level => FND_API.g_valid_level_full
4838: ,x_return_status => x_return_status
4839: ,x_msg_count => x_msg_count
4832: l_mmbr_tran_rec.to_membership_id:=l_membership_id;
4833: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
4834: ( p_api_version_number =>1.0
4835: ,p_init_msg_list => FND_API.g_false
4836: ,p_commit => FND_API.G_FALSE
4837: ,p_validation_level => FND_API.g_valid_level_full
4838: ,x_return_status => x_return_status
4839: ,x_msg_count => x_msg_count
4840: ,x_msg_data => x_msg_data
4833: pv_pg_mmbr_transitions_PVT.Create_Mmbr_Trans
4834: ( p_api_version_number =>1.0
4835: ,p_init_msg_list => FND_API.g_false
4836: ,p_commit => FND_API.G_FALSE
4837: ,p_validation_level => FND_API.g_valid_level_full
4838: ,x_return_status => x_return_status
4839: ,x_msg_count => x_msg_count
4840: ,x_msg_data => x_msg_data
4841: ,p_mmbr_tran_rec => l_mmbr_tran_rec
4841: ,p_mmbr_tran_rec => l_mmbr_tran_rec
4842: ,x_mmbr_transition_id => l_mmbr_transition_id
4843: );
4844:
4845: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4846: RAISE FND_API.G_EXC_ERROR;
4847: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4849: END IF;
4842: ,x_mmbr_transition_id => l_mmbr_transition_id
4843: );
4844:
4845: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4846: RAISE FND_API.G_EXC_ERROR;
4847: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4849: END IF;
4850:
4843: );
4844:
4845: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4846: RAISE FND_API.G_EXC_ERROR;
4847: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4849: END IF;
4850:
4851: --call responsiblity management api for the new membership
4844:
4845: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4846: RAISE FND_API.G_EXC_ERROR;
4847: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4849: END IF;
4850:
4851: --call responsiblity management api for the new membership
4852: Pv_User_Resp_Pvt.manage_memb_resp
4850:
4851: --call responsiblity management api for the new membership
4852: Pv_User_Resp_Pvt.manage_memb_resp
4853: ( p_api_version_number => 1.0
4854: ,p_init_msg_list => Fnd_Api.g_false
4855: ,p_commit => Fnd_Api.g_false
4856: ,p_membership_id => l_membership_id
4857: ,x_return_status => x_return_status
4858: ,x_msg_count => x_msg_count
4851: --call responsiblity management api for the new membership
4852: Pv_User_Resp_Pvt.manage_memb_resp
4853: ( p_api_version_number => 1.0
4854: ,p_init_msg_list => Fnd_Api.g_false
4855: ,p_commit => Fnd_Api.g_false
4856: ,p_membership_id => l_membership_id
4857: ,x_return_status => x_return_status
4858: ,x_msg_count => x_msg_count
4859: ,x_msg_data => x_msg_data
4858: ,x_msg_count => x_msg_count
4859: ,x_msg_data => x_msg_data
4860: );
4861:
4862: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4863: RAISE FND_API.G_EXC_ERROR;
4864: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866: END IF;
4859: ,x_msg_data => x_msg_data
4860: );
4861:
4862: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4863: RAISE FND_API.G_EXC_ERROR;
4864: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866: END IF;
4867:
4860: );
4861:
4862: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4863: RAISE FND_API.G_EXC_ERROR;
4864: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866: END IF;
4867:
4868: ELSIF p_event_code='TERMINATED' THEN
4861:
4862: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4863: RAISE FND_API.G_EXC_ERROR;
4864: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866: END IF;
4867:
4868: ELSIF p_event_code='TERMINATED' THEN
4869: --set message code for history logs
4880: ,p_partner_id => l_partner_id
4881: ,p_access_level_flag => 'P'
4882: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4883: ,p_log_params_tbl => l_param_tbl_var
4884: ,p_init_msg_list => FND_API.g_false
4885: ,p_commit => FND_API.G_FALSE
4886: ,x_return_status => x_return_status
4887: ,x_msg_count => x_msg_count
4888: ,x_msg_data => x_msg_data
4881: ,p_access_level_flag => 'P'
4882: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_10
4883: ,p_log_params_tbl => l_param_tbl_var
4884: ,p_init_msg_list => FND_API.g_false
4885: ,p_commit => FND_API.G_FALSE
4886: ,x_return_status => x_return_status
4887: ,x_msg_count => x_msg_count
4888: ,x_msg_data => x_msg_data
4889: );
4887: ,x_msg_count => x_msg_count
4888: ,x_msg_data => x_msg_data
4889: );
4890:
4891: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4892: RAISE FND_API.G_EXC_ERROR;
4893: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4888: ,x_msg_data => x_msg_data
4889: );
4890:
4891: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4892: RAISE FND_API.G_EXC_ERROR;
4893: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4896: -- Standard check for p_commit
4889: );
4890:
4891: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4892: RAISE FND_API.G_EXC_ERROR;
4893: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4896: -- Standard check for p_commit
4897: IF FND_API.to_Boolean( p_commit ) THEN
4890:
4891: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4892: RAISE FND_API.G_EXC_ERROR;
4893: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4896: -- Standard check for p_commit
4897: IF FND_API.to_Boolean( p_commit ) THEN
4898: COMMIT WORK;
4893: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4895: END IF;
4896: -- Standard check for p_commit
4897: IF FND_API.to_Boolean( p_commit ) THEN
4898: COMMIT WORK;
4899: END IF;
4900:
4901:
4914:
4915: EXCEPTION
4916:
4917: WHEN PVX_UTILITY_PVT.resource_locked THEN
4918: x_return_status := FND_API.g_ret_sts_error;
4919: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4920:
4921: WHEN FND_API.G_EXC_ERROR THEN
4922: ROLLBACK TO terminate_downgrade_memb;
4917: WHEN PVX_UTILITY_PVT.resource_locked THEN
4918: x_return_status := FND_API.g_ret_sts_error;
4919: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4920:
4921: WHEN FND_API.G_EXC_ERROR THEN
4922: ROLLBACK TO terminate_downgrade_memb;
4923: x_return_status := FND_API.G_RET_STS_ERROR;
4924: -- Standard call to get message count and if count=1, get the message
4925: FND_MSG_PUB.Count_And_Get (
4919: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
4920:
4921: WHEN FND_API.G_EXC_ERROR THEN
4922: ROLLBACK TO terminate_downgrade_memb;
4923: x_return_status := FND_API.G_RET_STS_ERROR;
4924: -- Standard call to get message count and if count=1, get the message
4925: FND_MSG_PUB.Count_And_Get (
4926: p_encoded => FND_API.G_FALSE,
4927: p_count => x_msg_count,
4922: ROLLBACK TO terminate_downgrade_memb;
4923: x_return_status := FND_API.G_RET_STS_ERROR;
4924: -- Standard call to get message count and if count=1, get the message
4925: FND_MSG_PUB.Count_And_Get (
4926: p_encoded => FND_API.G_FALSE,
4927: p_count => x_msg_count,
4928: p_data => x_msg_data
4929: );
4930:
4927: p_count => x_msg_count,
4928: p_data => x_msg_data
4929: );
4930:
4931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4932: ROLLBACK TO terminate_downgrade_memb;
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: -- Standard call to get message count and if count=1, get the message
4935: FND_MSG_PUB.Count_And_Get (
4929: );
4930:
4931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4932: ROLLBACK TO terminate_downgrade_memb;
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: -- Standard call to get message count and if count=1, get the message
4935: FND_MSG_PUB.Count_And_Get (
4936: p_encoded => FND_API.G_FALSE,
4937: p_count => x_msg_count,
4932: ROLLBACK TO terminate_downgrade_memb;
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: -- Standard call to get message count and if count=1, get the message
4935: FND_MSG_PUB.Count_And_Get (
4936: p_encoded => FND_API.G_FALSE,
4937: p_count => x_msg_count,
4938: p_data => x_msg_data
4939: );
4940:
4939: );
4940:
4941: WHEN OTHERS THEN
4942: ROLLBACK TO terminate_downgrade_memb;
4943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4944: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4945: THEN
4946: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4947: END IF;
4946: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4947: END IF;
4948: -- Standard call to get message count and if count=1, get the message
4949: FND_MSG_PUB.Count_And_Get (
4950: p_encoded => FND_API.G_FALSE,
4951: p_count => x_msg_count,
4952: p_data => x_msg_data
4953: );
4954: End terminate_downgrade_memb;
4969: --------------------------------------------------------------------------
4970:
4971: PROCEDURE Create_Default_Membership (
4972: p_api_version_number IN NUMBER
4973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4976: ,p_partner_id IN NUMBER
4977: ,p_requestor_resource_id IN NUMBER --resource_id of the user who's performing the action
4970:
4971: PROCEDURE Create_Default_Membership (
4972: p_api_version_number IN NUMBER
4973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4976: ,p_partner_id IN NUMBER
4977: ,p_requestor_resource_id IN NUMBER --resource_id of the user who's performing the action
4978: ,x_return_status OUT NOCOPY VARCHAR2
4971: PROCEDURE Create_Default_Membership (
4972: p_api_version_number IN NUMBER
4973: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4976: ,p_partner_id IN NUMBER
4977: ,p_requestor_resource_id IN NUMBER --resource_id of the user who's performing the action
4978: ,x_return_status OUT NOCOPY VARCHAR2
4979: ,x_msg_count OUT NOCOPY NUMBER
5011:
5012: BEGIN
5013: SAVEPOINT Create_Default_Membership;
5014: -- Standard call to check for call compatibility.
5015: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
5016: ,p_api_version_number
5017: ,l_api_name
5018: ,G_PKG_NAME
5019: )
5018: ,G_PKG_NAME
5019: )
5020:
5021: THEN
5022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5023: END IF;
5024:
5025: -- Initialize message list if p_init_msg_list is set to TRUE.
5026: IF FND_API.to_Boolean( p_init_msg_list )
5022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5023: END IF;
5024:
5025: -- Initialize message list if p_init_msg_list is set to TRUE.
5026: IF FND_API.to_Boolean( p_init_msg_list )
5027: THEN
5028: FND_MSG_PUB.initialize;
5029: END IF;
5030:
5034: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5035: END IF;
5036:
5037: -- Initialize API return status to SUCCESS
5038: x_return_status := FND_API.G_RET_STS_SUCCESS;
5039:
5040: -- =========================================================================
5041: -- Validate Environment
5042: -- =========================================================================
5042: -- =========================================================================
5043:
5044: IF FND_GLOBAL.USER_ID IS NULL THEN
5045: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
5046: RAISE FND_API.G_EXC_ERROR;
5047: END IF;
5048: --create an enrollment request with approved status
5049:
5050: l_default_program_id:= isnumber(FND_PROFILE.VALUE('PV_PARTNER_DEFAULT_PROGRAM'));
5061: l_pv_pg_enrq_rec.custom_setup_id:= getCustomSetupID(l_default_program_id);
5062:
5063: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
5064: ( p_api_version_number =>1.0
5065: ,p_init_msg_list => FND_API.g_false
5066: ,p_commit => FND_API.G_FALSE
5067: ,p_validation_level => FND_API.g_valid_level_full
5068: ,x_return_status => x_return_status
5069: ,x_msg_count => x_msg_count
5062:
5063: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
5064: ( p_api_version_number =>1.0
5065: ,p_init_msg_list => FND_API.g_false
5066: ,p_commit => FND_API.G_FALSE
5067: ,p_validation_level => FND_API.g_valid_level_full
5068: ,x_return_status => x_return_status
5069: ,x_msg_count => x_msg_count
5070: ,x_msg_data => x_msg_data
5063: PV_Pg_Enrl_Requests_PVT.Create_Pg_Enrl_Requests
5064: ( p_api_version_number =>1.0
5065: ,p_init_msg_list => FND_API.g_false
5066: ,p_commit => FND_API.G_FALSE
5067: ,p_validation_level => FND_API.g_valid_level_full
5068: ,x_return_status => x_return_status
5069: ,x_msg_count => x_msg_count
5070: ,x_msg_data => x_msg_data
5071: ,p_enrl_request_rec => l_pv_pg_enrq_rec
5071: ,p_enrl_request_rec => l_pv_pg_enrq_rec
5072: ,x_enrl_request_id => l_enrl_request_id
5073: );
5074:
5075: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5076: RAISE FND_API.G_EXC_ERROR;
5077: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5079: END IF;
5072: ,x_enrl_request_id => l_enrl_request_id
5073: );
5074:
5075: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5076: RAISE FND_API.G_EXC_ERROR;
5077: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5079: END IF;
5080:
5073: );
5074:
5075: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5076: RAISE FND_API.G_EXC_ERROR;
5077: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5079: END IF;
5080:
5081:
5074:
5075: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5076: RAISE FND_API.G_EXC_ERROR;
5077: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5079: END IF;
5080:
5081:
5082: --create a membership record with the default program id and grant all the benefits and ----responibilities associated with this program.
5090:
5091: PV_Pg_Memberships_PVT.Create_Pg_memberships
5092: (
5093: p_api_version_number=>1.0
5094: ,p_init_msg_list => FND_API.g_false
5095: ,p_commit => FND_API.G_FALSE
5096: ,p_validation_level => FND_API.g_valid_level_full
5097: ,x_return_status => x_return_status
5098: ,x_msg_count => x_msg_count
5091: PV_Pg_Memberships_PVT.Create_Pg_memberships
5092: (
5093: p_api_version_number=>1.0
5094: ,p_init_msg_list => FND_API.g_false
5095: ,p_commit => FND_API.G_FALSE
5096: ,p_validation_level => FND_API.g_valid_level_full
5097: ,x_return_status => x_return_status
5098: ,x_msg_count => x_msg_count
5099: ,x_msg_data => x_msg_data
5092: (
5093: p_api_version_number=>1.0
5094: ,p_init_msg_list => FND_API.g_false
5095: ,p_commit => FND_API.G_FALSE
5096: ,p_validation_level => FND_API.g_valid_level_full
5097: ,x_return_status => x_return_status
5098: ,x_msg_count => x_msg_count
5099: ,x_msg_data => x_msg_data
5100: ,p_memb_rec => pv_pg_memb_rec
5100: ,p_memb_rec => pv_pg_memb_rec
5101: ,x_membership_id => l_membership_id
5102: );
5103:
5104: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5108: END IF;
5101: ,x_membership_id => l_membership_id
5102: );
5103:
5104: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5108: END IF;
5109:
5102: );
5103:
5104: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5108: END IF;
5109:
5110: -- call responsiblity management api.
5103:
5104: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5105: RAISE FND_API.G_EXC_ERROR;
5106: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5108: END IF;
5109:
5110: -- call responsiblity management api.
5111:
5110: -- call responsiblity management api.
5111:
5112: Pv_User_Resp_Pvt.manage_memb_resp
5113: ( p_api_version_number => 1.0
5114: ,p_init_msg_list => Fnd_Api.g_false
5115: ,p_commit => Fnd_Api.g_false
5116: ,p_membership_id => l_membership_id
5117: ,x_return_status => x_return_status
5118: ,x_msg_count => x_msg_count
5111:
5112: Pv_User_Resp_Pvt.manage_memb_resp
5113: ( p_api_version_number => 1.0
5114: ,p_init_msg_list => Fnd_Api.g_false
5115: ,p_commit => Fnd_Api.g_false
5116: ,p_membership_id => l_membership_id
5117: ,x_return_status => x_return_status
5118: ,x_msg_count => x_msg_count
5119: ,x_msg_data => x_msg_data
5118: ,x_msg_count => x_msg_count
5119: ,x_msg_data => x_msg_data
5120: );
5121:
5122: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5119: ,x_msg_data => x_msg_data
5120: );
5121:
5122: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5127:
5120: );
5121:
5122: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5127:
5128: OPEN c_program_csr( l_default_program_id );
5121:
5122: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5127:
5128: OPEN c_program_csr( l_default_program_id );
5129: FETCH c_program_csr INTO l_program_name;
5142: ,p_partner_id => p_partner_id
5143: ,p_access_level_flag => 'P'
5144: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
5145: ,p_log_params_tbl => l_param_tbl_var
5146: ,p_init_msg_list => FND_API.g_false
5147: ,p_commit => FND_API.G_FALSE
5148: ,x_return_status => x_return_status
5149: ,x_msg_count => x_msg_count
5150: ,x_msg_data => x_msg_data
5143: ,p_access_level_flag => 'P'
5144: ,p_interaction_level => PVX_Utility_PVT.G_INTERACTION_LEVEL_50
5145: ,p_log_params_tbl => l_param_tbl_var
5146: ,p_init_msg_list => FND_API.g_false
5147: ,p_commit => FND_API.G_FALSE
5148: ,x_return_status => x_return_status
5149: ,x_msg_count => x_msg_count
5150: ,x_msg_data => x_msg_data
5151: );
5160: IF l_isPrimaryFlag= 'Y' THEN
5161: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
5162: (
5163: p_api_version_number => 1.0
5164: , p_init_msg_list => Fnd_Api.g_false
5165: , p_commit => Fnd_Api.g_false
5166: , p_validation_level => FND_API.g_valid_level_full
5167: , p_context_id => p_partner_id
5168: , p_context_code => 'PARTNER'
5161: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
5162: (
5163: p_api_version_number => 1.0
5164: , p_init_msg_list => Fnd_Api.g_false
5165: , p_commit => Fnd_Api.g_false
5166: , p_validation_level => FND_API.g_valid_level_full
5167: , p_context_id => p_partner_id
5168: , p_context_code => 'PARTNER'
5169: , p_target_ctgry => 'PARTNER'
5162: (
5163: p_api_version_number => 1.0
5164: , p_init_msg_list => Fnd_Api.g_false
5165: , p_commit => Fnd_Api.g_false
5166: , p_validation_level => FND_API.g_valid_level_full
5167: , p_context_id => p_partner_id
5168: , p_context_code => 'PARTNER'
5169: , p_target_ctgry => 'PARTNER'
5170: , p_target_ctgry_pt_id => p_partner_id
5177: , x_msg_data => x_msg_data
5178: );
5179:
5180:
5181: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5182: RAISE FND_API.G_EXC_ERROR;
5183: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5185: END IF;
5178: );
5179:
5180:
5181: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5182: RAISE FND_API.G_EXC_ERROR;
5183: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5185: END IF;
5186: END IF;
5179:
5180:
5181: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5182: RAISE FND_API.G_EXC_ERROR;
5183: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5185: END IF;
5186: END IF;
5187:
5180:
5181: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5182: RAISE FND_API.G_EXC_ERROR;
5183: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5185: END IF;
5186: END IF;
5187:
5188: END IF;
5186: END IF;
5187:
5188: END IF;
5189: -- Standard check for p_commit
5190: IF FND_API.to_Boolean( p_commit ) THEN
5191: COMMIT WORK;
5192: END IF;
5193:
5194: EXCEPTION
5193:
5194: EXCEPTION
5195:
5196:
5197: WHEN FND_API.G_EXC_ERROR THEN
5198: ROLLBACK TO Create_Default_Membership;
5199: x_return_status := FND_API.G_RET_STS_ERROR;
5200: -- Standard call to get message count and if count=1, get the message
5201: FND_MSG_PUB.Count_And_Get (
5195:
5196:
5197: WHEN FND_API.G_EXC_ERROR THEN
5198: ROLLBACK TO Create_Default_Membership;
5199: x_return_status := FND_API.G_RET_STS_ERROR;
5200: -- Standard call to get message count and if count=1, get the message
5201: FND_MSG_PUB.Count_And_Get (
5202: p_encoded => FND_API.G_FALSE,
5203: p_count => x_msg_count,
5198: ROLLBACK TO Create_Default_Membership;
5199: x_return_status := FND_API.G_RET_STS_ERROR;
5200: -- Standard call to get message count and if count=1, get the message
5201: FND_MSG_PUB.Count_And_Get (
5202: p_encoded => FND_API.G_FALSE,
5203: p_count => x_msg_count,
5204: p_data => x_msg_data
5205: );
5206:
5203: p_count => x_msg_count,
5204: p_data => x_msg_data
5205: );
5206:
5207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5208: ROLLBACK TO Create_Default_Membership;
5209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: -- Standard call to get message count and if count=1, get the message
5211: FND_MSG_PUB.Count_And_Get (
5205: );
5206:
5207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5208: ROLLBACK TO Create_Default_Membership;
5209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: -- Standard call to get message count and if count=1, get the message
5211: FND_MSG_PUB.Count_And_Get (
5212: p_encoded => FND_API.G_FALSE,
5213: p_count => x_msg_count,
5208: ROLLBACK TO Create_Default_Membership;
5209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5210: -- Standard call to get message count and if count=1, get the message
5211: FND_MSG_PUB.Count_And_Get (
5212: p_encoded => FND_API.G_FALSE,
5213: p_count => x_msg_count,
5214: p_data => x_msg_data
5215: );
5216:
5215: );
5216:
5217: WHEN OTHERS THEN
5218: ROLLBACK TO Create_Default_Membership;
5219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5220: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5221: THEN
5222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5223: END IF;
5222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5223: END IF;
5224: -- Standard call to get message count and if count=1, get the message
5225: FND_MSG_PUB.Count_And_Get (
5226: p_encoded => FND_API.G_FALSE,
5227: p_count => x_msg_count,
5228: p_data => x_msg_data
5229: );
5230:
5241:
5242: PROCEDURE send_notifications
5243: (
5244: p_api_version_number IN NUMBER
5245: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5246: , p_commit IN VARCHAR2 := FND_API.G_FALSE
5247: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
5248: , p_partner_id IN NUMBER
5249: , p_enrl_request_id IN NUMBER -- enrollment request id
5242: PROCEDURE send_notifications
5243: (
5244: p_api_version_number IN NUMBER
5245: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5246: , p_commit IN VARCHAR2 := FND_API.G_FALSE
5247: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
5248: , p_partner_id IN NUMBER
5249: , p_enrl_request_id IN NUMBER -- enrollment request id
5250: , p_memb_type IN VARCHAR2 -- member type of the partner
5243: (
5244: p_api_version_number IN NUMBER
5245: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5246: , p_commit IN VARCHAR2 := FND_API.G_FALSE
5247: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
5248: , p_partner_id IN NUMBER
5249: , p_enrl_request_id IN NUMBER -- enrollment request id
5250: , p_memb_type IN VARCHAR2 -- member type of the partner
5251: , p_enrq_status IN VARCHAR2 -- enrollment_status pass 'AWAITING_APPROVAL' incase submitting for approval
5294: BEGIN
5295: -- Standard Start of API savepoint
5296: SAVEPOINT send_notifications ;
5297: -- Standard call to check for call compatibility.
5298: IF NOT FND_API.Compatible_API_Call
5299: ( l_api_version_number
5300: ,p_api_version_number
5301: ,l_api_name
5302: ,G_PKG_NAME
5301: ,l_api_name
5302: ,G_PKG_NAME
5303: )
5304: THEN
5305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5306: END IF;
5307: -- Initialize message list if p_init_msg_list is set to TRUE.
5308: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5309: FND_MSG_PUB.initialize;
5304: THEN
5305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5306: END IF;
5307: -- Initialize message list if p_init_msg_list is set to TRUE.
5308: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5309: FND_MSG_PUB.initialize;
5310: END IF;
5311: -- Debug Message
5312: PVX_UTILITY_PVT.debug_message( 'Private API: ' || l_api_name || 'start' );
5310: END IF;
5311: -- Debug Message
5312: PVX_UTILITY_PVT.debug_message( 'Private API: ' || l_api_name || 'start' );
5313: -- Initialize API return status to SUCCESS
5314: x_return_status := FND_API.G_RET_STS_SUCCESS;
5315: -- Validate Environment
5316: IF FND_GLOBAL.USER_ID IS NULL THEN
5317: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
5318: RAISE FND_API.G_EXC_ERROR;
5314: x_return_status := FND_API.G_RET_STS_SUCCESS;
5315: -- Validate Environment
5316: IF FND_GLOBAL.USER_ID IS NULL THEN
5317: PVX_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
5318: RAISE FND_API.G_EXC_ERROR;
5319: END IF;
5320:
5321: --validate the lookupcode for target category
5322: l_lookup_exists := PVX_UTILITY_PVT.check_lookup_exists
5324: ,p_lookup_type => 'PV_ENRQ_REQUEST_STATUS_CODE'
5325: ,p_lookup_code => p_enrq_status
5326: );
5327:
5328: IF NOT FND_API.to_boolean(l_lookup_exists) THEN
5329: FND_MESSAGE.set_name('PV', 'PV_INVALID_LOOKUP_CODE');
5330: FND_MESSAGE.set_token('LOOKUP_TYPE','PV_ENRQ_REQUEST_STATUS_CODE' );
5331: FND_MESSAGE.set_token('LOOKUP_CODE', p_enrq_status );
5332: RAISE FND_API.G_EXC_ERROR;
5328: IF NOT FND_API.to_boolean(l_lookup_exists) THEN
5329: FND_MESSAGE.set_name('PV', 'PV_INVALID_LOOKUP_CODE');
5330: FND_MESSAGE.set_token('LOOKUP_TYPE','PV_ENRQ_REQUEST_STATUS_CODE' );
5331: FND_MESSAGE.set_token('LOOKUP_CODE', p_enrq_status );
5332: RAISE FND_API.G_EXC_ERROR;
5333: END IF;
5334:
5335: -- send thank you notifictaion
5336: IF p_enrq_status ='AWAITING_APPROVAL' THEN
5351: , x_return_status => x_return_status
5352: , x_msg_count => x_msg_count
5353: , x_msg_data => x_msg_data
5354: );
5355: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5356: RAISE FND_API.G_EXC_ERROR;
5357: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5359: END IF;
5352: , x_msg_count => x_msg_count
5353: , x_msg_data => x_msg_data
5354: );
5355: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5356: RAISE FND_API.G_EXC_ERROR;
5357: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5359: END IF;
5360: END IF;
5353: , x_msg_data => x_msg_data
5354: );
5355: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5356: RAISE FND_API.G_EXC_ERROR;
5357: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5359: END IF;
5360: END IF;
5361:
5354: );
5355: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5356: RAISE FND_API.G_EXC_ERROR;
5357: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5359: END IF;
5360: END IF;
5361:
5362: l_memb_type := p_memb_type;
5381: END IF;
5382: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
5383: (
5384: p_api_version_number => 1.0
5385: , p_init_msg_list => FND_API.G_FALSE
5386: , p_commit => FND_API.G_FALSE
5387: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5388: , p_context_id => p_partner_id --this should be subsidiary partner_id.
5389: , p_context_code => l_context_code
5382: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
5383: (
5384: p_api_version_number => 1.0
5385: , p_init_msg_list => FND_API.G_FALSE
5386: , p_commit => FND_API.G_FALSE
5387: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5388: , p_context_id => p_partner_id --this should be subsidiary partner_id.
5389: , p_context_code => l_context_code
5390: , p_target_ctgry => 'GLOBAL'
5383: (
5384: p_api_version_number => 1.0
5385: , p_init_msg_list => FND_API.G_FALSE
5386: , p_commit => FND_API.G_FALSE
5387: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5388: , p_context_id => p_partner_id --this should be subsidiary partner_id.
5389: , p_context_code => l_context_code
5390: , p_target_ctgry => 'GLOBAL'
5391: , p_target_ctgry_pt_id => l_global_partner_id -- this should be global partner id
5396: , x_return_status => x_return_status
5397: , x_msg_count => x_msg_count
5398: , x_msg_data => x_msg_data
5399: );
5400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5401: RAISE FND_API.G_EXC_ERROR;
5402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404: END IF;
5397: , x_msg_count => x_msg_count
5398: , x_msg_data => x_msg_data
5399: );
5400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5401: RAISE FND_API.G_EXC_ERROR;
5402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404: END IF;
5405: END IF;
5398: , x_msg_data => x_msg_data
5399: );
5400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5401: RAISE FND_API.G_EXC_ERROR;
5402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404: END IF;
5405: END IF;
5406: -- also need to make a call to send notifictaion to VAD incase this enrollment is beacuse of VAD inviation
5399: );
5400: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5401: RAISE FND_API.G_EXC_ERROR;
5402: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404: END IF;
5405: END IF;
5406: -- also need to make a call to send notifictaion to VAD incase this enrollment is beacuse of VAD inviation
5407: -- pass notifp_notif_event_code => 'IMP_APPLY' if its apply
5419: END IF;
5420: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
5421: (
5422: p_api_version_number => 1.0
5423: , p_init_msg_list => FND_API.G_FALSE
5424: , p_commit => FND_API.G_FALSE
5425: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5426: , p_context_id => p_partner_id --this should be partner_id.
5427: , p_context_code => 'PARTNER'
5420: PV_PG_NOTIF_UTILITY_PVT.Send_Workflow_Notification
5421: (
5422: p_api_version_number => 1.0
5423: , p_init_msg_list => FND_API.G_FALSE
5424: , p_commit => FND_API.G_FALSE
5425: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5426: , p_context_id => p_partner_id --this should be partner_id.
5427: , p_context_code => 'PARTNER'
5428: , p_target_ctgry => 'VAD'
5421: (
5422: p_api_version_number => 1.0
5423: , p_init_msg_list => FND_API.G_FALSE
5424: , p_commit => FND_API.G_FALSE
5425: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5426: , p_context_id => p_partner_id --this should be partner_id.
5427: , p_context_code => 'PARTNER'
5428: , p_target_ctgry => 'VAD'
5429: , p_target_ctgry_pt_id => l_vad_ptr_id -- this should be VAD PARTNER ID
5434: , x_return_status => x_return_status
5435: , x_msg_count => x_msg_count
5436: , x_msg_data => x_msg_data
5437: );
5438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5439: RAISE FND_API.G_EXC_ERROR;
5440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5442: END IF;
5435: , x_msg_count => x_msg_count
5436: , x_msg_data => x_msg_data
5437: );
5438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5439: RAISE FND_API.G_EXC_ERROR;
5440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5442: END IF;
5443: END IF;
5436: , x_msg_data => x_msg_data
5437: );
5438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5439: RAISE FND_API.G_EXC_ERROR;
5440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5442: END IF;
5443: END IF;
5444: -- Debug Message
5437: );
5438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5439: RAISE FND_API.G_EXC_ERROR;
5440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5442: END IF;
5443: END IF;
5444: -- Debug Message
5445: PVX_UTILITY_PVT.debug_message( 'Private API: ' || l_api_name || 'end' );
5448: (
5449: p_count => x_msg_count
5450: , p_data => x_msg_data
5451: );
5452: IF FND_API.to_Boolean( p_commit ) THEN
5453: COMMIT WORK;
5454: END IF;
5455:
5456: EXCEPTION
5453: COMMIT WORK;
5454: END IF;
5455:
5456: EXCEPTION
5457: WHEN FND_API.G_EXC_ERROR THEN
5458: ROLLBACK TO send_notifications;
5459: x_return_status := FND_API.G_RET_STS_ERROR;
5460: -- Standard call to get message count and if count=1, get the message
5461: FND_MSG_PUB.Count_And_Get (
5455:
5456: EXCEPTION
5457: WHEN FND_API.G_EXC_ERROR THEN
5458: ROLLBACK TO send_notifications;
5459: x_return_status := FND_API.G_RET_STS_ERROR;
5460: -- Standard call to get message count and if count=1, get the message
5461: FND_MSG_PUB.Count_And_Get (
5462: p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5458: ROLLBACK TO send_notifications;
5459: x_return_status := FND_API.G_RET_STS_ERROR;
5460: -- Standard call to get message count and if count=1, get the message
5461: FND_MSG_PUB.Count_And_Get (
5462: p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data
5465: );
5466:
5463: p_count => x_msg_count,
5464: p_data => x_msg_data
5465: );
5466:
5467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5468: ROLLBACK TO send_notifications;
5469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5470: -- Standard call to get message count and if count=1, get the message
5471: FND_MSG_PUB.Count_And_Get (
5465: );
5466:
5467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5468: ROLLBACK TO send_notifications;
5469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5470: -- Standard call to get message count and if count=1, get the message
5471: FND_MSG_PUB.Count_And_Get (
5472: p_encoded => FND_API.G_FALSE,
5473: p_count => x_msg_count,
5468: ROLLBACK TO send_notifications;
5469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5470: -- Standard call to get message count and if count=1, get the message
5471: FND_MSG_PUB.Count_And_Get (
5472: p_encoded => FND_API.G_FALSE,
5473: p_count => x_msg_count,
5474: p_data => x_msg_data
5475: );
5476:
5475: );
5476:
5477: WHEN OTHERS THEN
5478: ROLLBACK TO send_notifications;
5479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5480: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5481: THEN
5482: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5483: END IF;
5482: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5483: END IF;
5484: -- Standard call to get message count and if count=1, get the message
5485: FND_MSG_PUB.Count_And_Get (
5486: p_encoded => FND_API.G_FALSE,
5487: p_count => x_msg_count,
5488: p_data => x_msg_data
5489: );
5490: END send_notifications;