1 PACKAGE BODY PA_PAXPCRFD_XMLP_PKG AS
2 /* $Header: PAXPCRFDB.pls 120.0 2008/01/02 11:43:44 krreddy noship $ */
3 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN (FALSE);
9 END GET_COVER_PAGE_VALUES;
10 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
11 BEGIN
12 DECLARE
13 INIT_FAILURE EXCEPTION;
14 YES_NO_MEANING VARCHAR2(10);
15 REV_STAT VARCHAR2(30);
16 BEGIN
17 LPA_DATE_LOW:=to_char(PA_DATE_LOW,'DD-MON-YY');
18 LPA_DATE_HIGH:=to_char(PA_DATE_HIGH,'DD-MON-YY');
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
21 /*SRW.USER_EXIT('FND GETPROFILE
22 NAME="PA_RULE_BASED_OPTIMIZER"
23 FIELD=":p_rule_optimizer"
24 PRINT_ERROR="N"')*/NULL;
25 P_DEBUG_MODE := FND_PROFILE.VALUE('PA_DEBUG_MODE');
26 IF INCLUDE_ACC_REV IS NOT NULL THEN
27 SELECT
28 MEANING
29 INTO YES_NO_MEANING
30 FROM
31 FND_LOOKUPS
32 WHERE LOOKUP_TYPE = 'YES_NO'
33 AND LOOKUP_CODE = INCLUDE_ACC_REV;
34 END IF;
35 C_INCLUDE := YES_NO_MEANING;
36 IF (GET_COMPANY_NAME <> TRUE) THEN
37 RAISE INIT_FAILURE;
38 END IF;
39 IF (NO_DATA_FOUND_FUNC <> TRUE) THEN
40 RAISE INIT_FAILURE;
41 END IF;
42 EXCEPTION
43 WHEN NO_DATA_FOUND THEN
44 IF (NO_DATA_FOUND_FUNC <> TRUE) THEN
45 RAISE INIT_FAILURE;
46 C_DUMMY_DATA := 'Y';
47 END IF;
48 WHEN OTHERS THEN
49 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
50 END;
51 RETURN (TRUE);
52 END BEFOREREPORT;
53 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
54 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
55 BEGIN
56 SELECT
57 GL.NAME
58 INTO L_NAME
59 FROM
60 GL_SETS_OF_BOOKS GL,
61 PA_IMPLEMENTATIONS PI
62 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
63 C_COMPANY_NAME_HEADER := L_NAME;
64 RETURN (TRUE);
65 EXCEPTION
66 WHEN OTHERS THEN
67 RETURN (FALSE);
68 END GET_COMPANY_NAME;
69 FUNCTION NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
70 MESSAGE_NAME VARCHAR2(80);
71 BEGIN
72 SELECT
73 trim(replace(MEANING,'*',''))
74 INTO MESSAGE_NAME
75 FROM
76 PA_LOOKUPS
77 WHERE LOOKUP_TYPE = 'MESSAGE'
78 AND LOOKUP_CODE = 'NO_DATA_FOUND';
79 C_NO_DATA_FOUND := MESSAGE_NAME;
80 RETURN (TRUE);
81 /*SRW.MESSAGE('1'
82 ,'no_data')*/NULL;
83 EXCEPTION
84 WHEN OTHERS THEN
85 RETURN (FALSE);
86 END NO_DATA_FOUND_FUNC;
87 FUNCTION AFTERREPORT RETURN BOOLEAN IS
88 BEGIN
89 BEGIN
90 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
91 END;
92 RETURN (TRUE);
93 END AFTERREPORT;
94 FUNCTION CF_CURRENCY_CODEFORMULA RETURN CHAR IS
95 BEGIN
96 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
97 END CF_CURRENCY_CODEFORMULA;
98 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
99 BEGIN
100 RETURN C_COMPANY_NAME_HEADER;
101 END C_COMPANY_NAME_HEADER_P;
102 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
103 BEGIN
104 RETURN C_NO_DATA_FOUND;
105 END C_NO_DATA_FOUND_P;
106 FUNCTION C_INCLUDE_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN C_INCLUDE;
109 END C_INCLUDE_P;
110 FUNCTION C_DUMMY_DATA_P RETURN VARCHAR2 IS
111 BEGIN
112 RETURN C_DUMMY_DATA;
113 END C_DUMMY_DATA_P;
114 END PA_PAXPCRFD_XMLP_PKG;