[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTRISLR_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTRISLR_XMLP_PKG AS
2 /* $Header: CSTRISLRB.pls 120.0 2007/12/24 10:02:09 dwkrishn noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 /*SRW.MESSAGE(1
7 ,'BOM_CSTRISLR_XMLP_PKG >> ' || TO_CHAR(SYSDATE
8 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
9 RETURN (TRUE);
10 END AFTERREPORT;
11
12 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
13 BEGIN
14 DECLARE
15 L_FCN_CURRENCY VARCHAR2(15);
16 INVALID_OPTION EXCEPTION;
17 BEGIN
18 BEGIN
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 LP_QTY_PRECISION := BOM_common_xmlp_pkg.get_precision(P_QTY_PRECISION);
21 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
22 EXCEPTION
23 WHEN OTHERS THEN
24 /*SRW.MESSAGE(999
25 ,'FND SRWINIT >X')*/NULL;
26 RAISE;
27 END;
28 P_EXCHANGE_RATE := FND_NUMBER.CANONICAL_TO_NUMBER(P_EXCHANGE_RATE_CHAR);
29 SELECT
30 O.ORGANIZATION_NAME,
31 NVL(EXTENDED_PRECISION
32 ,PRECISION),
33 NVL(MINIMUM_ACCOUNTABLE_UNIT
34 ,POWER(10
35 ,NVL(-PRECISION
36 ,0))),
37 MCS.CATEGORY_SET_NAME
38 INTO P_ORGANIZATION,P_EXT_PREC,ROUND_UNIT,P_CAT_SET_NAME
39 FROM
40 ORG_ORGANIZATION_DEFINITIONS O,
41 FND_CURRENCIES FC,
42 MTL_CATEGORY_SETS MCS
43 WHERE FC.CURRENCY_CODE = P_CURRENCY_CODE
44 AND O.ORGANIZATION_ID = P_ORG_ID
45 AND MCS.CATEGORY_SET_ID = P_CATEGORY_SET;
46 SELECT
47 SOB.CURRENCY_CODE
48 INTO L_FCN_CURRENCY
49 FROM
50 GL_SETS_OF_BOOKS SOB,
51 ORG_ORGANIZATION_DEFINITIONS OOD
52 WHERE OOD.ORGANIZATION_ID = P_ORG_ID
53 AND SOB.SET_OF_BOOKS_ID = OOD.SET_OF_BOOKS_ID;
54 IF L_FCN_CURRENCY = P_CURRENCY_CODE THEN
55 P_CURRENCY_DSP := P_CURRENCY_CODE;
56 ELSE
57 P_CURRENCY_DSP := P_CURRENCY_CODE || ' @ ' || TO_CHAR(ROUND(1 / P_EXCHANGE_RATE
58 ,5)) || L_FCN_CURRENCY;
59 END IF;
60 BEGIN
61 NULL;
62 EXCEPTION
63 WHEN OTHERS THEN
64 /*SRW.MESSAGE(999
65 ,'FND FLEXSQL(MCAT) >X')*/NULL;
66 RAISE;
67 END;
68 BEGIN
69 NULL;
70 EXCEPTION
71 WHEN OTHERS THEN
72 /*SRW.MESSAGE(999
73 ,'FND FLEXSQL(MSTK) >X')*/NULL;
74 RAISE;
75 END;
76 BEGIN
77 NULL;
78 EXCEPTION
79 WHEN OTHERS THEN
80 /*SRW.MESSAGE(999
81 ,'FND FLEXSQL(MTLL) >X')*/NULL;
82 RAISE;
83 END;
84 /*SRW.MESSAGE(0
85 ,'BOM_CSTRISLR_XMLP_PKG << ' || TO_CHAR(SYSDATE
86 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
87 EXCEPTION
88 WHEN INVALID_OPTION THEN
89 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
90 WHEN OTHERS THEN
91 /*SRW.MESSAGE(999
92 ,SQLERRM)*/NULL;
93 /*SRW.MESSAGE(999
94 ,'BOM_CSTRISLR_XMLP_PKG >X ' || TO_CHAR(SYSDATE
95 ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
96 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
97 END;
98 RETURN (TRUE);
99 END BEFOREREPORT;
100
101 FUNCTION AC_ITEM_PSEGFORMULA(AC_ITEM IN VARCHAR2
102 ,AC_ITEM_SEGMENT IN VARCHAR2
103 ,AC_ITEM_PSEG IN VARCHAR2) RETURN VARCHAR2 IS
104 BEGIN
105 /*SRW.REFERENCE(AC_ITEM)*/NULL;
106 /*SRW.REFERENCE(AC_ITEM_SEGMENT)*/NULL;
107 RETURN (AC_ITEM_PSEG);
108 END AC_ITEM_PSEGFORMULA;
109
110 FUNCTION AC_CAT_PSEGFORMULA(AC_CATEGORY IN VARCHAR2
111 ,AC_CATEGORY_SEGMENT IN VARCHAR2
112 ,AC_CAT_PSEG IN VARCHAR2) RETURN VARCHAR2 IS
113 BEGIN
114 /*SRW.REFERENCE(AC_CATEGORY)*/NULL;
115 /*SRW.REFERENCE(AC_CATEGORY_SEGMENT)*/NULL;
116 RETURN (AC_CAT_PSEG);
117 END AC_CAT_PSEGFORMULA;
118
119 FUNCTION AC_LOC_PSEGFORMULA(AC_LOC IN VARCHAR2
120 ,AC_LOC_SEGMENT IN VARCHAR2
121 ,AC_LOC_PSEG IN VARCHAR2) RETURN VARCHAR2 IS
122 BEGIN
123 /*SRW.REFERENCE(AC_LOC)*/NULL;
124 /*SRW.REFERENCE(AC_LOC_SEGMENT)*/NULL;
125 RETURN (AC_LOC_PSEG);
126 END AC_LOC_PSEGFORMULA;
127
128 FUNCTION AC_I_ROWCOUNTFORMULA(AC_I_QUANTITY IN NUMBER) RETURN NUMBER IS
129 BEGIN
130 IF P_ZERO_QTY = 1 AND P_NEG_QTY = 1 AND AC_I_QUANTITY <= 0 THEN
131 RETURN (1);
132 ELSIF P_ZERO_QTY = 1 AND P_NEG_QTY = 2 THEN
133 RETURN (1);
134 ELSIF P_ZERO_QTY = 2 AND P_NEG_QTY = 1 AND AC_I_QUANTITY < 0 THEN
135 RETURN (1);
136 ELSIF P_ZERO_QTY = 2 AND P_NEG_QTY = 2 AND AC_I_QUANTITY <> 0 THEN
137 RETURN (1);
138 ELSE
139 RETURN (0);
140 END IF;
141 RETURN NULL;
142 END AC_I_ROWCOUNTFORMULA;
143
144 END BOM_CSTRISLR_XMLP_PKG;
145