PACKAGE BODY: APPS.BOM_CSTRDICR_XMLP_PKG

Source

1 PACKAGE BODY BOM_CSTRDICR_XMLP_PKG AS
2 /* $Header: CSTRDICRB.pls 120.0 2007/12/24 09:54:33 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   L_NUM number;
5   BEGIN
6     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7     BEGIN
8         SELECT fifst.id_flex_num
9         into L_NUM
10         FROM fnd_id_flex_structures fifst
11         WHERE fifst.application_id = 401
12           AND fifst.id_flex_code = 'MSTK'
13           AND fifst.enabled_flag = 'Y'
14           AND fifst.freeze_flex_definition_flag = 'Y'
15           AND rownum =1
16           ORDER BY fifst.id_flex_num;
17         L_ITEM_FLEX_NUM := L_NUM;
18     END;
19     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
20     /*SRW.MESSAGE(100
21                ,TO_CHAR(SYSDATE
22                       ,'"Before report trigger started   at "Dy Mon DD HH:MI:SS YYYY'))*/NULL;
23     IF P_VIEW_COST <> 1 THEN
24       FND_MESSAGE.SET_NAME('null'
25                           ,'null');
26       /*SRW.USER_EXIT('FND MESSAGE_DISPLAY')*/NULL;
27       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
28     END IF;
29     IF P_FROM_ITEM IS NULL AND P_TO_ITEM IS NULL THEN
30       P_WHERE_ITEM := '1 = 1';
31     ELSE
32       NULL;
33     END IF;
34     IF P_FROM_CAT IS NULL AND P_TO_CAT IS NULL THEN
35       P_WHERE_CAT := '1 = 1';
36     ELSE
37       NULL;
38     END IF;
39     /*SRW.MESSAGE(100
40                ,TO_CHAR(SYSDATE
41                       ,'"Before report trigger completed at "Dy Mon DD HH:MI:SS YYYY'))*/NULL;
42     FORMAT_MASK := BOM_common_xmlp_pkg.get_precision(P_QTY_PRECISION);
43     RETURN (TRUE);
44   END BEFOREREPORT;
45   FUNCTION AFTERREPORT RETURN BOOLEAN IS
46   BEGIN
47     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
48     /*SRW.MESSAGE(100
49                ,TO_CHAR(SYSDATE
50                       ,'"After report trigger completed at "Dy Mon DD HH:MI:SS YYYY'))*/NULL;
51     RETURN (TRUE);
52   END AFTERREPORT;
53   FUNCTION DISP_CURRENCYFORMULA(CURR_CODE_SAVED IN VARCHAR2) RETURN VARCHAR2 IS
54   BEGIN
55     RETURN ('(' || CURR_CODE_SAVED || ')');
56   END DISP_CURRENCYFORMULA;
57   FUNCTION ORDER_FUNC(C_FLEXPAD_ITEM IN VARCHAR2
58                      ,C_FLEXPAD_CAT IN VARCHAR2
59                      ,UOM IN VARCHAR2) RETURN CHARACTER IS
60     TEMP VARCHAR2(2000);
61   BEGIN
62     /*SRW.REFERENCE(C_FLEXPAD_ITEM)*/NULL;
63     /*SRW.REFERENCE(C_FLEXPAD_CAT)*/NULL;
64     /*SRW.REFERENCE(UOM)*/NULL;
65     IF REPORT_SORT_OPT = 1 THEN
66       TEMP := C_FLEXPAD_ITEM || C_FLEXPAD_CAT || RPAD(UOM
67                   ,3);
68     ELSE
69       TEMP := C_FLEXPAD_CAT || C_FLEXPAD_ITEM || RPAD(UOM
70                   ,3);
71     END IF;
72     RETURN (TEMP);
73   END ORDER_FUNC;
74   FUNCTION C_FLEXPAD_ITEMFORMULA(C_ITEM_NUM_FLEX IN VARCHAR2
75                                 ,C_FLEXPAD_ITEM IN VARCHAR2) RETURN VARCHAR2 IS
76   BEGIN
77     /*SRW.REFERENCE(C_ITEM_NUM_FLEX)*/NULL;
78     RETURN (C_FLEXPAD_ITEM);
79   END C_FLEXPAD_ITEMFORMULA;
80   FUNCTION C_FLEXPAD_CATFORMULA(C_CAT_FLEX IN VARCHAR2
81                                ,C_FLEXPAD_CAT IN VARCHAR2) RETURN VARCHAR2 IS
82   BEGIN
83     /*SRW.REFERENCE(C_CAT_FLEX)*/NULL;
84     RETURN (C_FLEXPAD_CAT);
85   END C_FLEXPAD_CATFORMULA;
86   FUNCTION AFTERPFORM RETURN BOOLEAN IS
87   BEGIN
88     RETURN (TRUE);
89   END AFTERPFORM;
90 END BOM_CSTRDICR_XMLP_PKG;
91