1: PACKAGE BODY BOM_CSTRPICR_XMLP_PKG AS
2: /* $Header: CSTRPICRB.pls 120.1.12020000.2 2013/01/22 07:50:14 vnagasow ship $ */
3: FUNCTION AFTERREPORT RETURN BOOLEAN IS
4: BEGIN
5: /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
5: /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6: EXECUTE IMMEDIATE
7: 'ROLLBACK';
8: /*SRW.MESSAGE(0
9: ,'BOM_CSTRPICR_XMLP_PKG >> ' || TO_CHAR(SYSDATE
10: ,'Dy Mon DD HH24:MI:SS YYYY'))*/NULL;
11: RETURN (TRUE);
12: END AFTERREPORT;
13: FUNCTION BEFOREREPORT RETURN BOOLEAN IS
136: CONCURRENT_PROGRAM_ID
137: FROM
138: FND_CONCURRENT_PROGRAMS P
139: WHERE P.APPLICATION_ID = 702
140: AND P.CONCURRENT_PROGRAM_NAME = 'BOM_CSTRPICR_XMLP_PKG' );
141: END IF;
142: SQL_STMT_NUM := '14: ';
143: IF L_FCN_CURRENCY = P_CURRENCY_CODE THEN
144: P_CURRENCY_DSP := P_CURRENCY_CODE;
172: ,'FND FLEXSQL(MSTK) >X')*/NULL;
173: RAISE;
174: END;
175: /*SRW.MESSAGE(0
176: ,'BOM_CSTRPICR_XMLP_PKG << ' || TO_CHAR(SYSDATE
177: ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
178: EXCEPTION
179: WHEN OTHERS THEN
180: /*SRW.MESSAGE(999
179: WHEN OTHERS THEN
180: /*SRW.MESSAGE(999
181: ,SQL_STMT_NUM || SQLERRM)*/NULL;
182: /*SRW.MESSAGE(999
183: ,'BOM_CSTRPICR_XMLP_PKG >X ' || TO_CHAR(SYSDATE
184: ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
185: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
186: END;
187: RETURN (TRUE);
374: CF_TOTAL_VALUE_R := STANDARD.ROUND(CF_TOTAL_VALUE / ROUND_UNIT
375: ,0) * ROUND_UNIT;
376: RETURN CF_TOTAL_VALUE_R;
377: END CF_TOTAL_VALUE_RFORMULA;
378: END BOM_CSTRPICR_XMLP_PKG;
379: