[Home] [Help]
1: PACKAGE BODY JTF_IH_PUB_PS AS
2: /* $Header: JTFIHPSB.pls 115.10 2000/02/29 17:58:35 pkm ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JTF_IH_PUB';
4:
5: -- Jean Zhu add Utility Validate_StartEnd_Date
21: IS
22: BEGIN
23: IF((p_start_date_time IS NOT NULL) AND (p_end_date_time IS NOT NULL) AND
24: (p_end_date_time - p_start_date_time < 0) )THEN
25: ----DBMS_OUTPUT.PUT_LINE('end_date is less than start_date in JTF_IH_PUB_PS.Validate_StartEnd_Date');
26: x_return_status := fnd_api.g_ret_sts_error;
27: jtf_ih_core_util_pvt.add_invalid_argument_msg(p_api_name, to_char(p_end_date_time),
28: 'end_date_time');
29: END IF;
71: jtf_ih_core_util_pvt.add_invalid_argument_msg(p_api_name, to_char(p_int_val_rec.handler_id),
72: 'handler_id');
73: RETURN;
74: END IF;
75: ----DBMS_OUTPUT.PUT_LINE('PAST Validate handler_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
76:
77: l_count := 0;
78: IF ((p_int_val_rec.party_id IS NOT NULL) AND (p_int_val_rec.party_id <> fnd_api.g_miss_num)) THEN
79: BEGIN
92: jtf_ih_core_util_pvt.add_invalid_argument_msg(p_api_name, to_char(p_int_val_rec.party_id),
93: 'party_id');
94: RETURN;
95: END IF;
96: ----DBMS_OUTPUT.PUT_LINE('PAST Validate party_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
97:
98: l_count := 0;
99: IF ((p_int_val_rec.resource_id IS NOT NULL) AND (p_int_val_rec.resource_id <> fnd_api.g_miss_num)) THEN
100: BEGIN
113: jtf_ih_core_util_pvt.add_invalid_argument_msg(p_api_name, to_char(p_int_val_rec.resource_id),
114: 'resource_id');
115: RETURN;
116: END IF;
117: ----DBMS_OUTPUT.PUT_LINE('PAST Validate resource_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
118:
119: l_count := 0;
120: IF ((p_int_val_rec.outcome_id IS NOT NULL) AND (p_int_val_rec.outcome_id <> fnd_api.g_miss_num)) THEN
121: BEGIN
130: END IF;
131:
132: END;
133: END IF;
134: ----DBMS_OUTPUT.PUT_LINE('PAST Validate outcome_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
135:
136: l_count := 0;
137: IF ((p_int_val_rec.result_id IS NOT NULL) AND (p_int_val_rec.result_id <> fnd_api.g_miss_num)) THEN
138: BEGIN
147: END IF;
148:
149: END;
150: END IF;
151: ----DBMS_OUTPUT.PUT_LINE('PAST Validate result_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
152:
153: l_count := 0;
154: IF ((p_int_val_rec.reason_id IS NOT NULL) AND (p_int_val_rec.reason_id <> fnd_api.g_miss_num)) THEN
155: BEGIN
163: RETURN;
164: END IF;
165: END;
166: END IF;
167: ----DBMS_OUTPUT.PUT_LINE('PAST Validate reason_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
168:
169: l_count := 0;
170: IF ((p_int_val_rec.script_id IS NOT NULL) AND (p_int_val_rec.script_id <> fnd_api.g_miss_num)) THEN
171: BEGIN
179: RETURN;
180: END IF;
181: END;
182: END IF;
183: ----DBMS_OUTPUT.PUT_LINE('PAST Validate script_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
184:
185: -- Add by Jean Zhu to validate the source_code_id
186: l_count := 0;
187: IF ((p_int_val_rec.source_code_id IS NOT NULL) AND (p_int_val_rec.source_code_id <> fnd_api.g_miss_num)) THEN
196: RETURN;
197: END IF;
198: END;
199: END IF;
200: ----DBMS_OUTPUT.PUT_LINE('PAST Validate source_code_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
201:
202: l_count := 0;
203: IF ((p_int_val_rec.parent_id IS NOT NULL) AND (p_int_val_rec.parent_id <> fnd_api.g_miss_num)) THEN
204: BEGIN
212: RETURN;
213: END IF;
214: END;
215: END IF;
216: ----DBMS_OUTPUT.PUT_LINE('PAST Validate parent_id in JTF_IH_PUB_PS.Validate_Interaction_Record');
217:
218: -- Validate descriptive flexfield values
219: ----------------------------------------
220: IF ((p_int_val_rec.attribute1 <> fnd_api.g_miss_char) OR
273: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
274: RETURN;
275: END IF;
276: END IF;
277: ----DBMS_OUTPUT.PUT_LINE('PAST Validate flexfields in JTF_IH_PUB_PS.Validate_Interaction_Record');
278: END Validate_Interaction_Record;
279:
280:
281: PROCEDURE Default_Interaction_Record (x_interaction IN OUT interaction_rec_type);
400: jtf_ih_core_util_pvt.add_invalid_argument_msg(p_api_name, to_char(p_act_val_rec.interaction_id),
401: 'interaction_id');
402: RETURN;
403: END IF;
404: ----DBMS_OUTPUT.PUT_LINE('PAST Validate interaction_id in JTF_IH_PUB_PS.Validate_Activity_Record');
405:
406: l_count := 0;
407: IF ((p_act_val_rec.action_item_id IS NOT NULL) AND (p_act_val_rec.action_item_id <> fnd_api.g_miss_num)) THEN
408: BEGIN
416: RETURN;
417: END IF;
418: END;
419: END IF;
420: ----DBMS_OUTPUT.PUT_LINE('PAST Validate action_item_id in JTF_IH_PUB_PS.Validate_Activity_Record');
421:
422: l_count := 0;
423: IF ((p_act_val_rec.outcome_id IS NOT NULL) AND (p_act_val_rec.outcome_id <> fnd_api.g_miss_num)) THEN
424: BEGIN
433: END IF;
434:
435: END;
436: END IF;
437: ----DBMS_OUTPUT.PUT_LINE('PAST Validate outcome_id in JTF_IH_PUB_PS.Validate_Activity_Record');
438:
439:
440: l_count := 0;
441: IF ((p_act_val_rec.action_id IS NOT NULL) AND (p_act_val_rec.action_id <> fnd_api.g_miss_num)) THEN
450: RETURN;
451: END IF;
452: END;
453: END IF;
454: ----DBMS_OUTPUT.PUT_LINE('PAST Validate action_id in JTF_IH_PUB_PS.Validate_Activity_Record');
455: l_count := 0;
456: IF ((p_act_val_rec.result_id IS NOT NULL) AND (p_act_val_rec.result_id <> fnd_api.g_miss_num)) THEN
457: BEGIN
458: SELECT count(*) into l_count
466: END IF;
467:
468: END;
469: END IF;
470: ----DBMS_OUTPUT.PUT_LINE('PAST Validate result_id in JTF_IH_PUB_PS.Validate_Activity_Record');
471:
472: l_count := 0;
473: IF ((p_act_val_rec.reason_id IS NOT NULL) AND (p_act_val_rec.reason_id <> fnd_api.g_miss_num)) THEN
474: BEGIN
482: RETURN;
483: END IF;
484: END;
485: END IF;
486: ----DBMS_OUTPUT.PUT_LINE('PAST Validate reason_id in JTF_IH_PUB_PS.Validate_Activity_Record');
487:
488:
489: l_count := 0;
490: IF ((p_act_val_rec.source_code_id IS NOT NULL) AND (p_act_val_rec.source_code_id <> fnd_api.g_miss_num)) THEN
499: RETURN;
500: END IF;
501: END;
502: END IF;
503: ----DBMS_OUTPUT.PUT_LINE('PAST Validate source_code_id in JTF_IH_PUB_PS.Validate_Activity_Record');
504:
505: l_count := 0;
506: IF ((p_act_val_rec.media_id IS NOT NULL) AND (p_act_val_rec.media_id <> fnd_api.g_miss_num)) THEN
507: BEGIN
515: RETURN;
516: END IF;
517: END;
518: END IF;
519: ----DBMS_OUTPUT.PUT_LINE('PAST Validate media_id in JTF_IH_PUB_PS.Validate_Activity_Record');
520: END Validate_Activity_Record;
521:
522:
523: PROCEDURE Validate_Activity_table
722: Validate_Mlcs_Record ( p_api_name, p_mlcs_val_tab(idx), p_resp_appl_id, p_resp_id, x_return_status);
723: END loop;
724:
725: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
726: ----DBMS_OUTPUT.PUT_LINE('Unsuccessful validation of a media_lc record in jtf_ih_pub_PS.Validate_Mlcs_table');
727: RETURN;
728: END IF;
729: END Validate_Mlcs_table;
730:
982: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
983: l_api_name, g_pkg_name) THEN
984: RAISE fnd_api.g_exc_unexpected_error;
985: END IF;
986: ----DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Create_MediaItem');
987:
988: -- Initialize message list if p_init_msg_list is set to TRUE
989: IF fnd_api.to_boolean(p_init_msg_list) THEN
990: fnd_msg_pub.initialize;
1010: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1011: RAISE fnd_api.g_exc_error;
1012: END IF;
1013: END IF;
1014: ----DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Create_MediaItem');
1015:
1016: Validate_Media_Item
1017: ( p_api_name => l_api_name_full,
1018: p_media_item_val => p_media_rec,
1023: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1024: RAISE fnd_api.g_exc_error;
1025: END IF;
1026:
1027: ----DBMS_OUTPUT.PUT_LINE('PAST Validate_Media_Item in JTF_IH_PUB_PS.Create_MediaItem');
1028:
1029: SELECT jtf_ih_media_items_s1.NEXTVAL INTO l_media_id FROM dual;
1030:
1031: ----DBMS_OUTPUT.PUT_LINE('PAST generate PK in JTF_IH_PUB_PS.Create_MediaItem');
1027: ----DBMS_OUTPUT.PUT_LINE('PAST Validate_Media_Item in JTF_IH_PUB_PS.Create_MediaItem');
1028:
1029: SELECT jtf_ih_media_items_s1.NEXTVAL INTO l_media_id FROM dual;
1030:
1031: ----DBMS_OUTPUT.PUT_LINE('PAST generate PK in JTF_IH_PUB_PS.Create_MediaItem');
1032: insert into jtf_ih_Media_Items
1033: (
1034: DURATION,
1035: DIRECTION,
1066: p_login_id,
1067: p_media_rec.media_item_ref,
1068: p_media_rec.media_data
1069: );
1070: ----DBMS_OUTPUT.PUT_LINE('PAST Insert data in JTF_IH_PUB_PS.Create_MediaItem');
1071:
1072: --
1073: -- Output
1074: -- --
1138: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1139: l_api_name, g_pkg_name) THEN
1140: RAISE fnd_api.g_exc_unexpected_error;
1141: END IF;
1142: ----DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Create_MediaLifecycle');
1143: -- Initialize message list if p_init_msg_list is set to TRUE
1144: IF fnd_api.to_boolean(p_init_msg_list) THEN
1145: fnd_msg_pub.initialize;
1146: END IF;
1165: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1166: RAISE fnd_api.g_exc_error;
1167: END IF;
1168: END IF;
1169: ----DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Create_MediaLifecycle');
1170: Validate_Mlcs_Record
1171: ( p_api_name => l_api_name_full,
1172: p_media_lc_rec => p_media_lc_rec,
1173: p_resp_appl_id => p_resp_appl_id,
1176: );
1177: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1178: RAISE fnd_api.g_exc_error;
1179: END IF;
1180: ----DBMS_OUTPUT.PUT_LINE('PAST Validate_Mlcs_Record in JTF_IH_PUB_PS.Create_MediaLifecycle');
1181:
1182:
1183: SELECT jtf_ih_media_item_lc_seg_s1.NEXTVAL INTO l_milcs_id FROM dual;
1184: ----DBMS_OUTPUT.PUT_LINE('PAST generate PK in JTF_IH_PUB_PS.Create_MediaLifecycle');
1180: ----DBMS_OUTPUT.PUT_LINE('PAST Validate_Mlcs_Record in JTF_IH_PUB_PS.Create_MediaLifecycle');
1181:
1182:
1183: SELECT jtf_ih_media_item_lc_seg_s1.NEXTVAL INTO l_milcs_id FROM dual;
1184: ----DBMS_OUTPUT.PUT_LINE('PAST generate PK in JTF_IH_PUB_PS.Create_MediaLifecycle');
1185:
1186: insert into jtf_ih_media_item_lc_segs
1187: (
1188: START_DATE_TIME,
1218: p_user_id,
1219: Sysdate,
1220: p_login_id
1221: );
1222: --DBMS_OUTPUT.PUT_LINE('PAST insert data in JTF_IH_PUB_PS.Create_MediaLifecycle');
1223:
1224: -- Standard check of p_commit
1225: IF fnd_api.to_boolean(p_commit) THEN
1226: COMMIT WORK;
1287: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1288: l_api_name, g_pkg_name) THEN
1289: RAISE fnd_api.g_exc_unexpected_error;
1290: END IF;
1291: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Create_Interaction');
1292:
1293: -- Initialize message list if p_init_msg_list is set to TRUE
1294: IF fnd_api.to_boolean(p_init_msg_list) THEN
1295: fnd_msg_pub.initialize;
1317: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1318: RAISE fnd_api.g_exc_error;
1319: END IF;
1320: END IF;
1321: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Create_Interaction');
1322:
1323: --
1324: -- Validate all non-missing attributes by calling the utility procedure.
1325: --
1332: );
1333: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1334: RAISE fnd_api.g_exc_error;
1335: END IF;
1336: --DBMS_OUTPUT.PUT_LINE('PAST Validate_Interaction_Record in JTF_IH_PUB_PS.Create_Interaction');
1337: Default_Interaction_Record(l_int_val_rec);
1338: IF ((p_interaction_rec.interaction_id IS NULL) OR (p_interaction_rec.interaction_id = fnd_api.g_miss_num)) THEN
1339: SELECT jtf_ih_interactions_s1.NEXTVAL INTO l_int_val_rec.interaction_id FROM dual;
1340:
1433: l_int_val_rec.attribute15,
1434: l_int_val_rec.attribute_category,
1435: 'Y'
1436: );
1437: --DBMS_OUTPUT.PUT_LINE('PAST INSERT INTO jtf_ih_Interactions in JTF_IH_PUB_PS.Create_Interaction');
1438:
1439: Validate_Activity_table
1440: (
1441: p_api_name => l_api_name_full,
1825: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1826: l_api_name, g_pkg_name) THEN
1827: RAISE fnd_api.g_exc_unexpected_error;
1828: END IF;
1829: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Open_Interaction');
1830:
1831: -- Initialize message list if p_init_msg_list is set to TRUE
1832: IF fnd_api.to_boolean(p_init_msg_list) THEN
1833: fnd_msg_pub.initialize;
1855: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1856: RAISE fnd_api.g_exc_error;
1857: END IF;
1858: END IF;
1859: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Open_Interaction');
1860:
1861: --
1862: -- Validate all non-missing attributes by calling the utility procedure.
1863: --
1870: );
1871: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1872: RAISE fnd_api.g_exc_error;
1873: END IF;
1874: --DBMS_OUTPUT.PUT_LINE('PAST Validate_Interaction_Record in JTF_IH_PUB_PS.Open_Interaction');
1875:
1876: -- assign the start_date_time
1877: IF(p_interaction_rec.start_date_time IS NOT NULL) THEN
1878: l_start_date_time := p_interaction_rec.start_date_time;
1895: );
1896: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1897: RAISE fnd_api.g_exc_error;
1898: END IF;
1899: --DBMS_OUTPUT.PUT_LINE('PAST Validate_StartEnd_Date in JTF_IH_PUB_PS.Open_Interaction');
1900: l_duration := ROUND((p_interaction_rec.end_date_time - l_start_date_time)*24*60);
1901: END IF;
1902:
1903: -- assign the productive_time_amount
2012: p_interaction_rec.attribute15,
2013: p_interaction_rec.attribute_category,
2014: l_active
2015: );
2016: --DBMS_OUTPUT.PUT_LINE('PAST INSERT INTO jtf_ih_Interactions in JTF_IH_PUB_PS.Open_Interaction');
2017:
2018:
2019: IF ((p_interaction_rec.parent_id IS NOT NULL) AND (p_interaction_rec.parent_id <> fnd_api.g_miss_num)) THEN
2020: INSERT INTO jtf_ih_interaction_inters
2037: Sysdate,
2038: p_user_id
2039: );
2040: END IF;
2041: --DBMS_OUTPUT.PUT_LINE('PAST INSERT INTO jtf_ih_Interaction_inters in JTF_IH_PUB_PS.Open_Interaction');
2042: --
2043: -- Set OUT value
2044: --
2045: x_interaction_id := l_interaction_id;
2108: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2109: l_api_name, g_pkg_name) THEN
2110: RAISE fnd_api.g_exc_unexpected_error;
2111: END IF;
2112: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Update_Interaction');
2113:
2114: -- Initialize message list if p_init_msg_list is set to TRUE
2115: IF fnd_api.to_boolean(p_init_msg_list) THEN
2116: fnd_msg_pub.initialize;
2138: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2139: RAISE fnd_api.g_exc_error;
2140: END IF;
2141: END IF;
2142: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Update_Interaction');
2143:
2144: --
2145: -- Validate all non-missing attributes by calling the utility procedure.
2146: --
2153: );
2154: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2155: RAISE fnd_api.g_exc_error;
2156: END IF;
2157: --DBMS_OUTPUT.PUT_LINE('PAST Validate_Interaction_Record in JTF_IH_PUB_PS.Update_Interaction');
2158:
2159:
2160: --
2161: -- Update table JTF_IH_INTERACTIONS
2196: );
2197: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2198: RAISE fnd_api.g_exc_error;
2199: END IF;
2200: --DBMS_OUTPUT.PUT_LINE('PAST Validate_StartEnd_Date in JTF_IH_PUB_PS.Open_Interaction');
2201: l_duration := ROUND((p_interaction_rec.end_date_time - l_start_date_time)*24*60);
2202: END IF;
2203:
2204: -- assign the productive_time_amount
2360: END IF;
2361: END IF;
2362: END IF;
2363: END IF;
2364: --DBMS_OUTPUT.PUT_LINE('PAST update table jtf_ih_interactions in JTF_IH_PUB_PS.Update_Interaction');
2365:
2366: IF ((p_interaction_rec.parent_id IS NOT NULL) AND (p_interaction_rec.parent_id <> fnd_api.g_miss_num)) THEN
2367: l_count := 0;
2368: SELECT count(*) into l_count
2391: p_user_id
2392: );
2393: END IF;
2394: END IF;
2395: --DBMS_OUTPUT.PUT_LINE('PAST INSERT INTO jtf_ih_Interaction_inters in JTF_IH_PUB_PS.Update_Interaction');
2396:
2397: -- Standard check of p_commit
2398: IF fnd_api.to_boolean(p_commit) THEN
2399: COMMIT WORK;
2458: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2459: l_api_name, g_pkg_name) THEN
2460: RAISE fnd_api.g_exc_unexpected_error;
2461: END IF;
2462: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Close_Interaction');
2463:
2464: -- Initialize message list if p_init_msg_list is set to TRUE
2465: IF fnd_api.to_boolean(p_init_msg_list) THEN
2466: fnd_msg_pub.initialize;
2488: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2489: RAISE fnd_api.g_exc_error;
2490: END IF;
2491: END IF;
2492: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Close_Interaction');
2493:
2494: --
2495: -- Update interaction
2496: --
2505: x_return_status,
2506: x_msg_count,
2507: x_msg_data,
2508: p_interaction_rec);
2509: --DBMS_OUTPUT.PUT_LINE('PAST Update_Interaction in JTF_IH_PUB_PS.Close_Interaction');
2510:
2511: SELECT outcome_id into l_outcome_id
2512: FROM jtf_ih_interactions
2513: WHERE interaction_id = p_interaction_rec.interaction_id;
2561: END IF;
2562: UPDATE jtf_ih_activities SET ACTIVE = 'N',end_date_time = l_end_date_time
2563: WHERE interaction_id = p_interaction_rec.interaction_id;
2564: END LOOP;
2565: --DBMS_OUTPUT.PUT_LINE('PAST Update ACTIVE in JTF_IH_PUB_PS.Close_Interaction');
2566:
2567: -- Standard check of p_commit
2568: IF fnd_api.to_boolean(p_commit) THEN
2569: COMMIT WORK;
2628: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2629: l_api_name, g_pkg_name) THEN
2630: RAISE fnd_api.g_exc_unexpected_error;
2631: END IF;
2632: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Add_Activity');
2633:
2634: -- Initialize message list if p_init_msg_list is set to TRUE
2635: IF fnd_api.to_boolean(p_init_msg_list) THEN
2636: fnd_msg_pub.initialize;
2658: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2659: RAISE fnd_api.g_exc_error;
2660: END IF;
2661: END IF;
2662: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Add_Activity');
2663:
2664: --
2665: -- Validate all non-missing attributes by calling the utility procedure.
2666: --
2673: );
2674: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2675: RAISE fnd_api.g_exc_error;
2676: END IF;
2677: --DBMS_OUTPUT.PUT_LINE('PAST Validate_Activity_Record in JTF_IH_PUB_PS.Add_Activity');
2678:
2679:
2680: IF(p_activity_rec.start_date_time IS NOT NULL) THEN
2681: l_start_date_time := p_activity_rec.start_date_time;
2697: );
2698: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2699: RAISE fnd_api.g_exc_error;
2700: END IF;
2701: --DBMS_OUTPUT.PUT_LINE('PAST Validate_StartEnd_Date in JTF_IH_PUB_PS.Add_Activity');
2702: l_duration := ROUND((p_activity_rec.end_date_time - l_start_date_time)*24*60);
2703: END IF;
2704:
2705: SELECT JTF_IH_ACTIVITIES_S1.NextVal into l_activity_id FROM dual;
2761: Sysdate,
2762: p_login_id,
2763: l_active
2764: );
2765: --DBMS_OUTPUT.PUT_LINE('PAST INSERT INTO jtf_ih_activities in JTF_IH_PUB_PS.Add_Activity');
2766:
2767: --
2768: -- Set OUT value
2769: --
2831: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2832: l_api_name, g_pkg_name) THEN
2833: RAISE fnd_api.g_exc_unexpected_error;
2834: END IF;
2835: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Update_Activity');
2836:
2837: -- Initialize message list if p_init_msg_list is set to TRUE
2838: IF fnd_api.to_boolean(p_init_msg_list) THEN
2839: fnd_msg_pub.initialize;
2861: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2862: RAISE fnd_api.g_exc_error;
2863: END IF;
2864: END IF;
2865: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Update_Activity');
2866:
2867: --
2868: -- Validate all non-missing attributes by calling the utility procedure.
2869: --
2876: );
2877: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2878: RAISE fnd_api.g_exc_error;
2879: END IF;
2880: --DBMS_OUTPUT.PUT_LINE('PAST Validate_Activity_Record in JTF_IH_PUB_PS.Update_Activity');
2881:
2882: --
2883: -- Update table JTF_IH_INTERACTIONS
2884: --
2915: );
2916: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2917: RAISE fnd_api.g_exc_error;
2918: END IF;
2919: --DBMS_OUTPUT.PUT_LINE('PAST Validate_StartEnd_Date in JTF_IH_PUB_PS.Update_Activity');
2920: l_duration := ROUND((p_activity_rec.end_date_time - p_activity_rec.start_date_time)*24*60);
2921: END IF;
2922: IF(l_duration IS NOT NULL) THEN
2923: UPDATE jtf_ih_activities SET DURATION = l_duration
3005: END IF;
3006: END IF;
3007: END IF;
3008: END IF;
3009: --DBMS_OUTPUT.PUT_LINE('PAST update table jtf_ih_activities in JTF_IH_PUB_PS.Update_Activity');
3010:
3011: -- Standard check of p_commit
3012: IF fnd_api.to_boolean(p_commit) THEN
3013: COMMIT WORK;
3071: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3072: l_api_name, g_pkg_name) THEN
3073: RAISE fnd_api.g_exc_unexpected_error;
3074: END IF;
3075: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Close_Interaction_2');
3076:
3077: -- Initialize message list if p_init_msg_list is set to TRUE
3078: IF fnd_api.to_boolean(p_init_msg_list) THEN
3079: fnd_msg_pub.initialize;
3101: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3102: RAISE fnd_api.g_exc_error;
3103: END IF;
3104: END IF;
3105: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Close_Interaction_2');
3106:
3107: SELECT outcome_id into l_outcome_id
3108: FROM jtf_ih_interactions
3109: WHERE interaction_id = p_interaction_id;
3157: END IF;
3158: UPDATE jtf_ih_activities SET ACTIVE = 'N',end_date_time = l_end_date_time
3159: WHERE interaction_id = p_interaction_id;
3160: END LOOP;
3161: --DBMS_OUTPUT.PUT_LINE('PAST Update ACTIVE in JTF_IH_PUB_PS.Close_Interaction_2');
3162:
3163:
3164: -- Standard check of p_commit
3165: IF fnd_api.to_boolean(p_commit) THEN
3225: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3226: l_api_name, g_pkg_name) THEN
3227: RAISE fnd_api.g_exc_unexpected_error;
3228: END IF;
3229: --DBMS_OUTPUT.PUT_LINE('PAST fnd_api.compatible_api_call in JTF_IH_PUB_PS.Update_ActivityDuration');
3230:
3231: -- Initialize message list if p_init_msg_list is set to TRUE
3232: IF fnd_api.to_boolean(p_init_msg_list) THEN
3233: fnd_msg_pub.initialize;
3255: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3256: RAISE fnd_api.g_exc_error;
3257: END IF;
3258: END IF;
3259: --DBMS_OUTPUT.PUT_LINE('PAST jtf_ih_core_util_pvt.validate_who_info in JTF_IH_PUB_PS.Update_ActivityDuration');
3260:
3261: --
3262: -- Update table JTF_IH_INTERACTIONS
3263: --
3280: );
3281: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3282: RAISE fnd_api.g_exc_error;
3283: END IF;
3284: --DBMS_OUTPUT.PUT_LINE('PAST Validate_StartEnd_Date in JTF_IH_PUB_PS.Update_ActivityDuration');
3285:
3286: UPDATE jtf_ih_activities SET END_DATE_TIME = p_end_date_time,
3287: DURATION = p_duration WHERE activity_id = p_activity_id;
3288:
3285:
3286: UPDATE jtf_ih_activities SET END_DATE_TIME = p_end_date_time,
3287: DURATION = p_duration WHERE activity_id = p_activity_id;
3288:
3289: --DBMS_OUTPUT.PUT_LINE('PAST update end_date_time and duration in JTF_IH_PUB_PS.Update_ActivityDuration');
3290: END IF;
3291:
3292: -- Standard check of p_commit
3293: IF fnd_api.to_boolean(p_commit) THEN
3435: return l_activity_rec_type;
3436:
3437: END INIT_ACTIVITY_REC;
3438:
3439: END JTF_IH_PUB_PS;