69: FROM ahl_jtf_rs_emp_v
70: WHERE user_id = p_requester_userid ;
71: BEGIN
72:
73: fnd_msg_pub.initialize;
74:
75: -- wf_engine.threshold := -1;
76: WF_ENGINE.CreateProcess (itemtype => itemtype,
77: itemkey => itemkey ,
164: if l_counter is null
165: then
166:
167: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_COUNTER');
168: FND_MSG_PUB.Add;
169: else
170: WF_ENGINE.SetItemAttrText(itemtype => itemtype ,
171: itemkey => itemkey,
172: aname => 'COUNTER',
180: if l_timeout is null
181: then
182:
183: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_TIMEOUT');
184: FND_MSG_PUB.Add;
185: else
186: WF_ENGINE.SetItemAttrText(itemtype => itemtype ,
187: itemkey => itemkey,
188: aname => 'TIMEOUT',
190:
191: END IF;
192:
193: --Standard Call to count messages
194: l_msg_count := FND_MSG_PUB.count_msg;
195:
196: IF l_msg_count > 0 THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
206: FETCH c_resource INTO l_resource_id ;
207: IF c_resource%NOTFOUND THEN
208: l_return_status := FND_API.G_RET_STS_ERROR;
209: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_RESOURCE');
210: FND_MSG_PUB.Add;
211: CLOSE c_resource ;
212: ELSE
213: CLOSE c_resource ;
214: Get_User_Role(p_resource_id => l_resource_id ,
240: -- wf_engine.threshold := l_save_threshold ;
241: EXCEPTION
242: WHEN OTHERS THEN
243: -- wf_engine.threshold := l_save_threshold ;
244: FND_MSG_PUB.Count_And_Get (
245: p_encoded => FND_API.G_FALSE,
246: p_count => l_msg_count,
247: p_data => l_msg_data);
248:
247: p_data => l_msg_data);
248:
249: if(l_msg_count > 0)then
250: for I in 1 .. l_msg_count LOOP
251: fnd_msg_pub.Get
252: (p_msg_index => FND_MSG_PUB.G_NEXT,
253: p_encoded => FND_API.G_FALSE,
254: p_data => l_msg_data,
255: p_msg_index_out => l_index);
248:
249: if(l_msg_count > 0)then
250: for I in 1 .. l_msg_count LOOP
251: fnd_msg_pub.Get
252: (p_msg_index => FND_MSG_PUB.G_NEXT,
253: p_encoded => FND_API.G_FALSE,
254: p_data => l_msg_data,
255: p_msg_index_out => l_index);
256:
295: dml_str VARCHAR2 (2000);
296:
297: BEGIN
298:
299: FND_MSG_PUB.initialize();
300: IF (funcmode = 'RUN') THEN
301:
302: -- get approval object
303: l_object := wf_engine.GetItemAttrText(
341:
342: EXCEPTION
343:
344: WHEN FND_API.G_EXC_ERROR THEN
345: FND_MSG_PUB.Count_And_Get (
346: p_encoded => FND_API.G_FALSE,
347: p_count => l_msg_count,
348: p_data => l_msg_data
349: );
386: funcmode in varchar2,
387: resultout out nocopy varchar2 )
388: IS
389: BEGIN
390: FND_MSG_PUB.initialize();
391: IF (funcmode = 'RUN') THEN
392: resultout := 'COMPLETE:SUCCESS';
393: END IF;
394:
438:
439:
440: BEGIN
441:
442: FND_MSG_PUB.initialize();
443:
444: IF (funcmode = 'RUN') THEN
445: l_approval_rule_id := wf_engine.GetItemAttrNumber(
446: itemtype => itemtype,
505: return;
506: END IF;
507: EXCEPTION
508: WHEN FND_API.G_EXC_ERROR THEN
509: FND_MSG_PUB.Count_And_Get (
510: p_encoded => FND_API.G_FALSE,
511: p_count => l_msg_count,
512: p_data => l_msg_data
513: );
560: l_return_status VARCHAR2(1);
561: l_error_msg VARCHAR2(4000);
562: BEGIN
563:
564: FND_MSG_PUB.initialize();
565: IF (funcmode = 'RUN') THEN
566: l_approval_rule_id := wf_engine.GetItemAttrNumber(
567: itemtype => itemtype,
568: itemkey => itemkey,
613: END IF;
614:
615: EXCEPTION
616: WHEN FND_API.G_EXC_ERROR THEN
617: FND_MSG_PUB.Count_And_Get (
618: p_encoded => FND_API.G_FALSE,
619: p_count => l_msg_count,
620: p_data => l_msg_data
621: );
691: end if;
692:
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: FND_MSG_PUB.Count_And_Get (
696: p_encoded => FND_API.G_FALSE,
697: p_count => l_msg_count,
698: p_data => l_msg_data
699: );
767: end if;
768:
769: EXCEPTION
770: WHEN FND_API.G_EXC_ERROR THEN
771: FND_MSG_PUB.Count_And_Get (
772: p_encoded => FND_API.G_FALSE,
773: p_count => l_msg_count,
774: p_data => l_msg_data
775: );
843: end if;
844:
845: EXCEPTION
846: WHEN FND_API.G_EXC_ERROR THEN
847: FND_MSG_PUB.Count_And_Get (
848: p_encoded => FND_API.G_FALSE,
849: p_count => l_msg_count,
850: p_data => l_msg_data
851: );
921: end if;
922:
923: EXCEPTION
924: WHEN FND_API.G_EXC_ERROR THEN
925: FND_MSG_PUB.Count_And_Get (
926: p_encoded => FND_API.G_FALSE,
927: p_count => l_msg_count,
928: p_data => l_msg_data
929: );
997: end if;
998:
999: EXCEPTION
1000: WHEN FND_API.G_EXC_ERROR THEN
1001: FND_MSG_PUB.Count_And_Get (
1002: p_encoded => FND_API.G_FALSE,
1003: p_count => l_msg_count,
1004: p_data => l_msg_data
1005: );
1073: end if;
1074:
1075: EXCEPTION
1076: WHEN FND_API.G_EXC_ERROR THEN
1077: FND_MSG_PUB.Count_And_Get (
1078: p_encoded => FND_API.G_FALSE,
1079: p_count => l_msg_count,
1080: p_data => l_msg_data
1081: );
1148: end if;
1149:
1150: EXCEPTION
1151: WHEN FND_API.G_EXC_ERROR THEN
1152: FND_MSG_PUB.Count_And_Get (
1153: p_encoded => FND_API.G_FALSE,
1154: p_count => l_msg_count,
1155: p_data => l_msg_data
1156: );
1200: l_msg_count number;
1201: l_error_msg VARCHAR2(4000);
1202: l_return_status varchar2(1);
1203: BEGIN
1204: FND_MSG_PUB.initialize();
1205: l_object := wf_engine.GetItemAttrText(
1206: itemtype => itemtype,
1207: itemkey => itemkey,
1208: aname => 'OBJECT_TYPE' );
1222: end if;
1223:
1224: EXCEPTION
1225: WHEN FND_API.G_EXC_ERROR THEN
1226: FND_MSG_PUB.Count_And_Get (
1227: p_encoded => FND_API.G_FALSE,
1228: p_count => l_msg_count,
1229: p_data => l_msg_data
1230: );
1370: l_msg_count number;
1371: l_error_msg VARCHAR2(4000);
1372: l_return_stat varchar2(1);
1373: BEGIN
1374: FND_MSG_PUB.initialize();
1375: l_object := wf_engine.GetItemAttrText(
1376: itemtype => itemtype,
1377: itemkey => itemkey,
1378: aname => 'OBJECT_TYPE' );
1392: end if;
1393:
1394: EXCEPTION
1395: WHEN FND_API.G_EXC_ERROR THEN
1396: FND_MSG_PUB.Count_And_Get (
1397: p_encoded => FND_API.G_FALSE,
1398: p_count => l_msg_count,
1399: p_data => l_msg_data
1400: );
1519: IF c_default_rule%NOTFOUND THEN
1520: CLOSE c_default_rule ;
1521:
1522: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_RULE_ID');
1523: FND_MSG_PUB.Add;
1524:
1525: x_return_status := FND_API.G_RET_STS_ERROR;
1526: return;
1527:
1540: IF x_approver_seq is null THEN
1541: CLOSE c_approver_seq;
1542:
1543: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_SEQ');
1544: FND_MSG_PUB.Add;
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546:
1547: return;
1548:
1625:
1626: IF c_approver_info%NOTFOUND THEN
1627: CLOSE c_approver_info;
1628: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_APPROVER_ID');
1629: FND_MSG_PUB.Add;
1630: x_return_status := FND_API.G_RET_STS_ERROR;
1631: return;
1632: END IF;
1633:
1640:
1641: IF c_default_role_info%NOTFOUND THEN
1642: CLOSE c_default_role_info ;
1643: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_DEFAULT_ROLE');
1644: FND_MSG_PUB.Add;
1645: x_return_status := FND_API.G_RET_STS_ERROR;
1646: return;
1647: END IF;
1648: CLOSE c_default_role_info ;
1655: IF l_count > 1 THEN
1656: CLOSE c_role_info_count;
1657:
1658: FND_MESSAGE.Set_Name('AHL','AHL_APRV_MORE_ROLE');
1659: FND_MSG_PUB.Add;
1660: x_return_status := FND_API.G_RET_STS_ERROR;
1661: return;
1662: END IF;
1663: CLOSE c_role_info_count;
1668: IF c_role_info%NOTFOUND THEN
1669: CLOSE c_role_info;
1670:
1671: FND_MESSAGE.Set_Name('AHL','AHL_APRV_INVALID_ROLE');
1672: FND_MSG_PUB.Add;
1673: x_return_status := FND_API.G_RET_STS_ERROR;
1674: return;
1675: END IF;
1676: CLOSE c_role_info;
1712:
1713: if c_API_Name%NOTFOUND THEN
1714: x_return_status := FND_API.G_RET_STS_ERROR;
1715: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_API');
1716: FND_MSG_PUB.Add;
1717: end if;
1718: close c_API_Name;
1719:
1720: EXCEPTION
1745: l_final_data VARCHAR2(4000);
1746: l_msg_index NUMBER ;
1747: l_cnt NUMBER := 0 ;
1748: BEGIN
1749: -- Retriveing Error Message from FND_MSG_PUB
1750: -- Called by most of the procedures if it encounter error
1751:
1752: WHILE l_cnt < p_msg_count
1753: LOOP
1750: -- Called by most of the procedures if it encounter error
1751:
1752: WHILE l_cnt < p_msg_count
1753: LOOP
1754: FND_MSG_PUB.Get
1755: (p_msg_index => l_cnt + 1,
1756: p_encoded => FND_API.G_FALSE,
1757: p_data => l_msg_data,
1758: p_msg_index_out => l_msg_index ) ;
1804: OPEN chk_appl_usg_code;
1805: FETCH chk_appl_usg_code INTO l_count;
1806: IF chk_appl_usg_code%NOTFOUND THEN
1807: CLOSE chk_appl_usg_code;
1808: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1809: Fnd_Message.set_name ('AHL', 'AHL_APPR_APPUSG_INVALID');
1810: Fnd_Msg_Pub.ADD;
1811: END IF;
1812: x_return_status := Fnd_Api.g_ret_sts_error;
1806: IF chk_appl_usg_code%NOTFOUND THEN
1807: CLOSE chk_appl_usg_code;
1808: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1809: Fnd_Message.set_name ('AHL', 'AHL_APPR_APPUSG_INVALID');
1810: Fnd_Msg_Pub.ADD;
1811: END IF;
1812: x_return_status := Fnd_Api.g_ret_sts_error;
1813: RETURN;
1814: ELSE
1850:
1851: IF c_resource%NOTFOUND THEN
1852: x_return_status := FND_API.G_RET_STS_ERROR;
1853: FND_MESSAGE.Set_Name('AHL','AHL_APRV_NO_RESOURCE');
1854: FND_MSG_PUB.Add;
1855:
1856: END IF;
1857: CLOSE c_resource ;
1858:
1865:
1866: IF x_role_name is null then
1867: x_return_status := FND_API.G_RET_STS_ERROR;
1868: FND_MESSAGE.Set_Name('AHL','AHL_APRV_WF_NO_ROLE');
1869: FND_MSG_PUB.Add;
1870:
1871: END IF;
1872:
1873: END Get_User_Role;