PACKAGE BODY: APPS.BOM_CSTRELCR_XMLP_PKG

Source

1 PACKAGE BODY BOM_CSTRELCR_XMLP_PKG AS
2 /* $Header: CSTRELCRB.pls 120.0 2007/12/24 09:58:23 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     cursor c1 is
5     SELECT fifst.id_flex_num
6     FROM fnd_id_flex_structures fifst
7     WHERE fifst.application_id = 401
8     AND fifst.id_flex_code = 'MSTK'
9     AND fifst.enabled_flag = 'Y'
10     AND fifst.freeze_flex_definition_flag = 'Y'
11     ORDER BY fifst.id_flex_num;
12 
13 
14   BEGIN
15     /*SRW.MESSAGE(100
16                ,TO_CHAR(SYSDATE
17                       ,'"Before report trigger started   at "Dy Mon DD HH:MI:SS YYYY'))*/NULL;
18     P_EXCHANGE_RATE := FND_NUMBER.CANONICAL_TO_NUMBER(P_EXCHANGE_RATE_CHAR);
19     IF P_VIEW_COST <> 1 THEN
20       FND_MESSAGE.SET_NAME('null'
21                           ,'null');
22       /*SRW.USER_EXIT('FND MESSAGE_DISPLAY')*/NULL;
23       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
24     END IF;
25     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
26     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
27     /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK" SET=":ORG_ID"
28                           APPL_SHORT_NAME="INV" OUTPUT=":P_FLEXDATA_ITEM"
29                           MODE="SELECT"  DISPLAY="ALL"
30                           TABLEALIAS="MSI"')*/NULL;
31     IF P_FROM_ITEM IS NULL AND P_TO_ITEM IS NULL THEN
32       P_WHERE_ITEM := '1 = 1';
33     ELSE
34       NULL;
35     END IF;
36     IF P_FROM_CAT IS NULL AND P_TO_CAT IS NULL THEN
37       P_WHERE_CAT := '1 = 1';
38     ELSE
39       NULL;
40     END IF;
41     IF ZERO_COST_ONLY = 2 THEN
42       WHERE_ZERO := '1 = 1';
43     ELSE
44       WHERE_ZERO := 'nvl(item_cost, 0) = 0';
45     END IF;
46     /*SRW.MESSAGE(100
47                ,TO_CHAR(SYSDATE
48                       ,'"Before report trigger completed at "Dy Mon DD HH:MI:SS YYYY'))*/NULL;
49     open c1;
50     fetch c1 into pid_flex_num;
51     close c1;
52 
53     RETURN (TRUE);
54   END BEFOREREPORT;
55 
56   FUNCTION AFTERREPORT RETURN BOOLEAN IS
57   BEGIN
58     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
59     /*SRW.MESSAGE(100
60                ,TO_CHAR(SYSDATE
61                       ,'"After report trigger completed at "Dy Mon DD HH:MI:SS YYYY'))*/NULL;
62     RETURN (TRUE);
63   END AFTERREPORT;
64 
65   FUNCTION DISP_CURRENCYFORMULA(CURR_CODE_SAVED IN VARCHAR2) RETURN VARCHAR2 IS
66   BEGIN
67     RETURN ('(' || CURR_CODE_SAVED || ')');
68   END DISP_CURRENCYFORMULA;
69 
70   FUNCTION ORDER_FUNC(C_FLEXPAD_ITEM IN VARCHAR2
71                      ,C_FLEXPAD_CAT IN VARCHAR2) RETURN CHARACTER IS
72     TEMP VARCHAR2(2000);
73   BEGIN
74     /*SRW.REFERENCE(C_FLEXPAD_ITEM)*/NULL;
75     /*SRW.REFERENCE(C_FLEXPAD_CAT)*/NULL;
76     IF REPORT_SORT_OPT = 1 THEN
77       TEMP := C_FLEXPAD_ITEM;
78     ELSE
79       TEMP := C_FLEXPAD_CAT;
80     END IF;
81     RETURN (TEMP);
82   END ORDER_FUNC;
83 
84   FUNCTION C_FLEXPAD_ITEMFORMULA(C_FLEXFIELD_ITEM IN VARCHAR2
85                                 ,C_FLEXPAD_ITEM IN VARCHAR2) RETURN VARCHAR2 IS
86   BEGIN
87     /*SRW.REFERENCE(C_FLEXFIELD_ITEM)*/NULL;
88     RETURN (C_FLEXPAD_ITEM);
89   END C_FLEXPAD_ITEMFORMULA;
90 
91   FUNCTION C_FLEXPAD_CATFORMULA(C_FLEXFIELD_CAT IN VARCHAR2
92                                ,C_FLEXPAD_CAT IN VARCHAR2) RETURN VARCHAR2 IS
93   BEGIN
94     /*SRW.REFERENCE(C_FLEXFIELD_CAT)*/NULL;
95     RETURN (C_FLEXPAD_CAT);
96   END C_FLEXPAD_CATFORMULA;
97 
98   FUNCTION AFTERPFORM RETURN BOOLEAN IS
99   BEGIN
100     RETURN (TRUE);
101   END AFTERPFORM;
102 
103 END BOM_CSTRELCR_XMLP_PKG;
104