[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRMDTRP_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRMDTRP_XMLP_PKG AS
2 /* $Header: XTRMDTRPB.pls 120.1 2007/12/28 12:55:02 npannamp noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 RETURN (TRUE);
7 END AFTERREPORT;
8 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
9 BEGIN
10 RETURN (TRUE);
11 END BETWEENPAGE;
12 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
13 V_APP_ID NUMBER;
14 CURSOR SUMS_CURSOR IS
15 SELECT
16 CNT
17 FROM
18 ( SELECT
19 count(*) CNT
20 FROM
21 XTR_MARKET_DATA_INTERFACE
22 WHERE RETURN_CODE >= 50
23 UNION ALL
24 SELECT
25 count(*) CNT
26 FROM
27 XTR_MARKET_DATA_INTERFACE
28 WHERE RETURN_CODE < 40
29 UNION ALL
30 SELECT
31 count(*) CNT
32 FROM
33 XTR_MARKET_DATA_INTERFACE
34 WHERE RETURN_CODE = 40 );
35 CURSOR SYS_LANGUAGES_CURSOR IS
36 SELECT
37 ITEM_NAME,
38 SUBSTR(TEXT
39 ,1
40 ,100) LANG_NAME
41 FROM
42 XTR_SYS_LANGUAGES_VL
43 WHERE MODULE_NAME = 'XTRMDTRP';
44 BEGIN
45 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
46 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
47 BEGIN
48 P_COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
49 EXCEPTION
50 WHEN OTHERS THEN
51 FND_MESSAGE.SET_NAME('XTR'
52 ,'XTR_LOOKUP_ERR');
53 /*SRW.MESSAGE('99'
54 ,FND_MESSAGE.GET)*/NULL;
55 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
56 END;
57 SELECT
58 FCPV.USER_CONCURRENT_PROGRAM_NAME,
59 FCR.PROGRAM_APPLICATION_ID
60 INTO P_REPORT_TITLE,V_APP_ID
61 FROM
62 FND_CONCURRENT_PROGRAMS_VL FCPV,
63 FND_CONCURRENT_REQUESTS FCR
64 WHERE FCR.REQUEST_ID = P_CONC_REQUEST_ID
65 AND FCPV.APPLICATION_ID = FCR.PROGRAM_APPLICATION_ID
66 AND FCPV.CONCURRENT_PROGRAM_ID = FCR.CONCURRENT_PROGRAM_ID;
67 P_REPORT_TITLE:= substr(P_REPORT_TITLE,1,instr(P_REPORT_TITLE,' (XML)'));
68 SELECT
69 FORM_LEFT_PROMPT
70 INTO P_ERRORS_ONLY_LABEL
71 FROM
72 FND_DESCR_FLEX_COL_USAGE_VL
73 WHERE APPLICATION_ID = V_APP_ID
74 AND DESCRIPTIVE_FLEXFIELD_NAME = '$SRS$.XTRMDTRP'
75 AND SRW_PARAM = 'P_ERRORS_ONLY';
76 FOR lang IN SYS_LANGUAGES_CURSOR LOOP
77 IF LANG.ITEM_NAME = 'P_REPORT_DATE' THEN
78 P_REPORT_DATE := LANG.LANG_NAME;
79 ELSIF LANG.ITEM_NAME = 'P_PAGE' THEN
80 P_PAGE := LANG.LANG_NAME;
81 ELSIF LANG.ITEM_NAME = 'P_REJECTED_SUM_LABEL' THEN
82 P_REJECTED_SUM_LABEL := LANG.LANG_NAME;
83 ELSIF LANG.ITEM_NAME = 'P_CURRENT_SUM_LABEL' THEN
84 P_CURRENT_SUM_LABEL := LANG.LANG_NAME;
85 ELSIF LANG.ITEM_NAME = 'P_HISTORIC_SUM_LABEL' THEN
86 P_HISTORIC_SUM_LABEL := LANG.LANG_NAME;
87 ELSIF LANG.ITEM_NAME = 'P_REJECTED' THEN
88 P_REJECTED := LANG.LANG_NAME;
89 ELSIF LANG.ITEM_NAME = 'P_TRANSFERRED' THEN
90 P_TRANSFERRED := LANG.LANG_NAME;
91 ELSIF LANG.ITEM_NAME = 'P_SOURCE' THEN
92 P_SOURCE := LANG.LANG_NAME;
93 ELSIF LANG.ITEM_NAME = 'P_EXTERNAL_REF_CODE' THEN
94 P_EXTERNAL_REF_CODE := LANG.LANG_NAME;
95 ELSIF LANG.ITEM_NAME = 'P_BID' THEN
96 P_BID := LANG.LANG_NAME;
97 ELSIF LANG.ITEM_NAME = 'P_ASK' THEN
98 P_ASK := LANG.LANG_NAME;
99 ELSIF LANG.ITEM_NAME = 'P_MID' THEN
100 P_MID := LANG.LANG_NAME;
101 ELSIF LANG.ITEM_NAME = 'P_SPREAD' THEN
102 P_SPREAD := LANG.LANG_NAME;
103 ELSIF LANG.ITEM_NAME = 'P_DATE' THEN
104 P_DATE := LANG.LANG_NAME;
105 ELSIF LANG.ITEM_NAME = 'P_REF_CODE' THEN
106 P_REF_CODE := LANG.LANG_NAME;
107 ELSIF LANG.ITEM_NAME = 'P_END_REPORT' THEN
108 P_END_REPORT := LANG.LANG_NAME;
109 END IF;
110 END LOOP;
111 OPEN SUMS_CURSOR;
112 FETCH SUMS_CURSOR
113 INTO P_REJECTED_SUM;
114 FETCH SUMS_CURSOR
115 INTO P_CURRENT_SUM;
116 FETCH SUMS_CURSOR
117 INTO P_HISTORIC_SUM;
118 CLOSE SUMS_CURSOR;
119 RETURN (TRUE);
120 END BEFOREREPORT;
121 FUNCTION AFTERPFORM RETURN BOOLEAN IS
122 BEGIN
123 RETURN (TRUE);
124 END AFTERPFORM;
125 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
126 BEGIN
127 RETURN (TRUE);
128 END BEFOREPFORM;
129 FUNCTION CF_DATEFORMATFORMULA(CF_DATEFORMAT IN VARCHAR2) RETURN CHAR IS
130 BEGIN
131 /*SRW.USER_EXIT('FND DATEFORMAT :CF_DATEFORMAT')*/NULL;
132 RETURN (CF_DATEFORMAT);
133 END CF_DATEFORMATFORMULA;
134 END XTR_XTRMDTRP_XMLP_PKG;
135