1 PACKAGE BODY ENG_ENGRCNSR_XMLP_PKG AS
2 /* $Header: ENGRCNSRB.pls 120.1 2008/01/08 12:38:44 dwkrishn noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 IF (P_DELETE_CODE = 1 AND ECN_FROM IS NOT NULL AND ECN_FROM = ECN_TO) THEN
7 BOM_DELETE_ECO(ECN_FROM
8 ,ORG_ID);
9 COMMIT;
10 END IF;
11 END;
12 RETURN (TRUE);
13 END AFTERREPORT;
14
15 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
16 C_DATE_FORMAT varchar2(20);
17 BEGIN
18 C_DATE_FORMAT := 'DD-MON-YY';
19 C_DATE_FROM := to_Char(DATE_FROM ,C_DATE_FORMAT);
20 C_DATE_TO := to_Char(DATE_TO ,C_DATE_FORMAT);
21 RETURN (TRUE);
22 END BEFOREREPORT;
23
24 FUNCTION ONHAND_QTYFORMULA(COMPONENT_ITEM_ID IN NUMBER) RETURN NUMBER IS
25 BEGIN
26 DECLARE
27 X_ONHANDQTY NUMBER;
28 CURSOR COMPUTE_ONHAND IS
29 SELECT
30 NVL(SUM(Q.TRANSACTION_QUANTITY)
31 ,0) TOTALQTY
32 FROM
33 MTL_ONHAND_QUANTITIES Q
34 WHERE Q.ORGANIZATION_ID = ORG_ID
35 AND Q.INVENTORY_ITEM_ID = COMPONENT_ITEM_ID;
36 BEGIN
37 FOR X_OnHand IN COMPUTE_ONHAND LOOP
38 X_ONHANDQTY := X_ONHAND.TOTALQTY;
39 END LOOP;
40 RETURN (X_ONHANDQTY);
41 END;
42 RETURN NULL;
43 END ONHAND_QTYFORMULA;
44
45 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
46 BEGIN
47 RETURN (TRUE);
48 END BETWEENPAGE;
49
50 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
51 BEGIN
52 RETURN (TRUE);
53 END BEFOREPFORM;
54
55 FUNCTION AFTERPFORM RETURN BOOLEAN IS
56 BEGIN
57 RETURN (TRUE);
58 END AFTERPFORM;
59
60 PROCEDURE BOM_DELETE_ECO(P_CHANGE_NOTICE IN VARCHAR2
61 ,P_ORGANIZATION_ID IN NUMBER) IS
62 BEGIN
63 /*STPROC.INIT('begin BOMPECOD.BOM_DELETE_ECO(:P_CHANGE_NOTICE, :P_ORGANIZATION_ID); end;');
64 STPROC.BIND_I(P_CHANGE_NOTICE);
65 STPROC.BIND_I(P_ORGANIZATION_ID);
66 STPROC.EXECUTE;*/
67 null;
68 END BOM_DELETE_ECO;
69
70 END ENG_ENGRCNSR_XMLP_PKG;
71