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:
286: l_api_name, G_PKG_NAME) THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289: IF FND_API.to_Boolean(p_init_msg_list) THEN
290: FND_MSG_PUB.initialize;
291: END IF;
292:
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
294:
385: RAISE fnd_api.g_exc_error;
386: END IF;
387:
388: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
389: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
390:
391: EXCEPTION
392: WHEN FND_API.G_EXC_ERROR THEN
393: X_return_code := SQLCODE;
391: EXCEPTION
392: WHEN FND_API.G_EXC_ERROR THEN
393: X_return_code := SQLCODE;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
396:
397: WHEN OTHERS THEN
398: X_return_code := SQLCODE;
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396:
397: WHEN OTHERS THEN
398: X_return_code := SQLCODE;
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
401: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
402: END get_oprn_resc;
403:
404: PROCEDURE get_oprn_process_param_detl
397: WHEN OTHERS THEN
398: X_return_code := SQLCODE;
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
401: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
402: END get_oprn_resc;
403:
404: PROCEDURE get_oprn_process_param_detl
405: ( p_api_version IN NUMBER ,
453: END LOOP; /* FOR l_oprn_rec IN Cur_get_oprn_rsrc */
454: EXCEPTION
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
458: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
459: END get_oprn_process_param_detl;
460:
461: END GMD_FETCH_OPRN ;
454: EXCEPTION
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
458: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
459: END get_oprn_process_param_detl;
460:
461: END GMD_FETCH_OPRN ;