1 PACKAGE BODY PA_PAXEXADJ_XMLP_PKG AS
2 /* $Header: PAXEXADJB.pls 120.0 2008/01/02 11:27:35 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 P_PROJECT_NUMBER VARCHAR2(25);
16 P_TASK_NUMBER VARCHAR2(25);
17 P_EMPLOYEE_NAME VARCHAR2(240);
18 BEGIN
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 C_PROJECT_ID := PROJECT_ID;
21 C_TASK_ID := TASK_ID;
22 C_PERSON_ID := PERSON_ID;
23 C_START_ACTIVITY_DATE := TO_CHAR(START_ACTIVITY_DATE,'DD-MON-YY');
24 C_END_ACTIVITY_DATE := TO_CHAR(END_ACTIVITY_DATE,'DD-MON-YY');
25 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
26 /*SRW.USER_EXIT('FND GETPROFILE
27 NAME="PA_DEBUG_MODE"
28 FIELD=":P_debug_mode"
29 PRINT_ERROR=N')*/NULL;
30 IF (GET_COMPANY_NAME <> TRUE) THEN
31 RAISE INIT_FAILURE;
32 END IF;
33 SELECT
34 SEGMENT1
35 INTO P_PROJECT_NUMBER
36 FROM
37 PA_PROJECTS
38 WHERE PROJECT_ID = C_PROJECT_ID;
39 C_PROJECT_NUMBER := P_PROJECT_NUMBER;
40 IF (TASK_ID IS NOT NULL) THEN
41 SELECT
42 TASK_NUMBER
43 INTO P_TASK_NUMBER
44 FROM
45 PA_TASKS
46 WHERE TASK_ID = C_TASK_ID;
47 C_TASK_NUMBER := P_TASK_NUMBER;
48 END IF;
49 IF (PERSON_ID IS NOT NULL) THEN
50 SELECT
51 FULL_NAME
52 INTO P_EMPLOYEE_NAME
53 FROM
54 PER_PEOPLE_F
55 WHERE PERSON_ID = C_PERSON_ID
56 AND sysdate between EFFECTIVE_START_DATE
57 AND NVL(EFFECTIVE_END_DATE
58 ,SYSDATE + 1)
59 AND ( EMPLOYEE_NUMBER is not null
60 OR NPW_NUMBER is not null );
61 C_EMPLOYEE_NAME := P_EMPLOYEE_NAME;
62 END IF;
63 IF (NO_DATA_FOUND_FUNC <> TRUE) THEN
64 RAISE INIT_FAILURE;
65 END IF;
66 EXCEPTION
67 WHEN NO_DATA_FOUND THEN
68 IF (NO_DATA_FOUND_FUNC <> TRUE) THEN
69 RAISE INIT_FAILURE;
70 END IF;
71 END;
72 RETURN (TRUE);
73 END BEFOREREPORT;
74
75 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
76 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
77 BEGIN
78 SELECT
79 GL.NAME
80 INTO L_NAME
81 FROM
82 GL_SETS_OF_BOOKS GL,
83 PA_IMPLEMENTATIONS PI
84 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
85 C_COMPANY_NAME_HEADER := L_NAME;
86 RETURN (TRUE);
87 EXCEPTION
88 WHEN OTHERS THEN
89 RETURN (FALSE);
90 END GET_COMPANY_NAME;
91
92 FUNCTION NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
93 MESSAGE_NAME VARCHAR2(80);
94 BEGIN
95 SELECT
96 MEANING
97 INTO MESSAGE_NAME
98 FROM
99 PA_LOOKUPS
100 WHERE LOOKUP_TYPE = 'MESSAGE'
101 AND LOOKUP_CODE = 'NO_DATA_FOUND';
102 C_NO_DATA_FOUND := SUBSTR(MESSAGE_NAME,4,14);
103 RETURN (TRUE);
104 EXCEPTION
105 WHEN OTHERS THEN
106 RETURN (FALSE);
107 END NO_DATA_FOUND_FUNC;
108
109 FUNCTION AFTERREPORT RETURN BOOLEAN IS
110 BEGIN
111 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
112 RETURN (TRUE);
113 END AFTERREPORT;
114
115 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
116 BEGIN
117 RETURN C_COMPANY_NAME_HEADER;
118 END C_COMPANY_NAME_HEADER_P;
119
120 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
121 BEGIN
122 RETURN C_NO_DATA_FOUND;
123 END C_NO_DATA_FOUND_P;
124
125 FUNCTION C_PROJECT_NUMBER_P RETURN VARCHAR2 IS
126 BEGIN
127 RETURN C_PROJECT_NUMBER;
128 END C_PROJECT_NUMBER_P;
129
130 FUNCTION C_TASK_NUMBER_P RETURN VARCHAR2 IS
131 BEGIN
132 RETURN C_TASK_NUMBER;
133 END C_TASK_NUMBER_P;
134
135 FUNCTION C_EMPLOYEE_NAME_P RETURN VARCHAR2 IS
136 BEGIN
137 RETURN C_EMPLOYEE_NAME;
138 END C_EMPLOYEE_NAME_P;
139
140 END PA_PAXEXADJ_XMLP_PKG;
141