PACKAGE BODY: APPS.BOM_CSTROVHD_XMLP_PKG

Source

1 PACKAGE BODY BOM_CSTROVHD_XMLP_PKG AS
2 /* $Header: CSTROVHDB.pls 120.0 2007/12/24 10:08:04 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       SELECT
7         ORGANIZATION_NAME,
8         CHART_OF_ACCOUNTS_ID
9       INTO P_ORG_NAME,CHART_OF_ACCOUNTS_ID1
10       FROM
11         ORG_ORGANIZATION_DEFINITIONS
12       WHERE ORGANIZATION_ID = BOM_CSTROVHD_XMLP_PKG.ORGANIZATION_ID;
13       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
14       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
15       /*SRW.USER_EXIT('FND FLEXSQL
16                                         CODE="GL#"
17                                         NUM=":chart_of_accounts_id"
18                                         OUTPUT=":P_FLEXDATA"
19                                         APPL_SHORT_NAME="SQLGL"
20                                         TABLEALIAS="GL"
21                                         MODE="SELECT"
22                                         DISPLAY="ALL"')*/NULL;
23       /*SRW.MESSAGE(0
24                  ,'BOM_CSTROVHD_XMLP_PKG <<     ' || TO_CHAR(SYSDATE
25                         ,'Dy Mon DD HH24:MI:SS YYYY'))*/NULL;
26       RETURN TRUE;
27     EXCEPTION
28       WHEN OTHERS THEN
29         /*SRW.MESSAGE(999
30                    ,SQLERRM)*/NULL;
31         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
32     END;
33     RETURN (TRUE);
34   END BEFOREREPORT;
35   FUNCTION AFTERREPORT RETURN BOOLEAN IS
36   BEGIN
37     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
38     /*SRW.MESSAGE(0
39                ,'BOM_CSTROVHD_XMLP_PKG >>     ' || TO_CHAR(SYSDATE
40                       ,'Dy Mon DD HH24:MI:SS YYYY'))*/NULL;
41     RETURN (TRUE);
42   END AFTERREPORT;
43 END BOM_CSTROVHD_XMLP_PKG;
44