1 PACKAGE BODY CE_CEBSLERR_XMLP_PKG AS
2 /* $Header: CEBSLERRB.pls 120.0 2007/12/28 07:48:16 abraghun noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 DECLARE
6 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
7 BEGIN
8 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9 select SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
10 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2))
11 into P_MAP_ID_1,P_FILE_NAME_1
12 from FND_CONCURRENT_REQUESTS
13 where request_id=P_CONC_REQUEST_ID;
14 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
15 COMMIT;
16 SELECT
17 count(*)
18 INTO CP_FATAL_ERR_COUNT
19 FROM
20 CE_SQLLDR_ERRORS
21 WHERE REC_NO IS NULL
22 OR STATEMENT_NUMBER IS NULL
23 OR BANK_ACCOUNT_NUM IS NULL;
24 SELECT
25 count(*)
26 INTO CP_TOTAL_ERR_COUNT
27 FROM
28 CE_SQLLDR_ERRORS;
29 /*SRW.REFERENCE(P_MAP_ID)*/NULL;
30 IF (P_MAP_ID_1 IS NOT NULL) THEN
31 BEGIN
32 SELECT
33 FORMAT_NAME,
34 DESCRIPTION,
35 FORMAT_TYPE,
36 RTRIM(CONTROL_FILE_NAME
37 ,'.ctl') || '.ctl'
38 INTO C_NAME,C_DESCRIPTION,C_FORMAT_TYPE,C_CONTROL_FILE_NAME
39 FROM
40 CE_BANK_STMT_INT_MAP
41 WHERE MAP_ID = P_MAP_ID_1;
42 EXCEPTION
43 WHEN NO_DATA_FOUND THEN
44 /*SRW.MESSAGE('10'
45 ,'no data found in pre-query')*/NULL;
46 WHEN TOO_MANY_ROWS THEN
47 /*SRW.MESSAGE('12'
48 ,'too many rows')*/NULL;
49 WHEN OTHERS THEN
50 FND_MESSAGE.SET_NAME('CE'
51 ,'CE_INVALID_SQLLDR');
52 L_MESSAGE := FND_MESSAGE.GET;
53 /*SRW.MESSAGE('1'
54 ,L_MESSAGE)*/NULL;
55 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
56 END;
57 COMMIT;
58 IF (P_DEBUG_MODE = 'Y') THEN
59 /*SRW.BREAK*/NULL;
60 END IF;
61 END IF;
62 END;
63 RETURN (TRUE);
64 END BEFOREREPORT;
65
66 FUNCTION AFTERREPORT RETURN BOOLEAN IS
67 BEGIN
68 BEGIN
69 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
70 END;
71 RETURN (TRUE);
72 END AFTERREPORT;
73
74 FUNCTION C_NAME_P RETURN VARCHAR2 IS
75 BEGIN
76 RETURN C_NAME;
77 END C_NAME_P;
78
79 FUNCTION C_DESCRIPTION_P RETURN VARCHAR2 IS
80 BEGIN
81 RETURN C_DESCRIPTION;
82 END C_DESCRIPTION_P;
83
84 FUNCTION C_FORMAT_TYPE_P RETURN VARCHAR2 IS
85 BEGIN
86 RETURN C_FORMAT_TYPE;
87 END C_FORMAT_TYPE_P;
88
89 FUNCTION C_CONTROL_FILE_NAME_P RETURN VARCHAR2 IS
90 BEGIN
91 RETURN C_CONTROL_FILE_NAME;
92 END C_CONTROL_FILE_NAME_P;
93
94 FUNCTION CP_FATAL_ERR_COUNT_P RETURN NUMBER IS
95 BEGIN
96 RETURN CP_FATAL_ERR_COUNT;
97 END CP_FATAL_ERR_COUNT_P;
98
99 FUNCTION CP_TOTAL_ERR_COUNT_P RETURN NUMBER IS
100 BEGIN
101 RETURN CP_TOTAL_ERR_COUNT;
102 END CP_TOTAL_ERR_COUNT_P;
103
104 END CE_CEBSLERR_XMLP_PKG;
105