1 PACKAGE BODY PAY_PYAUFBR_XMLP_PKG AS
2 /* $Header: PYAUFBRB.pls 120.0 2007/12/13 12:14:15 amakrish noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 END AFTERREPORT;
7
8 FUNCTION CF_BUSINESS_GROUPFORMULA RETURN VARCHAR2 IS
9 V_BUSINESS_GROUP HR_ALL_ORGANIZATION_UNITS.NAME%TYPE;
10 BEGIN
11 V_BUSINESS_GROUP := HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
12 RETURN V_BUSINESS_GROUP;
13 END CF_BUSINESS_GROUPFORMULA;
14
15 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
16 START1 DATE;
17 END1 DATE;
18 BEGIN
19 P_START := TO_CHAR(P_START_DATE
20 ,'DD-MON-YYYY');
21 P_END := TO_CHAR(P_END_DATE
22 ,'DD-MON-YYYY');
23 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
24 RETURN (TRUE);
25 END BEFOREREPORT;
26
27 FUNCTION CF_LEGISLATION_CODEFORMULA RETURN VARCHAR2 IS
28 V_LEGISLATION_CODE HR_ORGANIZATION_INFORMATION.ORG_INFORMATION9%TYPE := NULL;
29 CURSOR LEGISLATION_CODE(C_BUSINESS_GROUP_ID IN HR_ORGANIZATION_INFORMATION.ORGANIZATION_ID%TYPE) IS
30 SELECT
31 ORG_INFORMATION9
32 FROM
33 HR_ORGANIZATION_INFORMATION
34 WHERE ORGANIZATION_ID = C_BUSINESS_GROUP_ID
35 AND ORG_INFORMATION9 is not null
36 AND ORG_INFORMATION_CONTEXT = 'Business Group Information';
37 BEGIN
38 OPEN LEGISLATION_CODE(P_BUSINESS_GROUP_ID);
39 FETCH LEGISLATION_CODE
40 INTO
41 V_LEGISLATION_CODE;
42 CLOSE LEGISLATION_CODE;
43 RETURN V_LEGISLATION_CODE;
44 END CF_LEGISLATION_CODEFORMULA;
45
46 FUNCTION CF_CURRENCY_FORMAT_MASKFORMULA(CF_LEGISLATION_CODE IN VARCHAR2) RETURN VARCHAR2 IS
47 V_CURRENCY_CODE FND_CURRENCIES.CURRENCY_CODE%TYPE;
48 V_FORMAT_MASK VARCHAR2(100) := NULL;
49 V_FIELD_LENGTH NUMBER(3) := 15;
50 CURSOR CURRENCY_FORMAT_MASK(C_TERRITORY_CODE IN FND_CURRENCIES.ISSUING_TERRITORY_CODE%TYPE) IS
51 SELECT
52 CURRENCY_CODE
53 FROM
54 FND_CURRENCIES
55 WHERE ISSUING_TERRITORY_CODE = C_TERRITORY_CODE;
56 BEGIN
57 OPEN CURRENCY_FORMAT_MASK(CF_LEGISLATION_CODE);
58 FETCH CURRENCY_FORMAT_MASK
59 INTO
60 V_CURRENCY_CODE;
61 CP_CURRENCY_CODE := '( ' || V_CURRENCY_CODE || ' )';
62 CLOSE CURRENCY_FORMAT_MASK;
63 V_FORMAT_MASK := FND_CURRENCY.GET_FORMAT_MASK(V_CURRENCY_CODE
64 ,V_FIELD_LENGTH);
65 RETURN V_FORMAT_MASK;
66 END CF_CURRENCY_FORMAT_MASKFORMULA;
67
68 FUNCTION CF_EXISTSFORMULA(CS_EXISTS IN NUMBER) RETURN CHAR IS
69 BEGIN
70 IF CS_EXISTS > 0 THEN
71 RETURN 'End of Report';
72 ELSIF CS_EXISTS = 0 THEN
73 RETURN 'No Data Found';
74 END IF;
75 END CF_EXISTSFORMULA;
76
77 FUNCTION CP_CURRENCY_CODE_P RETURN VARCHAR2 IS
78 BEGIN
79 RETURN CP_CURRENCY_CODE;
80 END CP_CURRENCY_CODE_P;
81
82 END PAY_PYAUFBR_XMLP_PKG;