PACKAGE BODY: APPS.PA_PAPWPRIREP_XMLP_PKG

Source

1 PACKAGE BODY PA_PAPWPRIREP_XMLP_PKG AS
2 --  $Header: PAPWPREPB.pls 120.0.12010000.3 2010/03/02 12:36:37 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 
19 /* This function  cleans up the table if the process is run in DRAFT mode*/
20 
21 FUNCTION CLEANUP
22 RETURN BOOLEAN
23 IS
24 pb BOOLEAN  := TRUE;
25 BEGIN
26 If P_MODE = 'DRAFT' THEN
27 
28    BEGIN
29       delete from  PA_PWP_RELEASE_REPORT where  request_id = P_REQUEST_ID ;
30    EXCEPTION
31      WHEN OTHERS THEN
32 	 null;
33 	END;
34 
35 END IF;
36 RETURN pb;
37 END CLEANUP;
38 
39 
40 END PA_PAPWPRIREP_XMLP_PKG;