1 PACKAGE BODY IGC_IGCCLDER_XMLP_PKG AS
2 /* $Header: IGCCLDERB.pls 120.0.12010000.1 2008/07/28 06:29:28 appldev ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 COAID NUMBER;
5 SOBNAME VARCHAR2(30);
6 FUNCTCURR VARCHAR2(15);
7 ERRBUF VARCHAR2(132);
8 ERRBUF2 VARCHAR2(132);
9 BEGIN
10 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
11 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
12 GL_INFO.GL_GET_LEDGER_INFO(P_SET_OF_BOOKS_ID
13 ,COAID
14 ,SOBNAME
15 ,FUNCTCURR
16 ,ERRBUF);
17 IF (ERRBUF IS NOT NULL) THEN
18 ERRBUF2 := GL_MESSAGE.GET_MESSAGE('GL_PLL_ROUTINE_ERROR'
19 ,'N'
20 ,'ROUTINE'
21 ,'gl_get_set_of_books_info');
22 /*SRW.MESSAGE('00'
23 ,ERRBUF2)*/NULL;
24 /*SRW.MESSAGE('00'
25 ,ERRBUF)*/NULL;
26 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
27 END IF;
28 SET_OF_BOOKS_NAME := SOBNAME;
29 CURRENCY_CODE := FUNCTCURR;
30 SELECT
31 NAME
32 INTO ORG_NAME
33 FROM
34 HR_OPERATING_UNITS
35 WHERE ORGANIZATION_ID = P_ORG_ID;
36 RETURN (TRUE);
37 END BEFOREREPORT;
38
39 FUNCTION AFTERREPORT RETURN BOOLEAN IS
40 BEGIN
41 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
42 RETURN (TRUE);
43 END AFTERREPORT;
44
45 FUNCTION AFTERPFORM RETURN BOOLEAN IS
46 BEGIN
47 RETURN (TRUE);
48 END AFTERPFORM;
49
50 FUNCTION DSP_STATUSFORMULA RETURN CHAR IS
51 CURSOR C_COUNT IS
52 SELECT
53 count(*)
54 FROM
55 IGC_CC_INTERFACE_ERRORS IGE
56 WHERE IGE.BATCH_ID = P_BATCH_ID;
57 CURSOR C_MEANING(P_LOOKUP_CODE IN VARCHAR2) IS
58 SELECT
59 MEANING
60 FROM
61 FND_LOOKUPS FND
62 WHERE LOOKUP_TYPE = 'IGC_BATCH_STATUS'
63 AND LOOKUP_CODE = P_LOOKUP_CODE;
64 L_COUNT NUMBER;
65 L_MEANING VARCHAR2(80);
66 BEGIN
67 OPEN C_COUNT;
68 FETCH C_COUNT
69 INTO L_COUNT;
70 CLOSE C_COUNT;
71 IF L_COUNT = 0 THEN
72 OPEN C_MEANING('SUCCESS');
73 FETCH C_MEANING
74 INTO L_MEANING;
75 CLOSE C_MEANING;
76 ELSE
77 OPEN C_MEANING('ERROR');
78 FETCH C_MEANING
79 INTO L_MEANING;
80 CLOSE C_MEANING;
81 END IF;
82 RETURN L_MEANING;
83 EXCEPTION
84 WHEN OTHERS THEN
85 IF C_COUNT%ISOPEN THEN
86 CLOSE C_COUNT;
87 END IF;
88 IF C_MEANING%ISOPEN THEN
89 CLOSE C_MEANING;
90 END IF;
91 RETURN NULL;
92 END DSP_STATUSFORMULA;
93
94 FUNCTION DSP_TOT_HEADERSFORMULA RETURN NUMBER IS
95 L_HEADERS NUMBER;
96 BEGIN
97 SELECT
98 COUNT(INTERFACE_HEADER_ID)
99 INTO L_HEADERS
100 FROM
101 IGC_CC_HEADERS_INTERFACE
102 WHERE BATCH_ID = P_BATCH_ID;
103 RETURN L_HEADERS;
104 EXCEPTION
105 WHEN OTHERS THEN
106 RETURN 0;
107 END DSP_TOT_HEADERSFORMULA;
108
109 FUNCTION DSP_TOT_ERRORSFORMULA RETURN NUMBER IS
110 L_ERRORS NUMBER;
111 BEGIN
112 SELECT
113 count(distinct INTERFACE_HEADER_ID)
114 INTO L_ERRORS
115 FROM
116 IGC_CC_INTERFACE_ERRORS
117 WHERE BATCH_ID = P_BATCH_ID;
118 RETURN L_ERRORS;
119 EXCEPTION
120 WHEN OTHERS THEN
121 RETURN 0;
122 END DSP_TOT_ERRORSFORMULA;
123
124 FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
125 BEGIN
126 RETURN SET_OF_BOOKS_NAME;
127 END SET_OF_BOOKS_NAME_P;
128
129 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
130 BEGIN
131 RETURN CURRENCY_CODE;
132 END CURRENCY_CODE_P;
133
134 FUNCTION ORG_NAME_P RETURN VARCHAR2 IS
135 BEGIN
136 RETURN ORG_NAME;
137 END ORG_NAME_P;
138
139 END IGC_IGCCLDER_XMLP_PKG;