1 PACKAGE BODY Cs_Service_Avail_Pkg AS
2 /*$Header: csxsesab.pls 115.1 99/07/16 09:08:40 porting ship $*/
3
4 PROCEDURE Duplicate_Check ( p_Event IN VARCHAR2,
5 p_Service_Inv_Item_Id IN NUMBER,
6 p_Avail_Inv_Item_Id IN NUMBER,
7 p_Manu_Org_Id IN NUMBER,
8 p_customer_Id IN NUMBER,
9 p_revision_low IN NUMBER,
10 p_revision_high IN NUMBER,
11 p_avail_start_date IN DATE,
12 p_avail_end_date IN DATE,
13 p_l_low_dt IN DATE,
14 p_l_high_dt IN DATE,
15 p_serv_avail_flag IN VARCHAR2,
16 p_service_avail_id IN NUMBER,
17 p_exists_flag IN OUT VARCHAR2) IS
18 CURSOR Check_Exists IS
19 SELECT 'x'
20 FROM cs_service_availability
21 WHERE Service_Inventory_Item_Id = p_service_inv_item_id
22 AND nvl(Inventory_Item_Id, -1) = nvl(p_avail_inv_item_id, -1)
23 AND nvl(Item_Manufacturing_Org_Id, -1) = nvl(p_manu_org_id, -1)
24 AND nvl(Customer_Id, -1) = nvl(p_customer_id, -1)
25 AND nvl(Revision_Low, -1) = nvl(p_revision_low, -1)
26 AND nvl(Revision_High, -1) = nvl(p_revision_high, -1)
27 AND trunc(nvl(start_date_active, p_l_low_dt))
28 = trunc(nvl(p_avail_start_date, p_l_low_dt))
29 AND trunc(nvl(end_date_active, p_l_high_dt))
30 = trunc(nvl(p_avail_end_date, p_l_high_dt))
31 AND Service_Available_Flag = p_serv_avail_flag
32 AND Service_Availability_Id <> nvl(p_service_avail_id, '-1');
33 Temp_Check VARCHAR2(1);
34 BEGIN
35 OPEN Check_Exists;
36 FETCH Check_Exists
37 INTO temp_Check;
38 IF Check_Exists%Found THEN
39 p_exists_flag := 'Y';
40 ELSE
41 p_exists_flag := 'N';
42 END IF;
43 CLOSE Check_Exists;
44
45 END Duplicate_Check;
46 END CS_Service_Avail_Pkg;