36: RAISE FND_API.G_EXC_ERROR;
37: END IF;
38:
39: IF FND_API.to_Boolean(p_init_msg_list) THEN
40: FND_MSG_PUB.initialize;
41: END IF;
42:
43: OPEN Cur_validate_record;
44: FETCH Cur_validate_record INTO X_count;
71: x_oprn_resc_rec => x_oprn_resc_rec,
72: X_oprn_resc_proc_param_tbl => X_oprn_resc_proc_param_tbl);
73: END IF;
74: /*standard call to get msge cnt, and if cnt is 1, get mesg info*/
75: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
76:
77: EXCEPTION
78: WHEN FND_API.G_EXC_ERROR THEN
79: X_return_code := SQLCODE;
77: EXCEPTION
78: WHEN FND_API.G_EXC_ERROR THEN
79: X_return_code := SQLCODE;
80: x_return_status := FND_API.G_RET_STS_ERROR;
81: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
82:
83: WHEN INVALID_OPERATION THEN
84: x_return_status := FND_API.G_RET_STS_ERROR;
85: FND_MESSAGE.SET_NAME('GMD', 'FM_INVOPRN');
82:
83: WHEN INVALID_OPERATION THEN
84: x_return_status := FND_API.G_RET_STS_ERROR;
85: FND_MESSAGE.SET_NAME('GMD', 'FM_INVOPRN');
86: FND_MSG_PUB.ADD;
87: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
88: WHEN OTHERS THEN
89: X_return_code := SQLCODE;
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83: WHEN INVALID_OPERATION THEN
84: x_return_status := FND_API.G_RET_STS_ERROR;
85: FND_MESSAGE.SET_NAME('GMD', 'FM_INVOPRN');
86: FND_MSG_PUB.ADD;
87: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
88: WHEN OTHERS THEN
89: X_return_code := SQLCODE;
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
87: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
88: WHEN OTHERS THEN
89: X_return_code := SQLCODE;
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
92: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
93: END fetch_oprn;
94:
95:
88: WHEN OTHERS THEN
89: X_return_code := SQLCODE;
90: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
92: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
93: END fetch_oprn;
94:
95:
96: PROCEDURE get_oprn_act
135: l_api_name, G_PKG_NAME) THEN
136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
137: END IF;
138: IF FND_API.to_Boolean(p_init_msg_list) THEN
139: FND_MSG_PUB.initialize;
140: END IF;
141:
142: For get_rec IN get_oprn_act1 LOOP
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205:
206:
207: /*standard call to get msge cnt, and if cnt is 1, get mesg info*/
208: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
209:
210: EXCEPTION
211: WHEN FND_API.G_EXC_ERROR THEN
212: X_return_code := SQLCODE;
210: EXCEPTION
211: WHEN FND_API.G_EXC_ERROR THEN
212: X_return_code := SQLCODE;
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
215:
216: WHEN OTHERS THEN
217: X_return_code := SQLCODE;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215:
216: WHEN OTHERS THEN
217: X_return_code := SQLCODE;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
219: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
220: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
221:
222: END get_oprn_act;
223:
216: WHEN OTHERS THEN
217: X_return_code := SQLCODE;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
219: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
220: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
221:
222: END get_oprn_act;
223:
224:
288: l_api_name, G_PKG_NAME) THEN
289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
290: END IF;
291: IF FND_API.to_Boolean(p_init_msg_list) THEN
292: FND_MSG_PUB.initialize;
293: END IF;
294:
295: x_return_status := FND_API.G_RET_STS_SUCCESS;
296:
387: RAISE fnd_api.g_exc_error;
388: END IF;
389:
390: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
391: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
392:
393: EXCEPTION
394: WHEN FND_API.G_EXC_ERROR THEN
395: X_return_code := SQLCODE;
393: EXCEPTION
394: WHEN FND_API.G_EXC_ERROR THEN
395: X_return_code := SQLCODE;
396: x_return_status := FND_API.G_RET_STS_ERROR;
397: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
398:
399: WHEN OTHERS THEN
400: X_return_code := SQLCODE;
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398:
399: WHEN OTHERS THEN
400: X_return_code := SQLCODE;
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
403: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
404: END get_oprn_resc;
405:
406: PROCEDURE get_oprn_process_param_detl
399: WHEN OTHERS THEN
400: X_return_code := SQLCODE;
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
403: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
404: END get_oprn_resc;
405:
406: PROCEDURE get_oprn_process_param_detl
407: ( p_api_version IN NUMBER ,
455: END LOOP; /* FOR l_oprn_rec IN Cur_get_oprn_rsrc */
456: EXCEPTION
457: WHEN OTHERS THEN
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
460: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
461: END get_oprn_process_param_detl;
462:
463: END GMD_FETCH_OPRN ;
456: EXCEPTION
457: WHEN OTHERS THEN
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
460: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
461: END get_oprn_process_param_detl;
462:
463: END GMD_FETCH_OPRN ;