1 PACKAGE BODY IGI_IGIGBUCC_XMLP_PKG AS
2 /* $Header: IGIGBUCCB.pls 120.0.12010000.1 2008/07/29 08:58:10 appldev ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 IF P_RUN_AOL = 'Y' THEN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8 IF (P_DEBUG_SWITCH = 'Y') THEN
9 /*SRW.MESSAGE('1'
10 ,'After SRWINIT')*/NULL;
11 END IF;
12 /*SRW.REFERENCE(P_COA_ID)*/NULL;
13 IF (P_DEBUG_SWITCH = 'Y') THEN
14 /*SRW.MESSAGE('2'
15 ,'After USER_EXIT FND FLEXSQL ALL')*/NULL;
16 END IF;
17 IF (P_DEBUG_SWITCH = 'Y') THEN
18 /*SRW.MESSAGE('3'
19 ,'After USER_EXIT FND FLEXSQL MIN_MAX_FLEX')*/NULL;
20 END IF;
21 END IF;
22 RETURN (TRUE);
23 EXCEPTION
24 WHEN OTHERS THEN
25 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
26 RETURN (FALSE);
27 END BEFOREREPORT;
28
29 FUNCTION AFTERREPORT RETURN BOOLEAN IS
30 BEGIN
31 IF (P_RUN_AOL = 'Y') THEN
32 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
33 IF (P_DEBUG_SWITCH = 'Y') THEN
34 /*SRW.MESSAGE('4'
35 ,'After SRWEXIT')*/NULL;
36 END IF;
37 END IF;
38 RETURN (TRUE);
39 END AFTERREPORT;
40
41 FUNCTION CF_UPDATEFORMULA(CCID IN NUMBER) RETURN NUMBER IS
42 PRAGMA AUTONOMOUS_TRANSACTION;
43 BEGIN
44 UPDATE
45 GL_CODE_COMBINATIONS gcc
46 SET
47 IGI_BALANCED_BUDGET_FLAG = 'Y'
48 WHERE GCC.CODE_COMBINATION_ID = CCID;
49 COMMIT;
50 RETURN 0;
51 END CF_UPDATEFORMULA;
52
53 FUNCTION CF_NO_DATA_FOUNDFORMULA(NO_DATA IN VARCHAR2) RETURN NUMBER IS
54 BEGIN
55 CP_NO_DATA_FOUND := NO_DATA;
56 RETURN 0;
57 END CF_NO_DATA_FOUNDFORMULA;
58
59 FUNCTION CP_SELECT_ALL_P RETURN VARCHAR2 IS
60 BEGIN
61 RETURN CP_SELECT_ALL;
62 END CP_SELECT_ALL_P;
63
64 FUNCTION CP_WHERE_FLEX_P RETURN VARCHAR2 IS
65 BEGIN
66 RETURN CP_WHERE_FLEX;
67 END CP_WHERE_FLEX_P;
68
69 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
70 BEGIN
71 RETURN CP_NO_DATA_FOUND;
72 END CP_NO_DATA_FOUND_P;
73
74 END IGI_IGIGBUCC_XMLP_PKG;
75