1 PACKAGE BODY INV_INVORGES_XMLP_PKG AS
2 /* $Header: INVORGESB.pls 120.1 2007/12/25 10:43:31 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8 EXCEPTION
9 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10 /*SRW.MESSAGE(1
11 ,'Error in SRWINIT')*/NULL;
12 RAISE;
13 END;
14 BEGIN
15 SELECT
16 FRV.RESPONSIBILITY_NAME,
17 TO_CHAR(FCR.REQUEST_DATE
18 ,'DD-MON-YYYY HH24:MI:SS'),
19 FAV.APPLICATION_NAME,
20 FU.USER_NAME
21 INTO CP_RESPONSIBILITY,CP_REQUEST_TIME,CP_APPLICATION,CP_REQUESTED_BY
22 FROM
23 FND_CONCURRENT_REQUESTS FCR,
24 FND_RESPONSIBILITY_VL FRV,
25 FND_APPLICATION_VL FAV,
26 FND_USER FU
27 WHERE FCR.REQUEST_ID = P_CONC_REQUEST_ID
28 AND FCR.RESPONSIBILITY_APPLICATION_ID = FRV.APPLICATION_ID
29 AND FCR.RESPONSIBILITY_ID = FRV.RESPONSIBILITY_ID
30 AND FRV.APPLICATION_ID = FAV.APPLICATION_ID
31 AND FU.USER_ID = FCR.REQUESTED_BY;
32 EXCEPTION
33 WHEN NO_DATA_FOUND THEN
34 /*SRW.MESSAGE(30
35 ,'Failed Request By and Request time Init,No data.')*/NULL;
36 WHEN OTHERS THEN
37 /*SRW.MESSAGE(31
38 ,'Failed Request By and Request time Init.')*/NULL;
39 END;
40 RETURN (TRUE);
41 END BEFOREREPORT;
42
43 FUNCTION AFTERREPORT RETURN BOOLEAN IS
44 BEGIN
45 BEGIN
46 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
47 EXCEPTION
48 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
49 /*SRW.MESSAGE(1
50 ,'Error in SRWEXIT')*/NULL;
51 END;
52 RETURN (TRUE);
53 END AFTERREPORT;
54
55 FUNCTION CP_RESPONSIBILITY_P RETURN VARCHAR2 IS
56 BEGIN
57 RETURN CP_RESPONSIBILITY;
58 END CP_RESPONSIBILITY_P;
59
60 FUNCTION CP_REQUEST_TIME_P RETURN VARCHAR2 IS
61 BEGIN
62 RETURN CP_REQUEST_TIME;
63 END CP_REQUEST_TIME_P;
64
65 FUNCTION CP_APPLICATION_P RETURN VARCHAR2 IS
66 BEGIN
67 RETURN CP_APPLICATION;
68 END CP_APPLICATION_P;
69
70 FUNCTION CP_REQUESTED_BY_P RETURN VARCHAR2 IS
71 BEGIN
72 RETURN CP_REQUESTED_BY;
73 END CP_REQUESTED_BY_P;
74
75 END INV_INVORGES_XMLP_PKG;
76