44: l_dummy VARCHAR2(1);
45:
46: BEGIN
47: --dbms_output.put_line(' Inside the pvt ag_ref_to_id');
48: p_return_status := FND_API.G_RET_STS_SUCCESS;
49:
50:
51: IF p_af_agreement_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
52: AND p_af_agreement_id IS NOT NULL
71: ,p_attribute4 => ''
72: ,p_attribute5 => '');
73: END IF;
74: CLOSE l_agreement_id_csr;
75: RAISE FND_API.G_EXC_ERROR;
76: END IF;
77: CLOSE l_agreement_id_csr;
78: p_out_agreement_id := p_af_agreement_id;
79: ELSIF p_pm_agreement_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
90: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Agreement Reference');
91: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_agreement_reference);
92: FND_MSG_PUB.add;
93: END IF;
94: RAISE FND_API.G_EXC_ERROR;
95: ELSE
96: p_out_agreement_id := l_agreement_id;
97: END IF;
98: ELSE
108: ,p_attribute3 => ''
109: ,p_attribute4 => ''
110: ,p_attribute5 => '');
111: END IF;
112: RAISE FND_API.G_EXC_ERROR;
113: END IF; -- If p_af_agreement_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
114: EXCEPTION
115: WHEN FND_API.G_EXC_ERROR
116: THEN
111: END IF;
112: RAISE FND_API.G_EXC_ERROR;
113: END IF; -- If p_af_agreement_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
114: EXCEPTION
115: WHEN FND_API.G_EXC_ERROR
116: THEN
117: ----dbms_output.put_line('handling an G_EXC_ERROR exception');
118: p_RETURN_status := FND_API.G_RET_STS_ERROR;
119:
114: EXCEPTION
115: WHEN FND_API.G_EXC_ERROR
116: THEN
117: ----dbms_output.put_line('handling an G_EXC_ERROR exception');
118: p_RETURN_status := FND_API.G_RET_STS_ERROR;
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
121: THEN
122: ----dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception');
116: THEN
117: ----dbms_output.put_line('handling an G_EXC_ERROR exception');
118: p_RETURN_status := FND_API.G_RET_STS_ERROR;
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
121: THEN
122: ----dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception');
123: p_RETURN_status := FND_API.G_RET_STS_UNEXP_ERROR;
124:
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
121: THEN
122: ----dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception');
123: p_RETURN_status := FND_API.G_RET_STS_UNEXP_ERROR;
124:
125: WHEN OTHERS
126: THEN
127: ----dbms_output.put_line('handling an OTHERS exception');
124:
125: WHEN OTHERS
126: THEN
127: ----dbms_output.put_line('handling an OTHERS exception');
128: p_RETURN_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
130: THEN
131: FND_MSG_PUB.add_exc_msg
132: ( p_pkg_name => G_PKG_NAME
166: l_dummy VARCHAR2(1);
167: l_funding_id NUMBER ;
168: BEGIN
169: --dbms_output.put_line('Inside fetch agreement id');
170: p_RETURN_status := FND_API.G_RET_STS_SUCCESS;
171:
172: IF p_af_funding_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
173: AND p_af_funding_id IS NOT NULL
174: THEN
192: ,p_attribute4 => ''
193: ,p_attribute5 => '');
194: END IF;
195: CLOSE l_funding_id_csr;
196: RAISE FND_API.G_EXC_ERROR;
197: END IF;
198: CLOSE l_funding_id_csr;
199: p_out_funding_id := p_af_funding_id;
200: ELSIF p_pm_funding_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
209: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Funding Reference');
210: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_funding_reference);
211: FND_MSG_PUB.add;
212: END IF;
213: RAISE FND_API.G_EXC_ERROR;
214: ELSE
215: p_out_funding_id := l_funding_id;
216: END IF;
217: ELSE
227: ,p_attribute3 => ''
228: ,p_attribute4 => ''
229: ,p_attribute5 => '');
230: END IF;
231: RAISE FND_API.G_EXC_ERROR;
232: END IF; -- If p_af_agreement_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
233: --dbms_output.put_line('Returning fetched funding id ='||nvl(to_char(p_out_funding_id),'NULL'));
234: EXCEPTION
235: WHEN FND_API.G_EXC_ERROR
231: RAISE FND_API.G_EXC_ERROR;
232: END IF; -- If p_af_agreement_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
233: --dbms_output.put_line('Returning fetched funding id ='||nvl(to_char(p_out_funding_id),'NULL'));
234: EXCEPTION
235: WHEN FND_API.G_EXC_ERROR
236: THEN
237: ----dbms_output.put_line('handling an G_EXC_ERROR exception');
238: p_RETURN_status := FND_API.G_RET_STS_ERROR;
239:
234: EXCEPTION
235: WHEN FND_API.G_EXC_ERROR
236: THEN
237: ----dbms_output.put_line('handling an G_EXC_ERROR exception');
238: p_RETURN_status := FND_API.G_RET_STS_ERROR;
239:
240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
241: THEN
242: ----dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception');
236: THEN
237: ----dbms_output.put_line('handling an G_EXC_ERROR exception');
238: p_RETURN_status := FND_API.G_RET_STS_ERROR;
239:
240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
241: THEN
242: ----dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception');
243: p_RETURN_status := FND_API.G_RET_STS_UNEXP_ERROR;
244:
239:
240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
241: THEN
242: ----dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception');
243: p_RETURN_status := FND_API.G_RET_STS_UNEXP_ERROR;
244:
245: WHEN OTHERS
246: THEN
247: ----dbms_output.put_line('handling an OTHERS exception');
244:
245: WHEN OTHERS
246: THEN
247: ----dbms_output.put_line('handling an OTHERS exception');
248: p_RETURN_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
250: THEN
251: FND_MSG_PUB.add_exc_msg
252: ( p_pkg_name => G_PKG_NAME
1742: END IF;
1743:
1744:
1745: -- Check Valid Task
1746: IF p_task_id IS NOT NULL and p_task_id <> FND_API.G_MISS_NUM THEN
1747: --dbms_output.put_line('Check valid task');
1748: IF pa_agreement_utils.check_valid_task
1749: (p_project_id => p_project_id
1750: ,p_task_id => p_task_id) = 'N'
1870: x_return_status => l_return_status,
1871: x_msg_count => l_msg_count,
1872: x_msg_data => l_msg_data
1873: );
1874: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1875: THEN
1876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1877:
1878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1872: x_msg_data => l_msg_data
1873: );
1874: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1875: THEN
1876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1877:
1878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1879: THEN
1880: RAISE FND_API.G_EXC_ERROR;
1874: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1875: THEN
1876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1877:
1878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1879: THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882:
1876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1877:
1878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1879: THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: END IF;
1882:
1883: If l_plan_type_id is not null then
1884: l_funding_lvl := pa_agreement_utils.check_proj_task_lvl_funding_fp
1971: x_return_status => l_return_status,
1972: x_msg_count => l_msg_count,
1973: x_msg_data => l_msg_data
1974: );
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1976: THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978:
1979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1973: x_msg_data => l_msg_data
1974: );
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1976: THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978:
1979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1980: THEN
1981: RAISE FND_API.G_EXC_ERROR;
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1976: THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978:
1979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1980: THEN
1981: RAISE FND_API.G_EXC_ERROR;
1982: END IF;
1983:
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1978:
1979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1980: THEN
1981: RAISE FND_API.G_EXC_ERROR;
1982: END IF;
1983:
1984: If l_plan_type_id is not null then
1985: l_funding_lvl := pa_agreement_utils.check_proj_task_lvl_funding_fp
2164: RETURN(l_RETURN);
2165: END IF;
2166:
2167: -- Check Valid Task
2168: IF p_task_id IS NOT NULL and p_task_id <> FND_API.G_MISS_NUM THEN
2169: IF pa_agreement_utils.check_valid_task
2170: (p_project_id => p_project_id
2171: ,p_task_id => p_task_id) = 'N'
2172: THEN
2258: x_return_status => l_return_status,
2259: x_msg_count => l_msg_count,
2260: x_msg_data => l_msg_data
2261: );
2262: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2263: THEN
2264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2265:
2266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2260: x_msg_data => l_msg_data
2261: );
2262: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2263: THEN
2264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2265:
2266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2267: THEN
2268: RAISE FND_API.G_EXC_ERROR;
2262: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2263: THEN
2264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2265:
2266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2267: THEN
2268: RAISE FND_API.G_EXC_ERROR;
2269: END IF;
2270:
2264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2265:
2266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2267: THEN
2268: RAISE FND_API.G_EXC_ERROR;
2269: END IF;
2270:
2271: If l_plan_type_id is not null then
2272: l_check_proj_task_lvl_funding := pa_agreement_utils.check_proj_task_lvl_funding_fp
2357: x_return_status => l_return_status,
2358: x_msg_count => l_msg_count,
2359: x_msg_data => l_msg_data
2360: );
2361: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2362: THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364:
2365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2359: x_msg_data => l_msg_data
2360: );
2361: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2362: THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364:
2365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2366: THEN
2367: RAISE FND_API.G_EXC_ERROR;
2361: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2362: THEN
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364:
2365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2366: THEN
2367: RAISE FND_API.G_EXC_ERROR;
2368: END IF;
2369:
2363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2364:
2365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2366: THEN
2367: RAISE FND_API.G_EXC_ERROR;
2368: END IF;
2369:
2370: If l_plan_type_id is not null then
2371: l_check_proj_task_lvl_funding := pa_agreement_utils.check_proj_task_lvl_funding_fp