1: PACKAGE BODY BOM_CSTRTVHA_XMLP_PKG AS
2: /* $Header: CSTRTVHAB.pls 120.0 2007/12/24 10:18:57 dwkrishn noship $ */
3: FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4: L_FCN_CURRENCY VARCHAR2(15);
5: L_STMT_NUM NUMBER;
132: ,I || '-' || L_MSG_DATA);
133: END LOOP;
134: END IF;
135: /*SRW.MESSAGE(0
136: ,'BOM_CSTRTVHA_XMLP_PKG << ' || TO_CHAR(SYSDATE
137: ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
138: RETURN TRUE;
139: EXCEPTION
140: WHEN OTHERS THEN
140: WHEN OTHERS THEN
141: /*SRW.MESSAGE(999
142: ,L_STMT_NUM || ': ' || SQLERRM)*/NULL;
143: /*SRW.MESSAGE(999
144: ,'BOM_CSTRTVHA_XMLP_PKG >X ' || TO_CHAR(SYSDATE
145: ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
146: FND_MSG_PUB.COUNT_AND_GET(P_ENCODED => CST_UTILITY_PUB.GET_FALSE
147: ,P_COUNT => L_MSG_COUNT
148: ,P_DATA => L_MSG_DATA);
169: FUNCTION AFTERREPORT RETURN BOOLEAN IS
170: BEGIN
171: /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
172: /*SRW.MESSAGE(0
173: ,'BOM_CSTRTVHA_XMLP_PKG >> ' || TO_CHAR(SYSDATE
174: ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
175: RETURN (TRUE);
176: END AFTERREPORT;
177:
184: BEGIN
185: RETURN NEWVAL - OLDVAL - S1VAL - S2VAL - S3VAL - S4VAL;
186: END CF_1FORMULA;
187:
188: END BOM_CSTRTVHA_XMLP_PKG;
189:
190: