1 PACKAGE BODY ONT_OEXORDTP_XMLP_PKG AS
2 /* $Header: OEXORDTPB.pls 120.2 2008/01/04 09:32:40 nchinnam noship $ */
3
4 function BEFOREREPORT return boolean
5 is
6 begin
7 DECLARE
8 BEGIN
9 BEGIN
10 /*SRW.USER_EXIT('FND SRWINIT');*/
11 null;
12 /* EXCEPTION WHEN USER_EXIT_FAILURE SRW.USER_EXIT_FAILURE THEN */
13 /*SRW.MESSAGE(1000, 'FAILED IN BEFORE REPORT TRIGGER');*/
14 null;
15 END;
16 DECLARE l_org_name VARCHAR2(100);
17 BEGIN SELECT sob.name INTO l_org_name FROM gl_sets_of_books sob WHERE sob.set_of_books_id = p_sob_id; rp_org_name := l_org_name;
18 EXCEPTION WHEN NO_DATA_FOUND THEN NULL;
19 END;
20 DECLARE l_report_name VARCHAR2(240);
21 BEGIN SELECT cp.user_concurrent_program_name INTO l_report_name FROM
22 FND_CONCURRENT_PROGRAMS_VL cp,
23 FND_CONCURRENT_REQUESTS cr WHERE cr.request_id = P_CONC_REQUEST_ID AND cp.application_id = cr.program_application_id AND cp.concurrent_program_id = cr.concurrent_program_id ;
24 RP_Report_Name := l_report_name;
25 --EXCEPTION WHEN NO_DATA_FOUND THEN RP_REPORT_NAME := 'Transaction Types Listing';
26 EXCEPTION WHEN NO_DATA_FOUND THEN RP_REPORT_NAME := 'Transaction Types Listing Report';
27 END;
28 BEGIN /*srw.user_exit('FND SRWINIT');*/
29 null;
30 /*srw.reference(P_STRUCT_NUM );*/
31 null;
32 null;
33 END;
34 END;
35 return (TRUE);
36 end;
37
38 FUNCTION AFTERPFORM RETURN BOOLEAN IS
39 BEGIN
40 DECLARE
41 LP_ORDER_CATEGORY VARCHAR2(80);
42 BEGIN
43 IF P_TRXN_TYPE_LO IS NOT NULL AND P_TRXN_TYPE_HI IS NOT NULL THEN
44 LP_WHERE_CLAUSE := 'tv.name between ''' || P_TRXN_TYPE_LO || '''
45 and ''' || P_TRXN_TYPE_HI || ''' and';
46 ELSIF P_TRXN_TYPE_LO IS NULL AND P_TRXN_TYPE_HI IS NOT NULL THEN
47 LP_WHERE_CLAUSE := 'tv.name = ''' || P_TRXN_TYPE_HI || ''' and';
48 ELSIF P_TRXN_TYPE_LO IS NOT NULL AND P_TRXN_TYPE_HI IS NULL THEN
49 LP_WHERE_CLAUSE := 'tv.name = ''' || P_TRXN_TYPE_LO || ''' and';
50 ELSE
51 IF P_TRXN_TYPE_CODE IS NOT NULL AND P_ORDER_CATEGORY IS NOT NULL THEN
52 IF P_TRXN_TYPE_CODE = 'LINE' THEN
53 IF P_ORDER_CATEGORY = 'SALES' THEN
54 LP_ORDER_CATEGORY := ' and tv.order_category_code in (''ORDER'') ';
55 ELSIF P_ORDER_CATEGORY = 'CREDIT' THEN
56 LP_ORDER_CATEGORY := ' and tv.order_category_code in (''RETURN'') ';
57 ELSIF P_ORDER_CATEGORY = 'ALL' THEN
58 LP_ORDER_CATEGORY := ' and tv.order_category_code in (''ORDER'', ''RETURN'') ';
59 END IF;
60 ELSIF P_TRXN_TYPE_CODE = 'ORDER' THEN
61 IF P_ORDER_CATEGORY = 'SALES' THEN
62 LP_ORDER_CATEGORY := ' and tv.order_category_code in (''ORDER'', ''MIXED'') ';
63 ELSIF P_ORDER_CATEGORY = 'CREDIT' THEN
64 LP_ORDER_CATEGORY := ' and tv.order_category_code in (''RETURN'', ''MIXED'') ';
65 ELSIF P_ORDER_CATEGORY = 'ALL' THEN
66 LP_ORDER_CATEGORY := ' and tv.order_category_code in (''ORDER'', ''RETURN'', ''MIXED'') ';
67 END IF;
68 END IF;
69 LP_WHERE_CLAUSE := 'tv.transaction_type_code =''' || P_TRXN_TYPE_CODE || '''' || LP_ORDER_CATEGORY || ' and ';
70 ELSIF P_TRXN_TYPE_CODE IS NOT NULL AND P_ORDER_CATEGORY IS NULL THEN
71 LP_WHERE_CLAUSE := 'tv.transaction_type_code = ''' || P_TRXN_TYPE_CODE || ''' and ';
72 ELSIF P_TRXN_TYPE_CODE IS NULL AND LP_ORDER_CATEGORY IS NOT NULL THEN
73 IF P_ORDER_CATEGORY = 'SALES' THEN
74 LP_ORDER_CATEGORY := 'and tv.order_category_code in (''ORDER'', ''MIXED'') ';
75 ELSIF P_ORDER_CATEGORY = 'CREDIT' THEN
76 LP_ORDER_CATEGORY := 'and tv.order_category_code in (''RETURN'', ''MIXED'') ';
77 ELSIF P_ORDER_CATEGORY = 'ALL' THEN
78 LP_ORDER_CATEGORY := 'and tv.order_category_code in (''ORDER'', ''RETURN'', ''MIXED'') ';
79 END IF;
80 LP_WHERE_CLAUSE := 'tv.order_category_code = ''' || LP_ORDER_CATEGORY || ''' and';
81 ELSE
82 LP_WHERE_CLAUSE := ' ';
83 END IF;
84 END IF;
85 END;
86 RETURN (TRUE);
87 END AFTERPFORM;
88
89 FUNCTION AFTERREPORT RETURN BOOLEAN IS
90 BEGIN
91 BEGIN
92 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
93 EXCEPTION
94 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
95 /*SRW.MESSAGE(1
96 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
97 RETURN (FALSE);
98 END;
99 RETURN (TRUE);
100 END AFTERREPORT;
101
102 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
103 BEGIN
104 RETURN RP_REPORT_NAME;
105 END RP_REPORT_NAME_P;
106
107 FUNCTION RP_ORG_NAME_P RETURN VARCHAR2 IS
108 BEGIN
109 RETURN RP_ORG_NAME;
110 END RP_ORG_NAME_P;
111
112 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
113 BEGIN
114 RETURN RP_DATA_FOUND;
115 END RP_DATA_FOUND_P;
116
117 END ONT_OEXORDTP_XMLP_PKG;
118
119