102: IF (AMS_DEBUG_HIGH_ON) THEN
103:
104:
105:
106: AMS_Utility_PVT.debug_message(l_full_name||': start');
107:
108: END IF;
109:
110: IF FND_API.to_boolean(p_init_msg_list) THEN
131: -- we will override any coming value of system status code
132: -- added sugupta 07/20/2000 for event agenda, stastuses shouldnt be defaulted to 1/NEW
133: -- for main event, while creation.. user status shud always be 1, system status always NEW
134: if l_evh_rec.event_level = 'MAIN' then
135: l_evh_rec.user_status_id := ams_utility_pvt.get_default_user_status('AMS_EVENT_STATUS','NEW');
136: l_evh_rec.system_status_code := 'NEW';
137: else
138: -- pick up the correct system_status_code
139: IF l_evh_rec.user_status_id IS NOT NULL THEN
145:
146: ----------------------- validate -----------------------
147: IF (AMS_DEBUG_HIGH_ON) THEN
148:
149: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
150: END IF;
151:
152: validate_event_header(
153: p_api_version => l_api_version,
169: IF l_evh_rec.event_level = 'SUB' THEN
170: l_user_id := FND_GLOBAL.User_Id;
171: IF (AMS_DEBUG_HIGH_ON) THEN
172:
173: AMS_Utility_PVT.debug_message(' CHECK ACCESS l_user_id is ' ||l_user_id );
174: END IF;
175: if l_user_id IS NOT NULL then
176: open get_res_id(l_user_id);
177: fetch get_res_id into l_res_id;
210: END IF ;
211: -------------------------- insert --------------------------
212: IF (AMS_DEBUG_HIGH_ON) THEN
213:
214: AMS_Utility_PVT.debug_message(l_full_name ||': Get Sequence');
215: END IF;
216:
217: IF l_evh_rec.event_header_id IS NULL THEN
218: LOOP
262: IF (AMS_DEBUG_HIGH_ON) THEN
263:
264:
265:
266: AMS_Utility_PVT.debug_message(l_full_name ||': Source Code');
267:
268: END IF;
269:
270: -- convert incoming time entries appropriately.
310:
311: -------------------------- insert --------------------------
312: IF (AMS_DEBUG_HIGH_ON) THEN
313:
314: AMS_Utility_PVT.debug_message(l_full_name ||': insert B');
315: END IF;
316: IF (AMS_DEBUG_HIGH_ON) THEN
317:
318: AMS_Utility_PVT.debug_message(l_full_name ||': insert B1'||l_evh_rec.agenda_start_time||','||l_evh_rec.agenda_end_time);
314: AMS_Utility_PVT.debug_message(l_full_name ||': insert B');
315: END IF;
316: IF (AMS_DEBUG_HIGH_ON) THEN
317:
318: AMS_Utility_PVT.debug_message(l_full_name ||': insert B1'||l_evh_rec.agenda_start_time||','||l_evh_rec.agenda_end_time);
319: END IF;
320: IF (AMS_DEBUG_HIGH_ON) THEN
321:
322: AMS_Utility_PVT.debug_message(l_full_name ||': insert B2'||l_evh_rec.active_from_date||','||l_evh_rec.active_to_date);
318: AMS_Utility_PVT.debug_message(l_full_name ||': insert B1'||l_evh_rec.agenda_start_time||','||l_evh_rec.agenda_end_time);
319: END IF;
320: IF (AMS_DEBUG_HIGH_ON) THEN
321:
322: AMS_Utility_PVT.debug_message(l_full_name ||': insert B2'||l_evh_rec.active_from_date||','||l_evh_rec.active_to_date);
323: END IF;
324:
325: -- Added by rmajumda (09/15/05). MOAC changes
326: l_org_id := fnd_profile.value('DEFAULT_ORG_ID');
517: IF (AMS_DEBUG_HIGH_ON) THEN
518:
519:
520:
521: AMS_Utility_PVT.debug_message(l_full_name ||': insert TL');
522:
523: END IF;
524:
525: INSERT INTO ams_event_headers_all_tl(
586: RAISE FND_API.g_exc_unexpected_error;
587: END IF;
588: IF (AMS_DEBUG_HIGH_ON) THEN
589:
590: AMS_Utility_PVT.debug_message('Before Add_Update_Access_record');
591: END IF;
592: AMS_EvhRules_PVT.Add_Update_Access_record(p_object_type => 'EVEH',
593: p_object_id => l_evh_rec.event_header_id,
594: p_Owner_user_id => l_evh_rec.owner_user_id,
596: x_msg_count => x_msg_count,
597: x_msg_data => x_msg_data);
598: IF (AMS_DEBUG_HIGH_ON) THEN
599:
600: AMS_Utility_PVT.debug_message('After Add_Update_Access_record' || l_return_status);
601: END IF;
602: END IF; -- check for event level MAIN
603:
604: ------------------------- finish -------------------------------
617: IF (AMS_DEBUG_HIGH_ON) THEN
618:
619:
620:
621: AMS_Utility_PVT.debug_message(l_full_name ||': end');
622:
623: END IF;
624:
625: EXCEPTION
708: IF (AMS_DEBUG_HIGH_ON) THEN
709:
710:
711:
712: AMS_Utility_PVT.debug_message(l_full_name||': start');
713:
714: END IF;
715:
716: IF FND_API.to_boolean(p_init_msg_list) THEN
731: ----------added sugupta 07/25/2000
732: l_user_id := FND_GLOBAL.User_Id;
733: IF (AMS_DEBUG_HIGH_ON) THEN
734:
735: AMS_Utility_PVT.debug_message(' CHECK ACCESS l_user_id is ' ||l_user_id );
736: END IF;
737: if l_user_id IS NOT NULL then
738: open get_res_id(l_user_id);
739: fetch get_res_id into l_res_id;
746: l_hdr_id := p_evh_id;
747: END IF;
748: IF (AMS_DEBUG_HIGH_ON) THEN
749:
750: AMS_Utility_PVT.debug_message('l_hdr_id:'||l_hdr_id || 'P_evh_id:' || p_evh_id || 'l_res_id:' || l_res_id);
751: END IF;
752: if AMS_ACCESS_PVT.check_update_access(l_hdr_id, 'EVEH', l_res_id, 'USER') = 'N' then
753: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
754: FND_MESSAGE.set_name('AMS', 'AMS_EVO_NO_UPDATE_ACCESS'); --reusing the message
758: end if;
759: ------------------------ delete ------------------------
760: IF (AMS_DEBUG_HIGH_ON) THEN
761:
762: AMS_Utility_PVT.debug_message(l_full_name ||': delete');
763: END IF;
764:
765: UPDATE ams_event_headers_all_b
766: SET active_flag = 'N'
802: IF (AMS_DEBUG_HIGH_ON) THEN
803:
804:
805:
806: AMS_Utility_PVT.debug_message(l_full_name ||': end');
807:
808: END IF;
809:
810: EXCEPTION
889:
890: -------------------- initialize ------------------------
891: IF (AMS_DEBUG_HIGH_ON) THEN
892:
893: AMS_Utility_PVT.debug_message(l_full_name||': start');
894: END IF;
895:
896: IF FND_API.to_boolean(p_init_msg_list) THEN
897: FND_MSG_PUB.initialize;
910:
911: ------------------------ lock -------------------------
912: IF (AMS_DEBUG_HIGH_ON) THEN
913:
914: AMS_Utility_PVT.debug_message(l_full_name||': lock');
915: END IF;
916:
917: OPEN c_evh_b;
918: FETCH c_evh_b INTO l_evh_id;
939: IF (AMS_DEBUG_HIGH_ON) THEN
940:
941:
942:
943: AMS_Utility_PVT.debug_message(l_full_name ||': end');
944:
945: END IF;
946:
947: EXCEPTION
945: END IF;
946:
947: EXCEPTION
948:
949: WHEN AMS_Utility_PVT.resource_locked THEN
950: x_return_status := FND_API.g_ret_sts_error;
951: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
952: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
953: FND_MSG_PUB.add;
1068: IF (AMS_DEBUG_HIGH_ON) THEN
1069:
1070:
1071:
1072: AMS_Utility_PVT.debug_message(l_full_name||': start');
1073:
1074: END IF;
1075:
1076: IF FND_API.to_boolean(p_init_msg_list) THEN
1090:
1091: ----------------------- validate ----------------------
1092: IF (AMS_DEBUG_HIGH_ON) THEN
1093:
1094: AMS_Utility_PVT.debug_message(l_full_name ||': validate');
1095: END IF;
1096:
1097: --
1098: -- Call the complete rec
1130: IF (AMS_DEBUG_HIGH_ON) THEN
1131:
1132:
1133:
1134: AMS_Utility_PVT.debug_message(l_full_name ||':before Rules_EVH_Update');
1135:
1136: END IF;
1137:
1138: AMS_EvhRules_PVT.check_evh_update(
1149: IF (AMS_DEBUG_HIGH_ON) THEN
1150:
1151:
1152:
1153: AMS_Utility_PVT.debug_message(l_full_name ||':after Rules_EVH_Update');
1154:
1155: END IF;
1156:
1157: -- item level validation
1163: x_return_status => l_return_status
1164: );
1165: IF (AMS_DEBUG_HIGH_ON) THEN
1166:
1167: AMS_Utility_PVT.debug_message(l_full_name ||':after check_evh_items');
1168: END IF;
1169:
1170: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1171: RAISE FND_API.g_exc_unexpected_error;
1185: IF (AMS_DEBUG_HIGH_ON) THEN
1186:
1187:
1188:
1189: AMS_Utility_PVT.debug_message(l_full_name ||':after check_evh_record');
1190:
1191: END IF;
1192:
1193: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1210: IF (AMS_DEBUG_HIGH_ON) THEN
1211:
1212:
1213:
1214: AMS_Utility_PVT.debug_message(l_full_name ||':after check_evh_inter_entity');
1215:
1216: END IF;
1217:
1218: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1258:
1259:
1260:
1261:
1262: AMS_Utility_PVT.debug_message(l_full_name ||': user_status_id = ' || l_evh_rec.user_status_id);
1263:
1264:
1265: END IF;
1266: IF (AMS_DEBUG_HIGH_ON) THEN
1264:
1265: END IF;
1266: IF (AMS_DEBUG_HIGH_ON) THEN
1267:
1268: AMS_Utility_PVT.debug_message(l_full_name ||': system_status_code = ' || l_evh_rec.system_status_code);
1269: END IF;
1270:
1271: /*
1272: -- 01/21/2000 : gdeodhar
1299:
1300: -- handle source code update
1301: IF (AMS_DEBUG_HIGH_ON) THEN
1302:
1303: AMS_Utility_PVT.debug_message(l_full_name ||': update source code:'||l_evh_rec.system_status_code);
1304: END IF;
1305: -- only for main and non active events
1306:
1307: /* Added by GMADANA */
1319: -- OR l_evh_rec.system_status_code = 'PLANNING') since the source code canbe update only in new status
1320: THEN
1321: IF (AMS_DEBUG_HIGH_ON) THEN
1322:
1323: AMS_Utility_PVT.debug_message(l_full_name ||': update source code:'||l_evh_rec.system_status_code);
1324: END IF;
1325:
1326: -- extracting out source code modified by soagrawa
1327: -- 21-jan-2003 bug# 2761612
1353: OR p_evh_rec.global_flag is NULL
1354: THEN
1355: IF (AMS_DEBUG_HIGH_ON) THEN
1356:
1357: AMS_Utility_PVT.debug_message('global_flag = ' || p_evh_rec.global_flag);
1358: END IF;
1359:
1360: IF p_evh_rec.global_flag <> l_global_flag
1361: THEN
1390: ----------added sugupta 07/25/2000
1391: l_user_id := FND_GLOBAL.User_Id;
1392: IF (AMS_DEBUG_HIGH_ON) THEN
1393:
1394: AMS_Utility_PVT.debug_message(' CHECK ACCESS l_user_id is ' ||l_user_id );
1395: END IF;
1396: if l_user_id IS NOT NULL then
1397: open get_res_id(l_user_id);
1398: fetch get_res_id into l_res_id;
1505:
1506: -------------------------- update --------------------
1507: IF (AMS_DEBUG_HIGH_ON) THEN
1508:
1509: AMS_Utility_PVT.debug_message(l_full_name ||': update');
1510: END IF;
1511:
1512: -- GDEODHAR : Sept. 26, 2000 added two separate update statements.
1513: -- One for the main events where the workflow has to be kicked off for status change
1684: IF (AMS_DEBUG_HIGH_ON) THEN
1685:
1686:
1687:
1688: AMS_Utility_PVT.debug_message(l_full_name ||': update done');
1689:
1690: END IF;
1691:
1692: IF (SQL%NOTFOUND) THEN
1700: IF (AMS_DEBUG_HIGH_ON) THEN
1701:
1702:
1703:
1704: AMS_Utility_PVT.debug_message(l_full_name ||':BEFORE TL');
1705:
1706: END IF;
1707: IF (AMS_DEBUG_HIGH_ON) THEN
1708:
1705:
1706: END IF;
1707: IF (AMS_DEBUG_HIGH_ON) THEN
1708:
1709: AMS_Utility_PVT.debug_message('FOR NAGEN : Before Update evhname = ' || l_evh_rec.event_header_name);
1710: END IF;
1711: IF (AMS_DEBUG_HIGH_ON) THEN
1712:
1713: AMS_Utility_PVT.debug_message('FOR NAGEN : Before Update evhdesc = ' || l_evh_rec.description);
1709: AMS_Utility_PVT.debug_message('FOR NAGEN : Before Update evhname = ' || l_evh_rec.event_header_name);
1710: END IF;
1711: IF (AMS_DEBUG_HIGH_ON) THEN
1712:
1713: AMS_Utility_PVT.debug_message('FOR NAGEN : Before Update evhdesc = ' || l_evh_rec.description);
1714: END IF;
1715:
1716: -- GDEODHAR : Sept. 26th, 2000 : Note that for MAIN Events and Agenda (SUB) items, the
1717: -- update of the TL table is the same.
1738: IF (AMS_DEBUG_HIGH_ON) THEN
1739:
1740:
1741:
1742: AMS_Utility_PVT.debug_message(l_full_name ||':AFTER TL');
1743:
1744: END IF;
1745:
1746: ---murali call "update_event_status 09/26/00 S
1755: p_currency_code_tc => l_evh_rec.currency_code_tc
1756: );
1757: IF (AMS_DEBUG_HIGH_ON) THEN
1758:
1759: AMS_Utility_PVT.debug_message('calling before Add_Update_Access_record');
1760: END IF;
1761: AMS_EvhRules_PVT.Add_Update_Access_record(p_object_type => 'EVEH',
1762: p_object_id => l_evh_rec.event_header_id,
1763: p_Owner_user_id => l_evh_rec.owner_user_id,
1765: x_msg_count => x_msg_count,
1766: x_msg_data => x_msg_data);
1767: IF (AMS_DEBUG_HIGH_ON) THEN
1768:
1769: AMS_Utility_PVT.debug_message('after before Add_Update_Access_record || l_return_status');
1770: END IF;
1771: END IF;
1772: ---murali call "update_event_status 09/26/00 E
1773:
1775: -------------------- finish --------------------------
1776: IF FND_API.to_boolean(p_commit) THEN
1777: IF (AMS_DEBUG_HIGH_ON) THEN
1778:
1779: AMS_Utility_PVT.debug_message(l_full_name ||':Calling Commit.');
1780: END IF;
1781: COMMIT;
1782: ELSE
1783: IF (AMS_DEBUG_HIGH_ON) THEN
1781: COMMIT;
1782: ELSE
1783: IF (AMS_DEBUG_HIGH_ON) THEN
1784:
1785: AMS_Utility_PVT.debug_message(l_full_name ||':Did not call Commit.');
1786: END IF;
1787: END IF;
1788:
1789: IF (AMS_DEBUG_HIGH_ON) THEN
1789: IF (AMS_DEBUG_HIGH_ON) THEN
1790:
1791:
1792:
1793: AMS_Utility_PVT.debug_message(l_full_name ||': getting messages');
1794:
1795: END IF;
1796:
1797: FND_MSG_PUB.count_and_get(
1803: IF (AMS_DEBUG_HIGH_ON) THEN
1804:
1805:
1806:
1807: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1808:
1809: END IF;
1810:
1811: EXCEPTION
1874:
1875: ----------------------- initialize --------------------
1876: IF (AMS_DEBUG_HIGH_ON) THEN
1877:
1878: AMS_Utility_PVT.debug_message(l_full_name||': start');
1879: END IF;
1880:
1881: IF FND_API.to_boolean(p_init_msg_list) THEN
1882: FND_MSG_PUB.initialize;
1895:
1896: ---------------------- validate ------------------------
1897: IF (AMS_DEBUG_HIGH_ON) THEN
1898:
1899: AMS_Utility_PVT.debug_message(l_full_name||': check items');
1900: END IF;
1901:
1902: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1903: check_evh_items(
1916: IF (AMS_DEBUG_HIGH_ON) THEN
1917:
1918:
1919:
1920: AMS_Utility_PVT.debug_message(l_full_name||': check record');
1921:
1922: END IF;
1923:
1924: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
1941:
1942:
1943:
1944:
1945: AMS_Utility_PVT.debug_message(l_full_name||': check inter-entity');
1946:
1947:
1948: END IF;
1949:
1973: IF (AMS_DEBUG_HIGH_ON) THEN
1974:
1975:
1976:
1977: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1978:
1979: END IF;
1980:
1981: EXCEPTION
2055:
2056: x_return_status := FND_API.g_ret_sts_success;
2057: IF (AMS_DEBUG_HIGH_ON) THEN
2058:
2059: AMS_Utility_PVT.debug_message('INSIDE EVH REQ');
2060: END IF;
2061:
2062: ------------------------ owner_user_id --------------------------
2063: IF p_evh_rec.owner_user_id IS NULL THEN
2171: IF (AMS_DEBUG_HIGH_ON) THEN
2172:
2173:
2174:
2175: AMS_Utility_PVT.debug_message('INSIDE EVH UK');
2176:
2177: END IF;
2178:
2179: -- For create_event_header, when event_header_id is passed in, we need to
2181:
2182: IF p_validation_mode = JTF_PLSQL_API.g_create
2183: AND p_evh_rec.event_header_id IS NOT NULL
2184: THEN
2185: IF AMS_Utility_PVT.check_uniqueness(
2186: 'ams_event_headers_vl',
2187: 'event_header_id = ' || p_evh_rec.event_header_id
2188: ) = FND_API.g_false
2189: THEN
2203: -- Update of source_code is not allowed.
2204: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2205: IF p_evh_rec.source_code IS NOT NULL THEN
2206: /*
2207: IF AMS_Utility_PVT.check_uniqueness(
2208: 'ams_source_codes',
2209: 'source_code = ''' || p_evh_rec.source_code ||''''
2210: ) = FND_API.g_false
2211: */
2213: fetch c_src_code into l_dummy;
2214: close c_src_code;
2215: IF (AMS_DEBUG_HIGH_ON) THEN
2216:
2217: AMS_UTILITY_PVt.debug_message('the value of l_dummy is '||l_dummy);
2218: END IF;
2219: IF l_dummy = 1
2220: THEN
2221: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2276: IF (AMS_DEBUG_HIGH_ON) THEN
2277:
2278:
2279:
2280: AMS_Utility_PVT.debug_message('CC' ||':INSIDE EVH FK');
2281:
2282: END IF;
2283: ----------------------- owner_user_id ------------------------
2284: IF p_evh_rec.owner_user_id <> FND_API.g_miss_num THEN
2281:
2282: END IF;
2283: ----------------------- owner_user_id ------------------------
2284: IF p_evh_rec.owner_user_id <> FND_API.g_miss_num THEN
2285: IF AMS_Utility_PVT.check_fk_exists(
2286: 'ams_jtf_rs_emp_v',
2287: 'resource_id',
2288: p_evh_rec.owner_user_id
2289: ) = FND_API.g_false
2300:
2301:
2302: --------------------- application_id ------------------------
2303: IF p_evh_rec.application_id <> FND_API.g_miss_num THEN
2304: IF AMS_Utility_PVT.check_fk_exists(
2305: 'fnd_application',
2306: 'application_id',
2307: p_evh_rec.application_id
2308: ) = FND_API.g_false
2320: --------------------- inbound_script_name ------------------------
2321: IF p_evh_rec.inbound_script_name <> FND_API.g_miss_char
2322: AND p_evh_rec.inbound_script_name IS NOT NULL
2323: THEN
2324: IF AMS_Utility_PVT.check_fk_exists(
2325: 'ies_deployed_scripts',
2326: 'dscript_name',
2327: p_evh_rec.inbound_script_name,
2328: AMS_Utility_PVT.g_varchar2
2324: IF AMS_Utility_PVT.check_fk_exists(
2325: 'ies_deployed_scripts',
2326: 'dscript_name',
2327: p_evh_rec.inbound_script_name,
2328: AMS_Utility_PVT.g_varchar2
2329: ) = FND_API.g_false
2330: THEN
2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2332: THEN
2339: END IF;
2340:
2341: ----------------------- parent_event_header_id ------------------------
2342: IF p_evh_rec.parent_event_header_id <> FND_API.g_miss_num THEN
2343: IF AMS_Utility_PVT.check_fk_exists(
2344: 'ams_event_headers_vl',
2345: 'event_header_id',
2346: p_evh_rec.parent_event_header_id
2347: ) = FND_API.g_false
2358: END IF;
2359:
2360: ----------------------- program_id ------------------------
2361: IF p_evh_rec.program_id <> FND_API.g_miss_num THEN
2362: IF AMS_Utility_PVT.check_fk_exists(
2363: 'AMS_CAMPAIGNS_ALL_B',
2364: 'CAMPAIGN_ID',
2365: p_evh_rec.program_id
2366: ) = FND_API.g_false
2379: --------------------- currency_code_tc ------------------------
2380: IF p_evh_rec.currency_code_tc <> FND_API.g_miss_char
2381: AND p_evh_rec.currency_code_tc IS NOT NULL
2382: THEN
2383: IF AMS_Utility_PVT.check_fk_exists(
2384: 'fnd_currencies_vl',
2385: 'currency_code',
2386: p_evh_rec.currency_code_tc,
2387: AMS_Utility_PVT.g_varchar2
2383: IF AMS_Utility_PVT.check_fk_exists(
2384: 'fnd_currencies_vl',
2385: 'currency_code',
2386: p_evh_rec.currency_code_tc,
2387: AMS_Utility_PVT.g_varchar2
2388: ) = FND_API.g_false
2389: THEN
2390: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2391: THEN
2400: --------------------- currency_code_fc ------------------------
2401: IF p_evh_rec.currency_code_fc <> FND_API.g_miss_char
2402: AND p_evh_rec.currency_code_fc IS NOT NULL
2403: THEN
2404: IF AMS_Utility_PVT.check_fk_exists(
2405: 'fnd_currencies_vl',
2406: 'currency_code',
2407: p_evh_rec.currency_code_fc,
2408: AMS_Utility_PVT.g_varchar2
2404: IF AMS_Utility_PVT.check_fk_exists(
2405: 'fnd_currencies_vl',
2406: 'currency_code',
2407: p_evh_rec.currency_code_fc,
2408: AMS_Utility_PVT.g_varchar2
2409: ) = FND_API.g_false
2410: THEN
2411: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2412: THEN
2418: END IF;
2419: END IF;
2420: ----------------------- user_status_id ------------------------
2421: IF p_evh_rec.user_status_id <> FND_API.g_miss_num THEN
2422: IF AMS_Utility_PVT.check_fk_exists(
2423: 'ams_user_statuses_b',
2424: 'user_status_id',
2425: p_evh_rec.user_status_id
2426: ) = FND_API.g_false
2444: p_evh_rec.country_code IS NOT NULL THEN
2445:
2446: l_table_name := 'jtf_loc_hierarchies_b';
2447: l_pk_name := 'location_hierarchy_id' ;
2448: l_pk_data_type := AMS_Utility_PVT.G_NUMBER ;
2449: l_pk_value := to_number(p_evh_rec.country_code);
2450: l_additional_where_clause := null ;
2451:
2452: IF AMS_Utility_PVT.check_fk_exists(
2448: l_pk_data_type := AMS_Utility_PVT.G_NUMBER ;
2449: l_pk_value := to_number(p_evh_rec.country_code);
2450: l_additional_where_clause := null ;
2451:
2452: IF AMS_Utility_PVT.check_fk_exists(
2453: p_table_name => l_table_name,
2454: p_pk_name => l_pk_name,
2455: p_pk_value => l_pk_value,
2456: p_pk_data_type => l_pk_data_type,
2456: p_pk_data_type => l_pk_data_type,
2457: p_additional_where_clause => l_additional_where_clause
2458: ) = FND_API.g_false
2459: THEN
2460: AMS_Utility_Pvt.Error_Message(p_message_name => 'AMS_CSCH_BAD_COUNTRY') ;
2461: x_return_status := FND_API.g_ret_sts_error;
2462: RETURN;
2463: END IF;
2464: END IF;
2466: /* old code
2467: IF p_evh_rec.country_code <> FND_API.g_miss_char
2468: AND p_evh_rec.country_code IS NOT NULL
2469: THEN
2470: IF AMS_Utility_PVT.check_fk_exists(
2471: 'fnd_territories_vl',
2472: 'territory_code',
2473: p_evh_rec.country_code,
2474: AMS_Utility_PVT.g_varchar2,
2470: IF AMS_Utility_PVT.check_fk_exists(
2471: 'fnd_territories_vl',
2472: 'territory_code',
2473: p_evh_rec.country_code,
2474: AMS_Utility_PVT.g_varchar2,
2475: NULL
2476: ) = FND_API.g_false
2477: THEN
2478: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2507:
2508: x_return_status := FND_API.g_ret_sts_success;
2509: IF (AMS_DEBUG_HIGH_ON) THEN
2510:
2511: AMS_Utility_PVT.debug_message('INSIDE EVH LOOKUP');
2512: END IF;
2513:
2514: /*
2515: ----------------------- system_status_code ------------------------
2513:
2514: /*
2515: ----------------------- system_status_code ------------------------
2516: IF p_evh_rec.system_status_code <> FND_API.g_miss_char THEN
2517: IF AMS_Utility_PVT.check_lookup_exists(
2518: p_lookup_table_name => 'AMS_USER_STATUSES_B',
2519: p_lookup_type => 'AMS_EVENT_STATUS',
2520: p_lookup_code => p_evh_rec.system_status_code
2521: ) = FND_API.g_false
2541: ----------------------- event_type ------------------------
2542: IF p_evh_rec.event_type_code <> FND_API.g_miss_char
2543: AND p_evh_rec.event_type_code IS NOT NULL
2544: THEN
2545: IF AMS_Utility_PVT.check_lookup_exists(
2546: p_lookup_type => 'AMS_EVENT_TYPE',
2547: p_lookup_code => p_evh_rec.event_type_code
2548: ) = FND_API.g_false
2549: THEN
2560: ----------------------- event_level ------------------------
2561: IF p_evh_rec.event_level <> FND_API.g_miss_char
2562: AND p_evh_rec.event_level IS NOT NULL
2563: THEN
2564: IF AMS_Utility_PVT.check_lookup_exists(
2565: p_lookup_type => 'AMS_EVENT_LEVEL',
2566: p_lookup_code => p_evh_rec.event_level
2567: ) = FND_API.g_false
2568: THEN
2579: ----------------------- priority ------------------------
2580: IF p_evh_rec.priority_type_code <> FND_API.g_miss_char
2581: AND p_evh_rec.priority_type_code IS NOT NULL
2582: THEN
2583: IF AMS_Utility_PVT.check_lookup_exists(
2584: p_lookup_type => 'AMS_PRIORITY',
2585: p_lookup_code => p_evh_rec.priority_type_code
2586: ) = FND_API.g_false
2587: THEN
2599: ----------------------- fund_source_type ------------------------
2600: IF p_evh_rec.fund_source_type_code <> FND_API.g_miss_char
2601: AND p_evh_rec.fund_source_type_code IS NOT NULL
2602: THEN
2603: IF AMS_Utility_PVT.check_lookup_exists(
2604: p_lookup_type => 'AMS_FUND_SOURCE',
2605: p_lookup_code => p_evh_rec.fund_source_type_code
2606: ) = FND_API.g_false
2607: THEN
2618: ----------------------- day_of_event ------------------------
2619: IF p_evh_rec.day_of_event <> FND_API.g_miss_char
2620: AND p_evh_rec.day_of_event IS NOT NULL
2621: THEN
2622: IF AMS_Utility_PVT.check_lookup_exists(
2623: p_lookup_type => 'AMS_EVENT_DAY',
2624: p_lookup_code => p_evh_rec.day_of_event
2625: ) = FND_API.g_false
2626: THEN
2637: ----------------------- certification_credit_type ------------------------
2638: IF p_evh_rec.cert_credit_type_code <> FND_API.g_miss_char
2639: AND p_evh_rec.cert_credit_type_code IS NOT NULL
2640: THEN
2641: IF AMS_Utility_PVT.check_lookup_exists(
2642: p_lookup_type => 'AMS_EVENT_CERT_CREDIT_TYPE',
2643: p_lookup_code => p_evh_rec.cert_credit_type_code
2644: ) = FND_API.g_false
2645: THEN
2656: ----------------------- cancellation_reason_code ------------------------
2657: IF p_evh_rec.cancellation_reason_code <> FND_API.g_miss_char
2658: AND p_evh_rec.cancellation_reason_code IS NOT NULL
2659: THEN
2660: IF AMS_Utility_PVT.check_lookup_exists(
2661: p_lookup_type => 'AMS_EVENT_CANCEL_REASON',
2662: p_lookup_code => p_evh_rec.cancellation_reason_code
2663: ) = FND_API.g_false
2664: THEN
2675: ----------------------- stream_type_code ------------------------
2676: IF p_evh_rec.stream_type_code <> FND_API.g_miss_char
2677: AND p_evh_rec.stream_type_code IS NOT NULL
2678: THEN
2679: IF AMS_Utility_PVT.check_lookup_exists(
2680: p_lookup_type => 'AMS_EVENT_STREAM_TYPE',
2681: p_lookup_code => p_evh_rec.stream_type_code
2682: ) = FND_API.g_false
2683: THEN
2694: IF (AMS_DEBUG_HIGH_ON) THEN
2695:
2696:
2697:
2698: AMS_Utility_PVT.debug_message('AFTER EVH LOOKUP');
2699:
2700: END IF;
2701:
2702:
2720:
2721: x_return_status := FND_API.g_ret_sts_success;
2722: IF (AMS_DEBUG_HIGH_ON) THEN
2723:
2724: AMS_Utility_PVT.debug_message('INSIDE EVH FLAG');
2725: END IF;
2726:
2727: ----------------------- active_flag ------------------------
2728: IF p_evh_rec.active_flag <> FND_API.g_miss_char
2727: ----------------------- active_flag ------------------------
2728: IF p_evh_rec.active_flag <> FND_API.g_miss_char
2729: AND p_evh_rec.active_flag IS NOT NULL
2730: THEN
2731: IF AMS_Utility_PVT.is_Y_or_N(p_evh_rec.active_flag) = FND_API.g_false
2732: THEN
2733: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2734: THEN
2735: FND_MESSAGE.set_name('AMS', 'AMS_EVH_BAD_ACTIVE_FLAG');
2743: ----------------------- event_standalone_flag ------------------------
2744: IF p_evh_rec.event_standalone_flag <> FND_API.g_miss_char
2745: AND p_evh_rec.event_standalone_flag IS NOT NULL
2746: THEN
2747: IF AMS_Utility_PVT.is_Y_or_N(p_evh_rec.event_standalone_flag) = FND_API.g_false
2748: THEN
2749: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2750: THEN
2751: FND_MESSAGE.set_name('AMS', 'AMS_EVH_BAD_STANDALONE_FL');
2759: ----------------------- private_flag ------------------------
2760: IF p_evh_rec.private_flag <> FND_API.g_miss_char
2761: AND p_evh_rec.private_flag IS NOT NULL
2762: THEN
2763: IF AMS_Utility_PVT.is_Y_or_N(p_evh_rec.private_flag) = FND_API.g_false
2764: THEN
2765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2766: THEN
2767: FND_MESSAGE.set_name('AMS', 'AMS_EVH_BAD_PRIVATE_FLAG');
2775: ----------------------- reg_required_flag ------------------------
2776: IF p_evh_rec.reg_required_flag <> FND_API.g_miss_char
2777: AND p_evh_rec.reg_required_flag IS NOT NULL
2778: THEN
2779: IF AMS_Utility_PVT.is_Y_or_N(p_evh_rec.reg_required_flag) = FND_API.g_false
2780: THEN
2781: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2782: THEN
2783: FND_MESSAGE.set_name('AMS', 'AMS_EVH_BAD_REG_REQUIRED_FLAG');
2792: ----------------------- reg_invited_only_flag ------------------------
2793: IF p_evh_rec.reg_invited_only_flag <> FND_API.g_miss_char
2794: AND p_evh_rec.reg_invited_only_flag IS NOT NULL
2795: THEN
2796: IF AMS_Utility_PVT.is_Y_or_N(p_evh_rec.reg_invited_only_flag) = FND_API.g_false
2797: THEN
2798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2799: THEN
2800: FND_MESSAGE.set_name('AMS', 'AMS_EVH_BAD_REG_INV_ONLY');
2809: ----------------------- reg_charge_flag ------------------------
2810: IF p_evh_rec.reg_charge_flag <> FND_API.g_miss_char
2811: AND p_evh_rec.reg_charge_flag IS NOT NULL
2812: THEN
2813: IF AMS_Utility_PVT.is_Y_or_N(p_evh_rec.reg_charge_flag) = FND_API.g_false
2814: THEN
2815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2816: THEN
2817: FND_MESSAGE.set_name('AMS', 'AMS_EVH_BAD_REG_CHARGE_FLAG');
2827: ----------------------- overflow_flag ------------------------
2828: IF p_evh_rec.overflow_flag <> FND_API.g_miss_char
2829: AND p_evh_rec.overflow_flag IS NOT NULL
2830: THEN
2831: IF AMS_Utility_PVT.is_Y_or_N(p_evh_rec.overflow_flag) = FND_API.g_false
2832: THEN
2833: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2834: THEN
2835: FND_MESSAGE.set_name('AMS', 'AMS_EVH_BAD_OVERFLOW_FLAG');
2843:
2844: -- check other flags
2845: IF (AMS_DEBUG_HIGH_ON) THEN
2846:
2847: AMS_Utility_PVT.debug_message('AFTER EVH FLAG');
2848: END IF;
2849:
2850:
2851: END check_evh_flag_items;
2867: IS
2868: BEGIN
2869: IF (AMS_DEBUG_HIGH_ON) THEN
2870:
2871: AMS_Utility_PVT.debug_message('INSIDE EVH ITEMS');
2872: END IF;
2873: -------------------------- Update Mode ----------------------------
2874: -- check if the p_evh_rec has any columns that should not be updated at this stage as per the business logic.
2875: -- Also when the event is in active stage (will add later)
2959:
2960: BEGIN
2961: IF (AMS_DEBUG_HIGH_ON) THEN
2962:
2963: AMS_Utility_PVT.debug_message('INSIDE EVH RECORD');
2964: END IF;
2965: x_return_status := FND_API.g_ret_sts_success;
2966:
2967:
2980: IF (AMS_DEBUG_HIGH_ON) THEN
2981:
2982:
2983:
2984: AMS_Utility_PVT.debug_message('L_ST_DATE:'||to_char(l_start_date,'DD-MON-YYY'));
2985:
2986: END IF;
2987: IF (AMS_DEBUG_HIGH_ON) THEN
2988:
2985:
2986: END IF;
2987: IF (AMS_DEBUG_HIGH_ON) THEN
2988:
2989: AMS_Utility_PVT.debug_message('L_END_DATE:'||to_char(l_end_date,'DD-MON-YYY'));
2990: END IF;
2991:
2992: IF (l_start_date > l_end_date) THEN
2993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3034: IF (AMS_DEBUG_HIGH_ON) THEN
3035:
3036:
3037:
3038: AMS_Utility_PVT.debug_message('p_complete_rec.DURATION:'||p_complete_rec.DURATION);
3039:
3040: END IF;
3041: IF (AMS_DEBUG_HIGH_ON) THEN
3042:
3039:
3040: END IF;
3041: IF (AMS_DEBUG_HIGH_ON) THEN
3042:
3043: AMS_Utility_PVT.debug_message('p_evh_rec.DURATION:'||p_evh_rec.DURATION);
3044: END IF;
3045: IF (AMS_DEBUG_HIGH_ON) THEN
3046:
3047: AMS_Utility_PVT.debug_message('p_complete_rec.DURATION_UOM_CODE:'||nvl(p_complete_rec.DURATION_UOM_CODE,'NULL'));
3043: AMS_Utility_PVT.debug_message('p_evh_rec.DURATION:'||p_evh_rec.DURATION);
3044: END IF;
3045: IF (AMS_DEBUG_HIGH_ON) THEN
3046:
3047: AMS_Utility_PVT.debug_message('p_complete_rec.DURATION_UOM_CODE:'||nvl(p_complete_rec.DURATION_UOM_CODE,'NULL'));
3048: END IF;
3049: IF (AMS_DEBUG_HIGH_ON) THEN
3050:
3051: AMS_Utility_PVT.debug_message('p_evh_rec.DURATION_UOM_CODE:'||nvl(p_evh_rec.DURATION_UOM_CODE, 'NULL') );
3047: AMS_Utility_PVT.debug_message('p_complete_rec.DURATION_UOM_CODE:'||nvl(p_complete_rec.DURATION_UOM_CODE,'NULL'));
3048: END IF;
3049: IF (AMS_DEBUG_HIGH_ON) THEN
3050:
3051: AMS_Utility_PVT.debug_message('p_evh_rec.DURATION_UOM_CODE:'||nvl(p_evh_rec.DURATION_UOM_CODE, 'NULL') );
3052: END IF;
3053:
3054: -- do other record level checkings
3055: IF (p_evh_rec.DURATION <> FND_API.g_miss_num
3059: IF (p_evh_rec.DURATION_UOM_CODE = FND_API.g_miss_char
3060: AND p_complete_rec.DURATION_UOM_CODE IS NULL)
3061: OR p_evh_rec.DURATION_UOM_CODE IS NULL
3062: THEN
3063: AMS_Utility_PVT.error_message('AMS_EVO_NO_DUR_UOM_CODE');
3064: x_return_status := FND_API.g_ret_sts_error;
3065: return;
3066: END IF;
3067: END IF;
3073: IF (p_evh_rec.DURATION = FND_API.g_miss_num
3074: AND p_complete_rec.DURATION IS NULL)
3075: OR p_evh_rec.DURATION IS NULL
3076: THEN
3077: AMS_Utility_PVT.error_message('AMS_EVO_NO_DUR_WITH_CODE');
3078: x_return_status := FND_API.g_ret_sts_error;
3079: return;
3080: END IF;
3081: END IF;
3081: END IF;
3082: -- added sugupta 07/20/2000 if budget amount's there, there has to be currency code
3083: IF (AMS_DEBUG_HIGH_ON) THEN
3084:
3085: AMS_Utility_PVT.debug_message('p_complete_rec.FUND_AMOUNT_TC:'||p_complete_rec.FUND_AMOUNT_TC);
3086: END IF;
3087: IF (AMS_DEBUG_HIGH_ON) THEN
3088:
3089: AMS_Utility_PVT.debug_message('p_evh_rec.FUND_AMOUNT_TC:'||p_evh_rec.FUND_AMOUNT_TC);
3085: AMS_Utility_PVT.debug_message('p_complete_rec.FUND_AMOUNT_TC:'||p_complete_rec.FUND_AMOUNT_TC);
3086: END IF;
3087: IF (AMS_DEBUG_HIGH_ON) THEN
3088:
3089: AMS_Utility_PVT.debug_message('p_evh_rec.FUND_AMOUNT_TC:'||p_evh_rec.FUND_AMOUNT_TC);
3090: END IF;
3091: IF (AMS_DEBUG_HIGH_ON) THEN
3092:
3093: AMS_Utility_PVT.debug_message('p_complete_rec.CURRENCY_CODE_TC:'||nvl(p_complete_rec.CURRENCY_CODE_TC,'NULL'));
3089: AMS_Utility_PVT.debug_message('p_evh_rec.FUND_AMOUNT_TC:'||p_evh_rec.FUND_AMOUNT_TC);
3090: END IF;
3091: IF (AMS_DEBUG_HIGH_ON) THEN
3092:
3093: AMS_Utility_PVT.debug_message('p_complete_rec.CURRENCY_CODE_TC:'||nvl(p_complete_rec.CURRENCY_CODE_TC,'NULL'));
3094: END IF;
3095: IF (AMS_DEBUG_HIGH_ON) THEN
3096:
3097: AMS_Utility_PVT.debug_message('p_evh_rec.CURRENCY_CODE_TC:'||nvl(p_evh_rec.CURRENCY_CODE_TC, 'NULL') );
3093: AMS_Utility_PVT.debug_message('p_complete_rec.CURRENCY_CODE_TC:'||nvl(p_complete_rec.CURRENCY_CODE_TC,'NULL'));
3094: END IF;
3095: IF (AMS_DEBUG_HIGH_ON) THEN
3096:
3097: AMS_Utility_PVT.debug_message('p_evh_rec.CURRENCY_CODE_TC:'||nvl(p_evh_rec.CURRENCY_CODE_TC, 'NULL') );
3098: END IF;
3099: IF p_evh_rec.FUND_AMOUNT_TC <> FND_API.g_miss_num
3100: OR p_complete_rec.FUND_AMOUNT_TC IS NOT NULL THEN
3101:
3100: OR p_complete_rec.FUND_AMOUNT_TC IS NOT NULL THEN
3101:
3102: IF p_evh_rec.CURRENCY_CODE_TC = FND_API.g_miss_char
3103: AND p_complete_rec.CURRENCY_CODE_TC IS NULL THEN
3104: AMS_Utility_PVT.error_message('AMS_CAMP_BUDGET_NO_CURRENCY'); -- reusing campaign message
3105: x_return_status := FND_API.g_ret_sts_error;
3106: return;
3107: END IF;
3108: END IF;
3255: IF (AMS_DEBUG_HIGH_ON) THEN
3256:
3257:
3258:
3259: AMS_Utility_PVT.debug_message('start_date' ||p_evh_rec.active_from_date);
3260:
3261: END IF;
3262: IF (AMS_DEBUG_HIGH_ON) THEN
3263:
3260:
3261: END IF;
3262: IF (AMS_DEBUG_HIGH_ON) THEN
3263:
3264: AMS_Utility_PVT.debug_message('end_date' ||p_evh_rec.active_to_date);
3265: END IF;
3266:
3267: ------------------- check calendar ----------------------
3268: IF p_evh_rec.event_calendar <> FND_API.g_miss_char
3286: null;
3287: END IF;
3288: ------------------------------Source code-------------------
3289: /* IF ((p_evh_rec.source_code IS NOT NULL) AND (p_evh_rec.source_code <> p_complete_rec.source_code)) THEN
3290: IF AMS_Utility_PVT.check_uniqueness(
3291: 'ams_source_codes',
3292: 'source_code = ''' || p_evh_rec.source_code ||
3293: ''' AND active_flag = ''Y'''
3294: ) = FND_API.g_false
3292: 'source_code = ''' || p_evh_rec.source_code ||
3293: ''' AND active_flag = ''Y'''
3294: ) = FND_API.g_false
3295: THEN
3296: AMS_Utility_PVT.Error_Message('AMS_CAMP_DUPLICATE_CODE');
3297: x_return_status := FND_API.g_ret_sts_error;
3298: RETURN;
3299: END IF;
3300: END IF;
3339:
3340: BEGIN
3341: IF (AMS_DEBUG_HIGH_ON) THEN
3342:
3343: AMS_Utility_PVT.debug_message('compelte_evh' ||':inside compelte');
3344: END IF;
3345: x_complete_rec := p_evh_rec;
3346:
3347: OPEN c_evh;
3766: ,p_evh_rec => l_evh_rec
3767: );
3768:
3769: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3770: AMS_UTILITY_PVT.display_messages;
3771: ELSE
3772: commit work;
3773: AMS_UTILITY_PVT.display_messages;
3774: END IF;
3769: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3770: AMS_UTILITY_PVT.display_messages;
3771: ELSE
3772: commit work;
3773: AMS_UTILITY_PVT.display_messages;
3774: END IF;
3775:
3776: END unit_test_update;
3777:
3802:
3803: IF l_system_status_code <> 'ACTIVE' THEN
3804: IF (AMS_DEBUG_HIGH_ON) THEN
3805:
3806: Ams_Utility_Pvt.debug_message('The Parent is not Active');
3807: END IF;
3808: Fnd_Message.set_name('AMS', 'AMS_PROGRAM_NOT_ACTIVE');
3809: Fnd_Msg_Pub.ADD;
3810: x_return_status := Fnd_Api.g_ret_sts_error;
3852: IF (p_evh_rec.active_from_date IS NOT NULL AND l_start_date IS NOT NULL ) THEN
3853: IF (p_evh_rec.active_from_date < l_start_date) THEN
3854: IF (AMS_DEBUG_HIGH_ON) THEN
3855:
3856: Ams_Utility_Pvt.debug_message('The start date of Event can not be lesser than that of Program');
3857: END IF;
3858: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
3859: Fnd_Message.set_name('AMS', 'AMS_EVT_STDT_LS_PRG_STDT');
3860: Fnd_Msg_Pub.ADD;
3867: IF (p_evh_rec.active_to_date IS NOT NULL AND l_end_date IS NOT NULL ) THEN
3868: IF (p_evh_rec.active_to_date > l_end_date) THEN
3869: IF (AMS_DEBUG_HIGH_ON) THEN
3870:
3871: Ams_Utility_Pvt.debug_message('The end date of Event can not be greater than that of Program');
3872: END IF;
3873: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
3874: Fnd_Message.set_name('AMS', 'AMS_EVT_EDDT_GT_PRG_EDDT');
3875: Fnd_Msg_Pub.ADD;
3880: ELSE
3881: IF ( p_evh_rec.active_to_date IS NULL AND l_end_date IS NOT NULL ) THEN
3882: IF (AMS_DEBUG_HIGH_ON) THEN
3883:
3884: Ams_Utility_Pvt.debug_message('The end date of Event can not be greater than that of Program');
3885: END IF;
3886: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
3887: Fnd_Message.set_name('AMS', 'AMS_EVT_EDDT_GT_PRG_EDDT');
3888: Fnd_Msg_Pub.ADD;
3896: IF(p_evh_rec.active_from_date <>FND_API.g_miss_date OR l_eveo_rec.start_date<> FND_API.g_miss_date )THEN
3897: IF (p_evh_rec.active_from_date IS NOT NULL AND l_eveo_rec.start_date IS NOT NULL ) THEN
3898: IF (l_eveo_rec.start_date < p_evh_rec.active_from_date) THEN
3899: IF (AMS_DEBUG_HIGH_ON) THEN
3900: Ams_Utility_Pvt.debug_message('The start date of an Offer can not be lesser than that of Event');
3901: END IF;
3902: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
3903: Fnd_Message.set_name('AMS', 'AMS_EVEO_STDT_LS_EVT_STDT');
3904: Fnd_Msg_Pub.ADD;
3907: END IF;
3908: END IF;
3909: ELSIF(p_evh_rec.active_from_date IS NULL AND l_eveo_rec.start_date IS NOT NULL) THEN
3910: IF (AMS_DEBUG_HIGH_ON) THEN
3911: Ams_Utility_Pvt.debug_message('The start date of an Offer can not be lesser than that of Event');
3912: END IF;
3913: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
3914: Fnd_Message.set_name('AMS', 'AMS_EVEO_STDT_LS_EVT_STDT');
3915: Fnd_Msg_Pub.ADD;
3923: IF (p_evh_rec.active_to_date IS NOT NULL AND l_eveo_rec.end_date IS NOT NULL ) THEN
3924: IF (p_evh_rec.active_to_date < l_eveo_rec.end_date) THEN
3925: IF (AMS_DEBUG_HIGH_ON) THEN
3926:
3927: Ams_Utility_Pvt.debug_message('The end date of Event can not be lesser than that of Offer');
3928: END IF;
3929: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
3930: Fnd_Message.set_name('AMS', 'AMS_EVEO_EDDT_GT_EVT_EDDT');
3931: Fnd_Msg_Pub.ADD;
3935: END IF;
3936: ELSIF ( p_evh_rec.active_to_date IS NOT NULL AND l_eveo_rec.end_date IS NULL ) THEN
3937: IF (AMS_DEBUG_HIGH_ON) THEN
3938:
3939: Ams_Utility_Pvt.debug_message('The end date of Offer can not be greater than that of Event');
3940: END IF;
3941: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
3942: Fnd_Message.set_name('AMS', 'AMS_EVEO_EDDT_GT_EVT_EDDT');
3943: Fnd_Msg_Pub.ADD;