70: IF a_sts = g_success_code THEN
71: l_dsptn := 'PENDING';
72: l_cln_sts := 'COMPLETED';
73: l_doc_sts := 'SUCCESS';
74: FND_MESSAGE.SET_NAME('CLN','M4U_CIN_EXTN_SUCCESS');
75: l_msg_txt := FND_MESSAGE.GET;
76: ELSE
77: l_dsptn := 'REJECTED';
78: l_cln_sts := 'ERROR';
71: l_dsptn := 'PENDING';
72: l_cln_sts := 'COMPLETED';
73: l_doc_sts := 'SUCCESS';
74: FND_MESSAGE.SET_NAME('CLN','M4U_CIN_EXTN_SUCCESS');
75: l_msg_txt := FND_MESSAGE.GET;
76: ELSE
77: l_dsptn := 'REJECTED';
78: l_cln_sts := 'ERROR';
79: l_doc_sts := 'ERROR';
76: ELSE
77: l_dsptn := 'REJECTED';
78: l_cln_sts := 'ERROR';
79: l_doc_sts := 'ERROR';
80: FND_MESSAGE.SET_NAME('CLN','M4U_CIN_EXTN_FAILURE');
81: FND_MESSAGE.SET_TOKEN('FAILURE_TEXT',a_msg);
82: l_msg_txt := FND_MESSAGE.GET;
83: END IF;
84:
77: l_dsptn := 'REJECTED';
78: l_cln_sts := 'ERROR';
79: l_doc_sts := 'ERROR';
80: FND_MESSAGE.SET_NAME('CLN','M4U_CIN_EXTN_FAILURE');
81: FND_MESSAGE.SET_TOKEN('FAILURE_TEXT',a_msg);
82: l_msg_txt := FND_MESSAGE.GET;
83: END IF;
84:
85: -- Call CLN history update API
78: l_cln_sts := 'ERROR';
79: l_doc_sts := 'ERROR';
80: FND_MESSAGE.SET_NAME('CLN','M4U_CIN_EXTN_FAILURE');
81: FND_MESSAGE.SET_TOKEN('FAILURE_TEXT',a_msg);
82: l_msg_txt := FND_MESSAGE.GET;
83: END IF;
84:
85: -- Call CLN history update API
86: l_key := 'M4U_EXTN_' || a_cln_id;
164: END IF;
165:
166: -- if any of the mandatory paramters are not null return error
167: IF l_param IS NOT NULL THEN
168: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
169: FND_MESSAGE.SET_TOKEN('PARAM',l_param);
170: FND_MESSAGE.SET_TOKEN('VALUE',NULL);
171: x_ret_msg := FND_MESSAGE.GET;
172: x_ret_sts := g_error_code;
165:
166: -- if any of the mandatory paramters are not null return error
167: IF l_param IS NOT NULL THEN
168: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
169: FND_MESSAGE.SET_TOKEN('PARAM',l_param);
170: FND_MESSAGE.SET_TOKEN('VALUE',NULL);
171: x_ret_msg := FND_MESSAGE.GET;
172: x_ret_sts := g_error_code;
173: END IF;
166: -- if any of the mandatory paramters are not null return error
167: IF l_param IS NOT NULL THEN
168: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
169: FND_MESSAGE.SET_TOKEN('PARAM',l_param);
170: FND_MESSAGE.SET_TOKEN('VALUE',NULL);
171: x_ret_msg := FND_MESSAGE.GET;
172: x_ret_sts := g_error_code;
173: END IF;
174:
167: IF l_param IS NOT NULL THEN
168: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
169: FND_MESSAGE.SET_TOKEN('PARAM',l_param);
170: FND_MESSAGE.SET_TOKEN('VALUE',NULL);
171: x_ret_msg := FND_MESSAGE.GET;
172: x_ret_sts := g_error_code;
173: END IF;
174:
175: -- returning these value sinces they are used as paramters