[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTRSTSR_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTRSTSR_XMLP_PKG AS
2 /* $Header: CSTRSTSRB.pls 120.2.12020000.2 2012/07/10 06:52:42 vkatakam ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_FCN_CURRENCY VARCHAR2(15);
5 SQL_STMT_NUM VARCHAR2(5);
6 BEGIN
7 SQL_STMT_NUM := '0: ';
8 PV_EXCHANGE_RATE := FND_NUMBER.CANONICAL_TO_NUMBER(P_EXCHANGE_RATE_CHAR);
9 SQL_STMT_NUM := '10: ';
10 IF P_VIEW_COST <> 1 THEN
11 FND_MESSAGE.SET_NAME('null'
12 ,'null');
13 /*SRW.USER_EXIT('FND MESSAGE_DISPLAY')*/NULL;
14 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
15 END IF;
16 SQL_STMT_NUM := '30: ';
17 SELECT
18 OOD.ORGANIZATION_NAME,
19 SOB.CURRENCY_CODE,
20 NVL(FC.MINIMUM_ACCOUNTABLE_UNIT
21 ,POWER(10
22 ,NVL(-FC.PRECISION
23 ,0))),
24 MCS.CATEGORY_SET_NAME,
25 LOOKUP1.MEANING
26 INTO PV_ORGANIZATION_NAME,L_FCN_CURRENCY,PV_ROUND_UNIT,PV_CATEGORY_SET_NAME,PV_SORT_OPTION
27 FROM
28 ORG_ORGANIZATION_DEFINITIONS OOD,
29 GL_SETS_OF_BOOKS SOB,
30 FND_CURRENCIES FC,
31 MTL_CATEGORY_SETS MCS,
32 MFG_LOOKUPS LOOKUP1
33 WHERE OOD.ORGANIZATION_ID = P_ORG_ID
34 AND SOB.SET_OF_BOOKS_ID = OOD.SET_OF_BOOKS_ID
35 AND FC.CURRENCY_CODE = P_CURRENCY_CODE
36 AND MCS.CATEGORY_SET_ID = P_CATEGORY_SET
37 AND LOOKUP1.LOOKUP_TYPE = 'CST_ITEM_REPORT_SORT'
38 AND LOOKUP1.LOOKUP_CODE = P_SORT_OPTION;
39 SQL_STMT_NUM := '50: ';
40 IF L_FCN_CURRENCY = P_CURRENCY_CODE THEN
41 PV_CURRENCY_CODE := P_CURRENCY_CODE;
42 ELSE
43 PV_CURRENCY_CODE := P_CURRENCY_CODE || ' @ ' || TO_CHAR(ROUND(1 / PV_EXCHANGE_RATE
44 ,5)) || ' ' || L_FCN_CURRENCY;
45 END IF;
46 SQL_STMT_NUM := '60: ';
47 BEGIN
48 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
49 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
50 EXCEPTION
51 WHEN OTHERS THEN
52 /*SRW.MESSAGE(999
53 ,'FND SRWINIT >X')*/NULL;
54 RAISE;
55 END;
56 SQL_STMT_NUM := '70: ';
57 BEGIN
58 NULL;
59 EXCEPTION
60 WHEN OTHERS THEN
61 /*SRW.MESSAGE(999
62 ,'FND FLEXSQL(MCAT) >X')*/NULL;
63 RAISE;
64 END;
65 SQL_STMT_NUM := '80: ';
66 BEGIN
67 NULL;
68 EXCEPTION
69 WHEN OTHERS THEN
70 /*SRW.MESSAGE(999
71 ,'FND FLEXSQL(MSTK) >X')*/NULL;
72 RAISE;
73 END;
74 SQL_STMT_NUM := '90: ';
75 /*SRW.MESSAGE(0
76 ,'BOM_CSTRSTSR_XMLP_PKG << ' || TO_CHAR(SYSDATE
77 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
78 RETURN (TRUE);
79 EXCEPTION
80 WHEN OTHERS THEN
81 /*SRW.MESSAGE(999
82 ,SQL_STMT_NUM || SQLERRM)*/NULL;
83 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
84 END BEFOREREPORT;
85
86 FUNCTION AFTERREPORT RETURN BOOLEAN IS
87 BEGIN
88 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
89 /*SRW.MESSAGE(0
90 ,'BOM_CSTRSTSR_XMLP_PKG >> ' || TO_CHAR(SYSDATE
91 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
92 RETURN (TRUE);
93 END AFTERREPORT;
94
95 FUNCTION ITEM_PSEGFORMULA(ITEM_NUMBER IN VARCHAR2
96 ,ITEM_SEGMENT IN VARCHAR2
97 ,ITEM_PSEG IN VARCHAR2) RETURN CHAR IS
98 BEGIN
99 /*SRW.REFERENCE(ITEM_NUMBER)*/NULL;
100 /*SRW.REFERENCE(ITEM_SEGMENT)*/NULL;
101 RETURN (ITEM_PSEG);
102 END ITEM_PSEGFORMULA;
103
104 FUNCTION CATEGORY_PSEGFORMULA(CATEGORY IN VARCHAR2
105 ,CATEGORY_SEGMENT IN VARCHAR2
106 ,CATEGORY_PSEG IN VARCHAR2) RETURN CHAR IS
107 BEGIN
108 /*SRW.REFERENCE(CATEGORY)*/NULL;
109 /*SRW.REFERENCE(CATEGORY_SEGMENT)*/NULL;
110 RETURN (CATEGORY_PSEG);
111 END CATEGORY_PSEGFORMULA;
112
113 FUNCTION C_ORDERFORMULA(ITEM_NUMBER IN VARCHAR2
114 ,ITEM_SEGMENT IN VARCHAR2
115 ,ITEM_PSEG IN VARCHAR2
116 ,CATEGORY IN VARCHAR2
117 ,CATEGORY_SEGMENT IN VARCHAR2
118 ,CATEGORY_PSEG IN VARCHAR2) RETURN CHAR IS
119 BEGIN
120 /*SRW.REFERENCE(ITEM_NUMBER)*/NULL;
121 /*SRW.REFERENCE(ITEM_SEGMENT)*/NULL;
122 /*SRW.REFERENCE(ITEM_PSEG)*/NULL;
123 /*SRW.REFERENCE(CATEGORY)*/NULL;
124 /*SRW.REFERENCE(CATEGORY_SEGMENT)*/NULL;
125 /*SRW.REFERENCE(CATEGORY_PSEG)*/NULL;
126 IF P_SORT_OPTION = 1 THEN
127 RETURN (NULL);
128 ELSE
129 RETURN (CATEGORY_PSEG);
130 END IF;
131 END C_ORDERFORMULA;
132
133 FUNCTION AFTERPFORM RETURN BOOLEAN IS
134 BEGIN
135 IF (P_DATE_TO IS NOT NULL) THEN
136 P_DATE_TO_1 := TO_CHAR(TO_DATE(P_DATE_TO,'YYYY/MM/DD HH24:MI:SS'),'YYYY/MM/DD') || ' 23:59:59';
137 END IF;
138 BEGIN
139 IF P_DATE_FROM IS NOT NULL AND P_DATE_TO IS NOT NULL THEN
140 P_DATE_RANGE := 'and (mmt.transaction_date) between ' || 'to_date(''' || P_DATE_FROM || ''',' || '''YYYY/MM/DD HH24:MI:SS''' || ')' || ' and ' || 'to_date(''' || P_DATE_TO_1 || ''',' || '''YYYY/MM/DD HH24:MI:SS''' || ')';
141 ELSIF P_DATE_FROM IS NOT NULL AND P_DATE_TO IS NULL THEN
142 P_DATE_RANGE := 'and (mmt.transaction_date) >= ' || 'to_date(''' || P_DATE_FROM || ''',' || '''YYYY/MM/DD HH24:MI:SS''' || ')';
143 ELSIF P_DATE_FROM IS NULL AND P_DATE_TO IS NOT NULL THEN
144 P_DATE_RANGE := 'and (mmt.transaction_date) <= ' || 'to_date(''' || P_DATE_TO_1 || ''',' || '''YYYY/MM/DD HH24:MI:SS''' || ')';
145 ELSE
146 P_DATE_RANGE := ' ';
147 END IF;
148 END;
149 RETURN (TRUE);
150 END AFTERPFORM;
151
152 END BOM_CSTRSTSR_XMLP_PKG;
153