1 PACKAGE BODY OKS_OKSFOSUM_XMLP_PKG AS
2 /* $Header: OKSFOSUMB.pls 120.2 2007/12/25 07:57:32 nchinnam noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 CURSOR ORG IS
5 SELECT
6 NAME
7 FROM
8 HR_OPERATING_UNITS
9 WHERE ORGANIZATION_ID = LP_OPERATING_UNIT;
10 APF BOOLEAN;
11 BEGIN
12 APF := AFTERPFORM;
13 IF LP_OPERATING_UNIT IS NOT NULL THEN
14 MO_GLOBAL.SET_POLICY_CONTEXT('S'
15 ,LP_OPERATING_UNIT);
16 END IF;
17 IF LP_OPERATING_UNIT IS NOT NULL THEN
18 OPEN ORG;
19 FETCH ORG
20 INTO CP_ORG_NAME;
21 CLOSE ORG;
22 END IF;
23 OKS_EXTWAR_UTIL_PVT.CALCULATE_REV_REC(P_CONC_REQUEST_ID => OKS_OKSFOSUM_XMLP_PKG.P_CONC_REQUEST_ID
24 ,P_CONTRACT_GROUP => OKS_OKSFOSUM_XMLP_PKG.P_CONTRACT_GROUP
25 ,P_ORGID => LP_OPERATING_UNIT
26 ,P_FORFDATE => P_START_DATE
27 ,P_FORTDATE => P_END_DATE
28 ,P_MIN => P_MIN_VAL
29 ,P_MAX => P_MAX_VAL
30 ,P_REGZ_DATE => P_REV_REC_DATE
31 ,P_CURR => P_CURRENCY_CODE);
32 RETURN (TRUE);
33 END BEFOREREPORT;
34 FUNCTION AFTERPFORM RETURN BOOLEAN IS
35 CURSOR ORG IS
36 SELECT
37 NAME
41 CURSOR C3(CN_CONTRACT_GROUP_ID IN NUMBER) IS
38 FROM
39 HR_OPERATING_UNITS
40 WHERE ORGANIZATION_ID = LP_OPERATING_UNIT;
42 SELECT
43 NAME
44 FROM
45 OKC_K_GROUPS_V
46 WHERE ID = CN_CONTRACT_GROUP_ID;
47 BEGIN
48 BEGIN
49 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
50 LP_OPERATING_UNIT := P_OPERATING_UNIT;
51 P_START_DATE1 := to_char(P_START_DATE,'DD-MON-YY');
52 P_END_DATE1 := to_Char(P_END_DATE,'DD-MON-YY');
53 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
54 EXCEPTION
55 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
56 /*SRW.MESSAGE(1
57 ,'srw_init')*/NULL;
58 END;
59 IF (LP_OPERATING_UNIT IS NULL) THEN
60 IF FND_PROFILE.VALUE('OKC_VIEW_K_BY_ORG') = 'Y' THEN
61 LP_OPERATING_UNIT := FND_PROFILE.VALUE('ORG_ID');
62 END IF;
63 END IF;
64 IF LP_OPERATING_UNIT IS NOT NULL THEN
65 OPEN ORG;
66 FETCH ORG
67 INTO P_ORG_NAME;
68 CLOSE ORG;
69 END IF;
70 IF P_CONTRACT_GROUP IS NOT NULL THEN
71 P_CONTRACT_GROUP_NAME := NULL;
72 OPEN C3(P_CONTRACT_GROUP);
73 FETCH C3
74 INTO P_CONTRACT_GROUP_NAME;
75 CLOSE C3;
76 END IF;
77 RETURN (TRUE);
78 END AFTERPFORM;
79 FUNCTION AFTERREPORT RETURN BOOLEAN IS
80 BEGIN
81 DELETE FROM OKS_STATUS_FORECAST
82 WHERE CONC_REQUEST_ID = P_CONC_REQUEST_ID;
83 COMMIT;
84 BEGIN
85 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
86 EXCEPTION
87 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
88 /*SRW.MESSAGE(1
89 ,'srw_exit')*/NULL;
90 END;
91 RETURN (TRUE);
92 END AFTERREPORT;
93 FUNCTION P_WHERE_CLAUSE_P RETURN VARCHAR2 IS
94 BEGIN
95 RETURN P_WHERE_CLAUSE;
96 END P_WHERE_CLAUSE_P;
97 FUNCTION CP_ORG_NAME_P RETURN VARCHAR2 IS
98 BEGIN
99 RETURN CP_ORG_NAME;
100 END CP_ORG_NAME_P;
101 END OKS_OKSFOSUM_XMLP_PKG;
102