1 PACKAGE BODY BOM_CSTRPWRO_XMLP_PKG AS
2 /* $Header: CSTRPWROB.pls 120.1 2008/01/02 15:04:57 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 qty_precision:=bom_common_xmlp_pkg.get_precision(P_qty_precision);
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 IF (GET_CHART_OF_ACCOUNTS_ID <> TRUE) THEN
10 /*SRW.MESSAGE('2'
11 ,'Init failed')*/NULL;
12 END IF;
13 SELECT
14 NAME
15 INTO LEGAL_ENTITY_NAME
16 FROM
17 XLE_FIRSTPARTY_INFORMATION_V
18 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY;
19 SELECT
20 COST_TYPE
21 INTO COST_TYPE_NAME
22 FROM
23 CST_COST_TYPES
24 WHERE COST_TYPE_ID = P_COST_TYPE;
25 SELECT
26 COST_GROUP
27 INTO COST_GROUP_NAME
28 FROM
29 CST_COST_GROUPS
30 WHERE COST_GROUP_ID = P_COST_GROUP
31 AND LEGAL_ENTITY = P_LEGAL_ENTITY;
32 SELECT
33 PERIOD_NAME
34 INTO PERIOD_NAME
35 FROM
36 CST_PAC_PERIODS
37 WHERE PAC_PERIOD_ID = P_PERIOD_ID
38 AND COST_TYPE_ID = P_COST_TYPE
39 AND LEGAL_ENTITY = P_LEGAL_ENTITY;
40 SELECT
41 FND_DATE.DATE_TO_CANONICAL(PERIOD_START_DATE),
42 FND_DATE.DATE_TO_CANONICAL(PERIOD_END_DATE),
43 TO_CHAR(PERIOD_START_DATE
44 ,'DD-MON-RRRR'),
45 TO_CHAR(PERIOD_END_DATE
46 ,'DD-MON-RRRR')
47 INTO P_WRITE_OFF_DATE_FROM,P_WRITE_OFF_DATE_TO,FROM_DATE,TO_DATE
48 FROM
49 CST_PAC_PERIODS CPP
50 WHERE CPP.PAC_PERIOD_ID = P_PERIOD_ID
51 AND CPP.LEGAL_ENTITY = P_LEGAL_ENTITY
52 AND CPP.COST_TYPE_ID = P_COST_TYPE;
53 RETURN TRUE;
54 END;
55 RETURN (TRUE);
56 END BEFOREREPORT;
57
58 FUNCTION AFTERREPORT RETURN BOOLEAN IS
59 BEGIN
60 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
61 RETURN (TRUE);
62 END AFTERREPORT;
63
64 FUNCTION GET_CHART_OF_ACCOUNTS_ID RETURN BOOLEAN IS
65 L_CHART_OF_ACCOUNTS_ID NUMBER;
66 BEGIN
67 SELECT
68 GSOB.CHART_OF_ACCOUNTS_ID
69 INTO L_CHART_OF_ACCOUNTS_ID
70 FROM
71 GL_SETS_OF_BOOKS GSOB,
72 FINANCIALS_SYSTEM_PARAMETERS FSP
73 WHERE FSP.SET_OF_BOOKS_ID = GSOB.SET_OF_BOOKS_ID;
74 P_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
75 RETURN (TRUE);
76 RETURN NULL;
77 EXCEPTION
78 WHEN OTHERS THEN
79 RETURN (FALSE);
80 END GET_CHART_OF_ACCOUNTS_ID;
81
82 FUNCTION C_YESY_NO_DISPFORMULA(C_YES IN VARCHAR2
83 ,C_NO IN VARCHAR2) RETURN VARCHAR2 IS
84 BEGIN
85 /*SRW.REFERENCE(C_YES)*/NULL;
86 /*SRW.REFERENCE(C_NO)*/NULL;
87 IF P_PRINT_COMMENTS = 'Y' THEN
88 RETURN C_YES;
89 ELSE
90 RETURN C_NO;
91 END IF;
92 RETURN NULL;
93 END C_YESY_NO_DISPFORMULA;
94
95 /* PROCEDURE GET_PRECISION IS
96 BEGIN
97 SRW.ATTR.MASK := SRW.FORMATMASK_ATTR;
98 IF P_QTY_PRECISION = 0 THEN
99 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0';
100 ELSE
101 IF P_QTY_PRECISION = 1 THEN
102 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.0';
103 ELSE
104 IF P_QTY_PRECISION = 3 THEN
105 SRW.ATTR.FORMATMASK := '-NN,NNN,NNN,NN0.000';
106 ELSE
107 IF P_QTY_PRECISION = 4 THEN
108 SRW.ATTR.FORMATMASK := '-N,NNN,NNN,NN0.0000';
109 ELSE
110 IF P_QTY_PRECISION = 5 THEN
111 SRW.ATTR.FORMATMASK := '-NNN,NNN,NN0.00000';
112 ELSE
113 IF P_QTY_PRECISION = 6 THEN
114 SRW.ATTR.FORMATMASK := '-NN,NNN,NN0.000000';
115 ELSE
116 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.00';
117 END IF;
118 END IF;
119 END IF;
120 END IF;
121 END IF;
122 END IF;
123 SRW.SET_ATTR(0
124 ,SRW.ATTR);
125 END GET_PRECISION;*/
126
127 FUNCTION C_FLEX_ACC_SORTFORMULA(C_FLEX_ACC IN VARCHAR2
128 ,C_FLEX_ACC_DISP IN VARCHAR2
129 ,C_FLEX_ACC_SORT IN VARCHAR2) RETURN VARCHAR2 IS
130 BEGIN
131 /*SRW.REFERENCE(C_FLEX_ACC)*/NULL;
132 /*SRW.REFERENCE(C_FLEX_ACC_DISP)*/NULL;
133 RETURN (C_FLEX_ACC_SORT);
134 END C_FLEX_ACC_SORTFORMULA;
135
136 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
137 BEGIN
138 RETURN (TRUE);
139 END BEFOREPFORM;
140
141 FUNCTION AFTERPFORM RETURN BOOLEAN IS
142 BEGIN
143 RETURN (TRUE);
144 END AFTERPFORM;
145
146 FUNCTION LEGAL_ENTITY_NAME_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN LEGAL_ENTITY_NAME;
149 END LEGAL_ENTITY_NAME_P;
150
151 FUNCTION COST_GROUP_NAME_P RETURN VARCHAR2 IS
152 BEGIN
153 RETURN COST_GROUP_NAME;
154 END COST_GROUP_NAME_P;
155
156 FUNCTION COST_TYPE_NAME_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN COST_TYPE_NAME;
159 END COST_TYPE_NAME_P;
160
161 FUNCTION PERIOD_NAME_P RETURN VARCHAR2 IS
162 BEGIN
163 RETURN PERIOD_NAME;
164 END PERIOD_NAME_P;
165
166 FUNCTION FROM_DATE_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN FROM_DATE;
169 END FROM_DATE_P;
170
171 FUNCTION TO_DATE_P RETURN VARCHAR2 IS
172 BEGIN
173 RETURN TO_DATE;
174 END TO_DATE_P;
175
176 END BOM_CSTRPWRO_XMLP_PKG;
177