1 PACKAGE BODY PA_PAXPEEMO_XMLP_PKG AS
2 /* $Header: PAXPEEMOB.pls 120.0 2008/01/02 11:47:28 krreddy noship $ */
3 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN (FALSE);
9 END GET_COVER_PAGE_VALUES;
10
11 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12 BEGIN
13 DECLARE
14 INIT_FAILURE EXCEPTION;
15 JOB_NAME VARCHAR2(40);
16 ORG_NAME HR_ORGANIZATION_UNITS.NAME%TYPE;
17 BEGIN
18 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
19 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
20 /*SRW.USER_EXIT('FND GETPROFILE
21 NAME="PA_RULE_BASED_OPTIMIZER"
22 FIELD=":p_rule_optimizer"
23 PRINT_ERROR="N"')*/NULL;
24 P_DEBUG_MODE := FND_PROFILE.VALUE('PA_DEBUG_MODE');
25 IF P_START_ORGANIZATION_ID IS NOT NULL THEN
26 SELECT
27 SUBSTR(NAME
28 ,1
29 ,60)
30 INTO ORG_NAME
31 FROM
32 HR_ORGANIZATION_UNITS
33 WHERE ORGANIZATION_ID = P_START_ORGANIZATION_ID;
34 END IF;
35 C_ORG_NAME := ORG_NAME;
36 IF JOB_ID IS NOT NULL THEN
37 SELECT
38 NAME
39 INTO JOB_NAME
40 FROM
41 PER_JOBS
42 WHERE JOB_ID = JOB_ID;
43 END IF;
44 C_JOB_NAME := JOB_NAME;
45 IF (GET_COMPANY_NAME <> TRUE) THEN
46 RAISE INIT_FAILURE;
47 END IF;
48 IF (GET_START_ORG <> TRUE) THEN
49 RAISE INIT_FAILURE;
50 END IF;
51 EXCEPTION
52 WHEN OTHERS THEN
53 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
54 END;
55 RETURN (TRUE);
56 END BEFOREREPORT;
57
58 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
59 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
60 BEGIN
61 SELECT
62 GL.NAME
63 INTO L_NAME
64 FROM
65 GL_SETS_OF_BOOKS GL,
66 PA_IMPLEMENTATIONS PI
67 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
68 C_COMPANY_NAME_HEADER := L_NAME;
69 RETURN (TRUE);
70 EXCEPTION
71 WHEN OTHERS THEN
72 RETURN (FALSE);
73 END GET_COMPANY_NAME;
74
75 FUNCTION GET_START_ORG RETURN BOOLEAN IS
76 C_START_ORGANIZATION_ID NUMBER;
77 BEGIN
78 SELECT
79 DECODE(P_START_ORGANIZATION_ID
80 ,NULL
81 ,START_ORGANIZATION_ID
82 ,P_START_ORGANIZATION_ID)
83 INTO C_START_ORGANIZATION_ID
84 FROM
85 PA_IMPLEMENTATIONS;
86 INSERT INTO PA_ORG_REPORTING_SESSIONS
87 (START_ORGANIZATION_ID
88 ,SESSION_ID)
89 VALUES (C_START_ORGANIZATION_ID
90 ,USERENV('SESSIONID'));
91 RETURN (TRUE);
92 EXCEPTION
93 WHEN OTHERS THEN
94 RETURN (FALSE);
95 END GET_START_ORG;
96
97 FUNCTION AFTERREPORT RETURN BOOLEAN IS
98 BEGIN
99 BEGIN
100 /*SRW.USER_EXIT('FND srwexit')*/NULL;
101 ROLLBACK;
102 END;
103 RETURN (TRUE);
104 END AFTERREPORT;
105
106 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN C_COMPANY_NAME_HEADER;
109 END C_COMPANY_NAME_HEADER_P;
110
111 FUNCTION C_ORG_NAME_P RETURN VARCHAR2 IS
112 BEGIN
113 RETURN C_ORG_NAME;
114 END C_ORG_NAME_P;
115
116 FUNCTION C_JOB_NAME_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN C_JOB_NAME;
119 END C_JOB_NAME_P;
120
121 END PA_PAXPEEMO_XMLP_PKG;
122