PACKAGE BODY: APPS.BOM_CSTRIVTI_XMLP_PKG

Source

1 PACKAGE BODY BOM_CSTRIVTI_XMLP_PKG AS
2 /* $Header: CSTRIVTIB.pls 120.0 2007/12/24 10:03:54 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       L_FCN_CURRENCY VARCHAR2(15);
7     BEGIN
8       SELECT
9         SOB.CURRENCY_CODE
10       INTO L_FCN_CURRENCY
11       FROM
12         GL_SETS_OF_BOOKS SOB,
13         ORG_ORGANIZATION_DEFINITIONS OOD
14       WHERE OOD.ORGANIZATION_ID = P_ORG_ID
15         AND SOB.SET_OF_BOOKS_ID = OOD.SET_OF_BOOKS_ID;
16       P_CURRENCY_CODE := L_FCN_CURRENCY;
17       SELECT
18         O.ORGANIZATION_NAME,
19         NVL(MINIMUM_ACCOUNTABLE_UNIT
20            ,POWER(10
21                 ,NVL(-PRECISION
22                    ,0)))
23       INTO CP_ORG_NAME,ROUND_UNIT
24       FROM
25         ORG_ORGANIZATION_DEFINITIONS O,
26         FND_CURRENCIES FC
27       WHERE FC.CURRENCY_CODE = P_CURRENCY_CODE
28         AND O.ORGANIZATION_ID = P_ORG_ID;
29     END;
30     BEGIN
31       IF P_VIEW_COST <> 1 THEN
32         FND_MESSAGE.SET_NAME('null'
33                             ,'null');
34         /*SRW.USER_EXIT('FND MESSAGE_DISPLAY')*/NULL;
35         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
36       END IF;
37     END;
38     BEGIN
39       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
40       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
41     EXCEPTION
42       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
43         /*SRW.MESSAGE(1
44                    ,'Failed in SRWINIT')*/NULL;
45         RAISE;
46     END;
47     BEGIN
48       NULL;
49     EXCEPTION
50       WHEN OTHERS THEN
51         /*SRW.MESSAGE(999
52                    ,'FND FLEXSQL(GL#) >X')*/NULL;
53         RAISE;
54     END;
55     BEGIN
56       NULL;
57     EXCEPTION
58       WHEN OTHERS THEN
59         /*SRW.MESSAGE(999
60                    ,'FND FLEXSQL(MSTK) >X')*/NULL;
61         RAISE;
62     END;
63     RETURN (TRUE);
64   END BEFOREREPORT;
65 
66   FUNCTION AFTERREPORT RETURN BOOLEAN IS
67   BEGIN
68     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
69     RETURN (TRUE);
70   END AFTERREPORT;
71 
72   FUNCTION ITEM_PSEGFORMULA(ITEM_SEGMENT IN VARCHAR2
73                            ,ITEM_NAME IN VARCHAR2
74                            ,ITEM_PSEG IN VARCHAR2) RETURN VARCHAR2 IS
75   BEGIN
76     /*SRW.REFERENCE(ITEM_SEGMENT)*/NULL;
77     /*SRW.REFERENCE(ITEM_NAME)*/NULL;
78     RETURN (ITEM_PSEG);
79   END ITEM_PSEGFORMULA;
80 
81   FUNCTION CP_ORG_NAME_P RETURN VARCHAR2 IS
82   BEGIN
83     RETURN CP_ORG_NAME;
84   END CP_ORG_NAME_P;
85 
86 END BOM_CSTRIVTI_XMLP_PKG;
87