DBA Data[Home] [Help]

PACKAGE BODY: APPS.XTR_XTRTMAOD_XMLP_PKG

Source


1 PACKAGE BODY XTR_XTRTMAOD_XMLP_PKG AS
2 /* $Header: XTRTMAODB.pls 120.1 2007/12/31 12:26:54 vjaganat noship $ */
3   FUNCTION INT_COMPONENT1FORMULA(INT_OD_RUNNING IN NUMBER
4                                 ,INT_OVERDUE2 IN NUMBER
5                                 ,INT_OVERDUE IN NUMBER) RETURN VARCHAR2 IS
6   BEGIN
7     INT_COMPONENT := 0;
8     IF (INT_OD_RUNNING - INT_OVERDUE2 - INT_OVERDUE) < 0 THEN
9       IF (INT_OD_RUNNING - INT_OVERDUE) > 0 THEN
10         INT_COMPONENT := 0;
11       ELSE
12         INT_COMPONENT := ROUND(INT_OVERDUE2
13                               ,2);
14       END IF;
15     END IF;
16     RETURN ('');
17   END INT_COMPONENT1FORMULA;
18 
19   FUNCTION INT_COMPONENTFORMULA RETURN NUMBER IS
20   BEGIN
21     RETURN NULL;
22   END INT_COMPONENTFORMULA;
23 
24   FUNCTION BAL_COMPONENT1FORMULA(BAL_RUNNING IN NUMBER
25                                 ,BAL_OVERDUE2 IN NUMBER
26                                 ,BAL_OVERDUE IN NUMBER) RETURN VARCHAR2 IS
27   BEGIN
28     BAL_COMPONENT := 0;
29     IF (BAL_RUNNING - BAL_OVERDUE2 - BAL_OVERDUE) < 0 THEN
30       IF (BAL_RUNNING - BAL_OVERDUE) > 0 THEN
31         BAL_COMPONENT := ROUND(BAL_OVERDUE - BAL_RUNNING + BAL_OVERDUE2
32                               ,2);
33       END IF;
34       IF (BAL_RUNNING - BAL_OVERDUE) = 0 THEN
35         BAL_COMPONENT := 0;
36       END IF;
37       IF (BAL_RUNNING - BAL_OVERDUE) < 0 THEN
38         BAL_COMPONENT := ROUND(BAL_OVERDUE2
39                               ,2);
40       END IF;
41     ELSE
42       BAL_COMPONENT := 0;
43     END IF;
44     RETURN ('');
45   END BAL_COMPONENT1FORMULA;
46 
47   FUNCTION BAL_COMPONENTFORMULA RETURN NUMBER IS
48   BEGIN
49     RETURN NULL;
50   END BAL_COMPONENTFORMULA;
51 
52   FUNCTION TOT_OVERDUE1FORMULA RETURN VARCHAR2 IS
53   BEGIN
54    /* EXECUTE IMMEDIATE
55       'SELECT nvl(round(:INT_COMPONENT,2),0) + nvl(round(:BAL_COMPONENT,2),0) INTO :TOT_OVERDUE from DUAL';
56     COMMIT;*/
57     RETURN ('');
58   END TOT_OVERDUE1FORMULA;
59 
60   FUNCTION TOT_OVERDUEFORMULA RETURN NUMBER IS
61   BEGIN
62     RETURN NULL;
63   END TOT_OVERDUEFORMULA;
64 
65   FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
66   BEGIN
67     SELECT
68       SUBSTR(USER
69             ,1
70             ,10)
71     INTO
72       CP_PARA
73     FROM
74       DUAL;
75     RETURN (CP_PARA);
76   END CF_SET_PARAFORMULA;
77 
78   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
79     L_DMMY_NUM NUMBER;
80     L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
81     CURSOR GET_LANGUAGE_DESC IS
82       SELECT
83         ITEM_NAME,
84         SUBSTR(TEXT
85               ,1
86               ,100) LANG_NAME
87       FROM
88         XTR_SYS_LANGUAGES_VL
89       WHERE MODULE_NAME = 'XTRTMAOD';
90   BEGIN
91        BEGIN
92       COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
93     EXCEPTION
94       WHEN OTHERS THEN
95         FND_MESSAGE.SET_NAME('XTR'
96                             ,'XTR_LOOKUP_ERR');
97         L_MESSAGE := FND_MESSAGE.GET;
98         RAISE_APPLICATION_ERROR(-20101
99                                ,NULL);
100     END;
101     IF (P_DISPLAY_DEBUG = 'Y') THEN
102       NULL;
103     END IF;
104     FOR c IN GET_LANGUAGE_DESC LOOP
105       IF C.ITEM_NAME = 'Z1AS_AT_DATE' THEN
106         Z1AS_AT_DATE := C.LANG_NAME;
107       ELSIF C.ITEM_NAME = 'Z1DEAL_NUMBER' THEN
108         Z1DEAL_NUMBER := C.LANG_NAME;
109       ELSIF C.ITEM_NAME = 'Z1ORDER_BY_COLUMN' THEN
110         Z1ORDER_BY_COLUMN := C.LANG_NAME;
111       ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
112         Z1PARAMETERS := C.LANG_NAME;
113       ELSIF C.ITEM_NAME = 'Z1PARTY_CODE' THEN
114         Z1PARTY_CODE := C.LANG_NAME;
115       ELSIF C.ITEM_NAME = 'Z1PARTY_NAME' THEN
116         Z1PARTY_NAME := C.LANG_NAME;
117       ELSIF C.ITEM_NAME = 'Z1PRODUCT' THEN
118         Z1PRODUCT := C.LANG_NAME;
119       ELSIF C.ITEM_NAME = 'Z1SHOW_DETAILS' THEN
120         Z1SHOW_DETAILS := C.LANG_NAME;
121       ELSIF C.ITEM_NAME = 'Z2AMOUNT' THEN
122         Z2AMOUNT := C.LANG_NAME;
123       ELSIF C.ITEM_NAME = 'Z2BALANCE' THEN
124         Z2BALANCE := C.LANG_NAME;
125       ELSIF C.ITEM_NAME = 'Z2CLIENT' THEN
126         Z2CLIENT := C.LANG_NAME;
127       ELSIF C.ITEM_NAME = 'Z2CLIENT_NAME' THEN
128         Z2CLIENT_NAME := C.LANG_NAME;
129       ELSIF C.ITEM_NAME = 'Z2CODE' THEN
130         Z2CODE := C.LANG_NAME;
131       ELSIF C.ITEM_NAME = 'Z2CURRENT' THEN
132         Z2CURRENT := C.LANG_NAME;
133       ELSIF C.ITEM_NAME = 'Z2DEAL' THEN
134         Z2DEAL := C.LANG_NAME;
135       ELSIF C.ITEM_NAME = 'Z2DUE_DATE' THEN
136         Z2DUE_DATE := C.LANG_NAME;
137       ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
138         Z2END_OF_REPORT := C.LANG_NAME;
139       ELSIF C.ITEM_NAME = 'Z2INTEREST' THEN
140         Z2INTEREST := C.LANG_NAME;
141       ELSIF C.ITEM_NAME = 'Z2MOST_RECENT' THEN
142         Z2MOST_RECENT := C.LANG_NAME;
143       ELSIF C.ITEM_NAME = 'Z2NUMBER' THEN
144         Z2NUMBER := C.LANG_NAME;
145       ELSIF C.ITEM_NAME = 'Z2OVERDUE_AMOUNTS' THEN
146         Z2OVERDUE_AMOUNTS := C.LANG_NAME;
147       ELSIF C.ITEM_NAME = 'Z2OVERDUE_AMOUNTS_BY_PERIODS' THEN
148         Z2OVERDUE_AMOUNTS_BY_PERIODS := C.LANG_NAME;
149       ELSIF C.ITEM_NAME = 'Z2PRINCIPAL' THEN
150         Z2PRINCIPAL := C.LANG_NAME;
151       ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
152         Z2PRODUCT := C.LANG_NAME;
153       ELSIF C.ITEM_NAME = 'Z2RECEIVED' THEN
154         Z2RECEIVED := C.LANG_NAME;
155       ELSIF C.ITEM_NAME = 'Z2ROLLOVER' THEN
156         Z2ROLLOVER := C.LANG_NAME;
157       ELSIF C.ITEM_NAME = 'Z2TOTAL' THEN
158         Z2TOTAL := C.LANG_NAME;
159       ELSIF C.ITEM_NAME = 'Z2TOTAL_DUE' THEN
160         Z2TOTAL_DUE := C.LANG_NAME;
161       ELSIF C.ITEM_NAME = 'Z2TYPE' THEN
162         Z2TYPE := C.LANG_NAME;
163       ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
164         Z2PAGE := C.LANG_NAME;
165       ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
166         REPORT_DATE := C.LANG_NAME;
167       END IF;
168     END LOOP;
169     RETURN (TRUE);
170   END BEFOREREPORT;
171 
172   FUNCTION AFTERREPORT RETURN BOOLEAN IS
173   BEGIN
174     RETURN (TRUE);
175   END AFTERREPORT;
176 
177   FUNCTION AFTERPFORM RETURN BOOLEAN IS
178   BEGIN
179     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
180     P_AS_OF_DATE_1 := TO_CHAR(TO_DATE(P_AS_OF_DATE
181                                    ,'YYYY/MM/DD HH24:MI:SS')
182                            ,'DD-MON-YYYY');
183     PRODUCT_TYPE2 := P_PRODUCT_TYPE;
184     CPARTY_CODE2 := P_CPARTY;
185     DEAL_NO2 := P_DEAL_NUMBER;
186     SHOW_DETAILS2 := P_INCLUDE_PREV_ACT;
187     AS_AT_DATE2 := P_AS_OF_DATE_1;
188     ORDER_BY_COLUMN2 := P_SORT_BY;
189     SELECT
190       MEANING
191     INTO
192       P_SHOW_DETAILS_DSP
193     FROM
194       FND_LOOKUPS
195     WHERE LOOKUP_TYPE = 'YES_NO'
196       AND LOOKUP_CODE = SHOW_DETAILS2;
197     SELECT
198       MEANING
199     INTO
200       P_SORT_BY_DSP
201     FROM
202       FND_LOOKUPS
203     WHERE LOOKUP_TYPE = 'XTR_MISC'
204       AND LOOKUP_CODE = ORDER_BY_COLUMN2;
205     SELECT
206       CP.USER_CONCURRENT_PROGRAM_NAME
207     INTO
208       REPORT_SHORT_NAME2
209     FROM
210       FND_CONCURRENT_PROGRAMS_VL CP,
211       FND_CONCURRENT_REQUESTS CR
212     WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
213       AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
214       AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
215       REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
216     RETURN (TRUE);
217   END AFTERPFORM;
218 
219   FUNCTION PRIN_AMT_DUEFORMULA(PI_AMOUNT_DUE IN NUMBER) RETURN NUMBER IS
220   BEGIN
221     RETURN (PI_AMOUNT_DUE - BAL_COMPONENT);
222   END PRIN_AMT_DUEFORMULA;
223 
224   FUNCTION INT_COMPONENT_P RETURN NUMBER IS
225   BEGIN
226     RETURN INT_COMPONENT;
227   END INT_COMPONENT_P;
228 
229   FUNCTION BAL_COMPONENT_P RETURN NUMBER IS
230   BEGIN
231     RETURN BAL_COMPONENT;
232   END BAL_COMPONENT_P;
233 
234   FUNCTION TOT_OVERDUE_P RETURN NUMBER IS
235   BEGIN
236     RETURN TOT_OVERDUE;
237   END TOT_OVERDUE_P;
238 
239   FUNCTION CP_PARA_P RETURN VARCHAR2 IS
240   BEGIN
241     RETURN CP_PARA;
242   END CP_PARA_P;
243 
244 END XTR_XTRTMAOD_XMLP_PKG;
245