1 PACKAGE BODY PA_PAXCCARS_XMLP_PKG AS
2 /* $Header: PAXCCARSB.pls 120.0 2008/01/02 11:22:37 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
11 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12 BEGIN
13 DECLARE
14 INIT_FAILURE EXCEPTION;
15 NDF VARCHAR2(80);
16 ERRBUF VARCHAR2(80);
17 RETCODE VARCHAR2(15);
18 BEGIN
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_DEBUG_MODE"
23 FIELD=":p_debug_mode"
24 PRINT_ERROR="N"')*/NULL;
25 P_RULE_OPTIMIZER := FND_PROFILE.VALUE('PA_RULE_BASED_OPTIMIZER');
26 IF (GET_COMPANY_NAME <> TRUE) THEN
27 RAISE INIT_FAILURE;
28 END IF;
29 SELECT
30 MEANING
31 INTO NDF
32 FROM
33 PA_LOOKUPS
34 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
35 AND LOOKUP_TYPE = 'MESSAGE';
36 C_NO_DATA_FOUND := NDF;
37 PA_COST_PLUS.COMPILE_ALL(ERRBUF
38 ,RETCODE);
39 EXCEPTION
40 WHEN NO_DATA_FOUND THEN
41 SELECT
42 MEANING
43 INTO NDF
44 FROM
45 PA_LOOKUPS
46 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
47 AND LOOKUP_TYPE = 'MESSAGE';
48 C_NO_DATA_FOUND := NDF;
49 C_DUMMY_DATA := 1;
50 WHEN OTHERS THEN
51 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
52 END;
53 RETURN (TRUE);
54 END BEFOREREPORT;
55
56 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
57 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
58 BEGIN
59 SELECT
60 NAME
61 INTO L_NAME
62 FROM
63 GL_SETS_OF_BOOKS
64 WHERE SET_OF_BOOKS_ID = FND_PROFILE.VALUE('GL_SET_OF_BKS_ID');
65 C_COMPANY_NAME_HEADER := L_NAME;
66 RETURN (TRUE);
67 EXCEPTION
68 WHEN OTHERS THEN
69 RETURN (FALSE);
70 END GET_COMPANY_NAME;
71
72 FUNCTION AFTERREPORT RETURN BOOLEAN IS
73 BEGIN
74 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
75 RETURN (TRUE);
76 END AFTERREPORT;
77
78 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
79 BEGIN
80 RETURN C_COMPANY_NAME_HEADER;
81 END C_COMPANY_NAME_HEADER_P;
82
83 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
84 BEGIN
85 RETURN C_NO_DATA_FOUND;
86 END C_NO_DATA_FOUND_P;
87
88 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
89 BEGIN
90 RETURN C_DUMMY_DATA;
91 END C_DUMMY_DATA_P;
92
93 END PA_PAXCCARS_XMLP_PKG;
94