[Home] [Help]
1: PACKAGE BODY JL_CO_FA_ASSET_APPRS_PKG as
2: /* $Header: jlcoftab.pls 115.1 2002/11/13 23:30:45 vsidhart ship $ */
3:
4: PROCEDURE Insert_Row(X_rowid IN OUT NOCOPY VARCHAR2,
5: X_appraisal_id NUMBER,
29: X_ATTRIBUTE15 VARCHAR2,
30: X_calling_sequence IN VARCHAR2
31: ) IS
32: CURSOR C IS SELECT rowid
33: FROM jl_co_fa_asset_apprs
34: WHERE appraisal_id = X_appraisal_id;
35:
36: current_calling_sequence VARCHAR2(2000);
37: debug_info VARCHAR2(100);
38:
39: BEGIN
40: -- Update the calling sequence
41: --
42: current_calling_sequence := 'JL_CO_FA_ASSET_APPRS_PKG.INSERT_ROW<-' ||
43: X_calling_sequence;
44: --
45: debug_info := 'Insert into JL_CO_FA_ASSET_APPRS';
46: insert into jl_co_fa_asset_apprs(
41: --
42: current_calling_sequence := 'JL_CO_FA_ASSET_APPRS_PKG.INSERT_ROW<-' ||
43: X_calling_sequence;
44: --
45: debug_info := 'Insert into JL_CO_FA_ASSET_APPRS';
46: insert into jl_co_fa_asset_apprs(
47: appraisal_id,
48: asset_number,
49: appraisal_value,
42: current_calling_sequence := 'JL_CO_FA_ASSET_APPRS_PKG.INSERT_ROW<-' ||
43: X_calling_sequence;
44: --
45: debug_info := 'Insert into JL_CO_FA_ASSET_APPRS';
46: insert into jl_co_fa_asset_apprs(
47: appraisal_id,
48: asset_number,
49: appraisal_value,
50: status,
151: X_ATTRIBUTE15 VARCHAR2,
152: X_calling_sequence IN VARCHAR2
153: ) IS
154: CURSOR C IS SELECT *
155: FROM jl_co_fa_asset_apprs
156: WHERE appraisal_id = X_appraisal_id
157: AND asset_number = X_asset_number
158: FOR UPDATE of appraisal_id, asset_number
159: NOWAIT;
277: X_calling_sequence IN VARCHAR2
278: ) IS
279:
280: BEGIN
281: UPDATE jl_co_fa_asset_apprs
282: SET appraisal_id = X_appraisal_id,
283: asset_number = X_asset_number,
284: appraisal_value = X_appraisal_value,
285: status = X_status,
315: PROCEDURE Delete_Row( X_rowid VARCHAR2
316: ) IS
317: BEGIN
318: DELETE
319: FROM jl_co_fa_asset_apprs
320: WHERE rowid = X_rowid;
321:
322: IF (SQL%NOTFOUND)
323: THEN
324: raise NO_DATA_FOUND;
325: END IF;
326: END Delete_Row;
327:
328: END JL_CO_FA_ASSET_APPRS_PKG;