94:
95: TYPE num_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
96:
97: --to check whether there is a price list line or not
98: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
99: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
100: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
101:
102: --------------------------------------------------------------------------
95: TYPE num_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
96:
97: --to check whether there is a price list line or not
98: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
99: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
100: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
101:
102: --------------------------------------------------------------------------
103: -- PROCEDURE
96:
97: --to check whether there is a price list line or not
98: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
99: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
100: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
101:
102: --------------------------------------------------------------------------
103: -- PROCEDURE
104: -- check_price_exists
252:
253: -- IF (p_program_rec.item_number IS NULL
254: -- OR p_program_rec.item_number = FND_API.g_miss_char)
255: -- THEN
256: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
257: -- THEN
258: -- FND_MESSAGE.set_name('PV', 'PV_PROGRAM_ENTER_PROPER_PARTNO');
259: -- FND_MSG_PUB.add;
260: -- END IF;
255: -- THEN
256: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
257: -- THEN
258: -- FND_MESSAGE.set_name('PV', 'PV_PROGRAM_ENTER_PROPER_PARTNO');
259: -- FND_MSG_PUB.add;
260: -- END IF;
261: -- x_return_status := FND_API.g_ret_sts_error;
262: -- RETURN;
263: -- END IF;
264:
265:
266: IF (l_org_Id IS NULL)
267: THEN
268: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
269: THEN
270: FND_MESSAGE.set_name('PV', 'PV_SET_MASTER_INV_ORG_ID');
271: FND_MSG_PUB.add;
272: END IF;
267: THEN
268: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
269: THEN
270: FND_MESSAGE.set_name('PV', 'PV_SET_MASTER_INV_ORG_ID');
271: FND_MSG_PUB.add;
272: END IF;
273: x_return_status := FND_API.g_ret_sts_error;
274: RETURN;
275: END IF;
275: END IF;
276:
277: IF (l_uom_code IS NULL)
278: THEN
279: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
280: THEN
281: FND_MESSAGE.set_name('PV', 'PV_SET_DEFAULT_UOM_CODE');
282: FND_MSG_PUB.add;
283: END IF;
278: THEN
279: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
280: THEN
281: FND_MESSAGE.set_name('PV', 'PV_SET_DEFAULT_UOM_CODE');
282: FND_MSG_PUB.add;
283: END IF;
284: x_return_status := FND_API.g_ret_sts_error;
285: RETURN;
286: END IF;
289:
290: l_flx_fld := FND_PROFILE.Value_Specific('PV_PROGRAM_INV_FLEX_SEGMENTS',null,null,691);
291: IF (l_flx_fld IS NULL)
292: THEN
293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
294: THEN
295: FND_MESSAGE.set_name('PV', 'PV_PROGRAM_INVENTORY_NOT_SET');
296: FND_MSG_PUB.add;
297: END IF;
292: THEN
293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
294: THEN
295: FND_MESSAGE.set_name('PV', 'PV_PROGRAM_INVENTORY_NOT_SET');
296: FND_MSG_PUB.add;
297: END IF;
298: x_return_status := FND_API.g_ret_sts_error;
299: RETURN;
300: END IF;
302: --check whether the profile value for PV_PROGRAM_INV_FLEX_SEGMENTS contains PV_PRGM_FLEX_CODE
303: l_no:=INSTR(l_flx_fld,'PV_PRGM_FLEX_CODE');
304: IF l_no=0 THEN
305: FND_MESSAGE.set_name('PV', 'PV_PRGM_PROF_VAL_INCORRECT');
306: FND_MSG_PUB.add;
307: RAISE FND_API.G_EXC_ERROR;
308: END IF;
309: -- /*** here pre concatenating the val with 1st Five characters of the program Name so it is the unique ***/
310: -- Anothor reason for adding the program Name is bcos in the Order Mngmt screen the search is based on the
340: CLOSE uom_csr;
341:
342: IF l_flag is NULL THEN
343: Fnd_Message.SET_NAME('PV','PV_UOM_CODE_NOT_DEFINED');
344: Fnd_Msg_Pub.ADD;
345: RAISE FND_API.G_EXC_ERROR;
346: END IF;
347:
348: -- calling the inventory creation API
383: || ', table name is '||x_error_tbl(i).table_name
384: || ', column name is '||x_error_tbl(i).column_name
385: || ', unique_id is ' ||x_error_tbl(i).unique_id
386: || ', organisation id is ' || x_error_tbl(i).organization_id);
387: Fnd_Msg_Pub.ADD;
388: END LOOP;
389:
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
454: BEGIN
455:
456: IF (l_uom_code IS NULL)
457: THEN
458: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
459: THEN
460: FND_MESSAGE.set_name('PV', 'PV_SET_DEFAULT_UOM_CODE');
461: FND_MSG_PUB.add;
462: END IF;
457: THEN
458: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
459: THEN
460: FND_MESSAGE.set_name('PV', 'PV_SET_DEFAULT_UOM_CODE');
461: FND_MSG_PUB.add;
462: END IF;
463: x_return_status := FND_API.g_ret_sts_error;
464: RETURN;
465: END IF;
670: -- END LOOP;
671:
672: -- dbms_output.put_line('Printing Error Messages from FND');
673: --
674: -- l_count := FND_MSG_PUB.count_msg;
675: -- FOR i IN 1 .. l_count LOOP
676: -- l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
677: -- -- holiu: remove since adchkdrv does not like it
678: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
672: -- dbms_output.put_line('Printing Error Messages from FND');
673: --
674: -- l_count := FND_MSG_PUB.count_msg;
675: -- FOR i IN 1 .. l_count LOOP
676: -- l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
677: -- -- holiu: remove since adchkdrv does not like it
678: -- DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
679: -- END LOOP;
680:
727: );
728:
729: WHEN OTHERS THEN
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
732: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'CREATE_PAROGRAM');
733: END IF;
734:
735: -- Standard call to get message count and if count=1, get the message
728:
729: WHEN OTHERS THEN
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
732: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'CREATE_PAROGRAM');
733: END IF;
734:
735: -- Standard call to get message count and if count=1, get the message
736: FND_MSG_PUB.Count_And_Get (
732: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'CREATE_PAROGRAM');
733: END IF;
734:
735: -- Standard call to get message count and if count=1, get the message
736: FND_MSG_PUB.Count_And_Get (
737: p_encoded => FND_API.G_FALSE
738: ,p_count => x_msg_count
739: ,p_data => x_msg_data
740: );
979: IF l_status_code IS NULL THEN
980: x_return_status := FND_API.g_ret_sts_error;
981: FND_MESSAGE.set_name('PV', 'PV_PROGRAM_BAD_USER_STATUS');
982: FND_MESSAGE.set_token('ID',to_char( p_user_status_id) );
983: FND_MSG_PUB.add;
984: END IF;
985:
986: x_status_code := l_status_code;
987:
1040:
1041: -- Initialize message list if p_init_msg_list is set to TRUE.
1042: IF FND_API.to_Boolean( p_init_msg_list )
1043: THEN
1044: FND_MSG_PUB.initialize;
1045: END IF;
1046:
1047: -- Standard call to check for call compatibility.
1048: IF NOT FND_API.Compatible_API_Call (
1068: --------------- validate -------------------------
1069:
1070: IF FND_GLOBAL.User_Id IS NULL THEN
1071: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1072: FND_MSG_PUB.add;
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075: get_program_status_code(l_ptr_prgm_rec.user_status_id,l_ptr_prgm_rec.program_status_code,x_return_status);
1076:
1099: --get the currency of the logged in user
1100: l_currency:=FND_PROFILE.Value('ICX_PREFERRED_CURRENCY');
1101: IF l_currency IS NULL THEN
1102: FND_MESSAGE.set_name('PV', 'PV_PRGM_CURRENCY_UNDEFINED');
1103: FND_MSG_PUB.add;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106:
1107: --program name is a required filed for process rule api and so doing the validation here.
1108: IF l_ptr_prgm_rec.program_name = FND_API.g_miss_char
1109: OR l_ptr_prgm_rec.program_name IS NULL THEN
1110: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1111: FND_MESSAGE.set_token('COLUMN','PROGRAM_NAME');
1112: FND_MSG_PUB.add;
1113: RAISE FND_API.g_exc_error;
1114:
1115: END IF;
1116: -- Create and get process_rule_id
1382:
1383:
1384: IF l_ptr_prgm_rec.program_start_date>=l_ptr_prgm_rec.program_end_date THEN
1385: FND_MESSAGE.set_name('PV', 'PV_END_DATE_SMALL_START_DATE');
1386: FND_MSG_PUB.add;
1387: RAISE FND_API.G_EXC_ERROR;
1388: END IF;
1389:
1390:
1391: IF l_ptr_prgm_rec.program_parent_id is not null THEN
1392: l_start_end_date_within_range:=isStartEndDateInRange(l_ptr_prgm_rec.program_parent_id,l_ptr_prgm_rec.program_start_date,l_ptr_prgm_rec.program_end_date);
1393: IF l_start_end_date_within_range=false THEN
1394: FND_MESSAGE.set_name('PV', 'PV_START_END_DATE_NOT_IN_RANGE');
1395: FND_MSG_PUB.add;
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1398: END IF ;
1399:
1408: ,l_ptr_prgm_rec.program_end_date
1409: );
1410: IF l_isNoEnrlDateInRange=false THEN
1411: FND_MESSAGE.set_name('PV', 'PV_ENRL_DATE_NOT_INRANGE');
1412: FND_MSG_PUB.add;
1413: RAISE FND_API.G_EXC_ERROR;
1414: END IF;
1415:
1416: END IF;
1658:
1659: END IF;
1660:
1661: -- Standard call to get message count and if count=1, get the message
1662: FND_MSG_PUB.Count_And_Get (
1663: p_encoded => FND_API.G_FALSE
1664: ,p_count => x_msg_count
1665: ,p_data => x_msg_data
1666: );
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1677: ROLLBACK TO CREATE_Partner_Program_PVT;
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: -- Standard call to get message count and if count=1, get the message
1680: FND_MSG_PUB.Count_And_Get (
1681: p_encoded => FND_API.G_FALSE
1682: ,p_count => x_msg_count
1683: ,p_data => x_msg_data
1684: );
1685:
1686: WHEN OTHERS THEN
1687: ROLLBACK TO CREATE_Partner_Program_PVT;
1688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1689: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1690: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1691: END IF;
1692:
1693: -- Standard call to get message count and if count=1, get the message
1686: WHEN OTHERS THEN
1687: ROLLBACK TO CREATE_Partner_Program_PVT;
1688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1689: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1690: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1691: END IF;
1692:
1693: -- Standard call to get message count and if count=1, get the message
1694: FND_MSG_PUB.Count_And_Get (
1690: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1691: END IF;
1692:
1693: -- Standard call to get message count and if count=1, get the message
1694: FND_MSG_PUB.Count_And_Get (
1695: p_encoded => FND_API.G_FALSE
1696: ,p_count => x_msg_count
1697: ,p_data => x_msg_data
1698: );
1790:
1791: -- Initialize message list if p_init_msg_list is set to TRUE.
1792: IF FND_API.to_Boolean( p_init_msg_list )
1793: THEN
1794: FND_MSG_PUB.initialize;
1795: END IF;
1796:
1797: -- Initialize API return status to SUCCESS
1798: x_return_status := FND_API.G_RET_STS_SUCCESS;
1810: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_ENTITY');
1811: FND_MESSAGE.set_token('MODE','Update');
1812: FND_MESSAGE.set_token('ENTITY','Partner_Program');
1813: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_ptr_prgm_rec.program_id));
1814: FND_MSG_PUB.add;
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF;
1817:
1818: -- Debug Message
1826: l_tar_ptr_prgm_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1827:
1828: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
1829: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
1830: FND_MSG_PUB.add;
1831: RAISE FND_API.G_EXC_ERROR;
1832: End if;
1833:
1834: -- Check Whether record has been changed by someone else
1834: -- Check Whether record has been changed by someone else
1835: If (l_tar_ptr_prgm_rec.object_version_number <> l_ref_ptr_prgm_rec.object_version_number) THEN
1836: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
1837: FND_MESSAGE.set_token('VALUE','Partner_Program');
1838: FND_MSG_PUB.add;
1839: RAISE FND_API.G_EXC_ERROR;
1840: End if;
1841:
1842: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1896: get_program_status_code(l_tar_ptr_prgm_rec.user_status_id,l_tar_ptr_prgm_rec.program_status_code,x_return_status);
1897:
1898: IF l_tar_ptr_prgm_rec.program_start_date>=l_tar_ptr_prgm_rec.program_end_date THEN
1899: FND_MESSAGE.set_name('PV', 'PV_END_DATE_SMALL_START_DATE');
1900: FND_MSG_PUB.add;
1901: RAISE FND_API.G_EXC_ERROR;
1902: END IF;
1903:
1904: IF (l_tar_ptr_prgm_rec.program_parent_id is not null) and (l_tar_ptr_prgm_rec.program_parent_id <> FND_API.g_miss_num) THEN
1904: IF (l_tar_ptr_prgm_rec.program_parent_id is not null) and (l_tar_ptr_prgm_rec.program_parent_id <> FND_API.g_miss_num) THEN
1905: l_start_end_date_within_range:=isStartEndDateInRange(l_tar_ptr_prgm_rec.program_parent_id,l_tar_ptr_prgm_rec.program_start_date,l_tar_ptr_prgm_rec.program_end_date);
1906: IF l_start_end_date_within_range=false THEN
1907: FND_MESSAGE.set_name('PV', 'PV_START_END_DATE_NOT_IN_RANGE');
1908: FND_MSG_PUB.add;
1909: RAISE FND_API.G_EXC_ERROR;
1910: END IF;
1911: END IF ;
1912:
1913: IF (l_tar_ptr_prgm_rec.program_parent_id is not null) and (l_tar_ptr_prgm_rec.program_parent_id <> FND_API.g_miss_num) and (l_tar_ptr_prgm_rec.program_status_code='ACTIVE') THEN
1914: l_activatable:=isChildActivatable(l_tar_ptr_prgm_rec.program_parent_id);
1915: IF l_activatable=false THEN
1916: FND_MESSAGE.set_name('PV', 'PV_PARENT_NOT_ACTIVATED');
1917: FND_MSG_PUB.add;
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920: END IF;
1921:
1928:
1929: l_check_inventory_item_exists:=check_inventory_item_exists(l_tar_ptr_prgm_rec.program_id);
1930: IF ( l_check_inventory_item_exists='N' ) THEN
1931: FND_MESSAGE.set_name('PV', 'PV_PRGM_INV_ITEM_UNDEFIND');
1932: FND_MSG_PUB.add;
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935:
1936: -- check whether price is defined for this membership
1937: l_check_price_exists:=check_price_exists(l_tar_ptr_prgm_rec.program_id);
1938:
1939: IF ( l_check_price_exists='N' ) THEN
1940: FND_MESSAGE.set_name('PV', 'PV_PRGM_PRICE_UNDEFINED_SUBMIT');
1941: FND_MSG_PUB.add;
1942: RAISE FND_API.G_EXC_ERROR;
1943: END IF;
1944: END IF;
1945:
1951:
1952: l_check_inventory_item_exists:=check_inventory_item_exists(l_tar_ptr_prgm_rec.program_id);
1953: IF ( l_check_inventory_item_exists='N' ) THEN
1954: FND_MESSAGE.set_name('PV', 'PV_PRGM_INV_ITEM_UNDEFIND');
1955: FND_MSG_PUB.add;
1956: RAISE FND_API.G_EXC_ERROR;
1957: END IF;
1958:
1959: l_check_price_exists:=check_price_exists(l_tar_ptr_prgm_rec.program_id);
1959: l_check_price_exists:=check_price_exists(l_tar_ptr_prgm_rec.program_id);
1960:
1961: IF ( l_check_price_exists='N' ) THEN
1962: FND_MESSAGE.set_name('PV', 'PV_PRGM_PRICE_UNDEFINED_ACTIVE');
1963: FND_MSG_PUB.add;
1964: RAISE FND_API.G_EXC_ERROR;
1965: END IF;
1966: END IF;
1967:
1978:
1979: --l_check_membership_duration:=check_membership_duration(l_tar_ptr_prgm_rec.program_id);
1980: --IF ( l_check_membership_duration='N' ) THEN
1981: FND_MESSAGE.set_name('PV', 'PV_PRGM_NO_DURATION');
1982: FND_MSG_PUB.add;
1983: RAISE FND_API.G_EXC_ERROR;
1984: -- END IF;
1985:
1986: END IF;
1991: l_tar_ptr_prgm_rec.program_level_code='MEMBERSHIP' and
1992: l_default_appr is NULL ) THEN
1993:
1994: FND_MESSAGE.set_name('PV', 'PV_ENRQ_DEFAULT_APPR_NOT_SET');
1995: FND_MSG_PUB.add;
1996: RAISE FND_API.G_EXC_ERROR;
1997:
1998: END IF;
1999:
2007: ,l_tar_ptr_prgm_rec.program_end_date
2008: );
2009: IF l_isNoEnrlDateInRange=false THEN
2010: FND_MESSAGE.set_name('PV', 'PV_ENRL_DATE_NOT_INRANGE');
2011: FND_MSG_PUB.add;
2012: RAISE FND_API.G_EXC_ERROR;
2013: END IF;
2014:
2015: END IF;
2100: IF l_tar_ptr_prgm_rec.program_status_code in ('CANCEL' ,'CLOSED') THEN
2101: l_is_ProgramCancellable:=isProgramCancellable(l_tar_ptr_prgm_rec.program_id);
2102: IF l_is_ProgramCancellable=false THEN
2103: FND_MESSAGE.set_name('PV', 'PV_CHILD_NOT_CANCLD_OR_CLSED');
2104: FND_MSG_PUB.add;
2105: RAISE FND_API.G_EXC_ERROR;
2106: END IF;
2107:
2108: END IF;
2120: IF (l_tar_ptr_prgm_rec.program_parent_id is not null) and (l_tar_ptr_prgm_rec.program_parent_id <> FND_API.g_miss_num) THEN
2121: l_is_parent_approved:=isParentApproved(l_tar_ptr_prgm_rec.program_parent_id);
2122: IF l_is_parent_approved=false THEN
2123: FND_MESSAGE.set_name('PV', 'PV_PARENT_NOT_APPROVED');
2124: FND_MSG_PUB.add;
2125: RAISE FND_API.G_EXC_ERROR;
2126: END IF;
2127: -- to flag that the child programs need to be submitted for approval
2128:
2166: );
2167:
2168: ELSE
2169: FND_MESSAGE.set_name('PV', 'PV_APPROVER_NOT_AVAILABLE');
2170: FND_MSG_PUB.add;
2171: RAISE FND_API.G_EXC_ERROR;
2172: END IF;
2173: END IF;
2174: /**IF l_tar_ptr_prgm_rec.program_status_code not in('CANCEL','CLOSED','ARCHIVE') THEN
2174: /**IF l_tar_ptr_prgm_rec.program_status_code not in('CANCEL','CLOSED','ARCHIVE') THEN
2175: l_enrollment_valid :=isEnrollApproverValid(l_tar_ptr_prgm_rec.program_id,l_tar_ptr_prgm_rec.program_end_date);
2176: IF l_enrollment_valid=false THEN
2177: FND_MESSAGE.set_name('PV', 'PV_ENROLLER_NOT_VALID');
2178: FND_MSG_PUB.add;
2179:
2180: END IF;
2181: END IF;
2182: */
2185: COMMIT;
2186: END IF;
2187:
2188:
2189: FND_MSG_PUB.count_and_get(
2190: p_encoded => FND_API.g_false
2191: ,p_count => x_msg_count
2192: ,p_data => x_msg_data
2193: );
2202: WHEN FND_API.G_EXC_ERROR THEN
2203: ROLLBACK TO UPDATE_Partner_Program_PVT;
2204: x_return_status := FND_API.G_RET_STS_ERROR;
2205: -- Standard call to get message count and if count=1, get the message
2206: FND_MSG_PUB.Count_And_Get (
2207: p_encoded => FND_API.G_FALSE
2208: ,p_count => x_msg_count
2209: ,p_data => x_msg_data
2210: );
2212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2213: ROLLBACK TO UPDATE_Partner_Program_PVT;
2214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2215: -- Standard call to get message count and if count=1, get the message
2216: FND_MSG_PUB.Count_And_Get (
2217: p_encoded => FND_API.G_FALSE
2218: ,p_count => x_msg_count
2219: ,p_data => x_msg_data
2220: );
2221:
2222: WHEN OTHERS THEN
2223: ROLLBACK TO UPDATE_Partner_Program_PVT;
2224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2225: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2226: THEN
2227: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2228: END IF;
2229: -- Standard call to get message count and if count=1, get the message
2223: ROLLBACK TO UPDATE_Partner_Program_PVT;
2224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2225: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2226: THEN
2227: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2228: END IF;
2229: -- Standard call to get message count and if count=1, get the message
2230: FND_MSG_PUB.Count_And_Get (
2231: p_encoded => FND_API.G_FALSE
2226: THEN
2227: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2228: END IF;
2229: -- Standard call to get message count and if count=1, get the message
2230: FND_MSG_PUB.Count_And_Get (
2231: p_encoded => FND_API.G_FALSE
2232: ,p_count => x_msg_count
2233: ,p_data => x_msg_data
2234: );
2293:
2294: -- Initialize message list if p_init_msg_list is set to TRUE.
2295: IF FND_API.to_Boolean( p_init_msg_list )
2296: THEN
2297: FND_MSG_PUB.initialize;
2298: END IF;
2299:
2300: -- Initialize API return status to SUCCESS
2301: x_return_status := FND_API.G_RET_STS_SUCCESS;
2309: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2310:
2311: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
2312: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
2313: FND_MSG_PUB.add;
2314: RAISE FND_API.G_EXC_ERROR;
2315: END IF;
2316:
2317: -- set values in record
2327: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_ENTITY');
2328: FND_MESSAGE.set_token('MODE','Update');
2329: FND_MESSAGE.set_token('ENTITY','Partner_Program');
2330: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_ptr_prgm_rec.program_id));
2331: FND_MSG_PUB.add;
2332: RAISE FND_API.G_EXC_ERROR;
2333: END IF;
2334:
2335: -- Debug Message
2343: l_tar_ptr_prgm_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
2344:
2345: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
2346: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
2347: FND_MSG_PUB.add;
2348: raise FND_API.G_EXC_ERROR;
2349: End if;
2350:
2351: -- Check Whether record has been changed by someone else
2351: -- Check Whether record has been changed by someone else
2352: If (l_tar_ptr_prgm_rec.object_version_number <> l_ref_ptr_prgm_rec.object_version_number) THEN
2353: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
2354: FND_MESSAGE.set_token('VALUE','Partner_Program');
2355: FND_MSG_PUB.add;
2356: raise FND_API.G_EXC_ERROR;
2357: End if;
2358: --Check whether the status is PENDING_APPROVAL. if so delete should not be allowed by raising exception
2359: If (l_ref_ptr_prgm_rec.program_status_code='PENDING_APPROVAL') THEN
2357: End if;
2358: --Check whether the status is PENDING_APPROVAL. if so delete should not be allowed by raising exception
2359: If (l_ref_ptr_prgm_rec.program_status_code='PENDING_APPROVAL') THEN
2360: FND_MESSAGE.set_name('PV', 'PV_PENDING_APPROVAL');
2361: FND_MSG_PUB.add;
2362: raise FND_API.G_EXC_ERROR;
2363: End if;
2364: l_is_deletable :=isProgramDeletable(l_tar_ptr_prgm_rec.program_id);
2365: if ( l_is_deletable =false) THEN
2363: End if;
2364: l_is_deletable :=isProgramDeletable(l_tar_ptr_prgm_rec.program_id);
2365: if ( l_is_deletable =false) THEN
2366: FND_MESSAGE.set_name('PV', 'PV_CHILD_PROGRAM');
2367: FND_MSG_PUB.add;
2368: raise FND_API.G_EXC_ERROR;
2369: End if;
2370:
2371: -- Debug Message
2384: IF FND_API.to_boolean(p_commit) THEN
2385: COMMIT;
2386: END IF;
2387:
2388: FND_MSG_PUB.count_and_get(
2389: p_encoded => FND_API.g_false
2390: ,p_count => x_msg_count
2391: ,p_data => x_msg_data
2392: );
2401: WHEN FND_API.G_EXC_ERROR THEN
2402: ROLLBACK TO DELETE_Partner_Program_PVT;
2403: x_return_status := FND_API.G_RET_STS_ERROR;
2404: -- Standard call to get message count and if count=1, get the message
2405: FND_MSG_PUB.Count_And_Get (
2406: p_encoded => FND_API.G_FALSE
2407: ,p_count => x_msg_count
2408: ,p_data => x_msg_data
2409: );
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: ROLLBACK TO DELETE_Partner_Program_PVT;
2413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2414: -- Standard call to get message count and if count=1, get the message
2415: FND_MSG_PUB.Count_And_Get (
2416: p_encoded => FND_API.G_FALSE
2417: ,p_count => x_msg_count
2418: ,p_data => x_msg_data
2419: );
2420:
2421: WHEN OTHERS THEN
2422: ROLLBACK TO DELETE_Partner_Program_PVT;
2423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2424: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2425: THEN
2426: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2427: END IF;
2428: -- Standard call to get message count and if count=1, get the message
2422: ROLLBACK TO DELETE_Partner_Program_PVT;
2423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2424: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2425: THEN
2426: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2427: END IF;
2428: -- Standard call to get message count and if count=1, get the message
2429: FND_MSG_PUB.Count_And_Get (
2430: p_encoded => FND_API.G_FALSE
2425: THEN
2426: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2427: END IF;
2428: -- Standard call to get message count and if count=1, get the message
2429: FND_MSG_PUB.Count_And_Get (
2430: p_encoded => FND_API.G_FALSE
2431: ,p_count => x_msg_count
2432: ,p_data => x_msg_data
2433: );
2471:
2472: -- Initialize message list if p_init_msg_list is set to TRUE.
2473: IF FND_API.to_Boolean( p_init_msg_list )
2474: THEN
2475: FND_MSG_PUB.initialize;
2476: END IF;
2477:
2478: -- Standard call to check for call compatibility.
2479: IF NOT FND_API.Compatible_API_Call (
2497: FETCH c_Partner_Program INTO l_PROGRAM_ID;
2498:
2499: IF (c_Partner_Program%NOTFOUND) THEN
2500: CLOSE c_Partner_Program;
2501: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2502: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_NOT_FOUND');
2503: FND_MSG_PUB.add;
2504: END IF;
2505: RAISE FND_API.g_exc_error;
2499: IF (c_Partner_Program%NOTFOUND) THEN
2500: CLOSE c_Partner_Program;
2501: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2502: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_NOT_FOUND');
2503: FND_MSG_PUB.add;
2504: END IF;
2505: RAISE FND_API.g_exc_error;
2506: END IF;
2507:
2507:
2508: CLOSE c_Partner_Program;
2509:
2510: -------------------- finish --------------------------
2511: FND_MSG_PUB.count_and_get(
2512: p_encoded => FND_API.g_false,
2513: p_count => x_msg_count,
2514: p_data => x_msg_data
2515: );
2529: WHEN FND_API.G_EXC_ERROR THEN
2530: ROLLBACK TO LOCK_Partner_Program_PVT;
2531: x_return_status := FND_API.G_RET_STS_ERROR;
2532: -- Standard call to get message count and if count=1, get the message
2533: FND_MSG_PUB.Count_And_Get (
2534: p_encoded => FND_API.G_FALSE
2535: ,p_count => x_msg_count
2536: ,p_data => x_msg_data
2537: );
2539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2540: ROLLBACK TO LOCK_Partner_Program_PVT;
2541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2542: -- Standard call to get message count and if count=1, get the message
2543: FND_MSG_PUB.Count_And_Get (
2544: p_encoded => FND_API.G_FALSE
2545: ,p_count => x_msg_count
2546: ,p_data => x_msg_data
2547: );
2548:
2549: WHEN OTHERS THEN
2550: ROLLBACK TO LOCK_Partner_Program_PVT;
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2553: THEN
2554: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2555: END IF;
2556: -- Standard call to get message count and if count=1, get the message
2550: ROLLBACK TO LOCK_Partner_Program_PVT;
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2553: THEN
2554: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2555: END IF;
2556: -- Standard call to get message count and if count=1, get the message
2557: FND_MSG_PUB.Count_And_Get (
2558: p_encoded => FND_API.G_FALSE
2553: THEN
2554: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2555: END IF;
2556: -- Standard call to get message count and if count=1, get the message
2557: FND_MSG_PUB.Count_And_Get (
2558: p_encoded => FND_API.G_FALSE
2559: ,p_count => x_msg_count
2560: ,p_data => x_msg_data
2561: );
2586: IF l_valid_flag = FND_API.g_false THEN
2587: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
2588: FND_MESSAGE.set_token('ID',to_char(p_ptr_prgm_rec.PROGRAM_ID) );
2589: FND_MESSAGE.set_token('ENTITY','Partner_Program');
2590: FND_MSG_PUB.add;
2591: x_return_status := FND_API.g_ret_sts_error;
2592: RETURN;
2593: END IF;
2594: -- Debug message
2606: IF l_valid_flag = FND_API.g_false THEN
2607: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
2608: FND_MESSAGE.set_token('ID',to_char(p_ptr_prgm_rec.PROCESS_RULE_ID) );
2609: FND_MESSAGE.set_token('ENTITY','Partner_Program');
2610: FND_MSG_PUB.add;
2611: x_return_status := FND_API.g_ret_sts_error;
2612: RETURN;
2613: END IF;
2614:
2626: IF l_valid_flag = FND_API.g_false THEN
2627: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
2628: FND_MESSAGE.set_token('ID',to_char(p_ptr_prgm_rec.PREREQ_PROCESS_RULE_ID) );
2629: FND_MESSAGE.set_token('ENTITY','Partner_Program');
2630: FND_MSG_PUB.add;
2631: x_return_status := FND_API.g_ret_sts_error;
2632: RETURN;
2633: END IF;
2634:
2657: IF p_ptr_prgm_rec.program_id = FND_API.g_miss_num
2658: OR p_ptr_prgm_rec.program_id IS NULL THEN
2659: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2660: FND_MESSAGE.set_token('COLUMN','PROGRAM_ID');
2661: FND_MSG_PUB.add;
2662: x_return_status := FND_API.g_ret_sts_error;
2663: RETURN;
2664: END IF;
2665:
2667: IF p_ptr_prgm_rec.PROGRAM_TYPE_ID = FND_API.g_miss_num
2668: OR p_ptr_prgm_rec.PROGRAM_TYPE_ID IS NULL THEN
2669: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2670: FND_MESSAGE.set_token('COLUMN','PROGRAM_TYPE_ID');
2671: FND_MSG_PUB.add;
2672: x_return_status := FND_API.g_ret_sts_error;
2673: RETURN;
2674: END IF;
2675:
2677: IF p_ptr_prgm_rec.custom_setup_id = FND_API.g_miss_num
2678: OR p_ptr_prgm_rec.custom_setup_id IS NULL THEN
2679: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2680: FND_MESSAGE.set_token('COLUMN','CUSTOM_SETUP_ID');
2681: FND_MSG_PUB.add;
2682: x_return_status := FND_API.g_ret_sts_error;
2683: RETURN;
2684: END IF;
2685:
2687: IF p_ptr_prgm_rec.program_level_code = FND_API.g_miss_char
2688: OR p_ptr_prgm_rec.program_level_code IS NULL THEN
2689: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2690: FND_MESSAGE.set_token('COLUMN','PROGRAM_LEVEL_CODE');
2691: FND_MSG_PUB.add;
2692: x_return_status := FND_API.g_ret_sts_error;
2693: RETURN;
2694: END IF;
2695:
2697: IF p_ptr_prgm_rec.program_owner_resource_id = FND_API.g_miss_num
2698: OR p_ptr_prgm_rec.program_owner_resource_id IS NULL THEN
2699: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2700: FND_MESSAGE.set_token('COLUMN','PROGRAM_OWNER_RESOURCE_ID');
2701: FND_MSG_PUB.add;
2702: x_return_status := FND_API.g_ret_sts_error;
2703: RETURN;
2704: END IF;
2705:
2707: IF p_ptr_prgm_rec.program_start_date = FND_API.g_miss_date
2708: OR p_ptr_prgm_rec.program_start_date IS NULL THEN
2709: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2710: FND_MESSAGE.set_token('COLUMN','PROGRAM_START_DATE');
2711: FND_MSG_PUB.add;
2712: x_return_status := FND_API.g_ret_sts_error;
2713: RETURN;
2714: END IF;
2715: -- Debug message
2722: IF p_ptr_prgm_rec.program_end_date = FND_API.g_miss_date
2723: OR p_ptr_prgm_rec.program_end_date IS NULL THEN
2724: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2725: FND_MESSAGE.set_token('COLUMN','PROGRAM_END_DATE');
2726: FND_MSG_PUB.add;
2727: x_return_status := FND_API.g_ret_sts_error;
2728: RETURN;
2729: END IF;
2730:
2732: IF p_ptr_prgm_rec.process_rule_id = FND_API.g_miss_num
2733: OR p_ptr_prgm_rec.process_rule_id IS NULL THEN
2734: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2735: FND_MESSAGE.set_token('COLUMN','PROCESS_RULE_ID');
2736: FND_MSG_PUB.add;
2737: x_return_status := FND_API.g_ret_sts_error;
2738: RETURN;
2739: END IF;
2740:
2742: IF p_ptr_prgm_rec.program_status_code = FND_API.g_miss_char
2743: OR p_ptr_prgm_rec.program_status_code IS NULL THEN
2744: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2745: FND_MESSAGE.set_token('COLUMN','PROGRAM_STATUS_CODE');
2746: FND_MSG_PUB.add;
2747: x_return_status := FND_API.g_ret_sts_error;
2748: RETURN;
2749: END IF;
2750:
2751: IF p_ptr_prgm_rec.submit_child_nodes = FND_API.g_miss_char
2752: OR p_ptr_prgm_rec.submit_child_nodes IS NULL THEN
2753: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2754: FND_MESSAGE.set_token('COLUMN','SUBMIT_CHILD_NODES');
2755: FND_MSG_PUB.add;
2756: x_return_status := FND_API.g_ret_sts_error;
2757: RETURN;
2758: END IF;
2759:
2761: IF p_ptr_prgm_rec.bus_user_resp_id = FND_API.g_miss_num
2762: OR p_ptr_prgm_rec.bus_user_resp_id IS NULL THEN
2763: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2764: FND_MESSAGE.set_token('COLUMN','BUS_USER_RESP_ID');
2765: FND_MSG_PUB.add;
2766: x_return_status := FND_API.g_ret_sts_error;
2767: RETURN;
2768: END IF;
2769:
2770: IF p_ptr_prgm_rec.admin_resp_id = FND_API.g_miss_num
2771: OR p_ptr_prgm_rec.admin_resp_id IS NULL THEN
2772: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2773: FND_MESSAGE.set_token('COLUMN','ADMIN_RESP_ID');
2774: FND_MSG_PUB.add;
2775: x_return_status := FND_API.g_ret_sts_error;
2776: RETURN;
2777: END IF;
2778: */
2779: IF p_ptr_prgm_rec.no_fee_flag = FND_API.g_miss_char
2780: OR p_ptr_prgm_rec.no_fee_flag IS NULL THEN
2781: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2782: FND_MESSAGE.set_token('COLUMN','NO_FEE_FLAG');
2783: FND_MSG_PUB.add;
2784: x_return_status := FND_API.g_ret_sts_error;
2785: RETURN;
2786: END IF;
2787:
2788: IF p_ptr_prgm_rec.user_status_id = FND_API.g_miss_num
2789: OR p_ptr_prgm_rec.user_status_id IS NULL THEN
2790: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2791: FND_MESSAGE.set_token('COLUMN','USER_STATUS_ID');
2792: FND_MSG_PUB.add;
2793: x_return_status := FND_API.g_ret_sts_error;
2794: RETURN;
2795: END IF;
2796:
2797: IF p_ptr_prgm_rec.enabled_flag = FND_API.g_miss_char
2798: OR p_ptr_prgm_rec.enabled_flag IS NULL THEN
2799: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2800: FND_MESSAGE.set_token('COLUMN','ENABLED_FLAG');
2801: FND_MSG_PUB.add;
2802: x_return_status := FND_API.g_ret_sts_error;
2803: RETURN;
2804: END IF;
2805:
2807: IF p_ptr_prgm_rec.object_version_number = FND_API.g_miss_num
2808: OR p_ptr_prgm_rec.object_version_number IS NULL THEN
2809: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2810: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
2811: FND_MSG_PUB.add;
2812: x_return_status := FND_API.g_ret_sts_error;
2813: RETURN;
2814: END IF;
2815:
2817: IF p_ptr_prgm_rec.creation_date = FND_API.g_miss_date
2818: OR p_ptr_prgm_rec.creation_date IS NULL THEN
2819: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2820: FND_MESSAGE.set_token('COLUMN','CREATION_DATE');
2821: FND_MSG_PUB.add;
2822: x_return_status := FND_API.g_ret_sts_error;
2823: RETURN;
2824: END IF;
2825:
2833: IF p_ptr_prgm_rec.created_by = FND_API.g_miss_num
2834: OR p_ptr_prgm_rec.created_by IS NULL THEN
2835: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2836: FND_MESSAGE.set_token('COLUMN','CREATED_BY');
2837: FND_MSG_PUB.add;
2838: x_return_status := FND_API.g_ret_sts_error;
2839: RETURN;
2840: END IF;
2841:
2843: IF p_ptr_prgm_rec.last_update_login = FND_API.g_miss_num
2844: OR p_ptr_prgm_rec.last_update_login IS NULL THEN
2845: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2846: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
2847: FND_MSG_PUB.add;
2848: x_return_status := FND_API.g_ret_sts_error;
2849: RETURN;
2850: END IF;
2851:
2853: IF p_ptr_prgm_rec.last_update_date = FND_API.g_miss_date
2854: OR p_ptr_prgm_rec.last_update_date IS NULL THEN
2855: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2856: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
2857: FND_MSG_PUB.add;
2858: x_return_status := FND_API.g_ret_sts_error;
2859: RETURN;
2860: END IF;
2861:
2863: IF p_ptr_prgm_rec.last_updated_by = FND_API.g_miss_num
2864: OR p_ptr_prgm_rec.last_updated_by IS NULL THEN
2865: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2866: FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
2867: FND_MSG_PUB.add;
2868: x_return_status := FND_API.g_ret_sts_error;
2869: RETURN;
2870: END IF;
2871:
2873: IF p_ptr_prgm_rec.program_name = FND_API.g_miss_char
2874: OR p_ptr_prgm_rec.program_name IS NULL THEN
2875: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2876: FND_MESSAGE.set_token('COLUMN','PROGRAM_NAME');
2877: FND_MSG_PUB.add;
2878: x_return_status := FND_API.g_ret_sts_error;
2879: RETURN;
2880: END IF;
2881: ELSE
2882:
2883: IF p_ptr_prgm_rec.program_id IS NULL THEN
2884: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2885: Fnd_Message.set_token('COLUMN','PROGRAM_ID');
2886: FND_MSG_PUB.add;
2887: x_return_status := FND_API.g_ret_sts_error;
2888: RETURN;
2889: END IF;
2890:
2891:
2892: IF p_ptr_prgm_rec.object_version_number IS NULL THEN
2893: Fnd_Message.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
2894: Fnd_Message.set_token('COLUMN','OBJECT_VERSION_NUMBER');
2895: FND_MSG_PUB.add;
2896: x_return_status := FND_API.g_ret_sts_error;
2897: RETURN;
2898: END IF;
2899: END IF;
2944: THEN
2945: OPEN c_resource_exists;
2946: FETCH c_resource_exists INTO l_resource_exists;
2947: IF c_resource_exists%NOTFOUND THEN
2948: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2949: THEN
2950: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_OWNER');
2951: FND_MSG_PUB.add;
2952: END IF;
2947: IF c_resource_exists%NOTFOUND THEN
2948: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2949: THEN
2950: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_OWNER');
2951: FND_MSG_PUB.add;
2952: END IF;
2953: CLOSE c_resource_exists;
2954: x_return_status := FND_API.g_ret_sts_error;
2955: RETURN;
2965:
2966: OPEN c_pr_exists;
2967: FETCH c_pr_exists INTO l_pr_exists;
2968: IF c_pr_exists%NOTFOUND THEN
2969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2970: THEN
2971: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROCESS_RULE');
2972: FND_MSG_PUB.add;
2973: END IF;
2968: IF c_pr_exists%NOTFOUND THEN
2969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2970: THEN
2971: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROCESS_RULE');
2972: FND_MSG_PUB.add;
2973: END IF;
2974: CLOSE c_pr_exists;
2975: RETURN;
2976: END IF;
2987:
2988: OPEN c_pr_exists_1;
2989: FETCH c_pr_exists_1 INTO l_pr_exists_1;
2990: IF c_pr_exists_1%NOTFOUND THEN
2991: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2992: THEN
2993: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROCESS_RULE');
2994: FND_MSG_PUB.add;
2995: END IF;
2990: IF c_pr_exists_1%NOTFOUND THEN
2991: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2992: THEN
2993: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROCESS_RULE');
2994: FND_MSG_PUB.add;
2995: END IF;
2996: CLOSE c_pr_exists_1;
2997: RETURN;
2998: END IF;
3020: PVX_utility_PVT.g_number, -- datatype of fk
3021: ' ENABLED_FLAG = ''Y''' || ' AND ACTIVE_FLAG = ''Y'''
3022: ) = FND_API.g_false
3023: THEN
3024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3025: THEN
3026: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PTR_PRGM_TYPE');
3027: FND_MSG_PUB.add;
3028: END IF;
3023: THEN
3024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3025: THEN
3026: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PTR_PRGM_TYPE');
3027: FND_MSG_PUB.add;
3028: END IF;
3029:
3030: x_return_status := FND_API.g_ret_sts_error;
3031: RETURN;
3056: PVX_utility_PVT.g_number, -- datatype of fk
3057: ' ENABLED_FLAG = ''Y''' || ' AND OBJECT_TYPE = ''PRGM'''
3058: ) = FND_API.g_false
3059: THEN
3060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3061: THEN
3062: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_CUSTOM_SETUP_ID');
3063: FND_MSG_PUB.add;
3064: END IF;
3059: THEN
3060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3061: THEN
3062: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_CUSTOM_SETUP_ID');
3063: FND_MSG_PUB.add;
3064: END IF;
3065:
3066: x_return_status := FND_API.g_ret_sts_error;
3067: RETURN;
3087: PVX_utility_PVT.g_number, -- datatype of fk
3088: ' ENABLED_FLAG = ''Y'''
3089: ) = FND_API.g_false
3090: THEN
3091: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3092: THEN
3093: FND_MESSAGE.set_name('PV', 'PV_PARENT_PROGRAM_NOT_VALID');
3094: FND_MSG_PUB.add;
3095: END IF;
3090: THEN
3091: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3092: THEN
3093: FND_MESSAGE.set_name('PV', 'PV_PARENT_PROGRAM_NOT_VALID');
3094: FND_MSG_PUB.add;
3095: END IF;
3096:
3097: x_return_status := FND_API.g_ret_sts_error;
3098: RETURN;
3124: 'PV_PROGRAM_LEVEL', -- Lookup Type
3125: p_ptr_prgm_rec.program_level_code -- Lookup Code
3126: ) = FND_API.g_false
3127: THEN
3128: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3129: THEN
3130: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROGRAM_LEVEL');
3131: FND_MSG_PUB.add;
3132: END IF;
3127: THEN
3128: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3129: THEN
3130: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROGRAM_LEVEL');
3131: FND_MSG_PUB.add;
3132: END IF;
3133: x_return_status := FND_API.g_ret_sts_error;
3134: RETURN;
3135:
3149: 'PV_PRGM_PMNT_UNIT', -- Lookup Type
3150: p_ptr_prgm_rec.membership_period_unit -- Lookup Code
3151: ) = FND_API.g_false
3152: THEN
3153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3154: THEN
3155: FND_MESSAGE.set_name('PV', 'PV_INVALID_PROGRAM_MEMB_UNIT');
3156: FND_MSG_PUB.add;
3157: END IF;
3152: THEN
3153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3154: THEN
3155: FND_MESSAGE.set_name('PV', 'PV_INVALID_PROGRAM_MEMB_UNIT');
3156: FND_MSG_PUB.add;
3157: END IF;
3158: x_return_status := FND_API.g_ret_sts_error;
3159: RETURN;
3160:
3169: 'PV_PROGRAM_STATUS', -- Lookup Type
3170: p_ptr_prgm_rec.program_status_code -- Lookup Code
3171: ) = FND_API.g_false
3172: THEN
3173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3174: THEN
3175: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROGRAM_STATUS');
3176: FND_MSG_PUB.add;
3177: END IF;
3172: THEN
3173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3174: THEN
3175: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PROGRAM_STATUS');
3176: FND_MSG_PUB.add;
3177: END IF;
3178: x_return_status := FND_API.g_ret_sts_error;
3179: RETURN;
3180:
3624: END IF;
3625:
3626: -- Initialize message list if p_init_msg_list is set to TRUE.
3627: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3628: FND_MSG_PUB.initialize;
3629: END IF;
3630:
3631: -- Debug Message
3632: IF (PV_DEBUG_HIGH_ON) THEN
3684: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - end');
3685: END IF;
3686:
3687: -- Standard call to get message count and if count is 1, get message info.
3688: FND_MSG_PUB.Count_And_Get
3689: ( p_encoded => FND_API.G_FALSE,
3690: p_count => x_msg_count,
3691: p_data => x_msg_data
3692: );
3700:
3701: PVX_UTILITY_PVT.debug_message('IN VALIDATE PROGRAM ERROR BLOCK');
3702: END IF;
3703: -- Standard call to get message count and if count=1, get the message
3704: FND_MSG_PUB.Count_And_Get (
3705: p_encoded => FND_API.G_FALSE,
3706: p_count => x_msg_count,
3707: p_data => x_msg_data
3708: );
3714:
3715: PVX_UTILITY_PVT.debug_message('IN VALIDATE PROGRAM UNEXPECTED ERROR BLOCK');
3716: END IF;
3717: -- Standard call to get message count and if count=1, get the message
3718: FND_MSG_PUB.Count_And_Get (
3719: p_encoded => FND_API.G_FALSE,
3720: p_count => x_msg_count,
3721: p_data => x_msg_data
3722: );
3723:
3724: WHEN OTHERS THEN
3725: ROLLBACK TO VALIDATE_Partner_Program_;
3726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3727: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3728: THEN
3729: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3730: END IF;
3731: IF (PV_DEBUG_HIGH_ON) THEN
3725: ROLLBACK TO VALIDATE_Partner_Program_;
3726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3727: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3728: THEN
3729: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3730: END IF;
3731: IF (PV_DEBUG_HIGH_ON) THEN
3732:
3733: PVX_UTILITY_PVT.debug_message('IN VALIDATE PROGRAM WHEN OTHERS BLOCK');
3732:
3733: PVX_UTILITY_PVT.debug_message('IN VALIDATE PROGRAM WHEN OTHERS BLOCK');
3734: END IF;
3735: -- Standard call to get message count and if count=1, get the message
3736: FND_MSG_PUB.Count_And_Get (
3737: p_encoded => FND_API.G_FALSE
3738: ,p_count => x_msg_count
3739: ,p_data => x_msg_data
3740: );
3757:
3758: -- Initialize message list if p_init_msg_list is set to TRUE.
3759: IF FND_API.to_Boolean( p_init_msg_list )
3760: THEN
3761: FND_MSG_PUB.initialize;
3762: END IF;
3763:
3764: -- Initialize API return status to SUCCESS
3765: x_return_status := FND_API.G_RET_STS_SUCCESS;
3769: -- THEN
3770: -- x_return_status := FND_API.G_RET_STS_ERROR;
3771:
3772: -- Standard call to get message count and if count is 1, get message info.
3773: FND_MSG_PUB.Count_And_Get
3774: (p_count => x_msg_count,
3775: p_data => x_msg_data
3776: );
3777:
3880: ,p_ptr_prgm_rec => l_ptr_prgm_rec
3881: );
3882: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3883: RETCODE := '1'; -- warning
3884: FND_MSG_PUB.reset;
3885: LOOP
3886: l_msg := fnd_msg_pub.get(p_encoded => FND_API.G_FALSE);
3887: EXIT WHEN l_msg IS NULL;
3888: Write_log (1, TO_CHAR(DBMS_UTILITY.get_time)||': '||l_msg);
3882: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3883: RETCODE := '1'; -- warning
3884: FND_MSG_PUB.reset;
3885: LOOP
3886: l_msg := fnd_msg_pub.get(p_encoded => FND_API.G_FALSE);
3887: EXIT WHEN l_msg IS NULL;
3888: Write_log (1, TO_CHAR(DBMS_UTILITY.get_time)||': '||l_msg);
3889: END LOOP;
3890: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3913: ,p_ptr_prgm_rec => l_ptr_prgm_rec
3914: );
3915: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3916: RETCODE := '1'; -- warning
3917: FND_MSG_PUB.reset;
3918: LOOP
3919: l_msg := fnd_msg_pub.get(p_encoded => FND_API.G_FALSE);
3920: EXIT WHEN l_msg IS NULL;
3921: Write_log (1, TO_CHAR(DBMS_UTILITY.get_time)||': '||l_msg);
3915: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3916: RETCODE := '1'; -- warning
3917: FND_MSG_PUB.reset;
3918: LOOP
3919: l_msg := fnd_msg_pub.get(p_encoded => FND_API.G_FALSE);
3920: EXIT WHEN l_msg IS NULL;
3921: Write_log (1, TO_CHAR(DBMS_UTILITY.get_time)||': '||l_msg);
3922: END LOOP;
3923: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4008:
4009: EXCEPTION
4010: WHEN FND_API.G_EXC_ERROR THEN
4011: x_return_status := FND_API.G_RET_STS_ERROR;
4012: FND_MSG_PUB.Count_And_Get
4013: ( p_count => x_msg_count
4014: , p_data => x_msg_data
4015: );
4016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4014: , p_data => x_msg_data
4015: );
4016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4018: FND_MSG_PUB.Count_And_Get
4019: ( p_count => x_msg_count
4020: , p_data => x_msg_data
4021: );
4022: WHEN OTHERS THEN
4020: , p_data => x_msg_data
4021: );
4022: WHEN OTHERS THEN
4023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4024: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4025: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4026: END IF;
4027: FND_MSG_PUB.Count_And_Get
4028: ( p_count => x_msg_count
4021: );
4022: WHEN OTHERS THEN
4023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4024: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4025: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4026: END IF;
4027: FND_MSG_PUB.Count_And_Get
4028: ( p_count => x_msg_count
4029: , p_data => x_msg_data
4023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4024: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4025: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4026: END IF;
4027: FND_MSG_PUB.Count_And_Get
4028: ( p_count => x_msg_count
4029: , p_data => x_msg_data
4030: );
4031: END Get_Object_Name;
4089:
4090: -- Initialize message list if p_init_msg_list is set to TRUE.
4091: IF FND_API.to_Boolean( p_init_msg_list )
4092: THEN
4093: FND_MSG_PUB.initialize;
4094: END IF;
4095:
4096: -- Debug Message
4097: IF (PV_DEBUG_HIGH_ON) THEN
4414: WHEN FND_API.G_EXC_ERROR THEN
4415: ROLLBACK TO Copy_Program;
4416: x_return_status := FND_API.G_RET_STS_ERROR;
4417: -- Standard call to get message count and if count=1, get the message
4418: FND_MSG_PUB.Count_And_Get (
4419: p_encoded => FND_API.G_FALSE,
4420: p_count => x_msg_count,
4421: p_data => x_msg_data
4422: );
4424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4425: ROLLBACK TO Copy_Program;
4426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4427: -- Standard call to get message count and if count=1, get the message
4428: FND_MSG_PUB.Count_And_Get (
4429: p_encoded => FND_API.G_FALSE,
4430: p_count => x_msg_count,
4431: p_data => x_msg_data
4432: );
4433:
4434: WHEN OTHERS THEN
4435: ROLLBACK TO Copy_Program;
4436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4437: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4438: THEN
4439: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4440: END IF;
4441: -- Standard call to get message count and if count=1, get the message
4435: ROLLBACK TO Copy_Program;
4436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4437: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4438: THEN
4439: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4440: END IF;
4441: -- Standard call to get message count and if count=1, get the message
4442: FND_MSG_PUB.Count_And_Get (
4443: p_encoded => FND_API.G_FALSE,
4438: THEN
4439: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4440: END IF;
4441: -- Standard call to get message count and if count=1, get the message
4442: FND_MSG_PUB.Count_And_Get (
4443: p_encoded => FND_API.G_FALSE,
4444: p_count => x_msg_count,
4445: p_data => x_msg_data
4446: );
4530:
4531: -- Initialize message list if p_init_msg_list is set to TRUE.
4532: IF FND_API.to_Boolean( p_init_msg_list )
4533: THEN
4534: FND_MSG_PUB.initialize;
4535: END IF;
4536:
4537: -- Debug Message
4538: IF (PV_DEBUG_HIGH_ON) THEN
4685: IF FND_API.to_boolean(p_commit) THEN
4686: COMMIT;
4687: END IF;
4688:
4689: FND_MSG_PUB.count_and_get(
4690: p_encoded => FND_API.g_false
4691: ,p_count => x_msg_count
4692: ,p_data => x_msg_data
4693: );
4701: WHEN FND_API.G_EXC_ERROR THEN
4702: ROLLBACK TO Copy_Qualifications;
4703: x_return_status := FND_API.G_RET_STS_ERROR;
4704: -- Standard call to get message count and if count=1, get the message
4705: FND_MSG_PUB.Count_And_Get (
4706: p_encoded => FND_API.G_FALSE,
4707: p_count => x_msg_count,
4708: p_data => x_msg_data
4709: );
4711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4712: ROLLBACK TO Copy_Qualifications;
4713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4714: -- Standard call to get message count and if count=1, get the message
4715: FND_MSG_PUB.Count_And_Get (
4716: p_encoded => FND_API.G_FALSE,
4717: p_count => x_msg_count,
4718: p_data => x_msg_data
4719: );
4720:
4721: WHEN OTHERS THEN
4722: ROLLBACK TO Copy_Qualifications;
4723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4724: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4725: THEN
4726: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4727: END IF;
4728: -- Standard call to get message count and if count=1, get the message
4722: ROLLBACK TO Copy_Qualifications;
4723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4724: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4725: THEN
4726: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4727: END IF;
4728: -- Standard call to get message count and if count=1, get the message
4729: FND_MSG_PUB.Count_And_Get (
4730: p_encoded => FND_API.G_FALSE,
4725: THEN
4726: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4727: END IF;
4728: -- Standard call to get message count and if count=1, get the message
4729: FND_MSG_PUB.Count_And_Get (
4730: p_encoded => FND_API.G_FALSE,
4731: p_count => x_msg_count,
4732: p_data => x_msg_data
4733: );
4783:
4784: -- Initialize message list if p_init_msg_list is set to TRUE.
4785: IF FND_API.to_Boolean( p_init_msg_list )
4786: THEN
4787: FND_MSG_PUB.initialize;
4788: END IF;
4789:
4790: -- Debug Message
4791: IF (PV_DEBUG_HIGH_ON) THEN
4837: IF FND_API.to_boolean(p_commit) THEN
4838: COMMIT;
4839: END IF;
4840:
4841: FND_MSG_PUB.count_and_get(
4842: p_encoded => FND_API.g_false
4843: ,p_count => x_msg_count
4844: ,p_data => x_msg_data
4845: );
4853: WHEN FND_API.G_EXC_ERROR THEN
4854: ROLLBACK TO Copy_Benefits;
4855: x_return_status := FND_API.G_RET_STS_ERROR;
4856: -- Standard call to get message count and if count=1, get the message
4857: FND_MSG_PUB.Count_And_Get (
4858: p_encoded => FND_API.G_FALSE,
4859: p_count => x_msg_count,
4860: p_data => x_msg_data
4861: );
4863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4864: ROLLBACK TO Copy_Benefits;
4865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4866: -- Standard call to get message count and if count=1, get the message
4867: FND_MSG_PUB.Count_And_Get (
4868: p_encoded => FND_API.G_FALSE,
4869: p_count => x_msg_count,
4870: p_data => x_msg_data
4871: );
4872:
4873: WHEN OTHERS THEN
4874: ROLLBACK TO Copy_Benefits;
4875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4876: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4877: THEN
4878: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4879: END IF;
4880: -- Standard call to get message count and if count=1, get the message
4874: ROLLBACK TO Copy_Benefits;
4875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4876: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4877: THEN
4878: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4879: END IF;
4880: -- Standard call to get message count and if count=1, get the message
4881: FND_MSG_PUB.Count_And_Get (
4882: p_encoded => FND_API.G_FALSE,
4877: THEN
4878: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4879: END IF;
4880: -- Standard call to get message count and if count=1, get the message
4881: FND_MSG_PUB.Count_And_Get (
4882: p_encoded => FND_API.G_FALSE,
4883: p_count => x_msg_count,
4884: p_data => x_msg_data
4885: );
4934:
4935: -- Initialize message list if p_init_msg_list is set to TRUE.
4936: IF FND_API.to_Boolean( p_init_msg_list )
4937: THEN
4938: FND_MSG_PUB.initialize;
4939: END IF;
4940:
4941: -- Debug Message
4942: IF (PV_DEBUG_HIGH_ON) THEN
4984: IF FND_API.to_boolean(p_commit) THEN
4985: COMMIT;
4986: END IF;
4987:
4988: FND_MSG_PUB.count_and_get(
4989: p_encoded => FND_API.g_false
4990: ,p_count => x_msg_count
4991: ,p_data => x_msg_data
4992: );
5000: WHEN FND_API.G_EXC_ERROR THEN
5001: ROLLBACK TO Copy_Payments;
5002: x_return_status := FND_API.G_RET_STS_ERROR;
5003: -- Standard call to get message count and if count=1, get the message
5004: FND_MSG_PUB.Count_And_Get (
5005: p_encoded => FND_API.G_FALSE,
5006: p_count => x_msg_count,
5007: p_data => x_msg_data
5008: );
5010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5011: ROLLBACK TO Copy_Payments;
5012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5013: -- Standard call to get message count and if count=1, get the message
5014: FND_MSG_PUB.Count_And_Get (
5015: p_encoded => FND_API.G_FALSE,
5016: p_count => x_msg_count,
5017: p_data => x_msg_data
5018: );
5019:
5020: WHEN OTHERS THEN
5021: ROLLBACK TO Copy_Payments;
5022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5023: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5024: THEN
5025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5026: END IF;
5027: -- Standard call to get message count and if count=1, get the message
5021: ROLLBACK TO Copy_Payments;
5022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5023: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5024: THEN
5025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5026: END IF;
5027: -- Standard call to get message count and if count=1, get the message
5028: FND_MSG_PUB.Count_And_Get (
5029: p_encoded => FND_API.G_FALSE,
5024: THEN
5025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5026: END IF;
5027: -- Standard call to get message count and if count=1, get the message
5028: FND_MSG_PUB.Count_And_Get (
5029: p_encoded => FND_API.G_FALSE,
5030: p_count => x_msg_count,
5031: p_data => x_msg_data
5032: );
5081:
5082: -- Initialize message list if p_init_msg_list is set to TRUE.
5083: IF FND_API.to_Boolean( p_init_msg_list )
5084: THEN
5085: FND_MSG_PUB.initialize;
5086: END IF;
5087:
5088: -- Debug Message
5089: IF (PV_DEBUG_HIGH_ON) THEN
5127: IF FND_API.to_boolean(p_commit) THEN
5128: COMMIT;
5129: END IF;
5130:
5131: FND_MSG_PUB.count_and_get(
5132: p_encoded => FND_API.g_false
5133: ,p_count => x_msg_count
5134: ,p_data => x_msg_data
5135: );
5143: WHEN FND_API.G_EXC_ERROR THEN
5144: ROLLBACK TO Copy_Legal_Terms;
5145: x_return_status := FND_API.G_RET_STS_ERROR;
5146: -- Standard call to get message count and if count=1, get the message
5147: FND_MSG_PUB.Count_And_Get (
5148: p_encoded => FND_API.G_FALSE,
5149: p_count => x_msg_count,
5150: p_data => x_msg_data
5151: );
5153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5154: ROLLBACK TO Copy_Legal_Terms;
5155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5156: -- Standard call to get message count and if count=1, get the message
5157: FND_MSG_PUB.Count_And_Get (
5158: p_encoded => FND_API.G_FALSE,
5159: p_count => x_msg_count,
5160: p_data => x_msg_data
5161: );
5162:
5163: WHEN OTHERS THEN
5164: ROLLBACK TO Copy_Legal_Terms;
5165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5166: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5167: THEN
5168: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5169: END IF;
5170: -- Standard call to get message count and if count=1, get the message
5164: ROLLBACK TO Copy_Legal_Terms;
5165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5166: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5167: THEN
5168: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5169: END IF;
5170: -- Standard call to get message count and if count=1, get the message
5171: FND_MSG_PUB.Count_And_Get (
5172: p_encoded => FND_API.G_FALSE,
5167: THEN
5168: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5169: END IF;
5170: -- Standard call to get message count and if count=1, get the message
5171: FND_MSG_PUB.Count_And_Get (
5172: p_encoded => FND_API.G_FALSE,
5173: p_count => x_msg_count,
5174: p_data => x_msg_data
5175: );
5217:
5218: -- Initialize message list if p_init_msg_list is set to TRUE.
5219: IF FND_API.to_Boolean( p_init_msg_list )
5220: THEN
5221: FND_MSG_PUB.initialize;
5222: END IF;
5223:
5224: -- Debug Message
5225: IF (PV_DEBUG_HIGH_ON) THEN
5246: IF FND_API.to_boolean(p_commit) THEN
5247: COMMIT;
5248: END IF;
5249:
5250: FND_MSG_PUB.count_and_get(
5251: p_encoded => FND_API.g_false
5252: ,p_count => x_msg_count
5253: ,p_data => x_msg_data
5254: );
5262: WHEN FND_API.G_EXC_ERROR THEN
5263: ROLLBACK TO Copy_Questionnaire;
5264: x_return_status := FND_API.G_RET_STS_ERROR;
5265: -- Standard call to get message count and if count=1, get the message
5266: FND_MSG_PUB.Count_And_Get (
5267: p_encoded => FND_API.G_FALSE,
5268: p_count => x_msg_count,
5269: p_data => x_msg_data
5270: );
5272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5273: ROLLBACK TO Copy_Questionnaire;
5274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5275: -- Standard call to get message count and if count=1, get the message
5276: FND_MSG_PUB.Count_And_Get (
5277: p_encoded => FND_API.G_FALSE,
5278: p_count => x_msg_count,
5279: p_data => x_msg_data
5280: );
5281:
5282: WHEN OTHERS THEN
5283: ROLLBACK TO Copy_Questionnaire;
5284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5285: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5286: THEN
5287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5288: END IF;
5289: -- Standard call to get message count and if count=1, get the message
5283: ROLLBACK TO Copy_Questionnaire;
5284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5285: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5286: THEN
5287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5288: END IF;
5289: -- Standard call to get message count and if count=1, get the message
5290: FND_MSG_PUB.Count_And_Get (
5291: p_encoded => FND_API.G_FALSE,
5286: THEN
5287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5288: END IF;
5289: -- Standard call to get message count and if count=1, get the message
5290: FND_MSG_PUB.Count_And_Get (
5291: p_encoded => FND_API.G_FALSE,
5292: p_count => x_msg_count,
5293: p_data => x_msg_data
5294: );
5339:
5340: -- Initialize message list if p_init_msg_list is set to TRUE.
5341: IF FND_API.to_Boolean( p_init_msg_list )
5342: THEN
5343: FND_MSG_PUB.initialize;
5344: END IF;
5345:
5346: -- Debug Message
5347: IF (PV_DEBUG_HIGH_ON) THEN
5369: IF FND_API.to_boolean(p_commit) THEN
5370: COMMIT;
5371: END IF;
5372:
5373: FND_MSG_PUB.count_and_get(
5374: p_encoded => FND_API.g_false
5375: ,p_count => x_msg_count
5376: ,p_data => x_msg_data
5377: );
5385: WHEN FND_API.G_EXC_ERROR THEN
5386: ROLLBACK TO Copy_Checklist;
5387: x_return_status := FND_API.G_RET_STS_ERROR;
5388: -- Standard call to get message count and if count=1, get the message
5389: FND_MSG_PUB.Count_And_Get (
5390: p_encoded => FND_API.G_FALSE,
5391: p_count => x_msg_count,
5392: p_data => x_msg_data
5393: );
5395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5396: ROLLBACK TO Copy_Checklist;
5397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5398: -- Standard call to get message count and if count=1, get the message
5399: FND_MSG_PUB.Count_And_Get (
5400: p_encoded => FND_API.G_FALSE,
5401: p_count => x_msg_count,
5402: p_data => x_msg_data
5403: );
5404:
5405: WHEN OTHERS THEN
5406: ROLLBACK TO Copy_Checklist;
5407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5408: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5409: THEN
5410: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5411: END IF;
5412: -- Standard call to get message count and if count=1, get the message
5406: ROLLBACK TO Copy_Checklist;
5407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5408: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5409: THEN
5410: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5411: END IF;
5412: -- Standard call to get message count and if count=1, get the message
5413: FND_MSG_PUB.Count_And_Get (
5414: p_encoded => FND_API.G_FALSE,
5409: THEN
5410: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5411: END IF;
5412: -- Standard call to get message count and if count=1, get the message
5413: FND_MSG_PUB.Count_And_Get (
5414: p_encoded => FND_API.G_FALSE,
5415: p_count => x_msg_count,
5416: p_data => x_msg_data
5417: );
5460:
5461: -- Initialize message list if p_init_msg_list is set to TRUE.
5462: IF FND_API.to_Boolean( p_init_msg_list )
5463: THEN
5464: FND_MSG_PUB.initialize;
5465: END IF;
5466:
5467: -- Debug Message
5468: IF (PV_DEBUG_HIGH_ON) THEN
5495: IF FND_API.to_boolean(p_commit) THEN
5496: COMMIT;
5497: END IF;
5498:
5499: FND_MSG_PUB.count_and_get(
5500: p_encoded => FND_API.g_false
5501: ,p_count => x_msg_count
5502: ,p_data => x_msg_data
5503: );
5511: WHEN FND_API.G_EXC_ERROR THEN
5512: ROLLBACK TO Copy_Notif_Rules;
5513: x_return_status := FND_API.G_RET_STS_ERROR;
5514: -- Standard call to get message count and if count=1, get the message
5515: FND_MSG_PUB.Count_And_Get (
5516: p_encoded => FND_API.G_FALSE,
5517: p_count => x_msg_count,
5518: p_data => x_msg_data
5519: );
5521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5522: ROLLBACK TO Copy_Notif_Rules;
5523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524: -- Standard call to get message count and if count=1, get the message
5525: FND_MSG_PUB.Count_And_Get (
5526: p_encoded => FND_API.G_FALSE,
5527: p_count => x_msg_count,
5528: p_data => x_msg_data
5529: );
5530:
5531: WHEN OTHERS THEN
5532: ROLLBACK TO Copy_Notif_Rules;
5533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5534: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5535: THEN
5536: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5537: END IF;
5538: -- Standard call to get message count and if count=1, get the message
5532: ROLLBACK TO Copy_Notif_Rules;
5533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5534: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5535: THEN
5536: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5537: END IF;
5538: -- Standard call to get message count and if count=1, get the message
5539: FND_MSG_PUB.Count_And_Get (
5540: p_encoded => FND_API.G_FALSE,
5535: THEN
5536: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5537: END IF;
5538: -- Standard call to get message count and if count=1, get the message
5539: FND_MSG_PUB.Count_And_Get (
5540: p_encoded => FND_API.G_FALSE,
5541: p_count => x_msg_count,
5542: p_data => x_msg_data
5543: );
5611: END IF;
5612:
5613: -- Initialize message list if p_init_msg_list is set to TRUE.
5614: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5615: FND_MSG_PUB.initialize;
5616: END IF;
5617:
5618: -- Initialize API return status to SUCCESS
5619: x_return_status := FND_API.G_RET_STS_SUCCESS;
5627: l_currency:=FND_PROFILE.Value('ICX_PREFERRED_CURRENCY');
5628:
5629: IF l_currency IS NULL THEN
5630: FND_MESSAGE.set_name('PV', 'PV_PRGM_CURRENCY_UNDEFINED');
5631: FND_MSG_PUB.add;
5632: RAISE FND_API.G_EXC_ERROR;
5633: END IF;
5634:
5635:
5761: END IF;
5762:
5763: -- Initialize message list if p_init_msg_list is set to TRUE.
5764: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5765: FND_MSG_PUB.initialize;
5766: END IF;
5767:
5768: -- Initialize API return status to SUCCESS
5769: x_return_status := FND_API.G_RET_STS_SUCCESS;
5825:
5826: WHEN FND_API.G_EXC_ERROR THEN
5827: x_return_status := FND_API.G_RET_STS_ERROR;
5828: -- Standard call to get message count and if count=1, get the message
5829: FND_MSG_PUB.Count_And_Get (
5830: p_encoded => FND_API.G_FALSE,
5831: p_count => x_msg_count,
5832: p_data => x_msg_data
5833: );
5834:
5835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5837: -- Standard call to get message count and if count=1, get the message
5838: FND_MSG_PUB.Count_And_Get (
5839: p_encoded => FND_API.G_FALSE,
5840: p_count => x_msg_count,
5841: p_data => x_msg_data
5842: );
5842: );
5843:
5844: WHEN OTHERS THEN
5845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5846: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5847: THEN
5848: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5849: END IF;
5850: -- Standard call to get message count and if count=1, get the message
5844: WHEN OTHERS THEN
5845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5846: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5847: THEN
5848: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5849: END IF;
5850: -- Standard call to get message count and if count=1, get the message
5851: FND_MSG_PUB.Count_And_Get (
5852: p_encoded => FND_API.G_FALSE,
5847: THEN
5848: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5849: END IF;
5850: -- Standard call to get message count and if count=1, get the message
5851: FND_MSG_PUB.Count_And_Get (
5852: p_encoded => FND_API.G_FALSE,
5853: p_count => x_msg_count,
5854: p_data => x_msg_data
5855: );