[Home] [Help]
PACKAGE BODY: APPS.ZX_ZXXATB_XMLP_PKG
Source
1 PACKAGE BODY ZX_ZXXATB_XMLP_PKG AS
2 /* $Header: ZXXATBB.pls 120.1.12010000.1 2008/07/28 13:27:57 appldev ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 IF (P_REPORTING_LEVEL = '1000') THEN
7 SELECT
8 B.NAME,
9 B.LEDGER_ID
10 INTO RP_COMPANY_NAME,P_SOB_ID
11 FROM
12 GL_LEDGERS B
13 WHERE LEDGER_ID = P_REPORTING_CONTEXT;
14 ELSIF (P_REPORTING_LEVEL = '2000') THEN
15 SELECT
16 LEDGER_NAME,
17 LEDGER_ID
18 INTO RP_COMPANY_NAME,P_SOB_ID
19 FROM
20 GL_LEDGER_LE_V
21 WHERE LEGAL_ENTITY_ID = P_REPORTING_CONTEXT;
22 ELSE
23 SELECT
24 B.NAME,
25 B.LEDGER_ID
26 INTO RP_COMPANY_NAME,P_SOB_ID
27 FROM
28 HR_OPERATING_UNITS A,
29 GL_LEDGERS B
30 WHERE A.ORGANIZATION_ID = P_REPORTING_CONTEXT
31 AND A.SET_OF_BOOKS_ID = B.LEDGER_ID;
32 END IF;
33 EXCEPTION
34 WHEN OTHERS THEN
35 NULL;
36 END;
37 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
38 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
39 RETURN (TRUE);
40 END BEFOREREPORT;
41
42 FUNCTION AFTERREPORT RETURN BOOLEAN IS
43 BEGIN
44 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
45 RETURN (TRUE);
46 END AFTERREPORT;
47
48 FUNCTION REPORT_NAMEFORMULA(FUNCTIONAL_CURRENCY IN VARCHAR2) RETURN VARCHAR2 IS
49 BEGIN
50 DECLARE
51 L_REPORT_NAME VARCHAR2(80);
52 L_START_TRX_DATE VARCHAR2(11);
53 L_END_TRX_DATE VARCHAR2(11);
54 BEGIN
55 IF P_START_TRX_DATE IS NULL THEN
56 L_START_TRX_DATE := ' ';
57 ELSE
58 L_START_TRX_DATE := TO_CHAR(P_START_TRX_DATE
59 ,'DD-MON-YYYY');
60 END IF;
61 IF P_END_TRX_DATE IS NULL THEN
62 L_END_TRX_DATE := ' ';
63 ELSE
64 L_END_TRX_DATE := TO_CHAR(P_END_TRX_DATE
65 ,'DD-MON-YYYY');
66 END IF;
67 RP_TRX_DATE := ARP_STANDARD.FND_MESSAGE('AR_REPORTS_INV_DATE_FROM_TO'
68 ,'FROM_DATE'
69 ,L_START_TRX_DATE
70 ,'TO_DATE'
71 ,L_END_TRX_DATE);
72 /*SRW.REFERENCE(FUNCTIONAL_CURRENCY)*/NULL;
73 RP_REPORT_CURRENCY := NVL(P_CURRENCY_CODE
74 ,FUNCTIONAL_CURRENCY);
75 SELECT
76 SUBSTRB(CP.USER_CONCURRENT_PROGRAM_NAME
77 ,1
78 ,80)
79 INTO L_REPORT_NAME
80 FROM
81 FND_CONCURRENT_PROGRAMS_VL CP,
82 FND_CONCURRENT_REQUESTS CR
83 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
84 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
85 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
86 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
87 RP_REPORT_NAME := L_REPORT_NAME;
88 RETURN (L_REPORT_NAME);
89 EXCEPTION
90 WHEN NO_DATA_FOUND THEN
91 RP_REPORT_NAME := NULL;
92 RETURN (NULL);
93 END;
94 RETURN NULL;
95 END REPORT_NAMEFORMULA;
96
97 FUNCTION C_DATA_NOT_FOUNDFORMULA(INVOICE_NUMBER IN VARCHAR2) RETURN NUMBER IS
98 BEGIN
99 RP_DATA_FOUND := INVOICE_NUMBER;
100 RETURN (0);
101 END C_DATA_NOT_FOUNDFORMULA;
102
103 FUNCTION AFTERPFORM RETURN BOOLEAN IS
104 BEGIN
105 BEGIN
106 FND_MO_REPORTING_API.INITIALIZE(P_REPORTING_LEVEL
107 ,P_REPORTING_CONTEXT
108 ,'AUTO');
109 LP_REP_CONTEXT_WH := FND_MO_REPORTING_API.GET_PREDICATE('paysch'
110 ,NULL
111 ,P_REPORTING_CONTEXT);
112 /*SRW.MESSAGE(10
113 ,'LP_REP_CONTEXT_WH : ' || LP_REP_CONTEXT_WH)*/NULL;
114 /*SRW.MESSAGE(20
115 ,'P_TAX_INVOICE_DATE_LOW: ' || P_TAX_INVOICE_DATE_LOW)*/NULL;
116 /*SRW.MESSAGE(30
117 ,'P_TAX_INVOICE_DATE_HIGH: ' || P_TAX_INVOICE_DATE_HIGH)*/NULL;
118 IF P_TAX_INVOICE_DATE_LOW IS NOT NULL THEN
119 LP_START_TRX_DATE := 'and paysch.trx_date >= :P_TAX_INVOICE_DATE_LOW';
120 else
121 LP_START_TRX_DATE := ' ';
122 END IF;
123 IF P_TAX_INVOICE_DATE_HIGH IS NOT NULL THEN
124 LP_END_TRX_DATE := ' and paysch.trx_date <= :P_TAX_INVOICE_DATE_HIGH';
125 else
126 LP_END_TRX_DATE := ' ';
127 END IF;
128 END;
129 RETURN (TRUE);
130 END AFTERPFORM;
131
132 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
133 BEGIN
134 RETURN RP_COMPANY_NAME;
135 END RP_COMPANY_NAME_P;
136
137 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
138 BEGIN
139 RETURN RP_REPORT_NAME;
140 END RP_REPORT_NAME_P;
141
142 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
143 BEGIN
144 RETURN RP_DATA_FOUND;
145 END RP_DATA_FOUND_P;
146
147 FUNCTION RP_REPORT_CURRENCY_P RETURN VARCHAR2 IS
148 BEGIN
149 RETURN RP_REPORT_CURRENCY;
150 END RP_REPORT_CURRENCY_P;
151
152 FUNCTION RP_TRX_DATE_P RETURN VARCHAR2 IS
153 BEGIN
154 RETURN RP_TRX_DATE;
155 END RP_TRX_DATE_P;
156
157 FUNCTION RPD_AMOUNT_OUTSTANDING_P RETURN VARCHAR2 IS
158 BEGIN
159 RETURN RPD_AMOUNT_OUTSTANDING;
160 END RPD_AMOUNT_OUTSTANDING_P;
161
162 END ZX_ZXXATB_XMLP_PKG;
163