1 PACKAGE BODY ONT_OEXAUCRC_XMLP_PKG AS
2 /* $Header: OEXAUCRCB.pls 120.1 2007/12/25 07:07:30 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8 EXCEPTION
9 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10 /*SRW.MESSAGE(1
11 ,'FAILED IN BEFORE REPORT TRIGGER')*/NULL;
12 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
13 RETURN (FALSE);
14 END;
15 BEGIN
16 IF P_ORG_ID IS NOT NULL THEN
17 SELECT
18 NAME
19 INTO RP_OPERATING_UNIT
20 FROM
21 HR_OPERATING_UNITS
22 WHERE ORGANIZATION_ID = P_ORG_ID;
23 END IF;
24 EXCEPTION
25 WHEN NO_DATA_FOUND THEN
26 NULL;
27 END;
28 BEGIN
29 IF P_HEADER_ID IS NOT NULL THEN
30 SELECT
31 OTT.NAME,
32 OOH.ORDER_NUMBER
33 INTO RP_ORDER_TYPE,RP_ORDER_NUMBER
34 FROM
35 OE_ORDER_HEADERS_ALL OOH,
36 OE_TRANSACTION_TYPES OTT
37 WHERE OOH.HEADER_ID = P_HEADER_ID
38 AND OOH.ORDER_TYPE_ID = OTT.TRANSACTION_TYPE_ID;
39 END IF;
40 EXCEPTION
41 WHEN NO_DATA_FOUND THEN
42 NULL;
43 END;
44 BEGIN
45 IF P_ORDER_BY IS NOT NULL THEN
46 SELECT
47 MEANING
48 INTO RP_ORDER_BY
49 FROM
50 OE_LOOKUPS
51 WHERE LOOKUP_TYPE = 'CREDIT_CHECK_PROCESS_RULE'
52 AND LOOKUP_CODE = P_ORDER_BY;
53 END IF;
54 EXCEPTION
55 WHEN NO_DATA_FOUND THEN
56 NULL;
57 END;
58 BEGIN
59 OE_CREDIT_CHECK_RPT.CREDIT_CHECK_PROCESSOR(P_PROFILE_ORG_ID => P_ORG_ID
60 ,P_CUST_PROF_CLASS_NAME_FROM => P_CUST_PROF_CLASS_LOW
61 ,P_CUST_PROF_CLASS_NAME_TO => P_CUST_PROF_CLASS_HIGH
62 ,P_PARTY_NAME_FROM => P_PARTY_NAME_LOW
63 ,P_PARTY_NAME_TO => P_PARTY_NAME_HIGH
64 ,P_CUST_ACCT_NUMBER_FROM => P_CUST_ACCT_NUMBER_LOW
65 ,P_CUST_ACCT_NUMBER_TO => P_CUST_ACCT_NUMBER_HIGH
66 ,P_ORDER_DATE_FROM => P_ORDER_DATE_LOW
67 ,P_ORDER_DATE_TO => P_ORDER_DATE_HIGH
68 ,P_HEADER_ID => P_HEADER_ID
69 ,P_ORDER_BY => P_ORDER_BY);
70 EXCEPTION
71 WHEN OTHERS THEN
72 /*SRW.MESSAGE(1
73 ,'Credit_Check_Processor Unexpected Failure. Failed in BEFORE REPORT TRIGGER')*/NULL;
74 RETURN (FALSE);
75 END;
76 LP_ORDER_DATE_LOW:=to_char(P_ORDER_DATE_LOW,'DD-MON-YY');
77 LP_ORDER_DATE_HIGH:=to_char(P_ORDER_DATE_HIGH,'DD-MON-YY');
78 RETURN (TRUE);
79 END BEFOREREPORT;
80
81 FUNCTION AFTERREPORT RETURN BOOLEAN IS
82 BEGIN
83 BEGIN
84 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
85 EXCEPTION
86 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
87 /*SRW.MESSAGE(1
88 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
89 RETURN (FALSE);
90 END;
91 RETURN (TRUE);
92 END AFTERREPORT;
93
94 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
95 BEGIN
96 RETURN RP_REPORT_NAME;
97 END RP_REPORT_NAME_P;
98
99 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
100 BEGIN
101 RETURN RP_DATA_FOUND;
102 END RP_DATA_FOUND_P;
103
104 FUNCTION RP_ORDER_TYPE_P RETURN VARCHAR2 IS
105 BEGIN
106 RETURN RP_ORDER_TYPE;
107 END RP_ORDER_TYPE_P;
108
109 FUNCTION RP_ORDER_BY_P RETURN VARCHAR2 IS
110 BEGIN
111 RETURN RP_ORDER_BY;
112 END RP_ORDER_BY_P;
113
114 FUNCTION RP_OPERATING_UNIT_P RETURN VARCHAR2 IS
115 BEGIN
116 RETURN RP_OPERATING_UNIT;
117 END RP_OPERATING_UNIT_P;
118
119 FUNCTION RP_ORDER_NUMBER_P RETURN NUMBER IS
120 BEGIN
121 RETURN RP_ORDER_NUMBER;
122 END RP_ORDER_NUMBER_P;
123
124 END ONT_OEXAUCRC_XMLP_PKG;
125