55: err_msg VARCHAR2(200);
56:
57: BEGIN
58:
59: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
60: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
61: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
62: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUMBER');
63: fnd_message.set_token('APPRAISAL_NUMBER', p_appraisal_id);
56:
57: BEGIN
58:
59: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
60: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
61: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
62: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUMBER');
63: fnd_message.set_token('APPRAISAL_NUMBER', p_appraisal_id);
64: fnd_file.put_line( 1, fnd_message.get);
58:
59: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
60: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
61: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
62: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUMBER');
63: fnd_message.set_token('APPRAISAL_NUMBER', p_appraisal_id);
64: fnd_file.put_line( 1, fnd_message.get);
65: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
66:
59: fnd_message.set_name('JL', 'JL_CO_FA_PARAMETER');
60: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
61: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
62: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUMBER');
63: fnd_message.set_token('APPRAISAL_NUMBER', p_appraisal_id);
64: fnd_file.put_line( 1, fnd_message.get);
65: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
66:
67: FOR rec_appraisal IN c_appraisals LOOP
60: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
61: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
62: fnd_message.set_name('JL', 'JL_CO_FA_APPR_NUMBER');
63: fnd_message.set_token('APPRAISAL_NUMBER', p_appraisal_id);
64: fnd_file.put_line( 1, fnd_message.get);
65: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
66:
67: FOR rec_appraisal IN c_appraisals LOOP
68:
65: fnd_file.put_line(FND_FILE.LOG, '----------------------------------------');
66:
67: FOR rec_appraisal IN c_appraisals LOOP
68:
69: fnd_message.set_name('JL', 'JL_CO_FA_APPR_MESG');
70: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
71: fnd_file.put_line( 1, fnd_message.get);
72: /*Checking for the Fiscal Year */
73:
66:
67: FOR rec_appraisal IN c_appraisals LOOP
68:
69: fnd_message.set_name('JL', 'JL_CO_FA_APPR_MESG');
70: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
71: fnd_file.put_line( 1, fnd_message.get);
72: /*Checking for the Fiscal Year */
73:
74: IF rec_appraisal.fiscal_year < 1990 THEN
67: FOR rec_appraisal IN c_appraisals LOOP
68:
69: fnd_message.set_name('JL', 'JL_CO_FA_APPR_MESG');
70: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
71: fnd_file.put_line( 1, fnd_message.get);
72: /*Checking for the Fiscal Year */
73:
74: IF rec_appraisal.fiscal_year < 1990 THEN
75: x_appraisal_status := 'F';
72: /*Checking for the Fiscal Year */
73:
74: IF rec_appraisal.fiscal_year < 1990 THEN
75: x_appraisal_status := 'F';
76: fnd_message.set_name('JL', 'JL_CO_FA_LESS_THAN_1990');
77: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
78: fnd_file.put_line( fnd_file.LOG, fnd_message.get);
79: END IF;
80:
73:
74: IF rec_appraisal.fiscal_year < 1990 THEN
75: x_appraisal_status := 'F';
76: fnd_message.set_name('JL', 'JL_CO_FA_LESS_THAN_1990');
77: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
78: fnd_file.put_line( fnd_file.LOG, fnd_message.get);
79: END IF;
80:
81: /* Checking for valid currency Code */
74: IF rec_appraisal.fiscal_year < 1990 THEN
75: x_appraisal_status := 'F';
76: fnd_message.set_name('JL', 'JL_CO_FA_LESS_THAN_1990');
77: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
78: fnd_file.put_line( fnd_file.LOG, fnd_message.get);
79: END IF;
80:
81: /* Checking for valid currency Code */
82:
85: IF x_appraisal_status = 'V' THEN
86: x_appraisal_status := 'C';
87: END IF;
88:
89: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_CURRENCY_CODE');
90: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
91: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
92: END IF;
93:
86: x_appraisal_status := 'C';
87: END IF;
88:
89: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_CURRENCY_CODE');
90: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
91: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
92: END IF;
93:
94: FOR rec_asset IN c_assets(rec_appraisal.appraisal_id) LOOP
87: END IF;
88:
89: fnd_message.set_name('JL', 'JL_CO_FA_INVALID_CURRENCY_CODE');
90: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
91: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
92: END IF;
93:
94: FOR rec_asset IN c_assets(rec_appraisal.appraisal_id) LOOP
95:
101: IF x_appraisal_status = 'V' THEN
102: x_appraisal_status := 'R';
103: END IF;
104:
105: fnd_message.set_name('JL', 'JL_CO_FA_ASSET_NOT_FOUND');
106: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
107: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
108: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
109: END IF;
102: x_appraisal_status := 'R';
103: END IF;
104:
105: fnd_message.set_name('JL', 'JL_CO_FA_ASSET_NOT_FOUND');
106: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
107: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
108: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
109: END IF;
110:
103: END IF;
104:
105: fnd_message.set_name('JL', 'JL_CO_FA_ASSET_NOT_FOUND');
106: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
107: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
108: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
109: END IF;
110:
111: /* Checking for appraisal value */
104:
105: fnd_message.set_name('JL', 'JL_CO_FA_ASSET_NOT_FOUND');
106: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
107: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
108: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
109: END IF;
110:
111: /* Checking for appraisal value */
112:
117:
118: IF x_appraisal_status = 'V' THEN
119: x_appraisal_status := 'R';
120: END IF;
121: fnd_message.set_name('JL', 'JL_CO_FA_NEGATIVE_VALUE');
122: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
123: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
124: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
125: END IF;
118: IF x_appraisal_status = 'V' THEN
119: x_appraisal_status := 'R';
120: END IF;
121: fnd_message.set_name('JL', 'JL_CO_FA_NEGATIVE_VALUE');
122: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
123: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
124: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
125: END IF;
126:
119: x_appraisal_status := 'R';
120: END IF;
121: fnd_message.set_name('JL', 'JL_CO_FA_NEGATIVE_VALUE');
122: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
123: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
124: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
125: END IF;
126:
127:
120: END IF;
121: fnd_message.set_name('JL', 'JL_CO_FA_NEGATIVE_VALUE');
122: fnd_message.set_token('APPRAISAL_NUMBER', rec_appraisal.appraisal_id);
123: fnd_message.set_token('ASSET_NUMBER', rec_asset.appr_asset_number);
124: fnd_file.put_line( FND_FILE.LOG, fnd_message.get);
125: END IF;
126:
127:
128: UPDATE jl_co_fa_asset_apprs
145: COMMIT WORK;
146:
147: EXCEPTION
148: WHEN OTHERS THEN
149: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
150: fnd_file.put_line( 1, fnd_message.get);
151: err_num := SQLCODE;
152: err_msg := substr(SQLERRM, 1, 200);
153: RAISE_APPLICATION_ERROR( err_num, err_msg);
146:
147: EXCEPTION
148: WHEN OTHERS THEN
149: fnd_message.set_name('JL', 'JL_CO_FA_GENERAL_ERROR');
150: fnd_file.put_line( 1, fnd_message.get);
151: err_num := SQLCODE;
152: err_msg := substr(SQLERRM, 1, 200);
153: RAISE_APPLICATION_ERROR( err_num, err_msg);
154: