37: fetch c_text into p_text;
38: close c_text;
39:
40: if p_Error_code = 'XTR_MANDATORY' then
41: FND_MESSAGE.Set_Name('XTR','XTR_MANDATORY_FIELD'); -- AW new message
42: FND_MESSAGE.Set_Token('FIELD', p_text);
43:
44: elsif p_Error_code = 'XTR_INV_LIMIT_CODE' then
45: FND_MESSAGE.Set_Name('XTR','XTR_INV_LIMIT_CODE_FIELD'); -- AW new message
38: close c_text;
39:
40: if p_Error_code = 'XTR_MANDATORY' then
41: FND_MESSAGE.Set_Name('XTR','XTR_MANDATORY_FIELD'); -- AW new message
42: FND_MESSAGE.Set_Token('FIELD', p_text);
43:
44: elsif p_Error_code = 'XTR_INV_LIMIT_CODE' then
45: FND_MESSAGE.Set_Name('XTR','XTR_INV_LIMIT_CODE_FIELD'); -- AW new message
46: FND_MESSAGE.Set_Token('LIMIT_CODE', p_text);
41: FND_MESSAGE.Set_Name('XTR','XTR_MANDATORY_FIELD'); -- AW new message
42: FND_MESSAGE.Set_Token('FIELD', p_text);
43:
44: elsif p_Error_code = 'XTR_INV_LIMIT_CODE' then
45: FND_MESSAGE.Set_Name('XTR','XTR_INV_LIMIT_CODE_FIELD'); -- AW new message
46: FND_MESSAGE.Set_Token('LIMIT_CODE', p_text);
47:
48: elsif p_Error_code = 'XTR_IMP_DEAL_REVAL_EXIST' then
49: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_REVAL_DONE');
42: FND_MESSAGE.Set_Token('FIELD', p_text);
43:
44: elsif p_Error_code = 'XTR_INV_LIMIT_CODE' then
45: FND_MESSAGE.Set_Name('XTR','XTR_INV_LIMIT_CODE_FIELD'); -- AW new message
46: FND_MESSAGE.Set_Token('LIMIT_CODE', p_text);
47:
48: elsif p_Error_code = 'XTR_IMP_DEAL_REVAL_EXIST' then
49: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_REVAL_DONE');
50: FND_MESSAGE.Set_Token ('DATE',p_field_name);
45: FND_MESSAGE.Set_Name('XTR','XTR_INV_LIMIT_CODE_FIELD'); -- AW new message
46: FND_MESSAGE.Set_Token('LIMIT_CODE', p_text);
47:
48: elsif p_Error_code = 'XTR_IMP_DEAL_REVAL_EXIST' then
49: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_REVAL_DONE');
50: FND_MESSAGE.Set_Token ('DATE',p_field_name);
51:
52: elsif p_Error_code = 'XTR_IMP_DEAL_ACCRUAL_EXIST' then
53: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_ACCRLS_EXIST');
46: FND_MESSAGE.Set_Token('LIMIT_CODE', p_text);
47:
48: elsif p_Error_code = 'XTR_IMP_DEAL_REVAL_EXIST' then
49: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_REVAL_DONE');
50: FND_MESSAGE.Set_Token ('DATE',p_field_name);
51:
52: elsif p_Error_code = 'XTR_IMP_DEAL_ACCRUAL_EXIST' then
53: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_ACCRLS_EXIST');
54: FND_MESSAGE.Set_Token ('DATE',p_field_name);
49: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_REVAL_DONE');
50: FND_MESSAGE.Set_Token ('DATE',p_field_name);
51:
52: elsif p_Error_code = 'XTR_IMP_DEAL_ACCRUAL_EXIST' then
53: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_ACCRLS_EXIST');
54: FND_MESSAGE.Set_Token ('DATE',p_field_name);
55:
56: elsif p_Error_code in ('XTR_INV_DESC_FLEX_API','XTR_INV_DESC_FLEX_CONTEXT','XTR_INV_DESC_FLEX') then
57: FND_MESSAGE.Set_Name ('XTR', 'XTR_INV_DESC_FLEX_API');
50: FND_MESSAGE.Set_Token ('DATE',p_field_name);
51:
52: elsif p_Error_code = 'XTR_IMP_DEAL_ACCRUAL_EXIST' then
53: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_ACCRLS_EXIST');
54: FND_MESSAGE.Set_Token ('DATE',p_field_name);
55:
56: elsif p_Error_code in ('XTR_INV_DESC_FLEX_API','XTR_INV_DESC_FLEX_CONTEXT','XTR_INV_DESC_FLEX') then
57: FND_MESSAGE.Set_Name ('XTR', 'XTR_INV_DESC_FLEX_API');
58:
53: FND_MESSAGE.Set_Name ('XTR', 'XTR_DEAL_ACCRLS_EXIST');
54: FND_MESSAGE.Set_Token ('DATE',p_field_name);
55:
56: elsif p_Error_code in ('XTR_INV_DESC_FLEX_API','XTR_INV_DESC_FLEX_CONTEXT','XTR_INV_DESC_FLEX') then
57: FND_MESSAGE.Set_Name ('XTR', 'XTR_INV_DESC_FLEX_API');
58:
59: elsif p_Error_code = 'XTR_LIMIT_EXCEEDED' then
60: null; -- do nothing, return error to calling form to handle limits checks.
61:
60: null; -- do nothing, return error to calling form to handle limits checks.
61:
62: end if;
63: else
64: FND_MESSAGE.Set_Name('XTR', p_Error_Code);
65: end if;
66:
67: --*****************************************************************************************************************
68: -- 3800146 Modified for ZBA and CL ******************************************************************************