eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.XTR_SETTLEMENT_SUMMARY_P dependencies on XTR_SETTLEMENT_SUMMARY

Line 1: PACKAGE BODY Xtr_Settlement_Summary_P AS

1: PACKAGE BODY Xtr_Settlement_Summary_P AS
2: /* $Header: xtrsetlb.pls 120.0.12010000.2 2008/08/06 10:44:29 srsampat ship $ */
3: --Package that inserts and updates rows in the xtr_settlement_summary table.
4:
5: /* table handler for Xtr_Settlement_Summary */

Line 3: --Package that inserts and updates rows in the xtr_settlement_summary table.

1: PACKAGE BODY Xtr_Settlement_Summary_P AS
2: /* $Header: xtrsetlb.pls 120.0.12010000.2 2008/08/06 10:44:29 srsampat ship $ */
3: --Package that inserts and updates rows in the xtr_settlement_summary table.
4:
5: /* table handler for Xtr_Settlement_Summary */
6:
7: /**********************************************************************************/

Line 5: /* table handler for Xtr_Settlement_Summary */

1: PACKAGE BODY Xtr_Settlement_Summary_P AS
2: /* $Header: xtrsetlb.pls 120.0.12010000.2 2008/08/06 10:44:29 srsampat ship $ */
3: --Package that inserts and updates rows in the xtr_settlement_summary table.
4:
5: /* table handler for Xtr_Settlement_Summary */
6:
7: /**********************************************************************************/
8: /* This procedure serves for two purposes: */
9: /* (1) when user authorizes a settlement, then corresponding record is entered in */

Line 11: /* is created in Xtr_Settlement_Summary */

7: /**********************************************************************************/
8: /* This procedure serves for two purposes: */
9: /* (1) when user authorizes a settlement, then corresponding record is entered in */
10: /* (2) For two or more settlements are netted, a new records with netted amount */
11: /* is created in Xtr_Settlement_Summary */
12: /**********************************************************************************/
13:
14:
15:

Line 39: From Xtr_Settlement_Summary

35: Begin
36: Begin
37: Select 'Y', settlement_summary_id
38: Into v_exists, v_settlement_id
39: From Xtr_Settlement_Summary
40: Where settlement_number = p_settlement_number;
41: Exception
42: When no_data_found then
43: v_exists := 'N';

Line 46: Select Xtr_Settlement_Summary_S.Nextval

42: When no_data_found then
43: v_exists := 'N';
44: End;
45: If v_exists = 'N' then
46: Select Xtr_Settlement_Summary_S.Nextval
47: Into v_settlement_ID
48: From Dual;
49:
50: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,

Line 50: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,

46: Select Xtr_Settlement_Summary_S.Nextval
47: Into v_settlement_ID
48: From Dual;
49:
50: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,
51: Settlement_Amount, Settlement_Date, Company_Acct_No, Cparty_Acct_No, Net_ID, Status,
52: Created_By, Creation_Date, Last_Updated_By, Last_Update_Date, Last_Update_Login, cparty_code,
53: external_source)
54: Values(v_settlement_ID, p_settlement_number, p_company, p_currency, p_settlement_amount,

Line 61: Update Xtr_Settlement_Summary

57: p_creation_date,null,p_cparty_code,p_external_source); -- bug 3832387
58:
59: p_settlement_ID := v_settlement_ID;
60: Else
61: Update Xtr_Settlement_Summary
62: set settlement_date = p_settlement_date,
63: cparty_code = p_cparty_code -- bug 3832387
64: Where settlement_number = p_settlement_number;
65:

Line 72: /* the corresponding entries in Xtr_Settlement_Summary are set UNAVAILABLE for*/

68: End INS_Settlement_Summary;
69:
70: /******************************************************************************/
71: /* This procedure handles the situation that 2 or more settlements are netted,*/
72: /* the corresponding entries in Xtr_Settlement_Summary are set UNAVAILABLE for*/
73: /* CE Reconciliation (status set to 'I' for original entries) */
74: /******************************************************************************/
75: Procedure UPD_SETTLEMENT_SUMMARY(p_flag IN Char, p_netoff_number in number, p_settlement_ID IN Number)
76: Is

Line 85: Update Xtr_Settlement_Summary -- bug 3076732

