1: PACKAGE BODY JTF_ASSIGN_PUB AS
2: /* $Header: jtfamprb.pls 120.12 2007/12/03 12:31:10 shdwived ship $ */
3:
4: -- ********************************************************************************
5:
4: -- ********************************************************************************
5:
6: -- Start of Comments
7: --
8: -- Package Name : JTF_ASSIGN_PUB
9: -- Purpose : Joint Task Force Core Foundation Assignment Manager
10: -- Public APIs. This package is for finding the
11: -- a resource based on the customer preferences
12: -- or territory preferences and the availability of
102: -- End of comments
103:
104: -- *******************************************************************************
105:
106: g_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type ;
107: g_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type ;
108: g_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type ;
109: g_continuous_work VARCHAR2(10);
110:
103:
104: -- *******************************************************************************
105:
106: g_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type ;
107: g_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type ;
108: g_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type ;
109: g_continuous_work VARCHAR2(10);
110:
111:
104: -- *******************************************************************************
105:
106: g_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type ;
107: g_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type ;
108: g_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type ;
109: g_continuous_work VARCHAR2(10);
110:
111:
112: FUNCTION am_miss_num RETURN NUMBER IS
227: l_engineer_id IN JTF_NUMBER_TABLE,
228: l_resource_type IN JTF_VARCHAR2_TABLE_100,
229: l_primary_flag IN JTF_VARCHAR2_TABLE_100,
230: l_resource_class IN JTF_VARCHAR2_TABLE_100,
231: l_con_preferred_engineers_tbl OUT NOCOPY JTF_ASSIGN_PUB.prfeng_tbl_type
232: )
233: IS
234:
235: l_ddindx BINARY_INTEGER;
260: END table_copy_in;
261:
262:
263: -- procedure to copy resources from one table to another
264: PROCEDURE table_copy(p_from_table IN JTF_ASSIGN_PUB.AssignResources_tbl_type,
265: x_to_table IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type)
266: IS
267:
268: i number := 0;
261:
262:
263: -- procedure to copy resources from one table to another
264: PROCEDURE table_copy(p_from_table IN JTF_ASSIGN_PUB.AssignResources_tbl_type,
265: x_to_table IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type)
266: IS
267:
268: i number := 0;
269: k number := 0;
291: END table_copy;
292:
293:
294: -- procedure to remove excluded resources
295: PROCEDURE remove_excluded(x_res_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
296: x_exc_res IN OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type)
297: IS
298:
299: i number := 0;
292:
293:
294: -- procedure to remove excluded resources
295: PROCEDURE remove_excluded(x_res_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
296: x_exc_res IN OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type)
297: IS
298:
299: i number := 0;
300: k number := 0;
299: i number := 0;
300: k number := 0;
301: l_count number := 0;
302: l_exclude varchar2(1) := 'N';
303: l_resource_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
304: BEGIN
305: l_resource_tbl.delete;
306: if(x_exc_res.count > 0 and x_res_tbl.count > 0)
307: then
347: PROCEDURE quick_sort_resource_loc
348: (
349: p_left INTEGER,
350: p_right INTEGER,
351: p_list IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type
352: )
353: IS
354:
355: i INTEGER;
355: i INTEGER;
356: j INTEGER;
357: l_left INTEGER := p_left;
358: l_right INTEGER := p_right;
359: l_current_node JTF_ASSIGN_PUB.AssignResources_rec_type;
360: l_dummy_node JTF_ASSIGN_PUB.AssignResources_rec_type;
361:
362: BEGIN
363:
356: j INTEGER;
357: l_left INTEGER := p_left;
358: l_right INTEGER := p_right;
359: l_current_node JTF_ASSIGN_PUB.AssignResources_rec_type;
360: l_dummy_node JTF_ASSIGN_PUB.AssignResources_rec_type;
361:
362: BEGIN
363:
364: IF (l_right > l_left) THEN
435:
436: PROCEDURE quick_sort_terr_rank
437: ( p_left INTEGER,
438: p_right INTEGER,
439: p_list IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type
440: )
441: IS
442:
443: i INTEGER;
443: i INTEGER;
444: j INTEGER;
445: l_left INTEGER := p_left;
446: l_right INTEGER := p_right;
447: l_current_node JTF_ASSIGN_PUB.AssignResources_rec_type;
448: l_dummy_node JTF_ASSIGN_PUB.AssignResources_rec_type;
449:
450: BEGIN
451:
444: j INTEGER;
445: l_left INTEGER := p_left;
446: l_right INTEGER := p_right;
447: l_current_node JTF_ASSIGN_PUB.AssignResources_rec_type;
448: l_dummy_node JTF_ASSIGN_PUB.AssignResources_rec_type;
449:
450: BEGIN
451:
452: IF (l_right > l_left) THEN
535:
536:
537: PROCEDURE Terr_Qual_Dyn_Assign
538: (
539: p_sr_assign_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type,
540: p_sr_task_assign_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type
541: )
542: IS
543:
536:
537: PROCEDURE Terr_Qual_Dyn_Assign
538: (
539: p_sr_assign_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type,
540: p_sr_task_assign_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type
541: )
542: IS
543:
544: BEGIN
546: EXECUTE IMMEDIATE
547: '
548: BEGIN
549:
550: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM23:=:1;
551: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM24:=:2;
552:
553: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM23:=:3;
554: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM24:=:4;
547: '
548: BEGIN
549:
550: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM23:=:1;
551: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM24:=:2;
552:
553: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM23:=:3;
554: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM24:=:4;
555:
549:
550: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM23:=:1;
551: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM24:=:2;
552:
553: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM23:=:3;
554: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM24:=:4;
555:
556: END;
557: '
550: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM23:=:1;
551: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM24:=:2;
552:
553: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM23:=:3;
554: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM24:=:4;
555:
556: END;
557: '
558: USING
592:
593: EXECUTE IMMEDIATE
594: '
595: BEGIN
596: If (JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM23 IS NOT NULL)
597: Or (JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM24 IS NOT NULL)
598: Then
599: :1:=''P'';
600: End If;
593: EXECUTE IMMEDIATE
594: '
595: BEGIN
596: If (JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM23 IS NOT NULL)
597: Or (JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type.SQUAL_NUM24 IS NOT NULL)
598: Then
599: :1:=''P'';
600: End If;
601:
598: Then
599: :1:=''P'';
600: End If;
601:
602: If (JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM23 IS NOT NULL)
603: Or (JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM24 IS NOT NULL)
604: Then
605: :2:=''P'';
606: End If;
599: :1:=''P'';
600: End If;
601:
602: If (JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM23 IS NOT NULL)
603: Or (JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type.SQUAL_NUM24 IS NOT NULL)
604: Then
605: :2:=''P'';
606: End If;
607: End;
631:
632:
633:
634: PROCEDURE get_group_resource(p_group_id IN NUMBER,
635: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type)
636: IS
637:
638: CURSOR check_mem_cur
639: (
648:
649: l_found VARCHAR2(1) := 'N';
650: l_count NUMBER := 0;
651: i NUMBER := 0;
652: l_assign_resource_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
653:
654:
655: BEGIN
656: --FOR i IN 1..x_assign_resources_tbl.COUNT
760:
761:
762:
763: PROCEDURE get_usage_resource(p_usage IN VARCHAR2,
764: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type)
765: IS
766:
767: CURSOR grp_usg_cur
768: (
786:
787: l_found VARCHAR2(1) := 'N';
788: l_count NUMBER := 0;
789: i NUMBER := 0;
790: l_assign_resource_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
791:
792: BEGIN
793: i := x_assign_resources_tbl.FIRST;
794:
903: p_continuous_task IN VARCHAR2,
904: x_return_status IN OUT NOCOPY VARCHAR2,
905: x_msg_count IN OUT NOCOPY NUMBER,
906: x_msg_data IN OUT NOCOPY VARCHAR2,
907: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type
908: )
909: IS
910:
911:
934: l_x_availability_type VARCHAR2(60);
935: l_uom_hour VARCHAR2(200);
936: l_effort_duration NUMBER;
937:
938: l_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
939:
940:
941:
942: BEGIN
1132: p_continuous_task IN VARCHAR2,
1133: x_return_status IN OUT NOCOPY VARCHAR2,
1134: x_msg_count IN OUT NOCOPY NUMBER,
1135: x_msg_data IN OUT NOCOPY VARCHAR2,
1136: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
1137: --Added for Bug # 5573916
1138: p_calendar_check IN VARCHAR2 DEFAULT 'Y'
1139: --Added for Bug # 5573916 Ends here
1140: )
1164: l_x_planned_end_date DATE;
1165: l_x_shift_construct_id NUMBER;
1166: l_x_availability_type VARCHAR2(60);
1167:
1168: l_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
1169:
1170: TYPE l_slots_rec IS RECORD
1171: (slot_value NUMBER);
1172:
1181: l_temp_start_date DATE;
1182: l_temp_end_date DATE;
1183: l_avail_count NUMBER;
1184: l_uom_hour VARCHAR2(200);
1185: l_avail_resource JTF_ASSIGN_PUB.Avail_tbl_type;
1186: l_temp_count NUMBER := 0;
1187: BEGIN
1188: -- initialize the variables
1189: x_return_status := fnd_api.g_ret_sts_success;
1188: -- initialize the variables
1189: x_return_status := fnd_api.g_ret_sts_success;
1190: l_current_rec := 0;
1191: l_resources_tbl.delete;
1192: JTF_ASSIGN_PUB.g_resource_avail.delete;
1193:
1194: /* to handle the conversion of duration to hour */
1195: l_uom_hour := nvl(fnd_profile.value('JTF_AM_TASK_HOUR'), 'HR');
1196: if(nvl(p_effort_uom, l_uom_hour) <> l_uom_hour)
1268: THEN
1269:
1270: l_current_record := x_assign_resources_tbl.FIRST;
1271: l_avail_count := 0;
1272: jtf_assign_pub.g_resource_avail.delete;
1273: WHILE l_current_record <= x_assign_resources_tbl.LAST
1274: LOOP
1275: -- if the calendar flag = Y then this should continue. This is a doublecheck as the calling api will check this
1276: -- also
1363: l_resources_tbl(l_current_rec).skill_name := x_assign_resources_tbl(l_current_record).skill_name;
1364: l_resources_tbl(l_current_rec).resource_source := x_assign_resources_tbl(l_current_record).resource_source;
1365:
1366: -- assign values to availability table
1367: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := l_resources_tbl(l_current_rec).resource_id;
1368: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type := l_resources_tbl(l_current_rec).resource_type;
1369: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_resources_tbl(l_current_rec).start_date;
1370: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_resources_tbl(l_current_rec).end_date;
1371: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_resources_tbl(l_current_rec).shift_construct_id;
1364: l_resources_tbl(l_current_rec).resource_source := x_assign_resources_tbl(l_current_record).resource_source;
1365:
1366: -- assign values to availability table
1367: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := l_resources_tbl(l_current_rec).resource_id;
1368: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type := l_resources_tbl(l_current_rec).resource_type;
1369: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_resources_tbl(l_current_rec).start_date;
1370: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_resources_tbl(l_current_rec).end_date;
1371: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_resources_tbl(l_current_rec).shift_construct_id;
1372:
1365:
1366: -- assign values to availability table
1367: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := l_resources_tbl(l_current_rec).resource_id;
1368: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type := l_resources_tbl(l_current_rec).resource_type;
1369: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_resources_tbl(l_current_rec).start_date;
1370: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_resources_tbl(l_current_rec).end_date;
1371: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_resources_tbl(l_current_rec).shift_construct_id;
1372:
1373: l_current_rec := l_current_rec + 1;
1366: -- assign values to availability table
1367: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := l_resources_tbl(l_current_rec).resource_id;
1368: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type := l_resources_tbl(l_current_rec).resource_type;
1369: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_resources_tbl(l_current_rec).start_date;
1370: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_resources_tbl(l_current_rec).end_date;
1371: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_resources_tbl(l_current_rec).shift_construct_id;
1372:
1373: l_current_rec := l_current_rec + 1;
1374: l_avail_count := l_avail_count + 1;
1367: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := l_resources_tbl(l_current_rec).resource_id;
1368: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type := l_resources_tbl(l_current_rec).resource_type;
1369: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_resources_tbl(l_current_rec).start_date;
1370: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_resources_tbl(l_current_rec).end_date;
1371: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_resources_tbl(l_current_rec).shift_construct_id;
1372:
1373: l_current_rec := l_current_rec + 1;
1374: l_avail_count := l_avail_count + 1;
1375:
1487: END IF;
1488: END IF;
1489: if(l_x_shift_construct_id is not null)
1490: then
1491: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := x_assign_resources_tbl(l_current_rec).resource_id;
1492: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type :=x_assign_resources_tbl(l_current_rec).resource_type;
1493: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_x_planned_start_date;
1494: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_x_planned_end_date;
1495: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_x_shift_construct_id;
1488: END IF;
1489: if(l_x_shift_construct_id is not null)
1490: then
1491: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := x_assign_resources_tbl(l_current_rec).resource_id;
1492: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type :=x_assign_resources_tbl(l_current_rec).resource_type;
1493: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_x_planned_start_date;
1494: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_x_planned_end_date;
1495: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_x_shift_construct_id;
1496: l_avail_count := l_avail_count + 1;
1489: if(l_x_shift_construct_id is not null)
1490: then
1491: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := x_assign_resources_tbl(l_current_rec).resource_id;
1492: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type :=x_assign_resources_tbl(l_current_rec).resource_type;
1493: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_x_planned_start_date;
1494: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_x_planned_end_date;
1495: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_x_shift_construct_id;
1496: l_avail_count := l_avail_count + 1;
1497: l_temp_start_date := l_x_planned_end_date;
1490: then
1491: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := x_assign_resources_tbl(l_current_rec).resource_id;
1492: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type :=x_assign_resources_tbl(l_current_rec).resource_type;
1493: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_x_planned_start_date;
1494: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_x_planned_end_date;
1495: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_x_shift_construct_id;
1496: l_avail_count := l_avail_count + 1;
1497: l_temp_start_date := l_x_planned_end_date;
1498: l_temp_end_date := p_planned_end_date;
1491: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_id := x_assign_resources_tbl(l_current_rec).resource_id;
1492: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).resource_type :=x_assign_resources_tbl(l_current_rec).resource_type;
1493: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).start_date := l_x_planned_start_date;
1494: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).end_date := l_x_planned_end_date;
1495: JTF_ASSIGN_PUB.g_resource_avail(l_avail_count).shift_construct_id := l_x_shift_construct_id;
1496: l_avail_count := l_avail_count + 1;
1497: l_temp_start_date := l_x_planned_end_date;
1498: l_temp_end_date := p_planned_end_date;
1499: else
1498: l_temp_end_date := p_planned_end_date;
1499: else
1500: -- remove the available slots for the resource
1501: l_temp_count := 0;
1502: FOR k in JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1503: LOOP
1504: IF(JTF_ASSIGN_PUB.g_resource_avail(k).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1505: AND JTF_ASSIGN_PUB.g_resource_avail(k).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1506: THEN
1500: -- remove the available slots for the resource
1501: l_temp_count := 0;
1502: FOR k in JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1503: LOOP
1504: IF(JTF_ASSIGN_PUB.g_resource_avail(k).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1505: AND JTF_ASSIGN_PUB.g_resource_avail(k).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1506: THEN
1507: null ; --l_avail_count := l_avail_count - 1;
1508: ELSE
1501: l_temp_count := 0;
1502: FOR k in JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1503: LOOP
1504: IF(JTF_ASSIGN_PUB.g_resource_avail(k).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1505: AND JTF_ASSIGN_PUB.g_resource_avail(k).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1506: THEN
1507: null ; --l_avail_count := l_avail_count - 1;
1508: ELSE
1509: l_avail_resource(l_temp_count) := JTF_ASSIGN_PUB.g_resource_avail(k);
1505: AND JTF_ASSIGN_PUB.g_resource_avail(k).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1506: THEN
1507: null ; --l_avail_count := l_avail_count - 1;
1508: ELSE
1509: l_avail_resource(l_temp_count) := JTF_ASSIGN_PUB.g_resource_avail(k);
1510: l_temp_count := l_temp_count + 1;
1511: END IF;
1512: END LOOP;
1513: JTF_ASSIGN_PUB.g_resource_avail.delete;
1509: l_avail_resource(l_temp_count) := JTF_ASSIGN_PUB.g_resource_avail(k);
1510: l_temp_count := l_temp_count + 1;
1511: END IF;
1512: END LOOP;
1513: JTF_ASSIGN_PUB.g_resource_avail.delete;
1514: JTF_ASSIGN_PUB.g_resource_avail := l_avail_resource;
1515: l_avail_count := JTF_ASSIGN_PUB.g_resource_avail.last + 1;
1516: exit;
1517: end if; -- end of l_x_shift_contruct_id check
1510: l_temp_count := l_temp_count + 1;
1511: END IF;
1512: END LOOP;
1513: JTF_ASSIGN_PUB.g_resource_avail.delete;
1514: JTF_ASSIGN_PUB.g_resource_avail := l_avail_resource;
1515: l_avail_count := JTF_ASSIGN_PUB.g_resource_avail.last + 1;
1516: exit;
1517: end if; -- end of l_x_shift_contruct_id check
1518:
1511: END IF;
1512: END LOOP;
1513: JTF_ASSIGN_PUB.g_resource_avail.delete;
1514: JTF_ASSIGN_PUB.g_resource_avail := l_avail_resource;
1515: l_avail_count := JTF_ASSIGN_PUB.g_resource_avail.last + 1;
1516: exit;
1517: end if; -- end of l_x_shift_contruct_id check
1518:
1519: END LOOP; -- end of check for l_slots
1525: l_current_record := 0;
1526: While(l_current_rec <= x_assign_resources_tbl.LAST)
1527: Loop
1528: -- remove records that are not there in g_avail_resource
1529: FOR i IN JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1530: LOOP
1531: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1532: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1533: THEN
1527: Loop
1528: -- remove records that are not there in g_avail_resource
1529: FOR i IN JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1530: LOOP
1531: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1532: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1533: THEN
1534: l_resources_tbl(l_current_record) := x_assign_resources_tbl(l_current_rec);
1535: l_resources_tbl(l_current_record).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1528: -- remove records that are not there in g_avail_resource
1529: FOR i IN JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1530: LOOP
1531: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1532: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1533: THEN
1534: l_resources_tbl(l_current_record) := x_assign_resources_tbl(l_current_rec);
1535: l_resources_tbl(l_current_record).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1536: l_resources_tbl(l_current_record).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1531: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1532: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1533: THEN
1534: l_resources_tbl(l_current_record) := x_assign_resources_tbl(l_current_rec);
1535: l_resources_tbl(l_current_record).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1536: l_resources_tbl(l_current_record).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1537: l_resources_tbl(l_current_record).end_date := JTF_ASSIGN_PUB.g_resource_avail(i).end_date;
1538: l_current_record := l_current_record + 1;
1539: exit;
1532: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1533: THEN
1534: l_resources_tbl(l_current_record) := x_assign_resources_tbl(l_current_rec);
1535: l_resources_tbl(l_current_record).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1536: l_resources_tbl(l_current_record).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1537: l_resources_tbl(l_current_record).end_date := JTF_ASSIGN_PUB.g_resource_avail(i).end_date;
1538: l_current_record := l_current_record + 1;
1539: exit;
1540: END IF;
1533: THEN
1534: l_resources_tbl(l_current_record) := x_assign_resources_tbl(l_current_rec);
1535: l_resources_tbl(l_current_record).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1536: l_resources_tbl(l_current_record).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1537: l_resources_tbl(l_current_record).end_date := JTF_ASSIGN_PUB.g_resource_avail(i).end_date;
1538: l_current_record := l_current_record + 1;
1539: exit;
1540: END IF;
1541: END LOOP; -- end of loop for i in g_resource_avail first to last
1554: ELSE -- check p_calendar flag = Y
1555: -- else pass back all resources with the start date and end dates of resources with first availability slot dates
1556: l_current_rec := x_assign_resources_tbl.first;
1557: While(l_current_rec <= x_assign_resources_tbl.LAST
1558: AND JTF_ASSIGN_PUB.g_resource_avail.count > 0)
1559: Loop
1560: -- remove records that are not there in g_avail_resource
1561: FOR i IN JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1562: LOOP
1557: While(l_current_rec <= x_assign_resources_tbl.LAST
1558: AND JTF_ASSIGN_PUB.g_resource_avail.count > 0)
1559: Loop
1560: -- remove records that are not there in g_avail_resource
1561: FOR i IN JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1562: LOOP
1563: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1564: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1565: THEN
1559: Loop
1560: -- remove records that are not there in g_avail_resource
1561: FOR i IN JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1562: LOOP
1563: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1564: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1565: THEN
1566: x_assign_resources_tbl(l_current_rec).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1567: x_assign_resources_tbl(l_current_rec).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1560: -- remove records that are not there in g_avail_resource
1561: FOR i IN JTF_ASSIGN_PUB.g_resource_avail.first..JTF_ASSIGN_PUB.g_resource_avail.last
1562: LOOP
1563: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1564: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1565: THEN
1566: x_assign_resources_tbl(l_current_rec).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1567: x_assign_resources_tbl(l_current_rec).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1568: x_assign_resources_tbl(l_current_rec).end_date := JTF_ASSIGN_PUB.g_resource_avail(i).end_date;
1562: LOOP
1563: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1564: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1565: THEN
1566: x_assign_resources_tbl(l_current_rec).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1567: x_assign_resources_tbl(l_current_rec).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1568: x_assign_resources_tbl(l_current_rec).end_date := JTF_ASSIGN_PUB.g_resource_avail(i).end_date;
1569: exit;
1570: END IF;
1563: IF(JTF_ASSIGN_PUB.g_resource_avail(i).resource_id = x_assign_resources_tbl(l_current_rec).resource_id
1564: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1565: THEN
1566: x_assign_resources_tbl(l_current_rec).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1567: x_assign_resources_tbl(l_current_rec).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1568: x_assign_resources_tbl(l_current_rec).end_date := JTF_ASSIGN_PUB.g_resource_avail(i).end_date;
1569: exit;
1570: END IF;
1571: END LOOP; -- end of loop for i in g_resource_avail first to last
1564: AND JTF_ASSIGN_PUB.g_resource_avail(i).resource_type = x_assign_resources_tbl(l_current_rec).resource_type)
1565: THEN
1566: x_assign_resources_tbl(l_current_rec).shift_construct_id := JTF_ASSIGN_PUB.g_resource_avail(i).shift_construct_id;
1567: x_assign_resources_tbl(l_current_rec).start_date := JTF_ASSIGN_PUB.g_resource_avail(i).start_date;
1568: x_assign_resources_tbl(l_current_rec).end_date := JTF_ASSIGN_PUB.g_resource_avail(i).end_date;
1569: exit;
1570: END IF;
1571: END LOOP; -- end of loop for i in g_resource_avail first to last
1572: IF(x_assign_resources_tbl(l_current_rec).shift_construct_id IS NULL)
1654: p_business_process_date IN DATE,
1655: x_return_status IN OUT NOCOPY VARCHAR2,
1656: x_msg_count IN OUT NOCOPY NUMBER,
1657: x_msg_data IN OUT NOCOPY VARCHAR2,
1658: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
1659: x_excluded_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type,
1660: --Added for Bug # 5573916
1661: p_calendar_check IN VARCHAR2 DEFAULT 'Y'
1662: --Added for Bug # 5573916 Ends here
1655: x_return_status IN OUT NOCOPY VARCHAR2,
1656: x_msg_count IN OUT NOCOPY NUMBER,
1657: x_msg_data IN OUT NOCOPY VARCHAR2,
1658: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
1659: x_excluded_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type,
1660: --Added for Bug # 5573916
1661: p_calendar_check IN VARCHAR2 DEFAULT 'Y'
1662: --Added for Bug # 5573916 Ends here
1663: )
1701: l_x_planned_end_date DATE;
1702: l_x_shift_construct_id NUMBER;
1703: l_x_availability_type VARCHAR2(60);
1704:
1705: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
1706: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
1707:
1708: l_business_process_date DATE := p_business_process_date;
1709: l_excl_record NUMBER := 0;
1702: l_x_shift_construct_id NUMBER;
1703: l_x_availability_type VARCHAR2(60);
1704:
1705: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
1706: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
1707:
1708: l_business_process_date DATE := p_business_process_date;
1709: l_excl_record NUMBER := 0;
1710:
1989: p_planned_start_date => p_planned_start_date,
1990: p_planned_end_date => p_planned_end_date,
1991: p_breakdown => null,
1992: p_breakdown_uom => null,
1993: p_continuous_task => jtf_assign_pub.g_continuous_work,
1994: x_return_status => x_return_status,
1995: x_msg_count => x_msg_count,
1996: x_msg_data => x_msg_data,
1997: x_assign_resources_tbl => x_assign_resources_tbl,
2006: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2007: -- Unexpected Execution Error from call to Get_contracts_resources
2008: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
2009: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
2010: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_CONTRACTS_RESOURCES');
2011: fnd_msg_pub.add;
2012: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2013: RAISE fnd_api.g_exc_error;
2014: ELSE
2089: p_resource_type IN VARCHAR2,
2090: x_return_status IN OUT NOCOPY VARCHAR2,
2091: x_msg_count IN OUT NOCOPY NUMBER,
2092: x_msg_data IN OUT NOCOPY VARCHAR2,
2093: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
2094: x_excluded_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type,
2095: --Added for Bug # 5573916
2096: p_calendar_check IN VARCHAR2 DEFAULT 'Y'
2097: --Added for Bug # 5573916 Ends here
2090: x_return_status IN OUT NOCOPY VARCHAR2,
2091: x_msg_count IN OUT NOCOPY NUMBER,
2092: x_msg_data IN OUT NOCOPY VARCHAR2,
2093: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
2094: x_excluded_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type,
2095: --Added for Bug # 5573916
2096: p_calendar_check IN VARCHAR2 DEFAULT 'Y'
2097: --Added for Bug # 5573916 Ends here
2098: )
2122: l_x_planned_end_date DATE;
2123: l_x_shift_construct_id NUMBER;
2124: l_x_availability_type VARCHAR2(60);
2125:
2126: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2127: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
2128:
2129: TYPE DYNAMIC_CUR_TYP IS REF CURSOR;
2130: cur_csi_utility DYNAMIC_CUR_TYP;
2123: l_x_shift_construct_id NUMBER;
2124: l_x_availability_type VARCHAR2(60);
2125:
2126: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2127: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
2128:
2129: TYPE DYNAMIC_CUR_TYP IS REF CURSOR;
2130: cur_csi_utility DYNAMIC_CUR_TYP;
2131: cur_cs_contacts DYNAMIC_CUR_TYP;
2429: p_effort_duration => p_effort_duration,
2430: p_effort_uom => p_effort_uom,
2431: p_planned_start_date => p_planned_start_date,
2432: p_planned_end_date => p_planned_end_date,
2433: p_continuous_task => jtf_assign_pub.g_continuous_work,
2434: p_breakdown => null,
2435: p_breakdown_uom => null,
2436: x_return_status => x_return_status,
2437: x_msg_count => x_msg_count,
2448: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2449: -- Unexpected Execution Error from call to Get_contracts_resources
2450: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
2451: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
2452: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_IB_RESOURCES');
2453: fnd_msg_pub.add;
2454: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2455: RAISE fnd_api.g_exc_error;
2456: ELSE
2577:
2578: -- OUT : x_return_status OUT VARCHAR2(1)
2579: -- x_msg_count OUT NUMBER
2580: -- x_msg_data OUT VARCHAR2(2000)
2581: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
2582: -- AssignResources_tbl_type
2583:
2584:
2585: -- Version : Current version 1.0
2619: p_column_list IN VARCHAR2,
2620: p_business_process_id IN NUMBER,
2621: p_business_process_date IN DATE,
2622: p_filter_excluded_resource IN VARCHAR2,
2623: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
2624: x_return_status OUT NOCOPY VARCHAR2,
2625: x_msg_count OUT NOCOPY NUMBER,
2626: x_msg_data OUT NOCOPY VARCHAR2,
2627: --Added for Bug # 5573916
2662: l_return_status VARCHAR2(10);
2663: l_msg_count NUMBER;
2664: l_msg_data VARCHAR2(2000);
2665:
2666: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2667: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2668: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
2669:
2670: -- tables for excluded resource
2663: l_msg_count NUMBER;
2664: l_msg_data VARCHAR2(2000);
2665:
2666: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2667: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2668: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
2669:
2670: -- tables for excluded resource
2671: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
2664: l_msg_data VARCHAR2(2000);
2665:
2666: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2667: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2668: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
2669:
2670: -- tables for excluded resource
2671: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
2672: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
2667: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
2668: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
2669:
2670: -- tables for excluded resource
2671: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
2672: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
2673: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
2674:
2675: l_status VARCHAR2(30);
2668: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
2669:
2670: -- tables for excluded resource
2671: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
2672: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
2673: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
2674:
2675: l_status VARCHAR2(30);
2676: l_industry VARCHAR2(30);
2669:
2670: -- tables for excluded resource
2671: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
2672: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
2673: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
2674:
2675: l_status VARCHAR2(30);
2676: l_industry VARCHAR2(30);
2677:
2887: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2888: -- Unexpected Execution Error from call to Get_contracts_resources
2889: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
2890: fnd_message.set_token('P_PROC_NAME','GET_CONTRACTS_RESOURCES');
2891: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_TASK_RESOURCES');
2892: fnd_msg_pub.add;
2893: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2894: RAISE fnd_api.g_exc_error;
2895: ELSE
2929: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
2930: -- Unexpected Execution Error from call to Get_contracts_resources
2931: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
2932: fnd_message.set_token('P_PROC_NAME','GET_IB_RESOURCES');
2933: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_TASK_RESOURCES');
2934: fnd_msg_pub.add;
2935: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2936: RAISE fnd_api.g_exc_error;
2937: ELSE
3132: p_planned_start_date => l_planned_start_date,
3133: p_planned_end_date => l_planned_end_date,
3134: p_breakdown => null,
3135: p_breakdown_uom => null,
3136: p_continuous_task => jtf_assign_pub.g_continuous_work,
3137: x_return_status => x_return_status,
3138: x_msg_count => x_msg_count,
3139: x_msg_data => x_msg_data,
3140: x_assign_resources_tbl => x_assign_resources_tbl,
3149: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3150: -- Unexpected Execution Error from call to Get_contracts_resources
3151: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
3152: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
3153: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_TASK_RESOURCES');
3154: fnd_msg_pub.add;
3155: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3156: RAISE fnd_api.g_exc_error;
3157: ELSE
3349: p_planned_start_date => l_planned_start_date,
3350: p_planned_end_date => l_planned_end_date,
3351: p_breakdown => null,
3352: p_breakdown_uom => null,
3353: p_continuous_task => jtf_assign_pub.g_continuous_work,
3354: x_return_status => x_return_status,
3355: x_msg_count => x_msg_count,
3356: x_msg_data => x_msg_data,
3357: x_assign_resources_tbl => x_assign_resources_tbl,
3366: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3367: -- Unexpected Execution Error from call to Get_contracts_resources
3368: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
3369: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
3370: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_TASK_RESOURCES');
3371: fnd_msg_pub.add;
3372: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3373: RAISE fnd_api.g_exc_error;
3374: ELSE
3630:
3631: -- OUT : x_return_status OUT VARCHAR2(1)
3632: -- x_msg_count OUT NUMBER
3633: -- x_msg_data OUT VARCHAR2(2000)
3634: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
3635: -- AssignResources_tbl_type
3636:
3637:
3638: -- Version : Current version 1.0
3678: p_sr_task_rec IN JTF_TERRITORY_PUB.JTF_Srv_Task_rec_type,
3679: p_business_process_id IN NUMBER,
3680: p_business_process_date IN DATE,
3681: p_filter_excluded_resource IN VARCHAR2,
3682: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
3683: x_return_status OUT NOCOPY VARCHAR2,
3684: x_msg_count OUT NOCOPY NUMBER,
3685: x_msg_data OUT NOCOPY VARCHAR2,
3686: --Added for Bug # 5386560
3716: l_current_rec INTEGER := 0;
3717: l_pref_record INTEGER := 0;
3718:
3719: l_assign_resources_tbl JTF_TERRITORY_PUB.WinningTerrMember_tbl_type;
3720: l_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3721:
3722:
3723: l_return_status VARCHAR2(10);
3724: l_msg_count NUMBER;
3724: l_msg_count NUMBER;
3725: l_msg_data VARCHAR2(2000);
3726:
3727: l_pref_res_order VARCHAR2(20) := 'BOTH';
3728: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
3729: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
3730: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
3731:
3732: -- tables to handle excluded resource feature
3725: l_msg_data VARCHAR2(2000);
3726:
3727: l_pref_res_order VARCHAR2(20) := 'BOTH';
3728: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
3729: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
3730: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
3731:
3732: -- tables to handle excluded resource feature
3733: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
3726:
3727: l_pref_res_order VARCHAR2(20) := 'BOTH';
3728: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
3729: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
3730: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
3731:
3732: -- tables to handle excluded resource feature
3733: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
3734: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3729: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
3730: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
3731:
3732: -- tables to handle excluded resource feature
3733: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
3734: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3735: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3736:
3737:
3730: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
3731:
3732: -- tables to handle excluded resource feature
3733: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
3734: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3735: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3736:
3737:
3738: l_x_planned_start_date DATE;
3731:
3732: -- tables to handle excluded resource feature
3733: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
3734: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3735: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
3736:
3737:
3738: l_x_planned_start_date DATE;
3739: l_x_planned_end_date DATE;
3959: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3960: -- Unexpected Execution Error from call to Get_contracts_resources
3961: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
3962: fnd_message.set_token('P_PROC_NAME','GET_CONTRACTS_RESOURCES');
3963: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_SR_RESOURCES');
3964: fnd_msg_pub.add;
3965: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3966: RAISE fnd_api.g_exc_error;
3967: ELSE
3996: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
3997: -- Unexpected Execution Error from call to Get_contracts_resources
3998: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
3999: fnd_message.set_token('P_PROC_NAME','GET_IB_RESOURCES');
4000: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_SR_RESOURCES');
4001: fnd_msg_pub.add;
4002: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
4003: RAISE fnd_api.g_exc_error;
4004: ELSE
4038: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
4039: -- Unexpected Execution Error from call to Get_contracts_resources
4040: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
4041: fnd_message.set_token('P_PROC_NAME','SERVICE_SECURITY_CHECK');
4042: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_SR_RESOURCES');
4043: fnd_msg_pub.add;
4044: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
4045: RAISE fnd_api.g_exc_error;
4046: ELSE
4063: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
4064: -- Unexpected Execution Error from call to Get_contracts_resources
4065: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
4066: fnd_message.set_token('P_PROC_NAME','SERVICE_SECURITY_CHECK');
4067: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_SR_RESOURCES');
4068: fnd_msg_pub.add;
4069: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
4070: RAISE fnd_api.g_exc_error;
4071: ELSE
4146: to pass it to the Territory API */
4147:
4148: /**************** Start of addition by SBARAT on 11/01/2005 for Enh 4112155**************/
4149:
4150: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=p_sr_rec;
4151: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=p_sr_task_rec;
4152:
4153: Terr_Qual_Dyn_Check(l_sr_comp_sub, l_sr_task_comp_sub);
4154:
4147:
4148: /**************** Start of addition by SBARAT on 11/01/2005 for Enh 4112155**************/
4149:
4150: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=p_sr_rec;
4151: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=p_sr_task_rec;
4152:
4153: Terr_Qual_Dyn_Check(l_sr_comp_sub, l_sr_task_comp_sub);
4154:
4155: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=Null;
4151: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=p_sr_task_rec;
4152:
4153: Terr_Qual_Dyn_Check(l_sr_comp_sub, l_sr_task_comp_sub);
4154:
4155: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=Null;
4156: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=Null;
4157:
4158: /**************** End of addition by SBARAT on 11/01/2005 for Enh 4112155**************/
4159:
4152:
4153: Terr_Qual_Dyn_Check(l_sr_comp_sub, l_sr_task_comp_sub);
4154:
4155: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=Null;
4156: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=Null;
4157:
4158: /**************** End of addition by SBARAT on 11/01/2005 for Enh 4112155**************/
4159:
4160: IF
4470: p_planned_start_date => l_planned_start_date,
4471: p_planned_end_date => l_planned_end_date,
4472: p_breakdown => null,
4473: p_breakdown_uom => null,
4474: p_continuous_task => jtf_assign_pub.g_continuous_work,
4475: x_return_status => x_return_status,
4476: x_msg_count => x_msg_count,
4477: x_msg_data => x_msg_data,
4478: x_assign_resources_tbl => x_assign_resources_tbl,
4487: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
4488: -- Unexpected Execution Error from call to Get_contracts_resources
4489: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
4490: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
4491: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_SR_RESOURCES');
4492: fnd_msg_pub.add;
4493: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
4494: RAISE fnd_api.g_exc_error;
4495: ELSE
4529: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
4530: -- Unexpected Execution Error from call to Get_contracts_resources
4531: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
4532: fnd_message.set_token('P_PROC_NAME','SERVICE_SECURITY_CHECK');
4533: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_SR_RESOURCES');
4534: fnd_msg_pub.add;
4535: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
4536: RAISE fnd_api.g_exc_error;
4537: ELSE
5003:
5004:
5005: -- These parameters contain the Qualifier Values for
5006: -- the Calling Document
5007: -- p_dr_rec JTF_ASSIGN_PUB.
5008: -- JTF_DR_rec_type
5009:
5010: -- OUT : x_return_status OUT VARCHAR2(1)
5011: -- x_msg_count OUT NUMBER
5009:
5010: -- OUT : x_return_status OUT VARCHAR2(1)
5011: -- x_msg_count OUT NUMBER
5012: -- x_msg_data OUT VARCHAR2(2000)
5013: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
5014: -- AssignResources_tbl_type
5015:
5016:
5017: -- Version : Current version 1.0
5053: p_inventory_org_id IN NUMBER ,
5054: p_problem_code IN VARCHAR2 ,
5055: p_dr_id IN NUMBER,
5056: p_column_list IN VARCHAR2 ,
5057: p_dr_rec IN JTF_ASSIGN_PUB.JTF_DR_rec_type ,
5058: p_business_process_id IN NUMBER,
5059: p_business_process_date IN DATE,
5060: p_filter_excluded_resource IN VARCHAR2,
5061: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
5057: p_dr_rec IN JTF_ASSIGN_PUB.JTF_DR_rec_type ,
5058: p_business_process_id IN NUMBER,
5059: p_business_process_date IN DATE,
5060: p_filter_excluded_resource IN VARCHAR2,
5061: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
5062: x_return_status OUT NOCOPY VARCHAR2,
5063: x_msg_count OUT NOCOPY NUMBER,
5064: x_msg_data OUT NOCOPY VARCHAR2,
5065: --Added for Bug # 5573916
5099: l_bind_data_id NUMBER;
5100: l_workflow_key NUMBER;
5101:
5102: l_dr_rec JTF_TERRITORY_PUB.JTF_Srv_Task_rec_type;
5103: l_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5104: l_assign_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5105: l_winningterrmember_tbl JTF_TERRITORY_PUB.WinningTerrMember_tbl_type;
5106:
5107: l_dr_id NUMBER;
5100: l_workflow_key NUMBER;
5101:
5102: l_dr_rec JTF_TERRITORY_PUB.JTF_Srv_Task_rec_type;
5103: l_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5104: l_assign_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5105: l_winningterrmember_tbl JTF_TERRITORY_PUB.WinningTerrMember_tbl_type;
5106:
5107: l_dr_id NUMBER;
5108: l_p_resource_type VARCHAR2(30) := p_resource_type;
5127: l_msg_count NUMBER;
5128: l_msg_data VARCHAR2(2000);
5129:
5130: l_pref_res_order VARCHAR2(20) := 'BOTH';
5131: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
5132: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
5133: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
5134:
5135: -- tables to handle excluded resource feature
5128: l_msg_data VARCHAR2(2000);
5129:
5130: l_pref_res_order VARCHAR2(20) := 'BOTH';
5131: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
5132: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
5133: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
5134:
5135: -- tables to handle excluded resource feature
5136: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
5129:
5130: l_pref_res_order VARCHAR2(20) := 'BOTH';
5131: l_ib_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
5132: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
5133: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
5134:
5135: -- tables to handle excluded resource feature
5136: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
5137: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5132: l_con_preferred_engineers_tbl JTF_ASSIGN_PUB.prfeng_tbl_type;
5133: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
5134:
5135: -- tables to handle excluded resource feature
5136: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
5137: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5138: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5139:
5140:
5133: l_preferred_engineers_tbl JTF_ASSIGN_PUB.Preferred_Engineers_tbl_type;
5134:
5135: -- tables to handle excluded resource feature
5136: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
5137: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5138: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5139:
5140:
5141: l_x_planned_start_date DATE;
5134:
5135: -- tables to handle excluded resource feature
5136: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
5137: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5138: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
5139:
5140:
5141: l_x_planned_start_date DATE;
5142: l_x_planned_end_date DATE;
5222: subcomponent_id IS NULL;
5223:
5224: BEGIN
5225:
5226: SAVEPOINT jtf_assign_pub;
5227:
5228: -- Started Assignment Manager Public API
5229:
5230: /* Standard call to check for call compatibility */
5529: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5530: -- Unexpected Execution Error from call to Get_contracts_resources
5531: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
5532: fnd_message.set_token('P_PROC_NAME','GET_CONTRACTS_RESOURCES');
5533: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_DR_RESOURCES');
5534: fnd_msg_pub.add;
5535: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5536: RAISE fnd_api.g_exc_error;
5537: ELSE
5566: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5567: -- Unexpected Execution Error from call to Get_contracts_resources
5568: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
5569: fnd_message.set_token('P_PROC_NAME','GET_IB_RESOURCES');
5570: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_DR_RESOURCES');
5571: fnd_msg_pub.add;
5572: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5573: RAISE fnd_api.g_exc_error;
5574: ELSE
5608: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5609: -- Unexpected Execution Error from call to Get_contracts_resources
5610: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
5611: fnd_message.set_token('P_PROC_NAME','SERVICE_SECURITY_CHECK');
5612: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_DR_RESOURCES');
5613: fnd_msg_pub.add;
5614: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5615: RAISE fnd_api.g_exc_error;
5616: ELSE
5633: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5634: -- Unexpected Execution Error from call to Get_contracts_resources
5635: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
5636: fnd_message.set_token('P_PROC_NAME','SERVICE_SECURITY_CHECK');
5637: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_DR_RESOURCES');
5638: fnd_msg_pub.add;
5639: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5640: RAISE fnd_api.g_exc_error;
5641: ELSE
5814: p_planned_start_date => l_planned_start_date,
5815: p_planned_end_date => l_planned_end_date,
5816: p_breakdown => null,
5817: p_breakdown_uom => null,
5818: p_continuous_task => jtf_assign_pub.g_continuous_work,
5819: x_return_status => x_return_status,
5820: x_msg_count => x_msg_count,
5821: x_msg_data => x_msg_data,
5822: x_assign_resources_tbl => l_assign_resources_tbl,
5832: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5833: -- Unexpected Execution Error from call to Get_contracts_resources
5834: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
5835: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
5836: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_DR_RESOURCES');
5837: fnd_msg_pub.add;
5838: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5839: RAISE fnd_api.g_exc_error;
5840: ELSE
5870: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5871: -- Unexpected Execution Error from call to Get_contracts_resources
5872: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
5873: fnd_message.set_token('P_PROC_NAME','SERVICE_SECURITY_CHECK');
5874: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_DR_RESOURCES');
5875: fnd_msg_pub.add;
5876: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5877: RAISE fnd_api.g_exc_error;
5878: ELSE
6272:
6273: -- Raise Workflow Event
6274: -- Workflow Test
6275: Begin
6276: jtf_assign_pub.g_assign_resources_tbl.delete;
6277: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
6278: jtf_am_wf_events_pub.assign_dr_resource
6279: (P_API_VERSION => 1.0,
6280: P_INIT_MSG_LIST => 'F',
6273: -- Raise Workflow Event
6274: -- Workflow Test
6275: Begin
6276: jtf_assign_pub.g_assign_resources_tbl.delete;
6277: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
6278: jtf_am_wf_events_pub.assign_dr_resource
6279: (P_API_VERSION => 1.0,
6280: P_INIT_MSG_LIST => 'F',
6281: P_COMMIT => 'F',
6297: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
6298: -- Unexpected Execution Error from call to assign_dr_resource
6299: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
6300: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
6301: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
6302: fnd_msg_pub.add;
6303:
6304: ELSE
6305: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
6301: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
6302: fnd_msg_pub.add;
6303:
6304: ELSE
6305: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
6306: END IF;
6307:
6308:
6309: Exception
6324: FROM dual;
6325:
6326: IF (JTF_USR_HKS.ok_to_execute
6327: (
6328: 'JTF_ASSIGN_PUB',
6329: 'GET_ASSIGN_DR_RESOURCES',
6330: 'W',
6331: 'W'
6332: )
6501:
6502:
6503: -- This parameter contains the Qualifier values for the
6504: -- Calling Document.
6505: -- p_opportunity_rec JTF_ASSIGN_PUB.
6506: -- JTF_Oppor_rec_type
6507: -- REQUIRED
6508:
6509:
6509:
6510: -- OUT : x_return_status OUT VARCHAR2(1)
6511: -- x_msg_count OUT NUMBER
6512: -- x_msg_data OUT VARCHAR2(2000)
6513: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
6514: -- AssignResources_tbl_type
6515:
6516:
6517: -- Version : Current version 1.0
6542: p_start_date IN DATE ,
6543: p_end_date IN DATE ,
6544: p_territory_flag IN VARCHAR2,
6545: p_calendar_flag IN VARCHAR2,
6546: p_opportunity_rec IN JTF_ASSIGN_PUB.JTF_Oppor_rec_type,
6547: p_business_process_id IN NUMBER,
6548: p_business_process_date IN DATE,
6549: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
6550: x_return_status OUT NOCOPY VARCHAR2,
6545: p_calendar_flag IN VARCHAR2,
6546: p_opportunity_rec IN JTF_ASSIGN_PUB.JTF_Oppor_rec_type,
6547: p_business_process_id IN NUMBER,
6548: p_business_process_date IN DATE,
6549: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
6550: x_return_status OUT NOCOPY VARCHAR2,
6551: x_msg_count OUT NOCOPY NUMBER,
6552: x_msg_data OUT NOCOPY VARCHAR2
6553: )
6611:
6612: l_value varchar2(100);
6613:
6614: l_count number := 0;
6615: l_temp_table JTF_ASSIGN_PUB.AssignResources_tbl_type;
6616:
6617: BEGIN
6618:
6619: SAVEPOINT get_assign_oppr_resources;
6895: p_effort_duration => l_effort_duration,
6896: p_effort_uom => l_effort_uom,
6897: p_planned_start_date => l_planned_start_date,
6898: p_planned_end_date => l_planned_end_date,
6899: p_continuous_task => jtf_assign_pub.g_continuous_work,
6900: x_return_status => x_return_status,
6901: x_msg_count => x_msg_count,
6902: x_msg_data => x_msg_data,
6903: x_assign_resources_tbl => x_assign_resources_tbl);
6908: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
6909: -- Unexpected Execution Error from call to Get_contracts_resources
6910: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
6911: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
6912: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_OPPR_RESOURCES');
6913: fnd_msg_pub.add;
6914: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6915: RAISE fnd_api.g_exc_error;
6916: ELSE
6965:
6966: -- raise workfow event
6967: -- workflow test
6968: Begin
6969: jtf_assign_pub.g_assign_resources_tbl.delete;
6970: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
6971: jtf_am_wf_events_pub.assign_oppr_resource
6972: (P_API_VERSION => 1.0,
6973: P_INIT_MSG_LIST => 'F',
6966: -- raise workfow event
6967: -- workflow test
6968: Begin
6969: jtf_assign_pub.g_assign_resources_tbl.delete;
6970: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
6971: jtf_am_wf_events_pub.assign_oppr_resource
6972: (P_API_VERSION => 1.0,
6973: P_INIT_MSG_LIST => 'F',
6974: P_COMMIT => 'F',
6984: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
6985: -- Unexpected Execution Error from call to assign_sr_resource
6986: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
6987: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
6988: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_OPPR_RESOURCES');
6989: fnd_msg_pub.add;
6990:
6991: ELSE
6992: x_assign_resources_tbl.delete;
6989: fnd_msg_pub.add;
6990:
6991: ELSE
6992: x_assign_resources_tbl.delete;
6993: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
6994: END IF;
6995:
6996:
6997: Exception
7018: FROM dual;
7019:
7020: IF (JTF_USR_HKS.ok_to_execute
7021: (
7022: 'JTF_ASSIGN_PUB',
7023: 'GET_ASSIGN_OPPR_RESOURCES',
7024: 'W',
7025: 'W'
7026: )
7153: -- Parameters :
7154:
7155: -- IN : p_api_version IN NUMBER Required
7156: -- p_init_msg_list IN VARCHAR2 Optional
7157: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
7158: -- p_commit IN VARCHAR2 optional
7159: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
7160:
7161: -- Assignment Manager Specific Parameters
7155: -- IN : p_api_version IN NUMBER Required
7156: -- p_init_msg_list IN VARCHAR2 Optional
7157: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
7158: -- p_commit IN VARCHAR2 optional
7159: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
7160:
7161: -- Assignment Manager Specific Parameters
7162:
7163: -- This determines the Resource Type required by the
7200:
7201: -- OUT : x_return_status OUT VARCHAR2(1)
7202: -- x_msg_count OUT NUMBER
7203: -- x_msg_data OUT VARCHAR2(2000)
7204: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
7205: -- AssignResources_tbl_type
7206:
7207:
7208: -- Version : Current version 1.0
7237: p_lead_rec IN JTF_TERRITORY_PUB.JTF_Lead_BULK_rec_type,
7238: -- x_assign_resources_bulk_rec OUT NOCOPY JTF_TERRITORY_PUB.WINNING_BULK_REC_TYPE,
7239: p_business_process_id IN NUMBER,
7240: p_business_process_date IN DATE,
7241: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
7242: x_return_status OUT NOCOPY VARCHAR2,
7243: x_msg_count OUT NOCOPY NUMBER,
7244: x_msg_data OUT NOCOPY VARCHAR2
7245: )
7297:
7298: l_value varchar2(100);
7299:
7300: l_count number := 0;
7301: l_temp_table JTF_ASSIGN_PUB.AssignResources_tbl_type;
7302: BEGIN
7303:
7304: SAVEPOINT get_assign_lead_resources;
7305:
7483: p_effort_duration => l_effort_duration,
7484: p_effort_uom => l_effort_uom,
7485: p_planned_start_date => l_planned_start_date,
7486: p_planned_end_date => l_planned_end_date,
7487: p_continuous_task => jtf_assign_pub.g_continuous_work,
7488: x_return_status => x_return_status,
7489: x_msg_count => x_msg_count,
7490: x_msg_data => x_msg_data,
7491: x_assign_resources_tbl => x_assign_resources_tbl);
7496: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
7497: -- Unexpected Execution Error from call to Get_contracts_resources
7498: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
7499: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
7500: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_LEAD_RESOURCES');
7501: fnd_msg_pub.add;
7502: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7503: RAISE fnd_api.g_exc_error;
7504: ELSE
7553:
7554: -- raise workfow event
7555: -- workflow test
7556: Begin
7557: jtf_assign_pub.g_assign_resources_tbl.delete;
7558: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
7559: jtf_am_wf_events_pub.assign_lead_resource
7560: (P_API_VERSION => 1.0,
7561: P_INIT_MSG_LIST => 'F',
7554: -- raise workfow event
7555: -- workflow test
7556: Begin
7557: jtf_assign_pub.g_assign_resources_tbl.delete;
7558: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
7559: jtf_am_wf_events_pub.assign_lead_resource
7560: (P_API_VERSION => 1.0,
7561: P_INIT_MSG_LIST => 'F',
7562: P_COMMIT => 'F',
7573: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
7574: -- Unexpected Execution Error from call to assign_sr_resource
7575: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
7576: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
7577: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_LEAD_RESOURCES');
7578: fnd_msg_pub.add;
7579:
7580: ELSE
7581: x_assign_resources_tbl.delete;
7578: fnd_msg_pub.add;
7579:
7580: ELSE
7581: x_assign_resources_tbl.delete;
7582: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
7583: END IF;
7584:
7585:
7586: Exception
7606: FROM dual;
7607:
7608: IF (JTF_USR_HKS.ok_to_execute
7609: (
7610: 'JTF_ASSIGN_PUB',
7611: 'GET_ASSIGN_LEAD_RESOURCES',
7612: 'W',
7613: 'W'
7614: )
7737: -- availability. This is when the calling doc is
7738: -- LEADS.
7739: -- This parameter contains the values of the Qualifiers
7740: -- defined for the Sales Leads.
7741: -- p_lead_rec JTF_ASSIGN_PUB.
7742: -- JTF_Lead_rec_type
7743: -- REQUIRED
7744:
7745: -- OUT : x_return_status OUT VARCHAR2(1)
7744:
7745: -- OUT : x_return_status OUT VARCHAR2(1)
7746: -- x_msg_count OUT NUMBER
7747: -- x_msg_data OUT VARCHAR2(2000)
7748: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
7749: -- AssignResources_tbl_type
7750:
7751:
7752: -- Version : Current version 1.0
7775: p_start_date IN DATE ,
7776: p_end_date IN DATE ,
7777: p_territory_flag IN VARCHAR2 ,
7778: p_calendar_flag IN VARCHAR2 ,
7779: p_lead_rec IN JTF_ASSIGN_PUB.JTF_Lead_rec_type,
7780: p_business_process_id IN NUMBER,
7781: p_business_process_date IN DATE,
7782: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
7783: x_return_status OUT NOCOPY VARCHAR2,
7778: p_calendar_flag IN VARCHAR2 ,
7779: p_lead_rec IN JTF_ASSIGN_PUB.JTF_Lead_rec_type,
7780: p_business_process_id IN NUMBER,
7781: p_business_process_date IN DATE,
7782: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
7783: x_return_status OUT NOCOPY VARCHAR2,
7784: x_msg_count OUT NOCOPY NUMBER,
7785: x_msg_data OUT NOCOPY VARCHAR2
7786: )
8165:
8166: -- raise workfow event
8167: -- workflow test
8168: Begin
8169: jtf_assign_pub.g_assign_resources_tbl.delete;
8170: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
8171: jtf_am_wf_events_pub.assign_lead_resource
8172: (P_API_VERSION => 1.0,
8173: P_INIT_MSG_LIST => 'F',
8166: -- raise workfow event
8167: -- workflow test
8168: Begin
8169: jtf_assign_pub.g_assign_resources_tbl.delete;
8170: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
8171: jtf_am_wf_events_pub.assign_lead_resource
8172: (P_API_VERSION => 1.0,
8173: P_INIT_MSG_LIST => 'F',
8174: P_COMMIT => 'F',
8185: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
8186: -- Unexpected Execution Error from call to assign_sr_resource
8187: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
8188: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
8189: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_LEAD_RESOURCES');
8190: fnd_msg_pub.add;
8191:
8192: ELSE
8193: x_assign_resources_tbl.delete;
8190: fnd_msg_pub.add;
8191:
8192: ELSE
8193: x_assign_resources_tbl.delete;
8194: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
8195: END IF;
8196:
8197:
8198: Exception
8218: FROM dual;
8219:
8220: IF (JTF_USR_HKS.ok_to_execute
8221: (
8222: 'JTF_ASSIGN_PUB',
8223: 'GET_ASSIGN_LEAD_RESOURCES',
8224: 'W',
8225: 'W'
8226: )
8357: -- Parameters :
8358:
8359: -- IN : p_api_version IN NUMBER Required
8360: -- p_init_msg_list IN VARCHAR2 Optional
8361: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
8362: -- p_commit IN VARCHAR2 optional
8363: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
8364:
8365: -- Assignment Manager Specific Parameters
8359: -- IN : p_api_version IN NUMBER Required
8360: -- p_init_msg_list IN VARCHAR2 Optional
8361: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
8362: -- p_commit IN VARCHAR2 optional
8363: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
8364:
8365: -- Assignment Manager Specific Parameters
8366:
8367: -- This determines the Resource Type required by the
8396:
8397:
8398: -- This parameter contains the values of the Qualifiers
8399: -- defined for the Accounts.
8400: -- p_account_rec JTF_ASSIGN_PUB.
8401: -- JTF_Account_rec_type
8402: -- REQUIRED
8403:
8404: -- OUT : x_return_status OUT VARCHAR2(1)
8403:
8404: -- OUT : x_return_status OUT VARCHAR2(1)
8405: -- x_msg_count OUT NUMBER
8406: -- x_msg_data OUT VARCHAR2(2000)
8407: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
8408: -- AssignResources_tbl_type
8409:
8410:
8411: -- Version : Current version 1.0
8437: p_start_date IN DATE ,
8438: p_end_date IN DATE ,
8439: p_territory_flag IN VARCHAR2,
8440: p_calendar_flag IN VARCHAR2 ,
8441: p_account_rec IN JTF_ASSIGN_PUB.JTF_Account_rec_type,
8442: p_business_process_id IN NUMBER,
8443: p_business_process_date IN DATE,
8444: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
8445: x_return_status OUT NOCOPY VARCHAR2,
8440: p_calendar_flag IN VARCHAR2 ,
8441: p_account_rec IN JTF_ASSIGN_PUB.JTF_Account_rec_type,
8442: p_business_process_id IN NUMBER,
8443: p_business_process_date IN DATE,
8444: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
8445: x_return_status OUT NOCOPY VARCHAR2,
8446: x_msg_count OUT NOCOPY NUMBER,
8447: x_msg_data OUT NOCOPY VARCHAR2
8448: )
8499:
8500: l_value varchar2(100);
8501:
8502: l_count number := 0;
8503: l_temp_table JTF_ASSIGN_PUB.AssignResources_tbl_type;
8504:
8505: BEGIN
8506:
8507: SAVEPOINT get_assign_account_resources;
8745: p_effort_duration => l_effort_duration,
8746: p_effort_uom => l_effort_uom,
8747: p_planned_start_date => l_planned_start_date,
8748: p_planned_end_date => l_planned_end_date,
8749: p_continuous_task => jtf_assign_pub.g_continuous_work,
8750: x_return_status => x_return_status,
8751: x_msg_count => x_msg_count,
8752: x_msg_data => x_msg_data,
8753: x_assign_resources_tbl => x_assign_resources_tbl);
8758: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
8759: -- Unexpected Execution Error from call to Get_contracts_resources
8760: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
8761: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
8762: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_ACCOUNT_RESOURCES');
8763: fnd_msg_pub.add;
8764: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8765: RAISE fnd_api.g_exc_error;
8766: ELSE
8813:
8814: -- raise workfow event
8815: -- workflow test
8816: Begin
8817: jtf_assign_pub.g_assign_resources_tbl.delete;
8818: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
8819: jtf_am_wf_events_pub.assign_acc_resource
8820: (P_API_VERSION => 1.0,
8821: P_INIT_MSG_LIST => 'F',
8814: -- raise workfow event
8815: -- workflow test
8816: Begin
8817: jtf_assign_pub.g_assign_resources_tbl.delete;
8818: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
8819: jtf_am_wf_events_pub.assign_acc_resource
8820: (P_API_VERSION => 1.0,
8821: P_INIT_MSG_LIST => 'F',
8822: P_COMMIT => 'F',
8832: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
8833: -- Unexpected Execution Error from call to assign_sr_resource
8834: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
8835: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
8836: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_ACCOUNT_RESOURCES');
8837: fnd_msg_pub.add;
8838:
8839: ELSE
8840: x_assign_resources_tbl.delete;
8837: fnd_msg_pub.add;
8838:
8839: ELSE
8840: x_assign_resources_tbl.delete;
8841: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
8842: END IF;
8843:
8844:
8845: Exception
8866: FROM dual;
8867:
8868: IF (JTF_USR_HKS.ok_to_execute
8869: (
8870: 'JTF_ASSIGN_PUB',
8871: 'GET_ASSIGN_ACCOUNT_RESOURCES',
8872: 'W',
8873: 'W'
8874: )
9053:
9054: -- OUT : x_return_status OUT VARCHAR2(1)
9055: -- x_msg_count OUT NUMBER
9056: -- x_msg_data OUT VARCHAR2(2000)
9057: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
9058: -- AssignResources_tbl_type
9059:
9060:
9061: -- Version : Current version 1.0
9088: p_calendar_flag IN VARCHAR2,
9089: p_defect_rec IN JTF_TERRITORY_PUB.JTF_DEF_MGMT_rec_type,
9090: p_business_process_id IN NUMBER,
9091: p_business_process_date IN DATE,
9092: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
9093: x_return_status OUT NOCOPY VARCHAR2,
9094: x_msg_count OUT NOCOPY NUMBER,
9095: x_msg_data OUT NOCOPY VARCHAR2
9096: )
9296: p_effort_duration => p_effort_duration,
9297: p_effort_uom => p_effort_uom,
9298: p_planned_start_date => l_planned_start_date,
9299: p_planned_end_date => l_planned_end_date,
9300: p_continuous_task => jtf_assign_pub.g_continuous_work,
9301: x_return_status => x_return_status,
9302: x_msg_count => x_msg_count,
9303: x_msg_data => x_msg_data,
9304: x_assign_resources_tbl => x_assign_resources_tbl);
9309: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
9310: -- Unexpected Execution Error from call to Get_contracts_resources
9311: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
9312: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
9313: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_DEFECT_RESOURCES');
9314: fnd_msg_pub.add;
9315: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9316: RAISE fnd_api.g_exc_error;
9317: ELSE
9443:
9444:
9445: -- This parameter contains the values of the Qualifiers
9446: -- defined for the Escalations.
9447: -- p_esc_tbl JTF_ASSIGN_PUB.
9448: -- Escalations_tbl_type
9449: -- REQUIRED
9450:
9451:
9451:
9452: -- OUT : x_return_status OUT VARCHAR2(1)
9453: -- x_msg_count OUT NUMBER
9454: -- x_msg_data OUT VARCHAR2(2000)
9455: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
9456: -- AssignResources_tbl_type
9457:
9458:
9459: -- Version : Current version 1.0
9485: p_end_date IN DATE ,
9486: p_territory_flag IN VARCHAR2 ,
9487: p_calendar_flag IN VARCHAR2 ,
9488: p_web_availability_flag IN VARCHAR2 ,
9489: p_esc_tbl IN JTF_ASSIGN_PUB.Escalations_tbl_type,
9490: p_business_process_id IN NUMBER,
9491: p_business_process_date IN DATE,
9492: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
9493: x_return_status OUT NOCOPY VARCHAR2,
9488: p_web_availability_flag IN VARCHAR2 ,
9489: p_esc_tbl IN JTF_ASSIGN_PUB.Escalations_tbl_type,
9490: p_business_process_id IN NUMBER,
9491: p_business_process_date IN DATE,
9492: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
9493: x_return_status OUT NOCOPY VARCHAR2,
9494: x_msg_count OUT NOCOPY NUMBER,
9495: x_msg_data OUT NOCOPY VARCHAR2
9496: )
9619:
9620: l_value varchar2(100);
9621:
9622: l_count number := 0;
9623: l_temp_table JTF_ASSIGN_PUB.AssignResources_tbl_type;
9624:
9625: BEGIN
9626:
9627: SAVEPOINT get_assign_esc_resources;
10035: p_planned_start_date => l_planned_start_date,
10036: p_planned_end_date => l_planned_end_date,
10037: p_breakdown => null,
10038: p_breakdown_uom => null,
10039: p_continuous_task => jtf_assign_pub.g_continuous_work,
10040: x_return_status => x_return_status,
10041: x_msg_count => x_msg_count,
10042: x_msg_data => x_msg_data,
10043: x_assign_resources_tbl => x_assign_resources_tbl);
10048: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
10049: -- Unexpected Execution Error from call to Get_contracts_resources
10050: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
10051: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
10052: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_ESC_RESOURCES');
10053: fnd_msg_pub.add;
10054: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10055: RAISE fnd_api.g_exc_error;
10056: ELSE
10296:
10297: -- raise workfow event
10298: -- workflow test
10299: Begin
10300: jtf_assign_pub.g_assign_resources_tbl.delete;
10301: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
10302:
10303: IF (p_esc_tbl.count>0) THEN
10304:
10297: -- raise workfow event
10298: -- workflow test
10299: Begin
10300: jtf_assign_pub.g_assign_resources_tbl.delete;
10301: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
10302:
10303: IF (p_esc_tbl.count>0) THEN
10304:
10305: l_esc_count := p_esc_tbl.FIRST;
10322: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
10323: -- Unexpected Execution Error from call to assign_sr_resource
10324: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
10325: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
10326: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ESC_RESOURCES');
10327: fnd_msg_pub.add;
10328: ELSE
10329: x_assign_resources_tbl.delete;
10330: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
10326: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ESC_RESOURCES');
10327: fnd_msg_pub.add;
10328: ELSE
10329: x_assign_resources_tbl.delete;
10330: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
10331:
10332: END IF;
10333:
10334: l_esc_count := p_esc_tbl.NEXT(l_esc_count);
10352: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
10353: -- Unexpected Execution Error from call to assign_sr_resource
10354: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
10355: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
10356: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ESC_RESOURCES');
10357: fnd_msg_pub.add;
10358: ELSE
10359: x_assign_resources_tbl.delete;
10360: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
10356: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ESC_RESOURCES');
10357: fnd_msg_pub.add;
10358: ELSE
10359: x_assign_resources_tbl.delete;
10360: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
10361: END IF;
10362:
10363: END IF;
10364:
10388: FROM dual;
10389:
10390: IF (JTF_USR_HKS.ok_to_execute
10391: (
10392: 'JTF_ASSIGN_PUB',
10393: 'GET_ASSIGN_ESC_RESOURCES',
10394: 'W',
10395: 'W'
10396: )
10522: -- Parameters :
10523:
10524: -- IN : p_api_version IN NUMBER Required
10525: -- p_init_msg_list IN VARCHAR2 Optional
10526: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
10527: -- p_commit IN VARCHAR2 optional
10528: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
10529:
10530: -- Assignment Manager Specific Parameters
10524: -- IN : p_api_version IN NUMBER Required
10525: -- p_init_msg_list IN VARCHAR2 Optional
10526: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
10527: -- p_commit IN VARCHAR2 optional
10528: -- DEFAULT JTF_ASSIGN_PUB.AM_FALSE
10529:
10530: -- Assignment Manager Specific Parameters
10531:
10532: -- This determines the Resource, Resource Type
10602: -- p_column_list VARCHAR2
10603:
10604: -- These parameters contain the Qualifier Values for
10605: -- the Calling Document
10606: -- p_sr_rec JTF_ASSIGN_PUB.
10607: -- JTF_Serv_Req_rec_type
10608: -- p_sr_task_rec JTF_ASSIGN_PUB.
10609: -- JTF_Srv_Task_rec_type
10610: -- p_defect_rec JTF_ASSIGN_PUB.
10604: -- These parameters contain the Qualifier Values for
10605: -- the Calling Document
10606: -- p_sr_rec JTF_ASSIGN_PUB.
10607: -- JTF_Serv_Req_rec_type
10608: -- p_sr_task_rec JTF_ASSIGN_PUB.
10609: -- JTF_Srv_Task_rec_type
10610: -- p_defect_rec JTF_ASSIGN_PUB.
10611: -- JTF_Def_Mgmt_rec_type
10612:
10606: -- p_sr_rec JTF_ASSIGN_PUB.
10607: -- JTF_Serv_Req_rec_type
10608: -- p_sr_task_rec JTF_ASSIGN_PUB.
10609: -- JTF_Srv_Task_rec_type
10610: -- p_defect_rec JTF_ASSIGN_PUB.
10611: -- JTF_Def_Mgmt_rec_type
10612:
10613: -- OUT : x_return_status OUT VARCHAR2(1)
10614: -- x_msg_count OUT NUMBER
10612:
10613: -- OUT : x_return_status OUT VARCHAR2(1)
10614: -- x_msg_count OUT NUMBER
10615: -- x_msg_data OUT VARCHAR2(2000)
10616: -- x_assign_resources_tbl OUT JTF_ASSIGN_PUB.
10617: -- AssignResources_tbl_type
10618:
10619:
10620: -- Version : Current version 1.0
10660: p_problem_code IN VARCHAR2 ,
10661: p_calling_doc_id IN NUMBER,
10662: p_calling_doc_type IN VARCHAR2,
10663: p_column_list IN VARCHAR2 ,
10664: p_sr_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type ,
10665: p_sr_task_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type ,
10666: p_defect_rec IN JTF_ASSIGN_PUB.JTF_Def_Mgmt_rec_type ,
10667: p_business_process_id IN NUMBER,
10668: p_business_process_date IN DATE,
10661: p_calling_doc_id IN NUMBER,
10662: p_calling_doc_type IN VARCHAR2,
10663: p_column_list IN VARCHAR2 ,
10664: p_sr_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type ,
10665: p_sr_task_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type ,
10666: p_defect_rec IN JTF_ASSIGN_PUB.JTF_Def_Mgmt_rec_type ,
10667: p_business_process_id IN NUMBER,
10668: p_business_process_date IN DATE,
10669: p_filter_excluded_resource IN VARCHAR2,
10662: p_calling_doc_type IN VARCHAR2,
10663: p_column_list IN VARCHAR2 ,
10664: p_sr_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type ,
10665: p_sr_task_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type ,
10666: p_defect_rec IN JTF_ASSIGN_PUB.JTF_Def_Mgmt_rec_type ,
10667: p_business_process_id IN NUMBER,
10668: p_business_process_date IN DATE,
10669: p_filter_excluded_resource IN VARCHAR2,
10670: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
10666: p_defect_rec IN JTF_ASSIGN_PUB.JTF_Def_Mgmt_rec_type ,
10667: p_business_process_id IN NUMBER,
10668: p_business_process_date IN DATE,
10669: p_filter_excluded_resource IN VARCHAR2,
10670: x_assign_resources_tbl OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type,
10671: x_return_status OUT NOCOPY VARCHAR2,
10672: x_msg_count OUT NOCOPY NUMBER,
10673: x_msg_data OUT NOCOPY VARCHAR2,
10674: --Added for Bug # 5386560
10713:
10714: l_sr_rec JTF_TERRITORY_PUB.JTF_Serv_Req_rec_type;
10715: l_sr_task_rec JTF_TERRITORY_PUB.JTF_Srv_Task_rec_type;
10716: l_defect_rec JTF_TERRITORY_PUB.JTF_Def_Mgmt_rec_type;
10717: l_assign_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
10718: t_assign_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type; --6453896
10719:
10720:
10721:
10714: l_sr_rec JTF_TERRITORY_PUB.JTF_Serv_Req_rec_type;
10715: l_sr_task_rec JTF_TERRITORY_PUB.JTF_Srv_Task_rec_type;
10716: l_defect_rec JTF_TERRITORY_PUB.JTF_Def_Mgmt_rec_type;
10717: l_assign_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
10718: t_assign_resources_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type; --6453896
10719:
10720:
10721:
10722: CURSOR cur_resource_type IS
10764: l_sort_profile VARCHAR2(2);
10765:
10766:
10767: BEGIN
10768: SAVEPOINT jtf_assign_pub;
10769:
10770: -- Started Assignment Manager Public API
10771:
10772:
10934: /**************** Start of addition by SBARAT on 11/01/2005 for Enh 4112155**************/
10935:
10936: Terr_Qual_Dyn_Assign(p_sr_rec, p_sr_task_rec);
10937:
10938: l_sr_rec:=JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type;
10939: l_sr_task_rec:=JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type;
10940:
10941: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=Null;
10942: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=Null;
10935:
10936: Terr_Qual_Dyn_Assign(p_sr_rec, p_sr_task_rec);
10937:
10938: l_sr_rec:=JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type;
10939: l_sr_task_rec:=JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type;
10940:
10941: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=Null;
10942: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=Null;
10943:
10937:
10938: l_sr_rec:=JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type;
10939: l_sr_task_rec:=JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type;
10940:
10941: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=Null;
10942: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=Null;
10943:
10944: /**************** End of addition by SBARAT on 11/01/2005 for Enh 4112155**************/
10945:
10938: l_sr_rec:=JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type;
10939: l_sr_task_rec:=JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type;
10940:
10941: JTF_ASSIGN_PUB.G_Terr_Serv_Req_Rec_Type:=Null;
10942: JTF_ASSIGN_PUB.G_Terr_Srv_Task_Rec_Type:=Null;
10943:
10944: /**************** End of addition by SBARAT on 11/01/2005 for Enh 4112155**************/
10945:
10946: l_sr_rec.SERVICE_REQUEST_ID := p_sr_rec.SERVICE_REQUEST_ID;
11199:
11200: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
11201: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
11202: fnd_message.set_token('P_PROC_NAME','GET_ASSIGN_SR_RESOURCES');
11203: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
11204: fnd_msg_pub.add;
11205: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
11206: RAISE fnd_api.g_exc_error;
11207: ELSE
11367:
11368: -- raise workfow event
11369: -- workflow test
11370: begin
11371: jtf_assign_pub.g_assign_resources_tbl.delete;
11372: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
11373: jtf_am_wf_events_pub.assign_sr_resource
11374: (P_API_VERSION => 1.0,
11375: P_INIT_MSG_LIST => 'F',
11368: -- raise workfow event
11369: -- workflow test
11370: begin
11371: jtf_assign_pub.g_assign_resources_tbl.delete;
11372: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
11373: jtf_am_wf_events_pub.assign_sr_resource
11374: (P_API_VERSION => 1.0,
11375: P_INIT_MSG_LIST => 'F',
11376: P_COMMIT => 'F',
11396: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
11397: -- Unexpected Execution Error from call to assign_sr_resource
11398: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
11399: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
11400: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
11401: fnd_msg_pub.add;
11402: /* Not raising the errors as req by tele service team
11403: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
11404: RAISE fnd_api.g_exc_error;
11406: RAISE fnd_api.g_exc_unexpected_error;
11407: END IF;
11408: */
11409: ELSE
11410: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
11411: END IF;
11412:
11413:
11414: exception
11472:
11473: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
11474: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
11475: fnd_message.set_token('P_PROC_NAME','GET_ASSIGN_TASK_RESOURCES');
11476: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
11477: fnd_msg_pub.add;
11478: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
11479: RAISE fnd_api.g_exc_error;
11480: ELSE
11660:
11661: -- raise workfow event
11662: -- workflow test
11663: Begin
11664: jtf_assign_pub.g_assign_resources_tbl.delete;
11665: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
11666: jtf_am_wf_events_pub.assign_task_resource
11667: (P_API_VERSION => 1.0,
11668: P_INIT_MSG_LIST => 'F',
11661: -- raise workfow event
11662: -- workflow test
11663: Begin
11664: jtf_assign_pub.g_assign_resources_tbl.delete;
11665: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
11666: jtf_am_wf_events_pub.assign_task_resource
11667: (P_API_VERSION => 1.0,
11668: P_INIT_MSG_LIST => 'F',
11669: P_COMMIT => 'F',
11682: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
11683: -- Unexpected Execution Error from call to assign_sr_resource
11684: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
11685: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
11686: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
11687: fnd_msg_pub.add;
11688:
11689: ELSE
11690: x_assign_resources_tbl.delete;
11687: fnd_msg_pub.add;
11688:
11689: ELSE
11690: x_assign_resources_tbl.delete;
11691: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
11692: END IF;
11693:
11694: Exception
11695: When OTHERS Then
11744:
11745: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
11746: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
11747: fnd_message.set_token('P_PROC_NAME','GET_ASSIGN_DEFECT_RESOURCES');
11748: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
11749: fnd_msg_pub.add;
11750: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
11751: RAISE fnd_api.g_exc_error;
11752: ELSE
11840:
11841: -- raise workfow event
11842: -- workflow test
11843: Begin
11844: jtf_assign_pub.g_assign_resources_tbl.delete;
11845: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
11846: jtf_am_wf_events_pub.assign_def_resource
11847: (P_API_VERSION => 1.0,
11848: P_INIT_MSG_LIST => 'F',
11841: -- raise workfow event
11842: -- workflow test
11843: Begin
11844: jtf_assign_pub.g_assign_resources_tbl.delete;
11845: jtf_assign_pub.g_assign_resources_tbl := x_assign_resources_tbl;
11846: jtf_am_wf_events_pub.assign_def_resource
11847: (P_API_VERSION => 1.0,
11848: P_INIT_MSG_LIST => 'F',
11849: P_COMMIT => 'F',
11862: IF NOT (l_wf_return_status = fnd_api.g_ret_sts_success) THEN
11863: -- Unexpected Execution Error from call to assign_sr_resource
11864: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
11865: fnd_message.set_token('P_PROC_NAME','JTF_AM_WF_EVENTS_PUB');
11866: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_RESOURCES');
11867: fnd_msg_pub.add;
11868:
11869: ELSE
11870: x_assign_resources_tbl.delete;
11867: fnd_msg_pub.add;
11868:
11869: ELSE
11870: x_assign_resources_tbl.delete;
11871: x_assign_resources_tbl := jtf_assign_pub.g_assign_resources_tbl;
11872: END IF;
11873:
11874:
11875: Exception
11893: FROM dual;
11894:
11895: IF (JTF_USR_HKS.ok_to_execute
11896: (
11897: 'JTF_ASSIGN_PUB',
11898: 'GET_ASSIGN_RESOURCES',
11899: 'W',
11900: 'W'
11901: )
12017: -- this is a procedure added on 2nd July 2002 to get the Excluded Resources for the AM UI
12018: -- when working in assisted Mode
12019: PROCEDURE GET_EXCLUDED_RESOURCES
12020: ( p_api_version IN NUMBER,
12021: p_init_msg_list IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12022: p_commit IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12023: p_contract_id IN NUMBER DEFAULT NULL,
12024: p_customer_product_id IN NUMBER DEFAULT NULL,
12025: p_calling_doc_id IN NUMBER,
12018: -- when working in assisted Mode
12019: PROCEDURE GET_EXCLUDED_RESOURCES
12020: ( p_api_version IN NUMBER,
12021: p_init_msg_list IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12022: p_commit IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12023: p_contract_id IN NUMBER DEFAULT NULL,
12024: p_customer_product_id IN NUMBER DEFAULT NULL,
12025: p_calling_doc_id IN NUMBER,
12026: p_calling_doc_type IN VARCHAR2,
12023: p_contract_id IN NUMBER DEFAULT NULL,
12024: p_customer_product_id IN NUMBER DEFAULT NULL,
12025: p_calling_doc_id IN NUMBER,
12026: p_calling_doc_type IN VARCHAR2,
12027: p_sr_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type DEFAULT pkg_sr_rec,
12028: p_sr_task_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type DEFAULT pkg_sr_task_rec,
12029: p_dr_rec IN JTF_ASSIGN_PUB.JTF_DR_rec_type DEFAULT pkg_dr_rec, --Added by SBARAT on 01/11/2004 for Enh-3919046
12030: p_business_process_id IN NUMBER,
12031: p_business_process_date IN DATE,
12024: p_customer_product_id IN NUMBER DEFAULT NULL,
12025: p_calling_doc_id IN NUMBER,
12026: p_calling_doc_type IN VARCHAR2,
12027: p_sr_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type DEFAULT pkg_sr_rec,
12028: p_sr_task_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type DEFAULT pkg_sr_task_rec,
12029: p_dr_rec IN JTF_ASSIGN_PUB.JTF_DR_rec_type DEFAULT pkg_dr_rec, --Added by SBARAT on 01/11/2004 for Enh-3919046
12030: p_business_process_id IN NUMBER,
12031: p_business_process_date IN DATE,
12032: x_excluded_resouurce_tbl OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type,
12025: p_calling_doc_id IN NUMBER,
12026: p_calling_doc_type IN VARCHAR2,
12027: p_sr_rec IN JTF_ASSIGN_PUB.JTF_Serv_Req_rec_type DEFAULT pkg_sr_rec,
12028: p_sr_task_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type DEFAULT pkg_sr_task_rec,
12029: p_dr_rec IN JTF_ASSIGN_PUB.JTF_DR_rec_type DEFAULT pkg_dr_rec, --Added by SBARAT on 01/11/2004 for Enh-3919046
12030: p_business_process_id IN NUMBER,
12031: p_business_process_date IN DATE,
12032: x_excluded_resouurce_tbl OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type,
12033: x_return_status OUT NOCOPY VARCHAR2,
12028: p_sr_task_rec IN JTF_ASSIGN_PUB.JTF_Srv_Task_rec_type DEFAULT pkg_sr_task_rec,
12029: p_dr_rec IN JTF_ASSIGN_PUB.JTF_DR_rec_type DEFAULT pkg_dr_rec, --Added by SBARAT on 01/11/2004 for Enh-3919046
12030: p_business_process_id IN NUMBER,
12031: p_business_process_date IN DATE,
12032: x_excluded_resouurce_tbl OUT NOCOPY JTF_ASSIGN_PUB.excluded_tbl_type,
12033: x_return_status OUT NOCOPY VARCHAR2,
12034: x_msg_count OUT NOCOPY NUMBER,
12035: x_msg_data OUT NOCOPY VARCHAR2
12036: )
12040: l_api_name_1 VARCHAR2(60) := 'GET_EXCLUDED_RESOURCES';
12041: l_api_version NUMBER := 1.0;
12042:
12043: -- tables to habdle excluded resource feature
12044: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
12045: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
12046: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
12047:
12048: l_contract_id NUMBER := p_contract_id;
12041: l_api_version NUMBER := 1.0;
12042:
12043: -- tables to habdle excluded resource feature
12044: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
12045: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
12046: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
12047:
12048: l_contract_id NUMBER := p_contract_id;
12049: l_cp_id NUMBER := p_customer_product_id;
12042:
12043: -- tables to habdle excluded resource feature
12044: l_excluded_resource_tbl JTF_ASSIGN_PUB.excluded_tbl_type;
12045: l_contracts_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
12046: l_ib_tbl JTF_ASSIGN_PUB.AssignResources_tbl_type;
12047:
12048: l_contract_id NUMBER := p_contract_id;
12049: l_cp_id NUMBER := p_customer_product_id;
12050:
12216: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
12217: -- Unexpected Execution Error from call to Get_contracts_resources
12218: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
12219: fnd_message.set_token('P_PROC_NAME','GET_CONTRACTS_RESOURCES');
12220: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_SR_RESOURCES');
12221: fnd_msg_pub.add;
12222: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12223: RAISE fnd_api.g_exc_error;
12224: ELSE
12250: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
12251: -- Unexpected Execution Error from call to Get_contracts_resources
12252: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
12253: fnd_message.set_token('P_PROC_NAME','GET_IB_RESOURCES');
12254: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_ASSIGN_TASK_RESOURCES');
12255: fnd_msg_pub.add;
12256: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12257: RAISE fnd_api.g_exc_error;
12258: ELSE
12311: -- this is to be used only from AM UI to get the available slots for the resources fetched in
12312: -- Unassisted mode
12313: PROCEDURE GET_RESOURCE_AVAILABILITY
12314: ( p_api_version IN NUMBER,
12315: p_init_msg_list IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12316: p_commit IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12317: p_calendar_flag IN VARCHAR2,
12318: p_effort_duration IN NUMBER,
12319: p_effort_uom IN VARCHAR2,
12312: -- Unassisted mode
12313: PROCEDURE GET_RESOURCE_AVAILABILITY
12314: ( p_api_version IN NUMBER,
12315: p_init_msg_list IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12316: p_commit IN VARCHAR2 DEFAULT JTF_ASSIGN_PUB.AM_FALSE,
12317: p_calendar_flag IN VARCHAR2,
12318: p_effort_duration IN NUMBER,
12319: p_effort_uom IN VARCHAR2,
12320: p_breakdown IN NUMBER,
12324: p_continuous_task IN VARCHAR2 DEFAULT 'N',
12325: x_return_status IN OUT NOCOPY VARCHAR2,
12326: x_msg_count IN OUT NOCOPY NUMBER,
12327: x_msg_data IN OUT NOCOPY VARCHAR2,
12328: x_assign_resources_tbl IN OUT NOCOPY JTF_ASSIGN_PUB.AssignResources_tbl_type
12329: )
12330: IS
12331: l_return_status_1 VARCHAR2(10);
12332: l_api_name VARCHAR2(100) := 'GET_EXCLUDED_RESOURCES';
12364: p_breakdown => p_breakdown,
12365: p_breakdown_uom => p_breakdown_uom,
12366: p_planned_start_date => p_planned_start_date,
12367: p_planned_end_date => p_planned_end_date,
12368: p_continuous_task => jtf_assign_pub.g_continuous_work,
12369: x_return_status => x_return_status,
12370: x_msg_count => x_msg_count,
12371: x_msg_data => x_msg_data,
12372: x_assign_resources_tbl => x_assign_resources_tbl);
12377: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
12378: -- Unexpected Execution Error from call to Get_contracts_resources
12379: fnd_message.set_name('JTF', 'JTF_AM_GENERIC_API_ERROR');
12380: fnd_message.set_token('P_PROC_NAME','GET_AVAILABLE_RESOURCE');
12381: fnd_message.set_token('P_API_NAME','JTF_ASSIGN_PUB.GET_CONTRACTS_RESOURCES');
12382: fnd_msg_pub.add;
12383: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12384: RAISE fnd_api.g_exc_error;
12385: ELSE
12430: );
12431:
12432: END GET_RESOURCE_AVAILABILITY;
12433:
12434: END JTF_ASSIGN_PUB;