[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRUPREP_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRUPREP_XMLP_PKG AS
2 /* $Header: XTRUPREPB.pls 120.1 2007/12/28 13:04:11 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 DECLARE
6 L_COUNT NUMBER;
7 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
8 L_MESSAGE_NAME FND_NEW_MESSAGES.MESSAGE_NAME%TYPE;
9 BEGIN
10 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
11 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
12 BEGIN
13 SELECT
14 CFREQ.PARTY_CODE,
15 CFREQ.ACCOUNT_NO_FROM,
16 CFREQ.ACCOUNT_NO_TO,
17 CFREQ.DEAL_TYPE,
18 CFREQ.DEAL_NUMBER_FROM,
19 CFREQ.DEAL_NUMBER_TO,
20 CFREQ.CREATION_DATE,
21 CFREQ.STARTING_CFLOW_DATE,
22 CFREQ.ENDING_CFLOW_DATE,
23 CFREQ.INCLUDE_JOURNALIZED_FLAG
24 INTO P_PARTY_CODE,P_OLD_ACCOUNT,P_NEW_ACCOUNT,P_DEAL_TYPE,P_STARTING_DEAL_NO,P_ENDING_DEAL_NO,P_EXECUTION_DATE,P_STARTING_DATE,P_ENDING_DATE,P_INCLUDE_JOURNALIZED
25 FROM
26 XTR_CFLOW_REQUEST_DETAILS CFREQ
27 WHERE CFREQ.CASHFLOW_REQUEST_DETAILS_ID = P_CFLOW_REQUEST_DETAILS_ID;
28 EXCEPTION
29 WHEN OTHERS THEN
30 FND_MESSAGE.SET_NAME('XTR'
31 ,'XTR_2035');
32 P_MESSAGE_TEXT_FOR_NO_RECORDS := FND_MESSAGE.GET;
33 P_NO_RECORDS_UPDATED := 'Y';
34 END;
35 IF (P_NO_RECORDS_UPDATED = 'N') THEN
36 BEGIN
37 SELECT
38 count(*)
39 INTO L_COUNT
40 FROM
41 XTR_CFLOW_UPDATED_RECORDS
42 WHERE CASHFLOW_REQUEST_DETAILS_ID = P_CFLOW_REQUEST_DETAILS_ID;
43 EXCEPTION
44 WHEN OTHERS THEN
45 FND_MESSAGE.SET_NAME('XTR'
46 ,'XTR_2035');
47 P_MESSAGE_TEXT_FOR_NO_RECORDS := FND_MESSAGE.GET;
48 P_NO_RECORDS_UPDATED := 'Y';
49 END;
50 IF (L_COUNT = 0) THEN
51 FND_MESSAGE.SET_NAME('XTR'
52 ,'XTR_2035');
53 P_MESSAGE_TEXT_FOR_NO_RECORDS := FND_MESSAGE.GET;
54 P_NO_RECORDS_UPDATED := 'Y';
55 END IF;
56 END IF;
57 IF (P_NO_RECORDS_UPDATED = 'N') THEN
58 BEGIN
59 SELECT
60 'Y'
61 INTO P_NO_RECORDS_UPDATED
62 FROM
63 XTR_CFLOW_UPDATED_RECORDS
64 WHERE CASHFLOW_REQUEST_DETAILS_ID = P_CFLOW_REQUEST_DETAILS_ID
65 AND MESSAGE_NAME = 'XTR_CFLOW_ACCT_UNAUTHORIZED';
66 IF (NVL(P_NO_RECORDS_UPDATED
67 ,'N') = 'Y') THEN
68 FND_MESSAGE.SET_NAME('XTR'
69 ,'XTR_CFLOW_ACCT_UNAUTHORIZED');
70 FND_MESSAGE.SET_TOKEN('BANK_ACCOUNT_NUMBER'
71 ,P_NEW_ACCOUNT);
72 P_MESSAGE_TEXT_FOR_NO_RECORDS := FND_MESSAGE.GET;
73 END IF;
74 EXCEPTION
75 WHEN NO_DATA_FOUND THEN
76 P_NO_RECORDS_UPDATED := 'N';
77 END;
78 END IF;
79 IF (P_NO_RECORDS_UPDATED = 'N') THEN
80 BEGIN
81 SELECT
82 'Y'
83 INTO P_NO_RECORDS_UPDATED
84 FROM
85 XTR_CFLOW_UPDATED_RECORDS
86 WHERE CASHFLOW_REQUEST_DETAILS_ID = P_CFLOW_REQUEST_DETAILS_ID
87 AND MESSAGE_NAME = 'XTR_CFLOW_CURRENCY_MISMATCH';
88 IF (NVL(P_NO_RECORDS_UPDATED
89 ,'N') = 'Y') THEN
90 FND_MESSAGE.SET_NAME('XTR'
91 ,'XTR_CFLOW_CURRENCY_MISMATCH');
92 P_MESSAGE_TEXT_FOR_NO_RECORDS := FND_MESSAGE.GET;
93 END IF;
94 EXCEPTION
95 WHEN NO_DATA_FOUND THEN
96 P_NO_RECORDS_UPDATED := 'N';
97 END;
98 END IF;
99 IF (P_NO_RECORDS_UPDATED = 'N') THEN
100 FND_MESSAGE.SET_NAME('XTR'
101 ,'XTR_CFLOW_UPDATED');
102 FND_MESSAGE.SET_TOKEN('ACCOUNT_NUMBER'
103 ,P_NEW_ACCOUNT);
104 P_MESSAGE_CODE_FOR_UPDATE := FND_MESSAGE.GET;
105 FND_MESSAGE.SET_NAME('XTR'
106 ,'XTR_CFLOW_NOT_UPDATED');
107 FND_MESSAGE.SET_TOKEN('ACCOUNT_NUMBER'
108 ,P_NEW_ACCOUNT);
109 P_MESSAGE_CODE_FOR_ERROR := FND_MESSAGE.GET;
110 END IF;
111 END;
112 RETURN (TRUE);
113 END BEFOREREPORT;
114
115 FUNCTION AFTERREPORT RETURN BOOLEAN IS
116 BEGIN
117 BEGIN
118 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
119 END;
120 RETURN (TRUE);
121 END AFTERREPORT;
122
123 END XTR_XTRUPREP_XMLP_PKG;
124