[Home] [Help]
128: sorted_list(i).mendthreshold < g_attr_min_threshold or
129: sorted_list(i).mstartthreshold > sorted_list(i).mendthreshold ) then
130: x_return_status := fnd_api.g_ret_sts_error;
131: fnd_message.set_name('cs','CS_TP_TEMPLATE_ATTR_THRESH');
132: fnd_msg_pub.add;
133: raise fnd_api.g_exc_error;
134: elsif (sorted_list(i).mstartthreshold=0 and sorted_list(i).mendthreshold=0) then
135: null;
136: elsif (sorted_list(i).mendthreshold >= sorted_list(i+1).mstartthreshold) then
135: null;
136: elsif (sorted_list(i).mendthreshold >= sorted_list(i+1).mstartthreshold) then
137: x_return_status := fnd_api.g_ret_sts_error;
138: fnd_message.set_name('CS','CS_TP_TEMPLATE_ATTR_THRESH');
139: fnd_msg_pub.add;
140: raise fnd_api.g_exc_error;
141: end if;
142: end loop;
143: -- Check the last element
147: sorted_list(sorted_list.last).mendthreshold < g_attr_min_threshold or
148: sorted_list(sorted_list.last).mstartthreshold > sorted_list(sorted_list.last).mendthreshold ) then
149: x_return_status := fnd_api.g_ret_sts_error;
150: fnd_message.set_name('CS','CS_TP_TEMPLATE_ATTR_THRESH');
151: fnd_msg_pub.add;
152: raise fnd_api.g_exc_error;
153: end if;
154: end Check_Attribute_Error;
155:
201:
202: BEGIN
203: -- Initialize message list if p_init_msg_list is set to TRUE.
204: if fnd_api.to_boolean( p_init_msg_list ) then
205: fnd_msg_pub.initialize;
206: end if;
207:
208: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
209:
216: if p_one_template.mtemplatename is null or
217: p_one_template.mtemplatename = fnd_api.g_miss_char then
218: x_return_status := fnd_api.g_ret_sts_error;
219: fnd_message.set_name('CS','CS_TP_TEMPLATE_NAME_INVALID');
220: fnd_msg_pub.add;
221: raise fnd_api.g_exc_error;
222: end if;
223:
224: if (to_date(p_one_template.mEndDate, l_date_format))
225: < (to_date(p_one_template.mStartDate, l_date_format)) then
226: --incorrect date format, raise generic exception
227: x_return_status := fnd_api.g_ret_sts_error;
228: fnd_message.set_name('CS','CS_TP_TEMPLATE_DATE_INVALID');
229: fnd_msg_pub.add;
230: raise fnd_api.g_exc_error;
231: end if;
232:
233: --Get the template id from the next available sequence number
258:
259: if fnd_api.to_boolean( p_commit ) then
260: commit work;
261: end if;
262: Fnd_Msg_Pub.Count_And_Get(
263: p_count => x_msg_count ,
264: p_data => x_msg_data );
265: END Add_Template;
266:
293:
294: BEGIN
295: -- Initialize message list if p_init_msg_list is set to TRUE.
296: If Fnd_Api.To_Boolean( p_init_msg_list ) Then
297: Fnd_Msg_Pub.Initialize;
298: End If;
299:
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301: CS_TP_TEMPLATES_PKG.DELETE_ROW (P_Template_ID);
304: If Fnd_Api.To_Boolean( p_commit ) Then
305: Commit Work;
306: End If;
307:
308: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count ,
309: p_data => x_msg_data);
310:
311: EXCEPTION
312: WHEN OTHERS THEN
310:
311: EXCEPTION
312: WHEN OTHERS THEN
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
315: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
316: END IF;
317: FND_MSG_PUB.Count_And_Get
318: (p_count => x_msg_count ,
311: EXCEPTION
312: WHEN OTHERS THEN
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
315: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
316: END IF;
317: FND_MSG_PUB.Count_And_Get
318: (p_count => x_msg_count ,
319: p_data => x_msg_data);
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
315: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
316: END IF;
317: FND_MSG_PUB.Count_And_Get
318: (p_count => x_msg_count ,
319: p_data => x_msg_data);
320: Raise;
321: END Delete_Template;
360: Where TEMPLATE_ID = p_one_template.mTemplateID;
361:
362: BEGIN
363: IF FND_API.to_Boolean( p_init_msg_list ) THEN
364: FND_MSG_PUB.initialize;
365: END IF;
366:
367: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
368:
372: l_date_format := get_date_format_from_user_two;
373: IF(nvl(p_one_template.mTemplateName,fnd_api.g_miss_char)=fnd_api.g_miss_char) THEN
374: X_Return_Status := FND_API.G_RET_STS_ERROR;
375: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_NAME_INVALID');
376: FND_MSG_PUB.Add;
377: RAISE FND_API.G_EXC_ERROR;
378: END IF;
379:
380: IF (nvl(P_One_Template.mDefaultFlag,fnd_api.g_miss_char)=fnd_api.g_miss_char) THEN
379:
380: IF (nvl(P_One_Template.mDefaultFlag,fnd_api.g_miss_char)=fnd_api.g_miss_char) THEN
381: X_Return_Status := FND_API.G_RET_STS_ERROR;
382: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_INVALID');
383: FND_MSG_PUB.Add;
384: RAISE FND_API.G_EXC_ERROR;
385: END IF;
386:
387: IF TO_DATE(P_One_Template.mEndDate, l_date_format)
387: IF TO_DATE(P_One_Template.mEndDate, l_date_format)
388: < TO_DATE (P_One_Template.mStartDate, l_date_format) THEN
389: X_Return_Status := FND_API.G_RET_STS_ERROR;
390: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_DATE_INVALID');
391: FND_MSG_PUB.Add;
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394: --check to see if the template is modified after the client's query
395: Open c;
397: If (c%notfound) Then
398: Close c;
399: X_Return_Status := FND_API.G_RET_STS_ERROR;
400: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ID_INVALID');
401: FND_MSG_PUB.Add;
402: Raise no_data_found;
403: End If;
404: Close c;
405:
407: OR length(P_One_Template.mLast_Updated_Date) <=0
408: OR P_One_Template.mLast_Updated_Date = FND_API.G_MISS_CHAR) then
409: X_Return_Status := FND_API.G_RET_STS_ERROR;
410: FND_MESSAGE.SET_NAME('CS','CS_TP_LASTUPDATE_DATE_NULL');
411: FND_MSG_PUB.Add;
412: RAISE FND_API.G_EXC_ERROR;
413: End If;
414:
415: l_default_update_format2 :=
418: If (l_last_updated_date >
419: to_date(P_One_Template.mLast_Updated_Date, l_default_update_format2)) Then
420: X_Return_Status := FND_API.G_RET_STS_ERROR;
421: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_UPDATED');
422: FND_MSG_PUB.Add;
423: RAISE FND_API.G_EXC_ERROR;
424: End If;
425:
426: l_current_date := sysdate;
444: IF FND_API.To_Boolean( p_commit ) THEN
445: COMMIT WORK;
446: END IF;
447:
448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count ,
449: p_data => x_msg_data);
450:
451: EXCEPTION
452: WHEN FND_API.G_EXC_ERROR THEN
449: p_data => x_msg_data);
450:
451: EXCEPTION
452: WHEN FND_API.G_EXC_ERROR THEN
453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count ,
454: p_data => x_msg_data);
455: END Update_Template;
456:
457: PROCEDURE Update_Template_Attributes (
493:
494: BEGIN
495: -- Initialize message list if p_init_msg_list is set to TRUE.
496: IF FND_API.to_Boolean( p_init_msg_list ) THEN
497: FND_MSG_PUB.initialize;
498: END IF;
499:
500: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
501:
523: If (nvl(l_One_Template_Attribute.mAttributeName,FND_API.G_MISS_CHAR)
524: = FND_API.G_MISS_CHAR) Then
525: X_Return_Status := FND_API.G_RET_STS_ERROR;
526: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_NAME');
527: FND_MSG_PUB.Add;
528: RAISE FND_API.G_EXC_ERROR;
529: End If;
530:
531: If (l_One_Template_Attribute.mAttributeID is not NULL
534: OR l_One_Template_Attribute.mLast_Updated_Date =
535: FND_API.G_MISS_CHAR)) Then
536: X_Return_Status := FND_API.G_RET_STS_ERROR;
537: FND_MESSAGE.SET_NAME('CS','CS_TP_TEM_AT_LUPD_NULL');
538: FND_MSG_PUB.Add;
539: RAISE FND_API.G_EXC_ERROR;
540: End If;
541:
542: --check to see if the row is updated or inserted after the user queries the
552: OR l_One_Template_Attribute.mAttributeID = FND_API.G_MISS_NUM) Then
553: -- row is already inserted
554: X_Return_Status := FND_API.G_RET_STS_ERROR;
555: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_UPDATED');
556: FND_MSG_PUB.Add;
557: RAISE FND_API.G_EXC_ERROR;
558: Elsif (l_last_updated_date >
559: TO_DATE (l_One_Template_Attribute.mLast_Updated_Date,
560: l_default_last_up_date_format ))
561: Then
562: -- row is already updated
563: X_Return_Status := FND_API.G_RET_STS_ERROR;
564: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_UPDATED');
565: FND_MSG_PUB.Add;
566: RAISE FND_API.G_EXC_ERROR;
567: End If;
568: If (Last_Updated_Date_C%ISOPEN) Then
569: Close Last_Updated_Date_C;
610: IF FND_API.To_Boolean( p_commit ) THEN
611: COMMIT WORK;
612: END IF;
613:
614: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count ,
615: p_data => x_msg_data);
616:
617: EXCEPTION
618: WHEN FND_API.G_EXC_ERROR THEN
616:
617: EXCEPTION
618: WHEN FND_API.G_EXC_ERROR THEN
619: x_return_status := FND_API.G_RET_STS_ERROR;
620: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
621: p_data => x_msg_data);
622: WHEN OTHERS THEN
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
624: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
620: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
621: p_data => x_msg_data);
622: WHEN OTHERS THEN
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
624: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
625: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
626: END IF;
627: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
628: p_data => x_msg_data);
621: p_data => x_msg_data);
622: WHEN OTHERS THEN
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
624: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
625: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
626: END IF;
627: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
628: p_data => x_msg_data);
629: RAISE;
623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
624: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
625: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
626: END IF;
627: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
628: p_data => x_msg_data);
629: RAISE;
630: END Update_Template_Attributes;
631:
666: and OBJECT_CODE = P_JTF_OBJECT_CODE
667: and last_update_date < v_current_date ;
668: BEGIN
669: IF FND_API.to_Boolean( p_init_msg_list ) THEN
670: FND_MSG_PUB.initialize;
671: END IF;
672:
673: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
674:
678: If (l_template_count_with_id <=0 ) Then
679: Close C;
680: X_Return_Status := FND_API.G_RET_STS_ERROR;
681: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_Link_TID_INV');
682: FND_MSG_PUB.Add;
683: Raise FND_API.G_EXC_ERROR ;
684: End If;
685: Close C;
686: l_current_date := sysdate;
750: IF FND_API.To_Boolean( p_commit ) THEN
751: COMMIT WORK;
752: END IF;
753:
754: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
755: p_data => x_msg_data);
756:
757: EXCEPTION
758: WHEN FND_API.G_EXC_ERROR THEN
755: p_data => x_msg_data);
756:
757: EXCEPTION
758: WHEN FND_API.G_EXC_ERROR THEN
759: FND_MSG_PUB.Count_And_Get
760: (p_count => x_msg_count ,
761: p_data => x_msg_data);
762: END Update_Template_Links;
763:
799:
800: BEGIN
801: -- Initialize message list if p_init_msg_list is set to TRUE.
802: IF FND_API.to_Boolean( p_init_msg_list ) THEN
803: FND_MSG_PUB.initialize;
804: END IF;
805: x_return_status := FND_API.G_RET_STS_SUCCESS;
806: l_start_template := P_Start_Template;
807: l_end_template := P_End_Template;
823: If (l_start_template > l_end_template
824: Or l_start_template <= 0 Or l_end_template <= 0) Then
825: X_Return_Status := FND_API.G_RET_STS_ERROR;
826: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_INQUIRY_INVALID');
827: FND_MSG_PUB.Add;
828: RAISE FND_API.G_EXC_ERROR;
829: End If;
830:
831: -- Construct query statement, open cursor, execute query statement, retrieve results
931: IF FND_API.To_Boolean( p_commit ) THEN
932: COMMIT WORK;
933: END IF;
934:
935: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
936: p_data => x_msg_data);
937: END Show_Templates;
938:
939: PROCEDURE Show_Template (
979:
980: BEGIN
981: -- Initialize message list if p_init_msg_list is set to TRUE.
982: IF FND_API.to_Boolean( p_init_msg_list ) THEN
983: FND_MSG_PUB.initialize;
984: END IF;
985:
986: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
987:
1016: IF FND_API.To_Boolean( p_commit ) THEN
1017: COMMIT WORK;
1018: END IF;
1019:
1020: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1021: p_data => x_msg_data);
1022:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1021: p_data => x_msg_data);
1022:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1025: FND_MSG_PUB.Count_And_Get
1026: (p_count => x_msg_count ,
1027: p_data => x_msg_data
1028: );
1029: WHEN OTHERS THEN
1027: p_data => x_msg_data
1028: );
1029: WHEN OTHERS THEN
1030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1031: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1032: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1033: END IF;
1034: FND_MSG_PUB.Count_And_Get
1035: (p_count => x_msg_count ,
1028: );
1029: WHEN OTHERS THEN
1030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1031: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1032: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1033: END IF;
1034: FND_MSG_PUB.Count_And_Get
1035: (p_count => x_msg_count ,
1036: p_data => x_msg_data
1030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1031: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1032: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1033: END IF;
1034: FND_MSG_PUB.Count_And_Get
1035: (p_count => x_msg_count ,
1036: p_data => x_msg_data
1037: );
1038: Raise;
1076: l_UNI_QUESTION_NOTE_TYPE VARCHAR2(30);
1077: BEGIN
1078: -- Initialize message list if p_init_msg_list is set to TRUE.
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082:
1083: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1084:
1256: IF FND_API.To_Boolean( p_commit ) THEN
1257: COMMIT WORK;
1258: END IF;
1259:
1260: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1261: p_data => x_msg_data);
1262:
1263: EXCEPTION
1264: WHEN FND_API.G_EXC_ERROR THEN
1261: p_data => x_msg_data);
1262:
1263: EXCEPTION
1264: WHEN FND_API.G_EXC_ERROR THEN
1265: FND_MSG_PUB.Count_And_Get
1266: (p_count => x_msg_count ,
1267: p_data => x_msg_data
1268: );
1269:
1268: );
1269:
1270: WHEN no_data_found THEN
1271: --x_return_status = FND_API.G_RET_STS_EXC_ERROR;
1272: FND_MSG_PUB.Count_And_Get
1273: (p_count => x_msg_count ,
1274: p_data => x_msg_data
1275: );
1276:
1275: );
1276:
1277: WHEN OTHERS THEN
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1279: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1280: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1281: END IF;
1282: FND_MSG_PUB.Count_And_Get
1283: (p_count => x_msg_count ,
1276:
1277: WHEN OTHERS THEN
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1279: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1280: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1281: END IF;
1282: FND_MSG_PUB.Count_And_Get
1283: (p_count => x_msg_count ,
1284: p_data => x_msg_data
1278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1279: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1280: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1281: END IF;
1282: FND_MSG_PUB.Count_And_Get
1283: (p_count => x_msg_count ,
1284: p_data => x_msg_data
1285: );
1286: Raise;
1329:
1330: BEGIN
1331: -- Initialize message list if p_init_msg_list is set to TRUE.
1332: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1333: FND_MSG_PUB.initialize;
1334: END IF;
1335:
1336: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1337:
1343: If (JTF_OBJ_C%notfound) Then
1344: Close JTF_OBJ_C;
1345: X_Return_Status := FND_API.G_RET_STS_ERROR;
1346: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_JTFOB');
1347: FND_MSG_PUB.Add;
1348: RAISE FND_API.G_EXC_ERROR;
1349: End If;
1350: Close JTF_OBJ_C;
1351:
1440: IF FND_API.To_Boolean( p_commit ) THEN
1441: COMMIT WORK;
1442: END IF;
1443:
1444: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1445: p_data => x_msg_data);
1446: EXCEPTION
1447: WHEN FND_API.G_EXC_ERROR THEN
1448: FND_MSG_PUB.Count_And_Get
1444: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1445: p_data => x_msg_data);
1446: EXCEPTION
1447: WHEN FND_API.G_EXC_ERROR THEN
1448: FND_MSG_PUB.Count_And_Get
1449: (p_count => x_msg_count ,
1450: p_data => x_msg_data
1451: );
1452: END Show_Template_Attributes;
1494: i NUMBER;
1495: BEGIN
1496: -- Initialize message list if p_init_msg_list is set to TRUE.
1497: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1498: FND_MSG_PUB.initialize;
1499: END IF;
1500:
1501: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1502:
1509: If (JTF_OBJ_C%notfound) Then
1510: Close JTF_OBJ_C;
1511: X_Return_Status := FND_API.G_RET_STS_ERROR;
1512: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_JTFOB');
1513: FND_MSG_PUB.Add;
1514: RAISE FND_API.G_EXC_ERROR;
1515: End If;
1516: Close JTF_OBJ_C;
1517:
1650: IF FND_API.To_Boolean( p_commit ) THEN
1651: COMMIT WORK;
1652: END IF;
1653:
1654: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1655: p_data => x_msg_data);
1656:
1657: EXCEPTION
1658: WHEN FND_API.G_EXC_ERROR THEN
1655: p_data => x_msg_data);
1656:
1657: EXCEPTION
1658: WHEN FND_API.G_EXC_ERROR THEN
1659: FND_MSG_PUB.Count_And_Get
1660: (p_count => x_msg_count ,
1661: p_data => x_msg_data);
1662: END Show_Template_Links;
1663:
1704:
1705: BEGIN
1706: -- Initialize message list if p_init_msg_list is set to TRUE.
1707: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1708: FND_MSG_PUB.initialize;
1709: END IF;
1710:
1711: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1712:
1719: If (JTF_OBJ_C%notfound) Then
1720: Close JTF_OBJ_C;
1721: X_Return_Status := FND_API.G_RET_STS_ERROR;
1722: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_JTFOB');
1723: FND_MSG_PUB.Add;
1724: RAISE FND_API.G_EXC_ERROR;
1725: End If;
1726: Close JTF_OBJ_C;
1727:
1853: IF FND_API.To_Boolean( p_commit ) THEN
1854: COMMIT WORK;
1855: END IF;
1856:
1857: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1858: p_data => x_msg_data);
1859:
1860: EXCEPTION
1861: WHEN FND_API.G_EXC_ERROR THEN
1858: p_data => x_msg_data);
1859:
1860: EXCEPTION
1861: WHEN FND_API.G_EXC_ERROR THEN
1862: FND_MSG_PUB.Count_And_Get
1863: (p_count => x_msg_count ,
1864: p_data => x_msg_data
1865: );
1866: END Show_Non_Asso_Links;
1891:
1892: BEGIN
1893: -- Initialize message list if p_init_msg_list is set to TRUE.
1894: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1895: FND_MSG_PUB.initialize;
1896: END IF;
1897:
1898: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1899:
1907: If (JTF_OBJECT_CURSOR%ISOPEN) Then
1908: Close JTF_OBJECT_CURSOR;
1909: End If;
1910: FND_MESSAGE.SET_NAME('CS','CS_TP_Link_Iden_INVALID');
1911: FND_MSG_PUB.Add;
1912: RAISE FND_API.G_EXC_ERROR;
1913: End If;
1914:
1915: i:=0;
1929:
1930: If (i<0) Then
1931: X_Return_Status := FND_API.G_RET_STS_ERROR;
1932: FND_MESSAGE.SET_NAME('CS','CS_TP_Link_Unseeded');
1933: FND_MSG_PUB.Add;
1934: RAISE FND_API.G_EXC_ERROR;
1935: End If;
1936:
1937: IF FND_API.To_Boolean( p_commit ) THEN
1937: IF FND_API.To_Boolean( p_commit ) THEN
1938: COMMIT WORK;
1939: END IF;
1940:
1941: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1942: p_data => x_msg_data);
1943: EXCEPTION
1944: WHEN FND_API.G_EXC_ERROR THEN
1945: FND_MSG_PUB.Count_And_Get
1941: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
1942: p_data => x_msg_data);
1943: EXCEPTION
1944: WHEN FND_API.G_EXC_ERROR THEN
1945: FND_MSG_PUB.Count_And_Get
1946: (p_count => x_msg_count ,
1947: p_data => x_msg_data
1948: );
1949:
1948: );
1949:
1950: WHEN OTHERS THEN
1951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1952: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1953: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1954: END IF;
1955: FND_MSG_PUB.Count_And_Get
1956: (p_count => x_msg_count ,
1949:
1950: WHEN OTHERS THEN
1951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1952: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1953: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1954: END IF;
1955: FND_MSG_PUB.Count_And_Get
1956: (p_count => x_msg_count ,
1957: p_data => x_msg_data
1951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1952: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1953: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name);
1954: END IF;
1955: FND_MSG_PUB.Count_And_Get
1956: (p_count => x_msg_count ,
1957: p_data => x_msg_data
1958: );
1959: Raise;
2012: l_tp_template_rec l_tp_template_csr%ROWTYPE;
2013: BEGIN
2014: -- Initialize message list if p_init_msg_list is set to TRUE.
2015: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2016: FND_MSG_PUB.initialize;
2017: END IF;
2018: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
2019:
2020: -- Start API Body
2049: IF FND_API.To_Boolean( p_commit ) THEN
2050: COMMIT WORK;
2051: END IF;
2052:
2053: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
2054: p_data => x_msg_data);
2055: END Show_Default_Template;
2056:
2057: PROCEDURE Show_Error_Message (
2061: One_Message VARCHAR2(1000);
2062: i NUMBER;
2063: BEGIN
2064: i := 1;
2065: While (i <= FND_MSG_PUB.Count_Msg) Loop
2066: One_Message := FND_MSG_PUB.Get (p_msg_index => i,
2067: p_encoded => FND_API.G_FALSE);
2068: X_Out_Message := X_Out_Message || One_Message;
2069: i := i+1;
2062: i NUMBER;
2063: BEGIN
2064: i := 1;
2065: While (i <= FND_MSG_PUB.Count_Msg) Loop
2066: One_Message := FND_MSG_PUB.Get (p_msg_index => i,
2067: p_encoded => FND_API.G_FALSE);
2068: X_Out_Message := X_Out_Message || One_Message;
2069: i := i+1;
2070: End Loop;
2376: COMMIT WORK;
2377: EXCEPTION
2378: WHEN OTHERS THEN
2379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2380: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2381: FND_MSG_PUB.Add_Exc_Msg(g_pkg_pkg_name ,l_api_name);
2382: END IF;
2383: FND_MSG_PUB.Count_And_Get
2384: (p_count => X_Msg_Count ,
2377: EXCEPTION
2378: WHEN OTHERS THEN
2379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2380: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2381: FND_MSG_PUB.Add_Exc_Msg(g_pkg_pkg_name ,l_api_name);
2382: END IF;
2383: FND_MSG_PUB.Count_And_Get
2384: (p_count => X_Msg_Count ,
2385: p_data => X_Msg_Data
2379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2380: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2381: FND_MSG_PUB.Add_Exc_Msg(g_pkg_pkg_name ,l_api_name);
2382: END IF;
2383: FND_MSG_PUB.Count_And_Get
2384: (p_count => X_Msg_Count ,
2385: p_data => X_Msg_Data
2386: );
2387: ROLLBACK WORK ; --//rollback all the work
2436:
2437: EXCEPTION
2438: WHEN OTHERS THEN
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2440: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2441: FND_MSG_PUB.Add_Exc_Msg(g_pkg_pkg_name ,l_api_name);
2442: END IF;
2443: FND_MSG_PUB.Count_And_Get
2444: (p_count => X_Msg_Count ,
2437: EXCEPTION
2438: WHEN OTHERS THEN
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2440: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2441: FND_MSG_PUB.Add_Exc_Msg(g_pkg_pkg_name ,l_api_name);
2442: END IF;
2443: FND_MSG_PUB.Count_And_Get
2444: (p_count => X_Msg_Count ,
2445: p_data => X_Msg_Data
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2440: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2441: FND_MSG_PUB.Add_Exc_Msg(g_pkg_pkg_name ,l_api_name);
2442: END IF;
2443: FND_MSG_PUB.Count_And_Get
2444: (p_count => X_Msg_Count ,
2445: p_data => X_Msg_Data
2446: );
2447: Raise;
2500:
2501: BEGIN
2502: -- Initialize message list if p_init_msg_list is set to TRUE.
2503: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2504: FND_MSG_PUB.initialize;
2505: END IF;
2506:
2507: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
2508:
2527: If (l_start_link > l_end_link
2528: Or l_start_link <= 0 Or l_end_link <= 0) Then
2529: X_Return_Status := FND_API.G_RET_STS_ERROR;
2530: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_LINK_INQUIRY_INVALID');
2531: FND_MSG_PUB.Add;
2532: RAISE FND_API.G_EXC_ERROR;
2533: End If;
2534:
2535: -- Start API Body
2541: If (JTF_OBJ_C%notfound) Then
2542: Close JTF_OBJ_C;
2543: X_Return_Status := FND_API.G_RET_STS_ERROR;
2544: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_JTFOB');
2545: FND_MSG_PUB.Add;
2546: RAISE FND_API.G_EXC_ERROR;
2547: End If;
2548: Close JTF_OBJ_C;
2549:
2692: IF FND_API.To_Boolean( p_commit ) THEN
2693: COMMIT WORK;
2694: END IF;
2695:
2696: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
2697: p_data => x_msg_data);
2698:
2699: EXCEPTION
2700: WHEN FND_API.G_EXC_ERROR THEN
2697: p_data => x_msg_data);
2698:
2699: EXCEPTION
2700: WHEN FND_API.G_EXC_ERROR THEN
2701: FND_MSG_PUB.Count_And_Get
2702: (p_count => x_msg_count ,
2703: p_data => x_msg_data);
2704: END Show_Template_Links_Two;
2705:
2769: l_total_number NUMBER;
2770: BEGIN
2771: -- Initialize message list if p_init_msg_list is set to TRUE.
2772: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2773: FND_MSG_PUB.initialize;
2774: END IF;
2775:
2776: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
2777:
2795: If (l_start_link > l_end_link
2796: Or l_start_link <= 0 Or l_end_link <= 0) Then
2797: X_Return_Status := FND_API.G_RET_STS_ERROR;
2798: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_LINK_INQUIRY_INVALID');
2799: FND_MSG_PUB.Add;
2800: RAISE FND_API.G_EXC_ERROR;
2801: End If;
2802:
2803: -- Start API Body
2809: If (JTF_OBJ_C%notfound) Then
2810: Close JTF_OBJ_C;
2811: X_Return_Status := FND_API.G_RET_STS_ERROR;
2812: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_ATTR_JTFOB');
2813: FND_MSG_PUB.Add;
2814: RAISE FND_API.G_EXC_ERROR;
2815: End If;
2816: Close JTF_OBJ_C;
2817:
3097: IF FND_API.To_Boolean( p_commit ) THEN
3098: COMMIT WORK;
3099: END IF;
3100:
3101: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
3102: p_data => x_msg_data);
3103:
3104: EXCEPTION
3105: WHEN FND_API.G_EXC_ERROR THEN
3102: p_data => x_msg_data);
3103:
3104: EXCEPTION
3105: WHEN FND_API.G_EXC_ERROR THEN
3106: FND_MSG_PUB.Count_And_Get
3107: (p_count => x_msg_count ,
3108: p_data => x_msg_data
3109: );
3110: END Show_Non_Asso_Links_Two;
3136: Where template_id = P_Template_ID;
3137:
3138: BEGIN
3139: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3140: FND_MSG_PUB.initialize;
3141: END IF;
3142:
3143: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
3144:
3148: If (l_template_count_with_id <=0 ) Then
3149: Close C;
3150: X_Return_Status := FND_API.G_RET_STS_ERROR;
3151: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_Link_TID_INV');
3152: FND_MSG_PUB.Add;
3153: Raise FND_API.G_EXC_ERROR ;
3154: End If;
3155: Close C;
3156:
3165: IF FND_API.To_Boolean(p_commit) THEN
3166: COMMIT WORK;
3167: END IF;
3168:
3169: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
3170: p_data => x_msg_data);
3171:
3172: EXCEPTION
3173: WHEN FND_API.G_EXC_ERROR THEN
3170: p_data => x_msg_data);
3171:
3172: EXCEPTION
3173: WHEN FND_API.G_EXC_ERROR THEN
3174: FND_MSG_PUB.Count_And_Get
3175: (p_count => x_msg_count ,
3176: p_data => x_msg_data);
3177: END Delete_Template_Links;
3178:
3207: Where template_id = P_Template_ID;
3208:
3209: BEGIN
3210: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3211: FND_MSG_PUB.initialize;
3212: END IF;
3213:
3214: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
3215:
3219: If (l_template_count_with_id <=0 ) Then
3220: Close C;
3221: X_Return_Status := FND_API.G_RET_STS_ERROR;
3222: FND_MESSAGE.SET_NAME('CS','CS_TP_TEMPLATE_Link_TID_INV');
3223: FND_MSG_PUB.Add;
3224: Raise FND_API.G_EXC_ERROR ;
3225: End If;
3226: Close C;
3227: l_current_date := sysdate;
3271: IF FND_API.To_Boolean( p_commit ) THEN
3272: COMMIT WORK;
3273: END IF;
3274:
3275: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,
3276: p_data => x_msg_data);
3277:
3278: EXCEPTION
3279: WHEN FND_API.G_EXC_ERROR THEN
3276: p_data => x_msg_data);
3277:
3278: EXCEPTION
3279: WHEN FND_API.G_EXC_ERROR THEN
3280: FND_MSG_PUB.Count_And_Get
3281: (p_count => x_msg_count ,
3282: p_data => x_msg_data);
3283: END Add_Template_Links;
3284: