[Home] [Help]
1: package body XTR_REVALUATION_DETAILS_PKG as
2: /* $Header: xtrrdetb.pls 120.2 2005/06/29 10:29:31 rjose noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_REVALUATION_DETAILS_ID in NUMBER,
53: X_NI_DISC_AMOUNT in NUMBER,
54: X_AMOUNT_TYPE in VARCHAR2,
55: X_QUANTITY in NUMBER
56: ) is
57: cursor C is select ROWID from XTR_REVALUATION_DETAILS
58: where REVALUATION_DETAILS_ID = X_REVALUATION_DETAILS_ID
59: ;
60: begin
61: insert into XTR_REVALUATION_DETAILS (
57: cursor C is select ROWID from XTR_REVALUATION_DETAILS
58: where REVALUATION_DETAILS_ID = X_REVALUATION_DETAILS_ID
59: ;
60: begin
61: insert into XTR_REVALUATION_DETAILS (
62: ACCOUNT_NO,
63: BATCH_ID,
64: REVALUATION_DETAILS_ID,
65: REVAL_CURR_FV_AMOUNT,
276: BATCH_ID,
277: NI_DISC_AMOUNT,
278: AMOUNT_TYPE,
279: QUANTITY
280: from XTR_REVALUATION_DETAILS
281: where REVALUATION_DETAILS_ID = X_REVALUATION_DETAILS_ID
282: for update of REVALUATION_DETAILS_ID nowait;
283: begin
284: for tlinfo in c1 loop
421: X_AMOUNT_TYPE in VARCHAR2,
422: X_QUANTITY in NUMBER
423: ) is
424: begin
425: update XTR_REVALUATION_DETAILS set
426: ACCOUNT_NO = X_ACCOUNT_NO,
427: REVAL_CURR_FV_AMOUNT = X_REVAL_CURR_FV_AMOUNT,
428: COMPLETE_FLAG = X_COMPLETE_FLAG,
429: FAIR_VALUE = X_FAIR_VALUE,
482: procedure DELETE_ROW (
483: X_REVALUATION_DETAILS_ID in NUMBER
484: ) is
485: begin
486: delete from XTR_REVALUATION_DETAILS
487: where REVALUATION_DETAILS_ID = X_REVALUATION_DETAILS_ID;
488:
489: if (sql%notfound) then
490: raise no_data_found;
491: end if;
492:
493: end DELETE_ROW;
494:
495: end XTR_REVALUATION_DETAILS_PKG;