81:
82: Begin
83: For C1_Rec in C1
84: Loop
85: Update Xtr_Settlement_Summary -- bug 3076732
86: Set status = 'I',
87: net_ID = p_settlement_ID
88: Where (settlement_number = C1_Rec.SETTLEMENT_number) or
89: (settlement_summary_id in (select net_id

Line 90: from XTR_SETTLEMENT_SUMMARY

86: Set status = 'I',
87: net_ID = p_settlement_ID
88: Where (settlement_number = C1_Rec.SETTLEMENT_number) or
89: (settlement_summary_id in (select net_id
90: from XTR_SETTLEMENT_SUMMARY
91: where settlement_number = C1_REC.settlement_number));
92:
93: End Loop;
94:

Line 100: /* in Xtr_Settlement_Summary is set UNAVAILABLE for CE Reconciliation (status */

96:
97: /******************************************************************************/
98: /* This procedure handles the situation when a netted group is created, */
99: /* and a new netted transaction is added. In this case, the new added entries */
100: /* in Xtr_Settlement_Summary is set UNAVAILABLE for CE Reconciliation (status */
101: /* set to 'I' for original entries). Also update the existing netted */
102: /* trnasaction with new netted amount. */
103: /******************************************************************************/
104: Procedure UPD_Settlement_Summary(p_flag IN Char, p_netoff_number IN Number, p_settlement_ID IN Number, p_amount IN Number)

Line 113: Delete from XTR_SETTLEMENT_SUMMARY

109: Where netoff_number = p_netoff_number;
110: Begin
111:
112: For C1_Rec in C1 Loop
113: Delete from XTR_SETTLEMENT_SUMMARY
114: where settlement_summary_id in (select net_id
115: from XTR_SETTLEMENT_SUMMARY
116: where settlement_number = C1_rec.SETTLEMENT_NUMBER)
117: and settlement_summary_id <> p_settlement_id;

Line 115: from XTR_SETTLEMENT_SUMMARY

111:
112: For C1_Rec in C1 Loop
113: Delete from XTR_SETTLEMENT_SUMMARY
114: where settlement_summary_id in (select net_id
115: from XTR_SETTLEMENT_SUMMARY
116: where settlement_number = C1_rec.SETTLEMENT_NUMBER)
117: and settlement_summary_id <> p_settlement_id;
118:
119: Update Xtr_Settlement_Summary

Line 119: Update Xtr_Settlement_Summary

115: from XTR_SETTLEMENT_SUMMARY
116: where settlement_number = C1_rec.SETTLEMENT_NUMBER)
117: and settlement_summary_id <> p_settlement_id;
118:
119: Update Xtr_Settlement_Summary
120: Set status = 'I',
121: net_ID = p_settlement_ID
122: Where settlement_number = C1_Rec.SETTLEMENT_number;
123:

Line 126: Update Xtr_Settlement_Summary

122: Where settlement_number = C1_Rec.SETTLEMENT_number;
123:
124: End Loop;
125:
126: Update Xtr_Settlement_Summary
127: Set settlement_amount = nvl(p_amount, 0)
128: Where Settlement_Summary_ID = p_settlement_ID;
129:
130: End UPD_Settlement_Summary;

Line 134: /* settlement, the unnetted transaction in Xtr_Settlement_Summary is made */

130: End UPD_Settlement_Summary;
131:
132: /******************************************************************************/
133: /* This procedure handles the situation when user undo partial netted */
134: /* settlement, the unnetted transaction in Xtr_Settlement_Summary is made */
135: /* AVAILABLE for CE Reconciliation( status back to 'A'). The original netted */
136: /* transaction need to be updated with the new netted amount */
137: /******************************************************************************/
138: Procedure UPD_Settlement_Summary(p_settlement_number IN Number, p_amount IN Number)

Line 140: v_net_ID Xtr_Settlement_Summary.net_ID%Type;

136: /* transaction need to be updated with the new netted amount */
137: /******************************************************************************/
138: Procedure UPD_Settlement_Summary(p_settlement_number IN Number, p_amount IN Number)
139: Is
140: v_net_ID Xtr_Settlement_Summary.net_ID%Type;
141: v_no_of_netted_recs number;
142: Begin
143: Select net_ID
144: Into v_net_ID

Line 145: From Xtr_Settlement_Summary

141: v_no_of_netted_recs number;
142: Begin
143: Select net_ID
144: Into v_net_ID
145: From Xtr_Settlement_Summary
146: Where settlement_number = p_settlement_number;
147:
148: Update Xtr_Settlement_Summary
149: Set status = 'A',

Line 148: Update Xtr_Settlement_Summary

144: Into v_net_ID
145: From Xtr_Settlement_Summary
146: Where settlement_number = p_settlement_number;
147:
148: Update Xtr_Settlement_Summary
149: Set status = 'A',
150: net_ID = null
151: Where settlement_number = p_settlement_number;
152:

Line 155: From Xtr_Settlement_Summary

151: Where settlement_number = p_settlement_number;
152:
153: Select count(*)
154: Into v_no_of_netted_recs
155: From Xtr_Settlement_Summary
156: Where net_ID = v_net_ID;
157:
158: If v_no_of_netted_recs <> 0 then
159: Update Xtr_Settlement_Summary

Line 159: Update Xtr_Settlement_Summary

155: From Xtr_Settlement_Summary
156: Where net_ID = v_net_ID;
157:
158: If v_no_of_netted_recs <> 0 then
159: Update Xtr_Settlement_Summary
160: Set settlement_amount = nvl(settlement_amount, 0) - nvl(p_amount,0)
161: Where settlement_summary_ID = v_net_ID;
162:
163: Else

Line 164: Delete From Xtr_Settlement_Summary

160: Set settlement_amount = nvl(settlement_amount, 0) - nvl(p_amount,0)
161: Where settlement_summary_ID = v_net_ID;
162:
163: Else
164: Delete From Xtr_Settlement_Summary
165: Where settlement_Summary_ID = v_net_ID;
166: End if;
167:
168: End UPD_Settlement_Summary;

Line 173: /* in Xtr_Settlement_Summary should be deleted. Also update the status to 'A' */

169:
170: /******************************************************************************/
171: /* This procedure handles the situation when user want to unnet settlements */
172: /* totally (i.e., change radio button back to 'None', the netted transaction */
173: /* in Xtr_Settlement_Summary should be deleted. Also update the status to 'A' */
174: /* for original entries. */
175: /******************************************************************************/
176:
177: Procedure DEL_SETTLEMENT_SUMMARY(p_settle_date IN Date,

Line 222: From Xtr_Settlement_Summary

218: For C2_Rec in C2 Loop
219: -- If v_first_record = 'Y' then -- jhung
220: Select net_ID
221: Into v_net_ID
222: From Xtr_Settlement_Summary
223: Where Settlement_Number = C2_Rec.Settlement_Number;
224:
225: Delete from Xtr_Settlement_Summary
226: Where Settlement_Summary_ID = v_net_ID;

Line 225: Delete from Xtr_Settlement_Summary

221: Into v_net_ID
222: From Xtr_Settlement_Summary
223: Where Settlement_Number = C2_Rec.Settlement_Number;
224:
225: Delete from Xtr_Settlement_Summary
226: Where Settlement_Summary_ID = v_net_ID;
227: If SQL%FOUND then
228: /* resultant record has been deleted */
229: v_del_resultant := 'Y';

Line 234: Update Xtr_Settlement_Summary

230: End if;
231:
232: v_first_record := 'N';
233:
234: Update Xtr_Settlement_Summary
235: Set Status = 'A',
236: Net_ID = null
237: Where Settlement_Number = C2_Rec.Settlement_Number;
238: If SQL%FOUND then

Line 256: /* the corresponding entry in Xtr_Settlement_Summary has to be removed. */

252: End DEL_Settlement_Summary ;
253:
254: /******************************************************************************/
255: /* This procedure handles the situation when user unauthorize the Settlements,*/
256: /* the corresponding entry in Xtr_Settlement_Summary has to be removed. */
257: /* Before removing we are to check whether the settlement was involved in */
258: /* netting. If so, then resultant record needs to be modified accordingly */
259: /******************************************************************************/
260: Procedure DEL_SETTLEMENT_SUMMARY(p_settlement_number IN Number,

Line 262: v_net_ID Xtr_Settlement_Summary.Net_ID%Type;

258: /* netting. If so, then resultant record needs to be modified accordingly */
259: /******************************************************************************/
260: Procedure DEL_SETTLEMENT_SUMMARY(p_settlement_number IN Number,
261: p_settlement_amount IN Number) is
262: v_net_ID Xtr_Settlement_Summary.Net_ID%Type;
263: v_no_of_netted_recs number;
264: Begin
265: Begin
266: Select net_ID

Line 268: From Xtr_Settlement_Summary

264: Begin
265: Begin
266: Select net_ID
267: Into v_net_ID
268: From Xtr_Settlement_Summary
269: Where settlement_number = p_settlement_number;
270: Exception
271: When no_data_found then
272: null;

Line 279: Delete From Xtr_Settlement_Summary

275: /* if the un-authorized settlement is involved in netting, then */
276: If v_net_Id is not null then
277: /* remove the un-authorized settlement, update resultant record for the amount */
278:
279: Delete From Xtr_Settlement_Summary
280: Where settlement_number = p_settlement_number;
281:
282: Select count(*)
283: Into v_no_of_netted_Recs

Line 284: From Xtr_Settlement_Summary

280: Where settlement_number = p_settlement_number;
281:
282: Select count(*)
283: Into v_no_of_netted_Recs
284: From Xtr_Settlement_Summary
285: Where net_ID = v_net_ID;
286:
287: If v_no_of_netted_recs <> 0 then
288: Update Xtr_Settlement_summary

Line 288: Update Xtr_Settlement_summary

284: From Xtr_Settlement_Summary
285: Where net_ID = v_net_ID;
286:
287: If v_no_of_netted_recs <> 0 then
288: Update Xtr_Settlement_summary
289: Set settlement_amount = nvl(settlement_amount, 0) - nvl(p_settlement_amount, 0)
290: Where settlement_summary_ID = v_net_ID;
291:
292: Else

Line 293: Delete From Xtr_Settlement_Summary

289: Set settlement_amount = nvl(settlement_amount, 0) - nvl(p_settlement_amount, 0)
290: Where settlement_summary_ID = v_net_ID;
291:
292: Else
293: Delete From Xtr_Settlement_Summary
294: Where settlement_summary_ID = v_net_ID;
295: End if;
296: Else
297: /* if un-authorized settlement is not involved in netting, then */

Line 298: Delete from Xtr_Settlement_Summary

294: Where settlement_summary_ID = v_net_ID;
295: End if;
296: Else
297: /* if un-authorized settlement is not involved in netting, then */
298: Delete from Xtr_Settlement_Summary
299: Where Settlement_Number = p_settlement_number;
300: If SQL%NOTFOUND then
301: null;
302: End if;

Line 330: From Xtr_Settlement_Summary

326: the settlement under the same group */
327: Begin
328: Select 'Y'
329: Into v_exists
330: From Xtr_Settlement_Summary
331: Where settlement_number = p_settlement_number;
332: Exception
333: when no_data_found then
334: v_exists := 'N';

Line 345: From Xtr_Settlement_Summary

341: And rownum < 2;
342:
343: Select net_ID
344: Into v_net_ID
345: From Xtr_Settlement_Summary
346: Where settlement_number = v_settlement_number;
347:
348: If v_exists = 'Y' then
349: Update Xtr_Settlement_Summary

Line 349: Update Xtr_Settlement_Summary

345: From Xtr_Settlement_Summary
346: Where settlement_number = v_settlement_number;
347:
348: If v_exists = 'Y' then
349: Update Xtr_Settlement_Summary
350: Set status = 'I',
351: net_ID = v_net_ID
352: Where settlement_number = p_settlement_number;
353: Else

Line 354: Select Xtr_Settlement_Summary_S.Nextval

350: Set status = 'I',
351: net_ID = v_net_ID
352: Where settlement_number = p_settlement_number;
353: Else
354: Select Xtr_Settlement_Summary_S.Nextval
355: Into v_settlement_ID
356: From Dual;
357:
358: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,

Line 358: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,

354: Select Xtr_Settlement_Summary_S.Nextval
355: Into v_settlement_ID
356: From Dual;
357:
358: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,
359: Settlement_Amount, Settlement_Date, Company_Acct_No, Cparty_Acct_No, Net_ID, Status,
360: Created_By, Creation_Date, Last_Updated_By, Last_Update_Date, Last_Update_Login, cparty_code)
361: Values(v_settlement_ID, p_settlement_number, p_company, p_currency, p_settlement_amount,
362: p_settlement_date, p_company_acct_no, p_cparty_acct_no, v_net_ID, 'I',

Line 366: Update Xtr_Settlement_Summary

362: p_settlement_date, p_company_acct_no, p_cparty_acct_no, v_net_ID, 'I',
363: p_created_by, p_creation_date, p_created_by, p_creation_date,null,p_cparty_code); -- bug 3832387
364: End if;
365:
366: Update Xtr_Settlement_Summary
367: Set settlement_amount = nvl(settlement_amount, 0) + nvl(p_settlement_amount, 0)
368: Where settlement_summary_ID = v_net_ID;
369:
370: End Include_Settlement_Group;

Line 373: END XTR_SETTLEMENT_SUMMARY_P;

369:
370: End Include_Settlement_Group;
371:
372:
373: END XTR_SETTLEMENT_SUMMARY_P;