PACKAGE BODY: APPS.PA_PAPWPRIREP_XMLP_PKG

Source

1 PACKAGE BODY PA_PAPWPRIREP_XMLP_PKG AS
2 --  $Header: PAPWPREPB.pls 120.0.12010000.1 2008/11/09 07:01:43 jjgeorge noship $
3 
4 FUNCTION GET_COMPANY_NAME RETURN VARCHAR2 IS
5     COMPANY_NAME_HEADER VARCHAR2(50);
6   BEGIN
7     SELECT
8       SUBSTR(GL.NAME,1,50)
9     INTO COMPANY_NAME_HEADER
10     FROM
11       GL_SETS_OF_BOOKS GL,
12       PA_IMPLEMENTATIONS PI
13     WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
14 
15   RETURN COMPANY_NAME_HEADER;
16 
17   END GET_COMPANY_NAME;
18 END PA_PAPWPRIREP_XMLP_PKG;