[Home] [Help]
PACKAGE BODY: APPS.BOM_CSTRACTC_XMLP_PKG
Source
1 PACKAGE BODY BOM_CSTRACTC_XMLP_PKG AS
2 /* $Header: CSTRACTCB.pls 120.0 2007/12/24 09:50:19 dwkrishn noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 L_ENABLE_TRACE VARCHAR(1);
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 EXCEPTION
10 WHEN OTHERS THEN
11 /*SRW.MESSAGE(999
12 ,'FND SRWINIT >X')*/NULL;
13 RAISE;
14 END;
15 IF P_PERIOD_ID_FROM = P_PERIOD_ID_TO THEN
16 P_PERIOD_WHERE := 'and wepb.acct_period_id = :P_PERIOD_ID_FROM';
17 ELSE
18 P_PERIOD_WHERE := 'and wepb.acct_period_id between :P_PERIOD_ID_FROM and :P_PERIOD_ID_TO';
19 END IF;
20 IF P_DEPT_FROM IS NOT NULL THEN
21 IF P_DEPT_TO IS NOT NULL THEN
22 IF P_DEPT_FROM = P_DEPT_TO THEN
23 P_DEPT_WHERE := 'and bd.department_code = :P_DEPT_FROM';
24 ELSE
25 P_DEPT_WHERE := 'and bd.department_code between :P_DEPT_FROM and :P_DEPT_TO';
26 END IF;
27 ELSE
28 P_DEPT_WHERE := 'and bd.department_code >= :P_DEPT_FROM';
29 END IF;
30 ELSE
31 IF P_DEPT_TO IS NOT NULL THEN
32 P_DEPT_WHERE := 'and bd.department_code <= :P_DEPT_TO';
33 ELSE
34 P_DEPT_WHERE := ' ';
35 END IF;
36 END IF;
37 IF P_MAINT_UNIT_FROM IS NOT NULL THEN
38 IF P_MAINT_UNIT_TO IS NOT NULL THEN
39 IF P_MAINT_UNIT_FROM = P_MAINT_UNIT_TO THEN
40 P_MAINT_UNIT_AI_WHERE := 'and cii.serial_number = :P_MAINT_UNIT_FROM';
41 P_MAINT_UNIT_RI_WHERE := 'and wdj.rebuild_serial_number = :P_MAINT_UNIT_FROM';
42 ELSE
43 P_MAINT_UNIT_AI_WHERE := 'and cii.serial_number between :P_MAINT_UNIT_FROM and :P_MAINT_UNIT_TO';
44 P_MAINT_UNIT_RI_WHERE := 'and wdj.rebuild_serial_number between :P_MAINT_UNIT_FROM and :P_MAINT_UNIT_TO';
45 END IF;
46 ELSE
47 P_MAINT_UNIT_AI_WHERE := 'and cii.serial_number >= :P_MAINT_UNIT_FROM';
48 P_MAINT_UNIT_RI_WHERE := 'and wdj.rebuild_serial_number >= :P_MAINT_UNIT_FROM';
49 END IF;
50 ELSE
51 IF P_MAINT_UNIT_TO IS NOT NULL THEN
52 P_MAINT_UNIT_AI_WHERE := 'and cii.serial_number <= :P_MAINT_UNIT_TO';
53 P_MAINT_UNIT_RI_WHERE := 'and wdj.rebuild_serial_number <= :P_MAINT_UNIT_TO';
54 ELSE
55 P_MAINT_UNIT_AI_WHERE := ' ';
56 P_MAINT_UNIT_RI_WHERE := ' ';
57 END IF;
58 END IF;
59 RETURN (TRUE);
60 END AFTERPFORM;
61
62 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
63 BEGIN
64 DECLARE
65 EAM_ORG_COUNT NUMBER;
66 L_CURRENCY VARCHAR2(15);
67 BEGIN
68 SELECT
69 count(*)
70 INTO EAM_ORG_COUNT
71 FROM
72 MTL_PARAMETERS
73 WHERE ORGANIZATION_ID = P_ORG_ID
74 AND EAM_ENABLED_FLAG = 'Y';
75 IF EAM_ORG_COUNT < 1 THEN
76 FND_MESSAGE.SET_NAME('BOM'
77 ,'CST_EAM_ORG_REPORT_ONLY');
78 /*SRW.MESSAGE(24200
79 ,FND_MESSAGE.GET)*/NULL;
80 RETURN FALSE;
81 END IF;
82 SELECT
83 OAP1.PERIOD_START_DATE,
84 OAP2.SCHEDULE_CLOSE_DATE
85 INTO P_PERIOD_DATE_FROM,P_PERIOD_DATE_TO
86 FROM
87 ORG_ACCT_PERIODS OAP1,
88 ORG_ACCT_PERIODS OAP2
89 WHERE OAP1.ORGANIZATION_ID = P_ORG_ID
90 AND OAP1.ACCT_PERIOD_ID = P_PERIOD_ID_FROM
91 AND OAP2.ORGANIZATION_ID = P_ORG_ID
92 AND OAP2.ACCT_PERIOD_ID = P_PERIOD_ID_TO;
93 SELECT
94 OOD.ORGANIZATION_NAME,
95 SOB.CURRENCY_CODE
96 INTO P_ORG_NAME,L_CURRENCY
97 FROM
98 CST_ORGANIZATION_DEFINITIONS OOD,
99 GL_SETS_OF_BOOKS SOB
100 WHERE OOD.ORGANIZATION_ID = P_ORG_ID
101 AND OOD.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID;
102 P_EXCHANGE_RATE := FND_NUMBER.CANONICAL_TO_NUMBER(P_EXCHANGE_RATE_CHAR);
103 IF L_CURRENCY = P_CURRENCY_CODE THEN
104 P_CURRENCY_DSP := P_CURRENCY_CODE;
105 ELSE
106 P_CURRENCY_DSP := P_CURRENCY_CODE || ' @ ' || TO_CHAR(ROUND(1 / P_EXCHANGE_RATE
107 ,5)) || ' ' || L_CURRENCY;
108 END IF;
109 SELECT
110 NVL(MINIMUM_ACCOUNTABLE_UNIT
111 ,POWER(10
112 ,NVL(-PRECISION
113 ,0)))
114 INTO P_ROUND_UNIT
115 FROM
116 FND_CURRENCIES
117 WHERE CURRENCY_CODE = P_CURRENCY_CODE;
118 END;
119 BEGIN
120 NULL;
121 EXCEPTION
122 WHEN OTHERS THEN
123 /*SRW.MESSAGE(999
124 ,'FND FLEXSQL(MSTK) >X')*/NULL;
125 RAISE;
126 END;
127 RETURN (TRUE);
128 END BEFOREREPORT;
129
130 FUNCTION AFTERREPORT RETURN BOOLEAN IS
131 BEGIN
132 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
133 RETURN (TRUE);
134 END AFTERREPORT;
135
136 END BOM_CSTRACTC_XMLP_PKG;
137