1 PACKAGE BODY ONT_OEXWFASG_XMLP_PKG AS
2 /* $Header: OEXWFASGB.pls 120.1 2007/12/25 07:34:19 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 L_ORDER_TYPE_HIGH_DISP:=L_ORDER_TYPE_HIGH;
9 L_ORDER_TYPE_LOW_DISP:=L_ORDER_TYPE_LOW;
10 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
11 EXCEPTION
12 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
13 /*SRW.MESSAGE(1000
14 ,'Failed in BEFORE REPORT trigger')*/NULL;
15 END;
16 DECLARE
17 L_COMPANY_NAME VARCHAR2(100);
18 BEGIN
19 SELECT
20 SOB.NAME
21 INTO L_COMPANY_NAME
22 FROM
23 GL_SETS_OF_BOOKS SOB
24 WHERE SOB.SET_OF_BOOKS_ID = P_SOB_ID;
25 RP_COMPANY_NAME := L_COMPANY_NAME;
26 EXCEPTION
27 WHEN NO_DATA_FOUND THEN
28 NULL;
29 END;
30 DECLARE
31 L_REPORT_NAME VARCHAR2(240);
32 BEGIN
33 SELECT
34 CP.USER_CONCURRENT_PROGRAM_NAME
35 INTO L_REPORT_NAME
36 FROM
37 FND_CONCURRENT_PROGRAMS_VL CP,
38 FND_CONCURRENT_REQUESTS CR
39 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
40 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
41 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
42 RP_REPORT_NAME := L_REPORT_NAME;
43 EXCEPTION
44 WHEN NO_DATA_FOUND THEN
45 RP_REPORT_NAME := 'Workflow Assignments Report';
46 END;
47 END;
48 RETURN (TRUE);
49 END BEFOREREPORT;
50
51 FUNCTION AFTERREPORT RETURN BOOLEAN IS
52 BEGIN
53 BEGIN
54 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
55 EXCEPTION
56 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
57 /*SRW.MESSAGE(1
58 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
59 RETURN (FALSE);
60 END;
61 RETURN (TRUE);
62 END AFTERREPORT;
63
64 FUNCTION AFTERPFORM RETURN BOOLEAN IS
65 BEGIN
66 BEGIN
67 IF P_ORDER_TYPE_LO IS NOT NULL AND P_ORDER_TYPE_HI IS NOT NULL THEN
68 LP_WHERE_CLAUSE := 'ot.transaction_type_id between ''' || P_ORDER_TYPE_LO || '''
69 and ''' || P_ORDER_TYPE_HI || ''' and';
70 SELECT
71 OEOT.NAME
72 INTO L_ORDER_TYPE_LOW
73 FROM
74 OE_TRANSACTION_TYPES_TL OEOT
75 WHERE OEOT.TRANSACTION_TYPE_ID = P_ORDER_TYPE_LO
76 AND OEOT.LANGUAGE = USERENV('LANG');
77 SELECT
78 OEOT.NAME
79 INTO L_ORDER_TYPE_HIGH
80 FROM
81 OE_TRANSACTION_TYPES_TL OEOT
82 WHERE OEOT.TRANSACTION_TYPE_ID = P_ORDER_TYPE_HI
83 AND OEOT.LANGUAGE = USERENV('LANG');
84 ELSIF P_ORDER_TYPE_LO IS NULL AND P_ORDER_TYPE_HI IS NOT NULL THEN
85 LP_WHERE_CLAUSE := 'ot.transaction_type_id = ''' || P_ORDER_TYPE_HI || ''' and';
86 SELECT
87 OEOT.NAME
88 INTO L_ORDER_TYPE_LOW
89 FROM
90 OE_TRANSACTION_TYPES_TL OEOT
91 WHERE OEOT.TRANSACTION_TYPE_ID = P_ORDER_TYPE_LO
92 AND OEOT.LANGUAGE = USERENV('LANG');
93 ELSIF P_ORDER_TYPE_LO IS NOT NULL AND P_ORDER_TYPE_HI IS NULL THEN
94 LP_WHERE_CLAUSE := 'ot.transaction_type_id = ''' || P_ORDER_TYPE_LO || ''' and';
95 SELECT
96 OEOT.NAME
97 INTO L_ORDER_TYPE_HIGH
98 FROM
99 OE_TRANSACTION_TYPES_TL OEOT
100 WHERE OEOT.TRANSACTION_TYPE_ID = P_ORDER_TYPE_HI
101 AND OEOT.LANGUAGE = USERENV('LANG');
102 ELSE
103 LP_WHERE_CLAUSE := ' ';
104 END IF;
105
106
107 END;
108 RETURN (TRUE);
109 END AFTERPFORM;
110
111 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
112 BEGIN
113 RETURN RP_REPORT_NAME;
114 END RP_REPORT_NAME_P;
115
116 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN RP_COMPANY_NAME;
119 END RP_COMPANY_NAME_P;
120
121 END ONT_OEXWFASG_XMLP_PKG;
122
[Home] [Help]