[Home] [Help]
110: IF (AMS_DEBUG_HIGH_ON) THEN
111:
112:
113:
114: AMS_Utility_PVT.debug_message(l_full_name||': start');
115:
116: END IF;
117:
118: IF FND_API.to_boolean(p_init_msg_list) THEN
132:
133: ----------------------- validate -----------------------
134: IF (AMS_DEBUG_HIGH_ON) THEN
135:
136: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
137: END IF;
138:
139: -- Following code is commented by ptendulk on 06-Feb-2001
140: -- as we are not using inherit attribute flag
250: OPEN c_parent_business_unit (l_camp_rec.parent_campaign_id);
251: FETCH c_parent_business_unit into l_camp_rec.business_unit_id;
252: CLOSE c_parent_business_unit;
253:
254: AMS_Utility_PVT.debug_message(l_full_name ||': Business Unit = ' || to_char(l_camp_rec.business_unit_id));
255: AMS_Utility_PVT.debug_message(l_full_name ||': Parent Campaign Id = ' || to_char(l_camp_rec.parent_campaign_id));
256: AMS_Utility_PVT.debug_message(l_full_name ||': Org Id = ' || to_char(fnd_profile.value('ORG_ID')));
257:
258: OPEN c_parent_confi_flag (l_camp_rec.parent_campaign_id);
251: FETCH c_parent_business_unit into l_camp_rec.business_unit_id;
252: CLOSE c_parent_business_unit;
253:
254: AMS_Utility_PVT.debug_message(l_full_name ||': Business Unit = ' || to_char(l_camp_rec.business_unit_id));
255: AMS_Utility_PVT.debug_message(l_full_name ||': Parent Campaign Id = ' || to_char(l_camp_rec.parent_campaign_id));
256: AMS_Utility_PVT.debug_message(l_full_name ||': Org Id = ' || to_char(fnd_profile.value('ORG_ID')));
257:
258: OPEN c_parent_confi_flag (l_camp_rec.parent_campaign_id);
259: FETCH c_parent_confi_flag into l_camp_rec.private_flag;
252: CLOSE c_parent_business_unit;
253:
254: AMS_Utility_PVT.debug_message(l_full_name ||': Business Unit = ' || to_char(l_camp_rec.business_unit_id));
255: AMS_Utility_PVT.debug_message(l_full_name ||': Parent Campaign Id = ' || to_char(l_camp_rec.parent_campaign_id));
256: AMS_Utility_PVT.debug_message(l_full_name ||': Org Id = ' || to_char(fnd_profile.value('ORG_ID')));
257:
258: OPEN c_parent_confi_flag (l_camp_rec.parent_campaign_id);
259: FETCH c_parent_confi_flag into l_camp_rec.private_flag;
260: CLOSE c_parent_confi_flag;
265:
266: -------------------------- insert --------------------------
267: IF (AMS_DEBUG_HIGH_ON) THEN
268:
269: AMS_Utility_PVT.debug_message(l_full_name ||': insert');
270: END IF;
271:
272: -----------------------------------------------------------------
273: -- budget_amount_tc, budget_amount_fc, media_type_code, media_id,
671: IF (AMS_DEBUG_HIGH_ON) THEN
672:
673:
674:
675: AMS_Utility_PVT.debug_message(l_full_name ||': end');
676:
677: END IF;
678:
679: EXCEPTION
757: IF (AMS_DEBUG_HIGH_ON) THEN
758:
759:
760:
761: AMS_Utility_PVT.debug_message(l_full_name||': start');
762:
763: END IF;
764:
765: IF FND_API.to_boolean(p_init_msg_list) THEN
779:
780: ------------------------ delete ------------------------
781: IF (AMS_DEBUG_HIGH_ON) THEN
782:
783: AMS_Utility_PVT.debug_message(l_full_name ||': delete');
784: END IF;
785:
786: -- Start of code modified by ptendulk on 11-Feb-2001
787: -- Delete the campaign if in new status.
838: IF (AMS_DEBUG_HIGH_ON) THEN
839:
840:
841:
842: AMS_Utility_PVT.debug_message(l_full_name ||': end');
843:
844: END IF;
845:
846: EXCEPTION
925:
926: -------------------- initialize ------------------------
927: IF (AMS_DEBUG_HIGH_ON) THEN
928:
929: AMS_Utility_PVT.debug_message(l_full_name||': start');
930: END IF;
931:
932: IF FND_API.to_boolean(p_init_msg_list) THEN
933: FND_MSG_PUB.initialize;
946:
947: ------------------------ lock -------------------------
948: IF (AMS_DEBUG_HIGH_ON) THEN
949:
950: AMS_Utility_PVT.debug_message(l_full_name||': lock');
951: END IF;
952:
953: OPEN c_camp_b;
954: FETCH c_camp_b INTO l_camp_id;
975: IF (AMS_DEBUG_HIGH_ON) THEN
976:
977:
978:
979: AMS_Utility_PVT.debug_message(l_full_name ||': end');
980:
981: END IF;
982:
983: EXCEPTION
981: END IF;
982:
983: EXCEPTION
984:
985: WHEN AMS_Utility_PVT.resource_locked THEN
986: x_return_status := FND_API.g_ret_sts_error;
987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
988: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
989: FND_MSG_PUB.add;
1070:
1071: -------------------- initialize -------------------------
1072: IF (AMS_DEBUG_HIGH_ON) THEN
1073:
1074: AMS_Utility_PVT.debug_message(l_full_name||': start');
1075: END IF;
1076: SAVEPOINT update_campaign;
1077:
1078: IF FND_API.to_boolean(p_init_msg_list) THEN
1092:
1093: ----------------------- validate ----------------------
1094: IF (AMS_DEBUG_HIGH_ON) THEN
1095:
1096: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1097: END IF;
1098:
1099: -- replace g_miss_char/num/date with current column values
1100: complete_camp_rec(p_camp_rec, l_camp_rec);
1110:
1111: -- item level
1112: IF (AMS_DEBUG_HIGH_ON) THEN
1113:
1114: AMS_Utility_PVT.debug_message(l_full_name ||': check items');
1115: END IF;
1116: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1117: check_camp_items(
1118: p_camp_rec => p_camp_rec,
1128:
1129: -- record level
1130: IF (AMS_DEBUG_HIGH_ON) THEN
1131:
1132: AMS_Utility_PVT.debug_message(l_full_name ||': check record');
1133: END IF;
1134: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
1135: check_camp_record(
1136: p_camp_rec => p_camp_rec,
1146:
1147: -- inter-entity level
1148: IF (AMS_DEBUG_HIGH_ON) THEN
1149:
1150: AMS_Utility_PVT.debug_message(l_full_name ||': check inter-entity');
1151: END IF;
1152: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_inter_entity THEN
1153: check_camp_inter_entity(
1154: p_camp_rec => p_camp_rec,
1165:
1166: -- check update
1167: IF (AMS_DEBUG_HIGH_ON) THEN
1168:
1169: AMS_Utility_PVT.debug_message(l_full_name ||': check update');
1170: END IF;
1171: AMS_CampaignRules_PVT.check_camp_update(
1172: p_camp_rec => p_camp_rec,
1173: p_complete_rec => l_camp_rec,
1181:
1182: -- handle inherit_attributes_flag
1183: -- Following code is commented by ptendulk on 07-Feb-2001
1184: -- We are not using it any more.
1185: --IF (AMS_DEBUG_HIGH_ON) THENAMS_Utility_PVT.debug_message(l_full_name ||': handle inherit flag');END IF;
1186: --IF p_camp_rec.rollup_type <> FND_API.g_miss_char
1187: -- OR p_camp_rec.parent_campaign_id <> FND_API.g_miss_num
1188: --THEN
1189: -- AMS_CampaignRules_PVT.handle_camp_inherit_flag(
1201:
1202: -- handle source code update
1203: IF (AMS_DEBUG_HIGH_ON) THEN
1204:
1205: AMS_Utility_PVT.debug_message(l_full_name ||': update source code');
1206: END IF;
1207: IF p_camp_rec.source_code <> FND_API.g_miss_char
1208: OR p_camp_rec.global_flag <> FND_API.g_miss_char
1209: OR p_camp_rec.cascade_source_code_flag <> FND_API.g_miss_char
1222: -- Following line is commented by ptendulk on 20-May-2001 Refer bug#1786964
1223: -- IF l_source_code_for_event <> FND_API.g_miss_char THEN
1224: IF (AMS_DEBUG_HIGH_ON) THEN
1225:
1226: AMS_Utility_PVT.Debug_message('Update the source_code ');
1227: END IF;
1228:
1229: AMS_CampaignRules_PVT.update_camp_source_code(
1230: l_camp_rec.campaign_id,
1329:
1330: -------------------------- update --------------------
1331: IF (AMS_DEBUG_HIGH_ON) THEN
1332:
1333: AMS_Utility_PVT.debug_message(l_full_name ||': update');
1334: END IF;
1335:
1336: -----------------------------------------------------------------
1337: -- budget_amount_tc, budget_amount_fc, media_type_code, media_id,
1509: IF (AMS_DEBUG_HIGH_ON) THEN
1510:
1511:
1512:
1513: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1514:
1515: END IF;
1516:
1517: EXCEPTION
1584:
1585: ----------------------- initialize --------------------
1586: IF (AMS_DEBUG_HIGH_ON) THEN
1587:
1588: AMS_Utility_PVT.debug_message(l_full_name||': start');
1589: END IF;
1590:
1591: IF FND_API.to_boolean(p_init_msg_list) THEN
1592: FND_MSG_PUB.initialize;
1605:
1606: ---------------------- validate ------------------------
1607: IF (AMS_DEBUG_HIGH_ON) THEN
1608:
1609: AMS_Utility_PVT.debug_message(l_full_name||': check items');
1610: END IF;
1611:
1612: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1613: check_camp_items(
1625: IF (AMS_DEBUG_HIGH_ON) THEN
1626:
1627:
1628:
1629: AMS_Utility_PVT.debug_message(l_full_name||': check record');
1630:
1631: END IF;
1632:
1633: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
1646: IF (AMS_DEBUG_HIGH_ON) THEN
1647:
1648:
1649:
1650: AMS_Utility_PVT.debug_message(l_full_name||': check inter-entity');
1651:
1652: END IF;
1653:
1654: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_inter_entity THEN
1675: IF (AMS_DEBUG_HIGH_ON) THEN
1676:
1677:
1678:
1679: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1680:
1681: END IF;
1682:
1683: EXCEPTION
1825: -- check if this campaign_id is unique.
1826: IF p_validation_mode = JTF_PLSQL_API.g_create
1827: AND p_camp_rec.campaign_id IS NOT NULL
1828: THEN
1829: IF AMS_Utility_PVT.check_uniqueness(
1830: 'ams_campaigns_all_b',
1831: 'campaign_id = ' || p_camp_rec.campaign_id
1832: ) = FND_API.g_false
1833: THEN
1830: 'ams_campaigns_all_b',
1831: 'campaign_id = ' || p_camp_rec.campaign_id
1832: ) = FND_API.g_false
1833: THEN
1834: AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_ID');
1835: x_return_status := FND_API.g_ret_sts_error;
1836: RETURN;
1837: END IF;
1838: END IF;
1863: x_return_status := FND_API.g_ret_sts_success;
1864:
1865: ----------------------- owner_user_id ------------------------
1866: IF p_camp_rec.owner_user_id <> FND_API.g_miss_num THEN
1867: IF AMS_Utility_PVT.check_fk_exists(
1868: -- 'ams_jtf_rs_emp_v',
1869: 'jtf_rs_resource_extns',
1870: 'resource_id',
1871: p_camp_rec.owner_user_id
1870: 'resource_id',
1871: p_camp_rec.owner_user_id
1872: ) = FND_API.g_false
1873: THEN
1874: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_OWNER_USER_ID');
1875: x_return_status := FND_API.g_ret_sts_error;
1876: RETURN;
1877: END IF;
1878: END IF;
1878: END IF;
1879:
1880: --------------------- application_id ------------------------
1881: IF p_camp_rec.application_id <> FND_API.g_miss_num THEN
1882: IF AMS_Utility_PVT.check_fk_exists(
1883: 'fnd_application',
1884: 'application_id',
1885: p_camp_rec.application_id
1886: ) = FND_API.g_false
1884: 'application_id',
1885: p_camp_rec.application_id
1886: ) = FND_API.g_false
1887: THEN
1888: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_APPLICATION_ID');
1889: x_return_status := FND_API.g_ret_sts_error;
1890: RETURN;
1891: END IF;
1892: END IF;
1894: --------------------- qp_list_header_id ------------------------
1895: --IF p_camp_rec.qp_list_header_id <> FND_API.g_miss_num
1896: -- AND p_camp_rec.qp_list_header_id IS NOT NULL
1897: --THEN
1898: -- IF AMS_Utility_PVT.check_fk_exists(
1899: -- 'qp_list_headers_b',
1900: -- 'list_header_id',
1901: -- p_camp_rec.qp_list_header_id
1902: -- ) = FND_API.g_false
1914: --------------------- dscript_name ------------------------
1915: --IF p_camp_rec.dscript_name <> FND_API.g_miss_char
1916: -- AND p_camp_rec.dscript_name IS NOT NULL
1917: --THEN
1918: -- IF AMS_Utility_PVT.check_fk_exists(
1919: -- 'ies_deployed_scripts',
1920: -- 'dscript_name',
1921: -- p_camp_rec.dscript_name
1922: -- ) = FND_API.g_false
1937: THEN
1938: l_table_name := 'ams_custom_setups_b' ;
1939: l_pk_name := 'custom_setup_id' ;
1940: l_pk_value := p_camp_rec.custom_setup_id;
1941: l_pk_data_type := AMS_Utility_PVT.G_NUMBER ;
1942: l_where_clause := ' object_type = '''||p_camp_rec.rollup_type ||'''' ;
1943:
1944: IF AMS_Utility_PVT.check_fk_exists(
1945: p_table_name => l_table_name,
1940: l_pk_value := p_camp_rec.custom_setup_id;
1941: l_pk_data_type := AMS_Utility_PVT.G_NUMBER ;
1942: l_where_clause := ' object_type = '''||p_camp_rec.rollup_type ||'''' ;
1943:
1944: IF AMS_Utility_PVT.check_fk_exists(
1945: p_table_name => l_table_name,
1946: p_pk_name => l_pk_name,
1947: p_pk_value => l_pk_value,
1948: p_pk_data_type => l_pk_data_type,
1948: p_pk_data_type => l_pk_data_type,
1949: p_additional_where_clause => l_where_clause
1950: ) = FND_API.g_false
1951: THEN
1952: AMS_Utility_Pvt.Error_Message('AMS_CAMP_BAD_CUSTOM_SETUP') ;
1953: x_return_status := FND_API.g_ret_sts_error;
1954: RETURN;
1955: END IF;
1956:
1959: --------------------- city_id ----------------------------
1960: IF p_camp_rec.city_id <> FND_API.g_miss_num
1961: AND p_camp_rec.city_id IS NOT NULL
1962: THEN
1963: IF AMS_Utility_PVT.check_fk_exists(
1964: 'jtf_loc_hierarchies_b',
1965: 'location_hierarchy_id',
1966: p_camp_rec.city_id,
1967: AMS_Utility_PVT.g_number,
1963: IF AMS_Utility_PVT.check_fk_exists(
1964: 'jtf_loc_hierarchies_b',
1965: 'location_hierarchy_id',
1966: p_camp_rec.city_id,
1967: AMS_Utility_PVT.g_number,
1968: NULL
1969: ) = FND_API.g_false
1970: THEN
1971: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_CITY');
1967: AMS_Utility_PVT.g_number,
1968: NULL
1969: ) = FND_API.g_false
1970: THEN
1971: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_CITY');
1972: x_return_status := FND_API.g_ret_sts_error;
1973: RETURN;
1974: END IF;
1975: END IF;
1977: --------------------- Task id ----------------------------
1978: IF p_camp_rec.task_id <> FND_API.g_miss_num
1979: AND p_camp_rec.task_id IS NOT NULL
1980: THEN
1981: IF AMS_Utility_PVT.check_fk_exists(
1982: 'jtf_tasks_b',
1983: 'task_id',
1984: p_camp_rec.task_id,
1985: AMS_Utility_PVT.g_number,
1981: IF AMS_Utility_PVT.check_fk_exists(
1982: 'jtf_tasks_b',
1983: 'task_id',
1984: p_camp_rec.task_id,
1985: AMS_Utility_PVT.g_number,
1986: NULL
1987: ) = FND_API.g_false
1988: THEN
1989: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TASK');
1985: AMS_Utility_PVT.g_number,
1986: NULL
1987: ) = FND_API.g_false
1988: THEN
1989: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TASK');
1990: x_return_status := FND_API.g_ret_sts_error;
1991: RETURN;
1992: END IF;
1993: END IF;
1995: --------------------- Language ----------------------------
1996: IF p_camp_rec.language_code <> FND_API.g_miss_char
1997: AND p_camp_rec.language_code IS NOT NULL
1998: THEN
1999: IF AMS_Utility_PVT.check_fk_exists(
2000: 'fnd_languages',
2001: 'language_code',
2002: p_camp_rec.language_code,
2003: AMS_Utility_PVT.g_varchar2,
1999: IF AMS_Utility_PVT.check_fk_exists(
2000: 'fnd_languages',
2001: 'language_code',
2002: p_camp_rec.language_code,
2003: AMS_Utility_PVT.g_varchar2,
2004: NULL
2005: ) = FND_API.g_false
2006: THEN
2007: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_LANG');
2003: AMS_Utility_PVT.g_varchar2,
2004: NULL
2005: ) = FND_API.g_false
2006: THEN
2007: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_LANG');
2008: x_return_status := FND_API.g_ret_sts_error;
2009: RETURN;
2010: END IF;
2011: END IF;
2031:
2032: ----------------------- rollup_type ------------------------
2033: IF p_camp_rec.rollup_type <> FND_API.g_miss_char
2034: THEN
2035: IF AMS_Utility_PVT.check_lookup_exists(
2036: p_lookup_type => 'AMS_ROLLUP_TYPE',
2037: p_lookup_code => p_camp_rec.rollup_type
2038: ) = FND_API.g_false
2039: THEN
2036: p_lookup_type => 'AMS_ROLLUP_TYPE',
2037: p_lookup_code => p_camp_rec.rollup_type
2038: ) = FND_API.g_false
2039: THEN
2040: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_ROLLUP_TYPE') ;
2041: x_return_status := FND_API.g_ret_sts_error;
2042: RETURN;
2043: END IF;
2044: END IF;
2048: ---------------------------------------------------------------------
2049: /*
2050: ----------------------- media_type ------------------------
2051: IF p_camp_rec.media_type_code <> FND_API.g_miss_char THEN
2052: IF AMS_Utility_PVT.check_lookup_exists(
2053: p_lookup_type => 'AMS_MEDIA_TYPE',
2054: p_lookup_code => p_camp_rec.media_type_code
2055: ) = FND_API.g_false
2056: THEN
2070: ----------------------- event_type ------------------------
2071: --IF p_camp_rec.event_type <> FND_API.g_miss_char
2072: -- AND p_camp_rec.event_type IS NOT NULL
2073: --THEN
2074: -- IF AMS_Utility_PVT.check_lookup_exists(
2075: -- p_lookup_type => 'AMS_EVENT_TYPE',
2076: -- p_lookup_code => p_camp_rec.event_type
2077: -- ) = FND_API.g_false
2078: -- THEN
2075: -- p_lookup_type => 'AMS_EVENT_TYPE',
2076: -- p_lookup_code => p_camp_rec.event_type
2077: -- ) = FND_API.g_false
2078: -- THEN
2079: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_EVENT_TYPE') ;
2080: -- x_return_status := FND_API.g_ret_sts_error;
2081: -- RETURN;
2082: -- END IF;
2083: --END IF;
2085: ----------------------- priority ------------------------
2086: IF p_camp_rec.priority <> FND_API.g_miss_char
2087: AND p_camp_rec.priority IS NOT NULL
2088: THEN
2089: IF AMS_Utility_PVT.check_lookup_exists(
2090: p_lookup_type => 'AMS_PRIORITY',
2091: p_lookup_code => p_camp_rec.priority
2092: ) = FND_API.g_false
2093: THEN
2090: p_lookup_type => 'AMS_PRIORITY',
2091: p_lookup_code => p_camp_rec.priority
2092: ) = FND_API.g_false
2093: THEN
2094: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PRIORITY') ;
2095: x_return_status := FND_API.g_ret_sts_error;
2096: RETURN;
2097: END IF;
2098: END IF;
2100: ----------------------- priority ------------------------
2101: IF p_camp_rec.priority <> FND_API.g_miss_char
2102: AND p_camp_rec.priority IS NOT NULL
2103: THEN
2104: IF AMS_Utility_PVT.check_lookup_exists(
2105: p_lookup_type => 'AMS_PRIORITY',
2106: p_lookup_code => p_camp_rec.priority
2107: ) = FND_API.g_false
2108: THEN
2105: p_lookup_type => 'AMS_PRIORITY',
2106: p_lookup_code => p_camp_rec.priority
2107: ) = FND_API.g_false
2108: THEN
2109: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PRIORITY') ;
2110: x_return_status := FND_API.g_ret_sts_error;
2111: RETURN;
2112: END IF;
2113: END IF;
2120: p_camp_rec.related_event_from <> 'EVEO'
2121: --Added by rrajesh on 04/16/01 - EONE
2122: AND p_camp_rec.related_event_from <> 'EONE'
2123: THEN
2124: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_EVEH') ;
2125: x_return_status := FND_API.g_ret_sts_error;
2126: RETURN;
2127: END IF;
2128: END IF;
2131: ------------------ ff_shipping_method ------------------------
2132: --IF p_camp_rec.ff_shipping_method <> FND_API.g_miss_char
2133: -- AND p_camp_rec.ff_shipping_method IS NOT NULL
2134: --THEN
2135: -- IF AMS_Utility_PVT.check_lookup_exists(
2136: -- p_lookup_type => 'AMS_CAMP_FF_SHIP_METHOD',
2137: -- p_lookup_code => p_camp_rec.ff_shipping_method
2138: -- ) = FND_API.g_false
2139: -- THEN
2136: -- p_lookup_type => 'AMS_CAMP_FF_SHIP_METHOD',
2137: -- p_lookup_code => p_camp_rec.ff_shipping_method
2138: -- ) = FND_API.g_false
2139: -- THEN
2140: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_FF_SHIP_METHOD') ;
2141: -- x_return_status := FND_API.g_ret_sts_error;
2142: -- RETURN;
2143: -- END IF;
2144: --END IF;
2146: ----------------------- cc_call_strategy ----------------------
2147: --IF p_camp_rec.cc_call_strategy <> FND_API.g_miss_char
2148: -- AND p_camp_rec.cc_call_strategy IS NOT NULL
2149: --THEN
2150: -- IF AMS_Utility_PVT.check_lookup_exists(
2151: -- p_lookup_type => 'AMS_CAMP_CALL_STRATEGY',
2152: -- p_lookup_code => p_camp_rec.cc_call_strategy
2153: -- ) = FND_API.g_false
2154: -- THEN
2151: -- p_lookup_type => 'AMS_CAMP_CALL_STRATEGY',
2152: -- p_lookup_code => p_camp_rec.cc_call_strategy
2153: -- ) = FND_API.g_false
2154: -- THEN
2155: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_CC_CALL_STRATEGY') ;
2156: -- x_return_status := FND_API.g_ret_sts_error;
2157: -- RETURN;
2158: -- END IF;
2159: --END IF;
2180: ----------------------- active_flag ------------------------
2181: IF p_camp_rec.active_flag <> FND_API.g_miss_char
2182: AND p_camp_rec.active_flag IS NOT NULL
2183: THEN
2184: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.active_flag) = FND_API.g_false
2185: THEN
2186: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_ACTIVE_FLAG');
2187: x_return_status := FND_API.g_ret_sts_error;
2188: RETURN;
2182: AND p_camp_rec.active_flag IS NOT NULL
2183: THEN
2184: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.active_flag) = FND_API.g_false
2185: THEN
2186: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_ACTIVE_FLAG');
2187: x_return_status := FND_API.g_ret_sts_error;
2188: RETURN;
2189: END IF;
2190: END IF;
2192: ----------------------- private_flag ------------------------
2193: IF p_camp_rec.private_flag <> FND_API.g_miss_char
2194: AND p_camp_rec.private_flag IS NOT NULL
2195: THEN
2196: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.private_flag) = FND_API.g_false
2197: THEN
2198: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PRIVATE_FLAG');
2199: x_return_status := FND_API.g_ret_sts_error;
2200: RETURN;
2194: AND p_camp_rec.private_flag IS NOT NULL
2195: THEN
2196: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.private_flag) = FND_API.g_false
2197: THEN
2198: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PRIVATE_FLAG');
2199: x_return_status := FND_API.g_ret_sts_error;
2200: RETURN;
2201: END IF;
2202: END IF;
2204: ----------------------- partner_flag ------------------------
2205: IF p_camp_rec.partner_flag <> FND_API.g_miss_char
2206: AND p_camp_rec.partner_flag IS NOT NULL
2207: THEN
2208: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.partner_flag) = FND_API.g_false
2209: THEN
2210: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PARTNER_FLAG');
2211: x_return_status := FND_API.g_ret_sts_error;
2212: RETURN;
2206: AND p_camp_rec.partner_flag IS NOT NULL
2207: THEN
2208: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.partner_flag) = FND_API.g_false
2209: THEN
2210: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PARTNER_FLAG');
2211: x_return_status := FND_API.g_ret_sts_error;
2212: RETURN;
2213: END IF;
2214: END IF;
2216: ----------------------- template_flag ------------------------
2217: IF p_camp_rec.template_flag <> FND_API.g_miss_char
2218: AND p_camp_rec.template_flag IS NOT NULL
2219: THEN
2220: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.template_flag) = FND_API.g_false
2221: THEN
2222: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TEMPLATE_FLAG');
2223: x_return_status := FND_API.g_ret_sts_error;
2224: RETURN;
2218: AND p_camp_rec.template_flag IS NOT NULL
2219: THEN
2220: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.template_flag) = FND_API.g_false
2221: THEN
2222: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TEMPLATE_FLAG');
2223: x_return_status := FND_API.g_ret_sts_error;
2224: RETURN;
2225: END IF;
2226: END IF;
2227:
2228: IF p_camp_rec.global_flag <> FND_API.g_miss_char
2229: AND p_camp_rec.global_flag IS NOT NULL
2230: THEN
2231: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.global_flag) = FND_API.g_false
2232: THEN
2233: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_GLOBAL_FLAG');
2234: x_return_status := FND_API.g_ret_sts_error;
2235: RETURN;
2229: AND p_camp_rec.global_flag IS NOT NULL
2230: THEN
2231: IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.global_flag) = FND_API.g_false
2232: THEN
2233: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_GLOBAL_FLAG');
2234: x_return_status := FND_API.g_ret_sts_error;
2235: RETURN;
2236: END IF;
2237: END IF;
2238:
2239: IF p_camp_rec.show_campaign_flag <> FND_API.g_miss_char
2240: AND p_camp_rec.show_campaign_flag IS NOT NULL
2241: THEN
2242: IF AMS_Utility_PVT.Is_Y_Or_N(p_camp_rec.show_campaign_flag) = FND_API.g_false
2243: THEN
2244: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TEMPLATE_FLAG');
2245: x_return_status := FND_API.g_ret_sts_error;
2246: RETURN;
2240: AND p_camp_rec.show_campaign_flag IS NOT NULL
2241: THEN
2242: IF AMS_Utility_PVT.Is_Y_Or_N(p_camp_rec.show_campaign_flag) = FND_API.g_false
2243: THEN
2244: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TEMPLATE_FLAG');
2245: x_return_status := FND_API.g_ret_sts_error;
2246: RETURN;
2247: END IF;
2248: END IF;
2250:
2251: IF p_camp_rec.accounts_closed_flag <> FND_API.g_miss_char
2252: AND p_camp_rec.accounts_closed_flag IS NOT NULL
2253: THEN
2254: IF AMS_Utility_PVT.Is_Y_Or_N(p_camp_rec.accounts_closed_flag) = FND_API.g_false
2255: THEN
2256: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_ACC_CLOSED_FLAG');
2257: x_return_status := FND_API.g_ret_sts_error;
2258: RETURN;
2252: AND p_camp_rec.accounts_closed_flag IS NOT NULL
2253: THEN
2254: IF AMS_Utility_PVT.Is_Y_Or_N(p_camp_rec.accounts_closed_flag) = FND_API.g_false
2255: THEN
2256: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_ACC_CLOSED_FLAG');
2257: x_return_status := FND_API.g_ret_sts_error;
2258: RETURN;
2259: END IF;
2260: END IF;
2261: ------------------- cascade_source_code_flag -----------------------
2262: -- IF p_camp_rec.cascade_source_code_flag <> FND_API.g_miss_char
2263: -- AND p_camp_rec.cascade_source_code_flag IS NOT NULL
2264: -- THEN
2265: -- IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.cascade_source_code_flag)
2266: -- = FND_API.g_false
2267: -- THEN
2268: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_CASCADE_FLAG');
2269: -- x_return_status := FND_API.g_ret_sts_error;
2264: -- THEN
2265: -- IF AMS_Utility_PVT.is_Y_or_N(p_camp_rec.cascade_source_code_flag)
2266: -- = FND_API.g_false
2267: -- THEN
2268: -- AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_CASCADE_FLAG');
2269: -- x_return_status := FND_API.g_ret_sts_error;
2270: -- RETURN;
2271: -- END IF;
2272: --END IF;
2366: IF p_camp_rec.campaign_type <> FND_API.g_miss_char
2367: AND p_camp_rec.campaign_type IS NOT NULL
2368: THEN
2369: IF p_complete_rec.rollup_type = 'RCAM' THEN
2370: IF AMS_Utility_PVT.check_lookup_exists(
2371: p_lookup_type => 'AMS_PROGRAM_OBJECTIVE',
2372: p_lookup_code => p_camp_rec.campaign_type
2373: ) = FND_API.g_false
2374: THEN
2371: p_lookup_type => 'AMS_PROGRAM_OBJECTIVE',
2372: p_lookup_code => p_camp_rec.campaign_type
2373: ) = FND_API.g_false
2374: THEN
2375: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TYPE') ;
2376: x_return_status := FND_API.g_ret_sts_error;
2377: END IF;
2378: ELSE
2379: IF AMS_Utility_PVT.check_lookup_exists(
2375: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TYPE') ;
2376: x_return_status := FND_API.g_ret_sts_error;
2377: END IF;
2378: ELSE
2379: IF AMS_Utility_PVT.check_lookup_exists(
2380: p_lookup_type => 'AMS_CAMPAIGN_PURPOSE',
2381: p_lookup_code => p_camp_rec.campaign_type
2382: ) = FND_API.g_false
2383: THEN
2380: p_lookup_type => 'AMS_CAMPAIGN_PURPOSE',
2381: p_lookup_code => p_camp_rec.campaign_type
2382: ) = FND_API.g_false
2383: THEN
2384: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_TYPE') ;
2385: x_return_status := FND_API.g_ret_sts_error;
2386: END IF;
2387: END IF;
2388: END IF;
2409: AND p_camp_rec.parent_campaign_id <> FND_API.g_miss_num
2410: THEN
2411: IF (AMS_DEBUG_HIGH_ON) THEN
2412:
2413: AMS_Utility_PVT.Debug_message('Parent Camp Id '||p_camp_rec.parent_campaign_id );
2414: END IF;
2415: OPEN c_parent_type;
2416: FETCH c_parent_type INTO l_parent_type, l_status_code;
2417: IF (c_parent_type%NOTFOUND) THEN
2422: FND_MSG_PUB.add;
2423: END IF;
2424: IF (AMS_DEBUG_HIGH_ON) THEN
2425:
2426: AMS_Utility_PVT.Debug_message('Error Here : ' ||p_camp_rec.parent_campaign_id );
2427: END IF;
2428: RAISE FND_API.g_exc_error;
2429: END IF;
2430: CLOSE c_parent_type;
2442: -- Program-Campaign 1.
2443: IF l_status_code <> 'NEW' AND
2444: l_status_code <> 'ACTIVE'
2445: THEN
2446: AMS_Utility_Pvt.Error_Message('AMS_CAMP_PARENT_STAT');
2447: RAISE FND_API.g_exc_error;
2448: END IF ;
2449:
2450: END IF;
2504: -- For creating, check if source_code is unique in ams_source_codes.
2505: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2506: IF p_complete_rec.rollup_type = 'RCAM' THEN
2507: IF p_camp_rec.source_code IS NULL THEN
2508: AMS_Utility_PVT.Error_Message('AMS_CAMP_NO_PROG_CODE');
2509: x_return_status := FND_API.g_ret_sts_error;
2510: RETURN;
2511: ELSE
2512:
2510: RETURN;
2511: ELSE
2512:
2513: --aranka added 07/27/02
2514: IF AMS_Utility_PVT.check_uniqueness(
2515: 'ams_campaigns_all_b',
2516: 'source_code = ''' || p_camp_rec.source_code || ''''
2517: -- 'source_code = ''' || p_camp_rec.source_code ||
2518: -- ''' AND rollup_type = ''RCAM'''
2517: -- 'source_code = ''' || p_camp_rec.source_code ||
2518: -- ''' AND rollup_type = ''RCAM'''
2519: ) = FND_API.g_false
2520: THEN
2521: AMS_Utility_PVT.Error_Message('AMS_CAMP_BAD_PROG_CODE');
2522: x_return_status := FND_API.g_ret_sts_error;
2523: RETURN;
2524: END IF;
2525: END IF;
2524: END IF;
2525: END IF;
2526: ELSE
2527: IF p_camp_rec.source_code IS NOT NULL THEN
2528: IF AMS_Utility_PVT.check_uniqueness(
2529: 'ams_source_codes',
2530: 'source_code = ''' || p_camp_rec.source_code ||
2531: ''' AND active_flag = ''Y'''
2532: ) = FND_API.g_false
2530: 'source_code = ''' || p_camp_rec.source_code ||
2531: ''' AND active_flag = ''Y'''
2532: ) = FND_API.g_false
2533: THEN
2534: AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
2535: x_return_status := FND_API.g_ret_sts_error;
2536: RETURN;
2537: END IF;
2538:
2537: END IF;
2538:
2539: --aranka added 07/27/02
2540: --sam added
2541: IF AMS_Utility_PVT.check_uniqueness(
2542: 'ams_campaigns_all_b',
2543: 'source_code = ''' || p_camp_rec.source_code || ''''
2544: ) = FND_API.g_false
2545: THEN
2542: 'ams_campaigns_all_b',
2543: 'source_code = ''' || p_camp_rec.source_code || ''''
2544: ) = FND_API.g_false
2545: THEN
2546: AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
2547: x_return_status := FND_API.g_ret_sts_error;
2548: RETURN;
2549: END IF;
2550:
2558: -- Please refer to bug #1783583
2559: -------------------------Program Name ---------------------------------
2560: IF p_complete_rec.rollup_type = 'RCAM' THEN
2561: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2562: -- IF AMS_Utility_PVT.check_uniqueness(
2563: -- 'ams_campaigns_vl',
2564: -- 'campaign_name = ''' || p_camp_rec.campaign_name ||
2565: -- ''' AND rollup_type = ''RCAM'''
2566: -- ) = FND_API.g_false
2564: -- 'campaign_name = ''' || p_camp_rec.campaign_name ||
2565: -- ''' AND rollup_type = ''RCAM'''
2566: -- ) = FND_API.g_false
2567: -- THEN
2568: -- AMS_Utility_PVT.Error_Message('AMS_PROG_DUPLICATE_NAME');
2569: -- x_return_status := FND_API.g_ret_sts_error;
2570: -- RETURN;
2571: -- END IF;
2572: --ELSE
2569: -- x_return_status := FND_API.g_ret_sts_error;
2570: -- RETURN;
2571: -- END IF;
2572: --ELSE
2573: -- IF AMS_Utility_PVT.check_uniqueness(
2574: -- 'ams_campaigns_vl',
2575: -- 'campaign_name = ''' || p_camp_rec.campaign_name ||
2576: -- ''' AND rollup_type = ''RCAM'''||
2577: -- ' AND campaign_id <> '||p_camp_rec.campaign_id
2576: -- ''' AND rollup_type = ''RCAM'''||
2577: -- ' AND campaign_id <> '||p_camp_rec.campaign_id
2578: -- ) = FND_API.g_false
2579: -- THEN
2580: -- AMS_Utility_PVT.Error_Message('AMS_PROG_DUPLICATE_NAME');
2581: -- x_return_status := FND_API.g_ret_sts_error;
2582: -- RETURN;
2583: -- END IF;
2584: --END IF ;
2592: CLOSE c_prog_name_updt ;
2593: END IF ;
2594:
2595: IF l_dummy IS NOT NULL THEN
2596: AMS_Utility_PVT.Error_Message('AMS_PROG_DUPLICATE_NAME');
2597: x_return_status := FND_API.g_ret_sts_error;
2598: RETURN;
2599: END IF ;
2600:
2627: p_related_event_type => p_complete_rec.related_event_from,
2628: x_return_status => x_return_status
2629: ) ;
2630: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2631: AMS_UTILITY_PVT.Error_Message('AMS_CAMP_INVALID_EVENT');
2632: x_return_status := FND_API.G_RET_STS_ERROR;
2633: END IF ;
2634:
2635: -- Following code is modified by ptendulk on 22-May-2001
2634:
2635: -- Following code is modified by ptendulk on 22-May-2001
2636: -- Call business rule api
2637: -- Get table_name and pk_name for the ARC qualifier.
2638: --AMS_Utility_PVT.Get_Qual_Table_Name_And_PK (
2639: -- p_sys_qual => p_complete_rec.related_event_from,
2640: -- x_return_status => x_return_status,
2641: -- x_table_name => l_table_name,
2642: -- x_pk_name => l_pk_name
2642: -- x_pk_name => l_pk_name
2643: --);
2644:
2645: --l_pk_value := p_complete_rec.related_event_id ;
2646: --l_pk_data_type := AMS_Utility_PVT.G_NUMBER;
2647: --l_where_clause := NULL;
2648:
2649: --IF AMS_Utility_PVT.Check_FK_Exists (
2650: -- p_table_name => l_table_name
2645: --l_pk_value := p_complete_rec.related_event_id ;
2646: --l_pk_data_type := AMS_Utility_PVT.G_NUMBER;
2647: --l_where_clause := NULL;
2648:
2649: --IF AMS_Utility_PVT.Check_FK_Exists (
2650: -- p_table_name => l_table_name
2651: -- ,p_pk_name => l_pk_name
2652: -- ,p_pk_value => l_pk_value
2653: -- ,p_pk_data_type => l_pk_data_type
2653: -- ,p_pk_data_type => l_pk_data_type
2654: -- ,p_additional_where_clause => l_where_clause
2655: -- ) = FND_API.G_FALSE
2656: --THEN
2657: -- AMS_UTILITY_PVT.Error_Message('AMS_CAMP_INVALID_EVENT');
2658: -- x_return_status := FND_API.G_RET_STS_ERROR;
2659: -- RETURN;
2660: --END IF;
2661:
2670: l_start_date := p_complete_rec.actual_exec_start_date;
2671: l_end_date := p_complete_rec.actual_exec_end_date;
2672:
2673: IF l_start_date > l_end_date THEN
2674: AMS_UTILITY_PVT.Error_Message('AMS_CAMP_START_AFTER_END');
2675: x_return_status := FND_API.g_ret_sts_error;
2676: -- Following line is added by ptendulk on 18-May-2001
2677: -- Refer bug #1786801
2678: RETURN;
3085: x_complete_rec.user_status_id := l_camp_rec.user_status_id;
3086: END IF;
3087:
3088: -- status_code will go with user_status_id
3089: x_complete_rec.status_code := AMS_Utility_PVT.get_system_status_code(
3090: x_complete_rec.user_status_id
3091: );
3092:
3093: IF p_camp_rec.status_date = FND_API.g_miss_date