PACKAGE BODY: APPS.GML_OPM_PO

Source

1 PACKAGE BODY GML_OPM_PO AS
2 /* $Header: GMLOPMPB.pls 120.1 2005/09/30 13:41:18 pbamb noship $ */
3 	FUNCTION CHECK_OPM_PO    (p_po_header_id in 	po_headers_all.po_header_id%TYPE)
4 		RETURN NUMBER IS
5 
6 		v_result	NUMBER;
7 	BEGIN
8 		v_result := 0;
9 		SELECT count(*) into v_result
10 		FROM cpg_oragems_mapping
11 		WHERE po_header_id = p_po_header_id;
12 
13 		IF v_result > 0 THEN
14 			RETURN 1;
15 		ELSE
16 			RETURN 0;
17 		END IF;
18 	END CHECK_OPM_PO;
19 
20 FUNCTION CHECK_OPM_ITEM_BY_ORA_ID
21       ( p_inventory_item_id IN mtl_system_items_b.inventory_item_id%TYPE,
22         p_organization_id IN mtl_system_items_b.organization_id%TYPE
23       ) RETURN NUMBER IS
24 
25    v_item_no	mtl_system_items_b.segment1%TYPE;
26    opmitem      NUMBER;
27 
28    CURSOR item_cur IS
29      SELECT segment1
30      FROM   mtl_system_items_b
31      WHERE  inventory_item_id = p_inventory_item_id AND
32 	    organization_id = p_organization_id;
33 
34 BEGIN
35 
36    opmitem       := 0;
37 
38    OPEN  item_cur;
39    FETCH item_cur into v_item_no;
40    IF item_cur%NOTFOUND THEN
41       CLOSE item_cur;
42       return 0;
43    END IF;
44 
45    IF item_cur%ISOPEN THEN
46         CLOSE item_cur;
47    END IF;
48 
49 
50   opmitem := GMF_OPM_ITEM.check_opm_item (v_item_no);
51 
52   IF opmitem = 1 THEN
53      return 1;
54   ELSE
55      return 0;
56   END IF;
57 
58 END CHECK_OPM_ITEM_BY_ORA_ID;
59 
60 END; /* of package */