1 PACKAGE BODY AR_RAXICI_XMLP_PKG AS
2 /* $Header: RAXICIB.pls 120.0 2007/12/27 14:21:51 abraghun noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 END BEFOREREPORT;
7
8 FUNCTION AFTERREPORT RETURN BOOLEAN IS
9 BEGIN
10 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
11 RETURN (TRUE);
12 END AFTERREPORT;
13
14 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
15 BEGIN
16 DECLARE
17 L_REPORT_NAME VARCHAR2(80);
18 BEGIN
19 RP_COMPANY_NAME := COMPANY_NAME;
20 SELECT
21 SUBSTR(CP.USER_CONCURRENT_PROGRAM_NAME
22 ,1
23 ,80)
24 INTO L_REPORT_NAME
25 FROM
26 FND_CONCURRENT_PROGRAMS_VL CP,
27 FND_CONCURRENT_REQUESTS CR
28 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
29 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
30 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
31 RP_REPORT_NAME := L_REPORT_NAME;
32 RETURN (L_REPORT_NAME);
33 EXCEPTION
34 WHEN NO_DATA_FOUND THEN
35 RP_REPORT_NAME := NULL;
36 RETURN (NULL);
37 END;
38 RETURN NULL;
39 END REPORT_NAMEFORMULA;
40
41 FUNCTION AFTERPFORM RETURN BOOLEAN IS
42 BEGIN
43 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
44 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
45 DECLARE
46 L_START_GL_DATE VARCHAR2(11);
47 L_END_GL_DATE VARCHAR2(11);
48 BEGIN
49 PH_START_GL_DATE := TO_CHAR(P_START_GL_DATE
50 ,'DD-MON-YYYY');
51 PH_END_GL_DATE := TO_CHAR(P_END_GL_DATE
52 ,'DD-MON-YYYY');
53 IF P_START_GL_DATE IS NOT NULL AND P_END_GL_DATE IS NOT NULL THEN
54 LP_WHERE := ' and head_dist.gl_date BETWEEN :p_start_gl_date AND :p_end_gl_date
55 and dist.gl_date BETWEEN :p_start_gl_date AND :p_end_gl_date ';
56 END IF;
57 IF P_START_GL_DATE IS NOT NULL AND P_END_GL_DATE IS NULL THEN
58 LP_WHERE := ' and head_dist.gl_date >= :p_start_gl_date
59 and dist.gl_date >= :p_start_gl_date ';
60 END IF;
61 IF P_START_GL_DATE IS NULL AND P_END_GL_DATE IS NOT NULL THEN
62 LP_WHERE := ' and head_dist.gl_date <= :p_end_gl_date
63 and dist.gl_date <= :p_end_gl_date ';
64 END IF;
65 END;
66 RETURN (TRUE);
67 END AFTERPFORM;
68
69 FUNCTION RP_GL_DATE_RANGEFORMULA RETURN VARCHAR2 IS
70 BEGIN
71 DECLARE
72 L_TEMP VARCHAR2(200);
73 L_START_GL_DATE VARCHAR2(50);
74 L_END_GL_DATE VARCHAR2(50);
75 BEGIN
76 IF P_START_GL_DATE IS NULL THEN
77 L_START_GL_DATE := ' ';
78 ELSE
79 L_START_GL_DATE := PH_START_GL_DATE;
80 END IF;
81 IF P_END_GL_DATE IS NULL THEN
82 L_END_GL_DATE := ' ';
83 ELSE
84 L_END_GL_DATE := PH_END_GL_DATE;
85 END IF;
86 L_TEMP := ARP_STANDARD.FND_MESSAGE('AR_REPORTS_GL_DATE_FROM_TO'
87 ,'FROM_DATE'
88 ,L_START_GL_DATE
89 ,'TO_DATE'
90 ,L_END_GL_DATE);
91 RETURN (L_TEMP);
92 END;
93 RETURN NULL;
94 END RP_GL_DATE_RANGEFORMULA;
95
96 FUNCTION C_DATA_NOT_FOUNDFORMULA(CLASS IN VARCHAR2) RETURN VARCHAR2 IS
97 BEGIN
98 RP_DATA_FOUND := CLASS;
99 RETURN (0);
100 END C_DATA_NOT_FOUNDFORMULA;
101
102 FUNCTION CF_ACC_MESSAGEFORMULA(ORG_ID IN NUMBER) RETURN NUMBER IS
103 BEGIN
104 IF ARP_UTIL.OPEN_PERIOD_EXISTS('3000'
105 ,ORG_ID
106 ,P_START_GL_DATE
107 ,P_END_GL_DATE) THEN
108 FND_MESSAGE.SET_NAME('AR'
109 ,'AR_REPORT_ACC_NOT_GEN');
110 CP_ACC_MESSAGE := FND_MESSAGE.GET;
111 ELSE
112 CP_ACC_MESSAGE := NULL;
113 END IF;
114 RETURN 0;
115 END CF_ACC_MESSAGEFORMULA;
116
117 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
118 BEGIN
119 RETURN ACCT_BAL_APROMPT;
120 END ACCT_BAL_APROMPT_P;
121
122 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
123 BEGIN
124 RETURN RP_COMPANY_NAME;
125 END RP_COMPANY_NAME_P;
126
127 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
128 BEGIN
129 RETURN RP_REPORT_NAME;
130 END RP_REPORT_NAME_P;
131
132 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
133 BEGIN
134 RETURN RP_DATA_FOUND;
135 END RP_DATA_FOUND_P;
136
137 FUNCTION CP_ACC_MESSAGE_P RETURN VARCHAR2 IS
138 BEGIN
139 RETURN CP_ACC_MESSAGE;
140 END CP_ACC_MESSAGE_P;
141
142 END AR_RAXICI_XMLP_PKG;
143