[Home] [Help]
PACKAGE BODY: APPS.CSI_FA_TRANSACTIONS_PKG
Source
1 package body CSI_FA_TRANSACTIONS_PKG as
2 /* $Header: csitfatb.pls 120.0 2005/06/17 15:06:59 brmanesh noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_INTERFACE_LINE_ID in NUMBER,
6 X_INTERFACE_HEADER_ID in NUMBER,
7 X_DISTRIBUTION_ID in NUMBER,
8 X_TRANSACTION_DATE in DATE,
9 X_TRANSACTION_UNITS in NUMBER,
10 X_TRANSACTION_COST in NUMBER,
11 X_PARENT_MASS_ADDITION_ID in NUMBER,
12 X_PA_ASSET_LINE_ID in NUMBER,
13 X_TRANSFER_DISTRIBUTION_ID in NUMBER,
14 X_RETIREMENT_ID in NUMBER,
15 X_STATUS_CODE in VARCHAR2,
16 X_DATE_PROCESSED in DATE,
17 X_DATE_NOTIFIED in DATE,
18 X_ERROR_FLAG in VARCHAR2,
19 X_ERROR_TEXT in VARCHAR2,
20 X_TRANSACTION_SOURCE_TYPE in VARCHAR2,
21 X_CREATION_DATE in DATE,
22 X_CREATED_BY in NUMBER,
23 X_LAST_UPDATE_DATE in DATE,
24 X_LAST_UPDATED_BY in NUMBER,
25 X_LAST_UPDATE_LOGIN in NUMBER
26 ) is
27 begin
28 insert into CSI_FA_TRANSACTIONS (
29 INTERFACE_HEADER_ID,
30 INTERFACE_LINE_ID,
31 TRANSACTION_SOURCE_TYPE,
32 DISTRIBUTION_ID,
33 TRANSACTION_DATE,
34 TRANSACTION_UNITS,
35 TRANSACTION_COST,
36 PARENT_MASS_ADDITION_ID,
37 PA_ASSET_LINE_ID,
38 TRANSFER_DISTRIBUTION_ID,
39 RETIREMENT_ID,
40 STATUS_CODE,
41 DATE_PROCESSED,
42 DATE_NOTIFIED,
43 ERROR_FLAG,
44 ERROR_TEXT,
45 LAST_UPDATE_DATE,
46 LAST_UPDATED_BY,
47 CREATION_DATE,
48 CREATED_BY,
49 LAST_UPDATE_LOGIN
50 ) select
51 X_INTERFACE_HEADER_ID,
52 X_INTERFACE_LINE_ID,
53 X_TRANSACTION_SOURCE_TYPE,
54 X_DISTRIBUTION_ID,
55 X_TRANSACTION_DATE,
56 X_TRANSACTION_UNITS,
57 X_TRANSACTION_COST,
58 X_PARENT_MASS_ADDITION_ID,
59 X_PA_ASSET_LINE_ID,
60 X_TRANSFER_DISTRIBUTION_ID,
61 X_RETIREMENT_ID,
62 X_STATUS_CODE,
63 X_DATE_PROCESSED,
64 X_DATE_NOTIFIED,
65 X_ERROR_FLAG,
66 X_ERROR_TEXT,
67 X_LAST_UPDATE_DATE,
68 X_LAST_UPDATED_BY,
69 X_CREATION_DATE,
70 X_CREATED_BY,
71 X_LAST_UPDATE_LOGIN
72 from SYS.dual;
73
74 end INSERT_ROW;
75
76 procedure LOCK_ROW (
77 X_INTERFACE_LINE_ID in NUMBER,
78 X_INTERFACE_HEADER_ID in NUMBER,
79 X_DISTRIBUTION_ID in NUMBER,
80 X_TRANSACTION_DATE in DATE,
81 X_TRANSACTION_UNITS in NUMBER,
82 X_TRANSACTION_COST in NUMBER,
83 X_PARENT_MASS_ADDITION_ID in NUMBER,
84 X_PA_ASSET_LINE_ID in NUMBER,
85 X_TRANSFER_DISTRIBUTION_ID in NUMBER,
86 X_RETIREMENT_ID in NUMBER,
87 X_STATUS_CODE in VARCHAR2,
88 X_DATE_PROCESSED in DATE,
89 X_DATE_NOTIFIED in DATE,
90 X_ERROR_FLAG in VARCHAR2,
91 X_ERROR_TEXT in VARCHAR2,
92 X_TRANSACTION_SOURCE_TYPE in VARCHAR2
93 ) is
94 cursor c1 is select
95 INTERFACE_HEADER_ID,
96 DISTRIBUTION_ID,
97 TRANSACTION_DATE,
98 TRANSACTION_UNITS,
99 TRANSACTION_COST,
100 PARENT_MASS_ADDITION_ID,
101 PA_ASSET_LINE_ID,
102 TRANSFER_DISTRIBUTION_ID,
103 RETIREMENT_ID,
104 STATUS_CODE,
105 DATE_PROCESSED,
106 DATE_NOTIFIED,
107 ERROR_FLAG,
108 ERROR_TEXT,
109 TRANSACTION_SOURCE_TYPE
110 from CSI_FA_TRANSACTIONS
111 where INTERFACE_LINE_ID = X_INTERFACE_LINE_ID
112 for update of INTERFACE_LINE_ID nowait;
113 begin
114 for tlinfo in c1 loop
115 if ( (tlinfo.TRANSACTION_SOURCE_TYPE = X_TRANSACTION_SOURCE_TYPE)
116 AND (tlinfo.INTERFACE_HEADER_ID = X_INTERFACE_HEADER_ID)
117 AND (tlinfo.DISTRIBUTION_ID = X_DISTRIBUTION_ID)
118 AND (tlinfo.TRANSACTION_DATE = X_TRANSACTION_DATE)
119 AND (tlinfo.TRANSACTION_UNITS = X_TRANSACTION_UNITS)
120 AND ((tlinfo.TRANSACTION_COST = X_TRANSACTION_COST)
121 OR ((tlinfo.TRANSACTION_COST is null) AND (X_TRANSACTION_COST is null)))
122 AND ((tlinfo.PARENT_MASS_ADDITION_ID = X_PARENT_MASS_ADDITION_ID)
123 OR ((tlinfo.PARENT_MASS_ADDITION_ID is null) AND (X_PARENT_MASS_ADDITION_ID is null)))
124 AND ((tlinfo.PA_ASSET_LINE_ID = X_PA_ASSET_LINE_ID)
125 OR ((tlinfo.PA_ASSET_LINE_ID is null) AND (X_PA_ASSET_LINE_ID is null)))
126 AND ((tlinfo.TRANSFER_DISTRIBUTION_ID = X_TRANSFER_DISTRIBUTION_ID)
127 OR ((tlinfo.TRANSFER_DISTRIBUTION_ID is null) AND (X_TRANSFER_DISTRIBUTION_ID is null)))
128 AND ((tlinfo.RETIREMENT_ID = X_RETIREMENT_ID)
129 OR ((tlinfo.RETIREMENT_ID is null) AND (X_RETIREMENT_ID is null)))
130 AND (tlinfo.STATUS_CODE = X_STATUS_CODE)
131 AND ((tlinfo.DATE_PROCESSED = X_DATE_PROCESSED)
132 OR ((tlinfo.DATE_PROCESSED is null) AND (X_DATE_PROCESSED is null)))
133 AND ((tlinfo.DATE_NOTIFIED = X_DATE_NOTIFIED)
134 OR ((tlinfo.DATE_NOTIFIED is null) AND (X_DATE_NOTIFIED is null)))
135 AND (tlinfo.ERROR_FLAG = X_ERROR_FLAG)
136 AND ((tlinfo.ERROR_TEXT = X_ERROR_TEXT)
137 OR ((tlinfo.ERROR_TEXT is null) AND (X_ERROR_TEXT is null)))
138 ) then
139 null;
140 else
141 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
142 app_exception.raise_exception;
143 end if;
144 end loop;
145 return;
146 end LOCK_ROW;
147
148 procedure UPDATE_ROW (
149 X_INTERFACE_LINE_ID in NUMBER,
150 X_INTERFACE_HEADER_ID in NUMBER,
151 X_DISTRIBUTION_ID in NUMBER,
152 X_TRANSACTION_DATE in DATE,
153 X_TRANSACTION_UNITS in NUMBER,
154 X_TRANSACTION_COST in NUMBER,
155 X_PARENT_MASS_ADDITION_ID in NUMBER,
156 X_PA_ASSET_LINE_ID in NUMBER,
157 X_TRANSFER_DISTRIBUTION_ID in NUMBER,
158 X_RETIREMENT_ID in NUMBER,
159 X_STATUS_CODE in VARCHAR2,
160 X_DATE_PROCESSED in DATE,
161 X_DATE_NOTIFIED in DATE,
162 X_ERROR_FLAG in VARCHAR2,
163 X_ERROR_TEXT in VARCHAR2,
164 X_TRANSACTION_SOURCE_TYPE in VARCHAR2,
165 X_LAST_UPDATE_DATE in DATE,
166 X_LAST_UPDATED_BY in NUMBER,
167 X_LAST_UPDATE_LOGIN in NUMBER
168 ) is
169 begin
170 update CSI_FA_TRANSACTIONS set
171 INTERFACE_HEADER_ID = X_INTERFACE_HEADER_ID,
172 DISTRIBUTION_ID = X_DISTRIBUTION_ID,
173 TRANSACTION_DATE = X_TRANSACTION_DATE,
174 TRANSACTION_UNITS = X_TRANSACTION_UNITS,
175 TRANSACTION_COST = X_TRANSACTION_COST,
176 PARENT_MASS_ADDITION_ID = X_PARENT_MASS_ADDITION_ID,
177 PA_ASSET_LINE_ID = X_PA_ASSET_LINE_ID,
178 TRANSFER_DISTRIBUTION_ID = X_TRANSFER_DISTRIBUTION_ID,
179 RETIREMENT_ID = X_RETIREMENT_ID,
180 STATUS_CODE = X_STATUS_CODE,
181 DATE_PROCESSED = X_DATE_PROCESSED,
182 DATE_NOTIFIED = X_DATE_NOTIFIED,
183 ERROR_FLAG = X_ERROR_FLAG,
184 ERROR_TEXT = X_ERROR_TEXT,
185 TRANSACTION_SOURCE_TYPE = X_TRANSACTION_SOURCE_TYPE,
186 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
187 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
188 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
189 where INTERFACE_LINE_ID = X_INTERFACE_LINE_ID;
190
191 if (sql%notfound) then
192 raise no_data_found;
193 end if;
194 end UPDATE_ROW;
195
196 procedure DELETE_ROW (
197 X_INTERFACE_LINE_ID in NUMBER
198 ) is
199 begin
200 delete from CSI_FA_TRANSACTIONS
201 where INTERFACE_LINE_ID = X_INTERFACE_LINE_ID;
202
203 if (sql%notfound) then
204 raise no_data_found;
205 end if;
206
207 end DELETE_ROW;
208
209 end CSI_FA_TRANSACTIONS_PKG;