1 PACKAGE BODY PSB_PSBRPPOS_XMLP_PKG AS
2 /* $Header: PSBRPPOSB.pls 120.0 2008/01/07 10:42:11 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 IF (P_DATA_EXTRACT_ID IS NULL AND P_ACCOUNT_POSITION_SET_ID IS NOT NULL) THEN
8 BEGIN
9 SELECT
10 NAME
11 INTO CP_POSITION_SETS
12 FROM
13 PSB_ACCOUNT_POSITION_SETS
14 WHERE ACCOUNT_POSITION_SET_ID = P_ACCOUNT_POSITION_SET_ID;
15 FND_MESSAGE.SET_NAME('PSB'
16 ,'PSB_ALL');
17 CP_DATA_EXTRACT_NAME := FND_MESSAGE.GET;
18 END;
19 ELSIF (P_DATA_EXTRACT_ID IS NOT NULL AND P_ACCOUNT_POSITION_SET_ID IS NULL) THEN
20 BEGIN
21 SELECT
22 DATA_EXTRACT_NAME
23 INTO CP_DATA_EXTRACT_NAME
24 FROM
25 PSB_DATA_EXTRACTS
26 WHERE DATA_EXTRACT_ID = P_DATA_EXTRACT_ID;
27 FND_MESSAGE.SET_NAME('PSB'
28 ,'PSB_ALL');
29 CP_POSITION_SETS := FND_MESSAGE.GET;
30 END;
31 ELSIF (P_DATA_EXTRACT_ID IS NOT NULL AND P_ACCOUNT_POSITION_SET_ID IS NOT NULL) THEN
32 BEGIN
33 SELECT
34 DATA_EXTRACT_NAME
35 INTO CP_DATA_EXTRACT_NAME
36 FROM
37 PSB_DATA_EXTRACTS
38 WHERE DATA_EXTRACT_ID = P_DATA_EXTRACT_ID;
39 SELECT
40 NAME
41 INTO CP_POSITION_SETS
42 FROM
43 PSB_ACCOUNT_POSITION_SETS
44 WHERE ACCOUNT_POSITION_SET_ID = P_ACCOUNT_POSITION_SET_ID;
45 END;
46 ELSIF (P_DATA_EXTRACT_ID IS NULL AND P_ACCOUNT_POSITION_SET_ID IS NULL) THEN
47 BEGIN
48 FND_MESSAGE.SET_NAME('PSB'
49 ,'PSB_ALL');
50 CP_POSITION_SETS := FND_MESSAGE.GET;
51 FND_MESSAGE.SET_NAME('PSB'
52 ,'PSB_ALL');
53 CP_DATA_EXTRACT_NAME := FND_MESSAGE.GET;
54 END;
55 ELSE
56 NULL;
57 END IF;
58 FND_MESSAGE.SET_NAME('PSB'
59 ,'PSB_NO_DATA_FOUND');
60 C_NLS_NO_DATA_EXISTS := SUBSTR(FND_MESSAGE.GET,7,13);
61 FND_MESSAGE.SET_NAME('PSB'
62 ,'PSB_END_OF_REPORT');
63 C_NLS_END_OF_REPORT := SUBSTR(FND_MESSAGE.GET,7,13);
64 RETURN (TRUE);
65 EXCEPTION
66 WHEN NO_DATA_FOUND THEN
67 RETURN NULL;
68 WHEN OTHERS THEN
69 RETURN NULL;
70 END BEFOREREPORT;
71
72 FUNCTION AFTERREPORT RETURN BOOLEAN IS
73 BEGIN
74 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
75 RETURN (TRUE);
76 END AFTERREPORT;
77
78 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
79 BEGIN
80 RETURN (TRUE);
81 END BEFOREPFORM;
82
83 FUNCTION AFTERPFORM RETURN BOOLEAN IS
84 BEGIN
85 RETURN (TRUE);
86 END AFTERPFORM;
87
88 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
89 BEGIN
90 RETURN (TRUE);
91 END BETWEENPAGE;
92
93 FUNCTION P_CONC_REQUEST_ID_P RETURN NUMBER IS
94 BEGIN
95 RETURN P_CONC_REQUEST_ID;
96 END P_CONC_REQUEST_ID_P;
97
98 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
99 BEGIN
100 RETURN C_NLS_END_OF_REPORT;
101 END C_NLS_END_OF_REPORT_P;
102
103 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
104 BEGIN
105 RETURN C_NLS_NO_DATA_EXISTS;
106 END C_NLS_NO_DATA_EXISTS_P;
107
108 FUNCTION CP_DATA_EXTRACT_NAME_P RETURN VARCHAR2 IS
109 BEGIN
110 RETURN CP_DATA_EXTRACT_NAME;
111 END CP_DATA_EXTRACT_NAME_P;
112
113 FUNCTION CP_POSITION_SETS_P RETURN VARCHAR2 IS
114 BEGIN
115 RETURN CP_POSITION_SETS;
116 END CP_POSITION_SETS_P;
117
118 END PSB_PSBRPPOS_XMLP_PKG;
119
120
121
122
123