1 PACKAGE BODY PA_PAXPEORG_XMLP_PKG AS
2 /* $Header: PAXPEORGB.pls 120.0 2008/01/02 11:48:57 krreddy noship $ */
3 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
4 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
5 BEGIN
6 SELECT
7 GL.NAME
8 INTO L_NAME
9 FROM
10 GL_SETS_OF_BOOKS GL,
11 PA_IMPLEMENTATIONS PI
12 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
13 C_COMPANY_NAME_HEADER := L_NAME;
14 RETURN (TRUE);
15 EXCEPTION
16 WHEN OTHERS THEN
17 RETURN (FALSE);
18 END GET_COMPANY_NAME;
19
20 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
21 BEGIN
22 DECLARE
23 INIT_ERROR EXCEPTION;
24 ORG_TYPE_NAME HR_LOOKUPS.MEANING%TYPE;
25 BEGIN
26 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
27 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
28 IF P_TYPE IS NOT NULL THEN
29 SELECT
30 MEANING
31 INTO ORG_TYPE_NAME
32 FROM
33 HR_LOOKUPS
34 WHERE LOOKUP_CODE = P_TYPE
35 AND LOOKUP_TYPE = 'ORG_TYPE';
36 END IF;
37 C_TYPE_MEANING := ORG_TYPE_NAME;
38 IF (GET_COMPANY_NAME <> TRUE) THEN
39 RAISE INIT_ERROR;
40 END IF;
41 EXCEPTION
42 WHEN NO_DATA_FOUND THEN
43 NULL;
44 END;
45 RETURN (TRUE);
46 END BEFOREREPORT;
47
48 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
49 BEGIN
50 RETURN (TRUE);
51 END BEFOREPFORM;
52
53 FUNCTION AFTERPFORM RETURN BOOLEAN IS
54 BEGIN
55 RETURN (TRUE);
56 END AFTERPFORM;
57
58 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
59 BEGIN
60 RETURN (TRUE);
61 END BETWEENPAGE;
62
63 FUNCTION AFTERREPORT RETURN BOOLEAN IS
64 BEGIN
65 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
66 RETURN (TRUE);
67 END AFTERREPORT;
68
69 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
70 BEGIN
71 RETURN C_COMPANY_NAME_HEADER;
72 END C_COMPANY_NAME_HEADER_P;
73
74 FUNCTION C_TYPE_MEANING_P RETURN VARCHAR2 IS
75 BEGIN
76 RETURN C_TYPE_MEANING;
77 END C_TYPE_MEANING_P;
78
79 END PA_PAXPEORG_XMLP_PKG;
80