[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTRPACQ_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTRPACQ_XMLP_PKG AS
2 /* $Header: CSTRPACQB.pls 120.1 2008/01/07 05:32:00 nchinnam noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7
8 SELECT fifst.id_flex_num
9
10 into p_item_flex_num
11
12 FROM fnd_id_flex_structures fifst
13
14 WHERE fifst.application_id = 401
15
16 AND fifst.id_flex_code = 'MSTK'
17
18 AND fifst.enabled_flag = 'Y'
19
20 AND fifst.freeze_flex_definition_flag = 'Y'
21
22 and rownum<2;
23
24 QTY_PRECISION:= bom_common_xmlp_pkg.get_precision(p_quantity_precision);
25 SELECT
26 XFI.NAME,
27 GLL.CURRENCY_CODE
28 INTO H_LEGAL_ENTITY,H_CURRENCY
29 FROM
30 XLE_FIRSTPARTY_INFORMATION_V XFI,
31 GL_LEDGER_LE_V GLL
32 WHERE XFI.LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID
33 AND GLL.LEGAL_ENTITY_ID = XFI.LEGAL_ENTITY_ID
34 AND GLL.LEDGER_CATEGORY_CODE = 'PRIMARY'
35 AND GLL.RELATIONSHIP_ENABLED_FLAG = 'Y';
36 SELECT
37 COST_GROUP
38 INTO H_COST_GROUP
39 FROM
40 CST_COST_GROUPS
41 WHERE COST_GROUP_ID = P_COST_GROUP_ID;
42 SELECT
43 COST_TYPE
44 INTO H_COST_TYPE
45 FROM
46 CST_COST_TYPES
47 WHERE COST_TYPE_ID = P_COST_TYPE_ID;
48 SELECT
49 PERIOD_NAME
50 INTO H_PERIOD
51 FROM
52 CST_PAC_PERIODS
53 WHERE PAC_PERIOD_ID = P_PERIOD_ID;
54 IF (P_ITEM_CODE_FROM IS NOT NULL OR P_ITEM_CODE_TO IS NOT NULL) THEN
55 H_REPORT_SUBTITLE := PTXT_ITEM_PROMPT || ' ' || P_ITEM_CODE_FROM || ' / ' || P_ITEM_CODE_TO || ' ' || '(' || H_CURRENCY || ')';
56 ELSE
57 H_REPORT_SUBTITLE := '(' || H_CURRENCY || ')';
58 END IF;
59 P_ALL_RECEIPTS:=nvl(P_ALL_RECEIPTS,1);
60 SELECT
61 MEANING
62 INTO H_OPTION_FIELD
63 FROM
64 MFG_LOOKUPS
65 WHERE LOOKUP_TYPE = 'CST_ACQ_REPORT_OPTION'
66 AND LOOKUP_CODE = P_ALL_RECEIPTS;
67 IF (P_ALL_RECEIPTS = 1) THEN
68 PLEX_OPTION_WHERE := '1 = 1';
69 ELSE
70 PLEX_OPTION_WHERE := 'crac.quantity_at_po_price <> 0';
71 END IF;
72 SELECT
73 EXTENDED_PRECISION,
74 NVL(MINIMUM_ACCOUNTABLE_UNIT
75 ,POWER(10
76 ,NVL(-PRECISION
77 ,0)))
78 INTO P_EXT_PRECISION,P_PRECISION
79 FROM
80 FND_CURRENCIES
81 WHERE CURRENCY_CODE = H_CURRENCY;
82 RETURN TRUE;
83 END BEFOREREPORT;
84
85 FUNCTION AFTERREPORT RETURN BOOLEAN IS
86 BEGIN
87 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
88 RETURN (TRUE);
89 END AFTERREPORT;
90
91 PROCEDURE FORMAT_QUANTITY(P_PRECISION IN NUMBER) IS
92 BEGIN
93 /*SRW.ATTR.MASK := SRW.FORMATMASK_ATTR;
94 IF P_PRECISION = 0 THEN
95 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0';
96 ELSIF P_PRECISION = 1 THEN
97 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.0';
98 ELSIF P_PRECISION = 3 THEN
99 SRW.ATTR.FORMATMASK := '-NN,NNN,NNN,NN0.000';
100 ELSIF P_PRECISION = 4 THEN
101 SRW.ATTR.FORMATMASK := '-N,NNN,NNN,NN0.0000';
102 ELSIF P_PRECISION = 5 THEN
103 SRW.ATTR.FORMATMASK := '-NNN,NNN,NN0.00000';
104 ELSIF P_PRECISION = 6 THEN
105 SRW.ATTR.FORMATMASK := '-NN,NNN,NN0.000000';
106 ELSIF P_PRECISION = 7 THEN
107 SRW.ATTR.FORMATMASK := '-NNNNNNNNNNN0';
108 ELSIF P_PRECISION = 8 THEN
109 SRW.ATTR.FORMATMASK := '-NNNNNNNNNNN0.0';
110 ELSIF P_PRECISION = 9 THEN
111 SRW.ATTR.FORMATMASK := '-NNNNNNNNNN0.00';
112 ELSIF P_PRECISION = 10 THEN
113 SRW.ATTR.FORMATMASK := '-NNNNNNNNNN0.000';
114 ELSIF P_PRECISION = 11 THEN
115 SRW.ATTR.FORMATMASK := '-NNNNNNNNN0.0000';
116 ELSIF P_PRECISION = 12 THEN
117 SRW.ATTR.FORMATMASK := '-NNNNNNNN0.00000';
118 ELSIF P_PRECISION = 13 THEN
119 SRW.ATTR.FORMATMASK := '-NNNNNNN0.000000';
120 ELSE
121 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.00';
122 END IF;*/
123 /*SRW.SET_ATTR(0
124 ,SRW.ATTR)*/NULL;
125 END FORMAT_QUANTITY;
126
127 FUNCTION H_LEGAL_ENTITY_P RETURN VARCHAR2 IS
128 BEGIN
129 RETURN H_LEGAL_ENTITY;
130 END H_LEGAL_ENTITY_P;
131
132 FUNCTION H_COST_GROUP_P RETURN VARCHAR2 IS
133 BEGIN
134 RETURN H_COST_GROUP;
135 END H_COST_GROUP_P;
136
137 FUNCTION H_COST_TYPE_P RETURN VARCHAR2 IS
138 BEGIN
139 RETURN H_COST_TYPE;
140 END H_COST_TYPE_P;
141
142 FUNCTION H_PERIOD_P RETURN VARCHAR2 IS
143 BEGIN
144 RETURN H_PERIOD;
145 END H_PERIOD_P;
146
147 FUNCTION H_CURRENCY_P RETURN VARCHAR2 IS
148 BEGIN
149 RETURN H_CURRENCY;
150 END H_CURRENCY_P;
151
152 FUNCTION H_REPORT_SUBTITLE_P RETURN VARCHAR2 IS
153 BEGIN
154 RETURN H_REPORT_SUBTITLE;
155 END H_REPORT_SUBTITLE_P;
156
157 FUNCTION H_OPTION_FIELD_P RETURN VARCHAR2 IS
158 BEGIN
159 RETURN H_OPTION_FIELD;
160 END H_OPTION_FIELD_P;
161
162 END BOM_CSTRPACQ_XMLP_PKG;
163
164
165