4: --ETR
5: ------------------------------------------------------------------------------
6: -- GLOBAL CONSTANTS
7: ------------------------------------------------------------------------------
8: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
10:
11: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
5: ------------------------------------------------------------------------------
6: -- GLOBAL CONSTANTS
7: ------------------------------------------------------------------------------
8: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
10:
11: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
13: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
7: ------------------------------------------------------------------------------
8: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
10:
11: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
13: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
14:
15: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Contracts_Util';
8: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
10:
11: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
13: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
14:
15: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Contracts_Util';
16: --ETR
9: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
10:
11: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
13: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
14:
15: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Contracts_Util';
16: --ETR
17:
129: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
130: 'check_license'
131: );
132: END IF;
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134:
135: END check_license;
136:
137:
139: --Copy Document Articles
140: PROCEDURE copy_articles
141: (
142: p_api_version IN NUMBER,
143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
145:
146: p_doc_type IN VARCHAR2,
147: p_copy_from_doc_id IN NUMBER,
140: PROCEDURE copy_articles
141: (
142: p_api_version IN NUMBER,
143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
145:
146: p_doc_type IN VARCHAR2,
147: p_copy_from_doc_id IN NUMBER,
148: p_version_number IN VARCHAR2 DEFAULT NULL,
171: oe_debug_pub.add('In OE_Contracts_util.copy_articles ', 1);
172: END IF;
173:
174:
175: x_return_status := FND_API.G_RET_STS_SUCCESS;
176:
177: IF p_init_msg_list = FND_API.G_TRUE THEN
178: oe_msg_pub.initialize;
179: END IF;
173:
174:
175: x_return_status := FND_API.G_RET_STS_SUCCESS;
176:
177: IF p_init_msg_list = FND_API.G_TRUE THEN
178: oe_msg_pub.initialize;
179: END IF;
180:
181:
211: END IF;
212:
213:
214:
215: -----IF p_version_number = FND_API.G_MISS_CHAR THEN
216: IF p_version_number IS NULL OR
217: p_version_number = l_latest_version_number THEN
218: --we are in the context of copying from a BSA or Sales Order to create a new BSA or Sales Order
219:
254: END IF;
255:
256: --ETR
257: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
259: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
260: RAISE FND_API.G_EXC_ERROR ;
261: END IF;
262: --ETR
256: --ETR
257: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
259: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
260: RAISE FND_API.G_EXC_ERROR ;
261: END IF;
262: --ETR
263:
264: ELSIF p_version_number <> FND_API.G_MISS_CHAR AND
260: RAISE FND_API.G_EXC_ERROR ;
261: END IF;
262: --ETR
263:
264: ELSIF p_version_number <> FND_API.G_MISS_CHAR AND
265: p_version_number <> l_latest_version_number THEN
266: --we are in the context of copying from an archived version of a BSA Sales Order to create a new BSA Sales Order
267:
268: IF l_debug_level > 0 THEN
298: END IF;
299:
300: --ETR
301: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
303: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
304: RAISE FND_API.G_EXC_ERROR ;
305: END IF;
306: --ETR
300: --ETR
301: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
303: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
304: RAISE FND_API.G_EXC_ERROR ;
305: END IF;
306: --ETR
307:
308: END IF;
312: oe_debug_pub.add('End of OE_Contracts_util.copy_articles, x_return_status ' || x_return_status, 1);
313: END IF;
314:
315: EXCEPTION
316: WHEN FND_API.G_EXC_ERROR THEN
317:
318: IF l_debug_level > 0 THEN
319: oe_debug_pub.add('WHEN G_EXC_ERROR in copy_articles ', 3);
320: END IF;
318: IF l_debug_level > 0 THEN
319: oe_debug_pub.add('WHEN G_EXC_ERROR in copy_articles ', 3);
320: END IF;
321:
322: x_return_status := FND_API.G_RET_STS_ERROR;
323:
324: /*****
325: not needed as per meeting
326: --transfer error messages on OKC stack to OM stack
333: p_data => x_msg_data
334: );
335:
336:
337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
338:
339: IF l_debug_level > 0 THEN
340: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in copy_articles ', 3);
341: END IF;
341: END IF;
342:
343: --close any cursors
344:
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
346:
347: /*****
348: not needed as per meeting
349: --transfer error messages on OKC stack to OM stack
362: IF l_debug_level > 0 THEN
363: oe_debug_pub.add('WHEN OTHERS in copy_articles ', 3);
364: END IF;
365:
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
367:
368: /*****
369: not needed as per meeting
370: --transfer error messages on OKC stack to OM stack
394: --Version articles of BSA or Sales Order
395: PROCEDURE version_articles
396: (
397: p_api_version IN NUMBER,
398: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
399: p_commit IN VARCHAR2 := FND_API.G_FALSE,
400:
401: p_doc_type IN VARCHAR2,
402: p_doc_id IN NUMBER,
395: PROCEDURE version_articles
396: (
397: p_api_version IN NUMBER,
398: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
399: p_commit IN VARCHAR2 := FND_API.G_FALSE,
400:
401: p_doc_type IN VARCHAR2,
402: p_doc_id IN NUMBER,
403: p_version_number IN VARCHAR2,
415: IF l_debug_level > 0 THEN
416: oe_debug_pub.add('In OE_Contracts_util.version_articles ', 1);
417: END IF;
418:
419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420:
421: IF p_init_msg_list = FND_API.G_TRUE THEN
422: oe_msg_pub.initialize;
423: END IF;
417: END IF;
418:
419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420:
421: IF p_init_msg_list = FND_API.G_TRUE THEN
422: oe_msg_pub.initialize;
423: END IF;
424:
425:
460: END IF;
461:
462: --ETR
463: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
465: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
466: RAISE FND_API.G_EXC_ERROR ;
467: END IF;
468: --ETR
462: --ETR
463: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
465: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
466: RAISE FND_API.G_EXC_ERROR ;
467: END IF;
468: --ETR
469:
470: IF l_debug_level > 0 THEN
471: oe_debug_pub.add('End of OE_Contracts_util.version_articles , x_return_status ' || x_return_status, 1);
472: END IF;
473:
474: EXCEPTION
475: WHEN FND_API.G_EXC_ERROR THEN
476:
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add('WHEN G_EXC_ERROR in version_articles ', 3);
479: END IF;
479: END IF;
480:
481: --close any cursors
482:
483: x_return_status := FND_API.G_RET_STS_ERROR;
484:
485: /*****
486: not needed as per meeting
487: --transfer error messages on OKC stack to OM stack
494: p_data => x_msg_data
495: );
496:
497:
498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
499:
500: IF l_debug_level > 0 THEN
501: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in version_articles ', 3);
502: END IF;
502: END IF;
503:
504: --close any cursors
505:
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
507:
508: /*****
509: not needed as per meeting
510: --transfer error messages on OKC stack to OM stack
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('WHEN OTHERS in version_articles ', 3);
525: END IF;
526:
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
528:
529: /*****
530: not needed as per meeting
531: --transfer error messages on OKC stack to OM stack
555: --perform QA checks upon the articles belonging to a BSA or Sales Order
556: PROCEDURE qa_articles
557: (
558: p_api_version IN NUMBER,
559: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
560: p_commit IN VARCHAR2 := FND_API.G_FALSE,
561:
562: p_qa_mode IN VARCHAR2 := OKC_TERMS_QA_GRP.G_NORMAL_QA,
563: p_doc_type IN VARCHAR2,
556: PROCEDURE qa_articles
557: (
558: p_api_version IN NUMBER,
559: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
560: p_commit IN VARCHAR2 := FND_API.G_FALSE,
561:
562: p_qa_mode IN VARCHAR2 := OKC_TERMS_QA_GRP.G_NORMAL_QA,
563: p_doc_type IN VARCHAR2,
564: p_doc_id IN NUMBER,
589: IF l_debug_level > 0 THEN
590: oe_debug_pub.add('In OE_Contracts_util.qa_articles ', 1);
591: END IF;
592:
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
594:
595: IF p_init_msg_list = FND_API.G_TRUE THEN
596: oe_msg_pub.initialize;
597: END IF;
591: END IF;
592:
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
594:
595: IF p_init_msg_list = FND_API.G_TRUE THEN
596: oe_msg_pub.initialize;
597: END IF;
598:
599:
630: END IF;
631:
632: --ETR
633: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
635: END IF;
636: --ETR
637:
638: IF l_order_signed = 'Y' THEN
669: END IF;
670:
671: --ETR
672: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
674: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
675: RAISE FND_API.G_EXC_ERROR ;
676: END IF;
677: --ETR
671: --ETR
672: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
674: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
675: RAISE FND_API.G_EXC_ERROR ;
676: END IF;
677: --ETR
678:
679: IF l_article_exist <> OKC_TERMS_UTIL_GRP.G_NO_ARTICLE_EXIST THEN --i.e. 'NONE'
694: x_msg_data => x_msg_data
695: );
696:
697: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
699: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
700: RAISE FND_API.G_EXC_ERROR ;
701: END IF;
702:
696:
697: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
699: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
700: RAISE FND_API.G_EXC_ERROR ;
701: END IF;
702:
703:
704: IF l_debug_level > 0 THEN
750: END IF;
751:
752: --ETR
753: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
755: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR ;
757: END IF;
758: --ETR
752: --ETR
753: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
755: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
756: RAISE FND_API.G_EXC_ERROR ;
757: END IF;
758: --ETR
759:
760: IF l_debug_level > 0 THEN
795: oe_debug_pub.add('End of OE_Contracts_util.qa_articles , x_return_status ' || x_return_status, 1);
796: END IF;
797:
798: EXCEPTION
799: WHEN FND_API.G_EXC_ERROR THEN
800:
801: IF l_debug_level > 0 THEN
802: oe_debug_pub.add('WHEN G_EXC_ERROR in qa_articles ', 3);
803: END IF;
803: END IF;
804:
805: --close any cursors
806:
807: x_return_status := FND_API.G_RET_STS_ERROR;
808:
809: /*****
810: not needed as per meeting
811: --transfer error messages on OKC stack to OM stack
818: p_data => x_msg_data
819: );
820:
821:
822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
823:
824: IF l_debug_level > 0 THEN
825: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in qa_articles ', 3);
826: END IF;
826: END IF;
827:
828: --close any cursors
829:
830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
831:
832:
833: /*****
834: not needed as per meeting
848: IF l_debug_level > 0 THEN
849: oe_debug_pub.add('WHEN OTHERS in qa_articles ', 3);
850: END IF;
851:
852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
853:
854:
855: /*****
856: not needed as per meeting
880: --called from the approval workflow to determine whether non standard articles exist for the BSA or Sales Orders being approved
881: FUNCTION non_standard_article_exists
882: (
883: p_api_version IN NUMBER,
884: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
885: p_commit IN VARCHAR2 := FND_API.G_FALSE,
886: p_doc_type IN VARCHAR2,
887: p_doc_id IN NUMBER,
888: x_return_status OUT NOCOPY VARCHAR2,
881: FUNCTION non_standard_article_exists
882: (
883: p_api_version IN NUMBER,
884: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
885: p_commit IN VARCHAR2 := FND_API.G_FALSE,
886: p_doc_type IN VARCHAR2,
887: p_doc_id IN NUMBER,
888: x_return_status OUT NOCOPY VARCHAR2,
889: x_msg_count OUT NOCOPY NUMBER,
903: oe_debug_pub.add('p_doc_type: ' || p_doc_type,3);
904: oe_debug_pub.add('p_doc_id: ' || p_doc_id,3);
905: END IF;
906:
907: x_return_status := FND_API.G_RET_STS_SUCCESS;
908:
909: --Check for licensing
910: IF OE_Contracts_util.check_license() <> 'Y' THEN
911: IF l_debug_level > 0 THEN
932: END IF;
933:
934: --ETR
935: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
937: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
938: RAISE FND_API.G_EXC_ERROR ;
939: END IF;
940: --ETR
934: --ETR
935: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
937: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
938: RAISE FND_API.G_EXC_ERROR ;
939: END IF;
940: --ETR
941:
942: IF l_article_type = OKC_TERMS_UTIL_GRP.G_NON_STANDARD_ART_EXIST THEN --i.e. 'NON_STANDARD_EXIST'
952: END IF;
953:
954:
955: EXCEPTION
956: WHEN FND_API.G_EXC_ERROR THEN
957:
958: IF l_debug_level > 0 THEN
959: oe_debug_pub.add('WHEN G_EXC_ERROR in non_standard_article_exists ', 3);
960: END IF;
958: IF l_debug_level > 0 THEN
959: oe_debug_pub.add('WHEN G_EXC_ERROR in non_standard_article_exists ', 3);
960: END IF;
961:
962: x_return_status := FND_API.G_RET_STS_ERROR;
963:
964: /*****
965: not needed as per meeting
966: --transfer error messages on OKC stack to OM stack
973: p_data => x_msg_data
974: );
975:
976:
977: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
978:
979: IF l_debug_level > 0 THEN
980: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in non_standard_article_exists ', 3);
981: END IF;
981: END IF;
982:
983: --close any cursors
984:
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
986:
987: /*****
988: not needed as per meeting
989: --transfer error messages on OKC stack to OM stack
1007: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1008: 'non_standard_article_exists'
1009: );
1010: END IF;
1011: -----RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012:
1013: --Get message count and data
1014: OE_MSG_PUB.Count_And_Get (
1015: p_count => x_msg_count,
1033: l_sales_document_type_code VARCHAR2(30); -- i.e. either 'B' or 'O'
1034:
1035: l_api_version CONSTANT NUMBER := 1;
1036: l_api_name CONSTANT VARCHAR2(30) := 'WF_non_standard_article_exists';
1037: lx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1038: lx_msg_count NUMBER := 0;
1039: lx_msg_data VARCHAR2(2000);
1040:
1041: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1124: to the OM entity or contract entity attachment representing the BSA/Sales Order. */
1125: PROCEDURE attachment_location
1126: (
1127: p_api_version IN NUMBER,
1128: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1129:
1130: p_doc_type IN VARCHAR2,
1131: p_doc_id IN NUMBER,
1132:
1194: oe_debug_pub.add('p_doc_type: '|| p_doc_type, 3);
1195: oe_debug_pub.add('p_doc_id: '|| p_doc_id, 3);
1196: END IF;
1197:
1198: x_return_status := FND_API.G_RET_STS_SUCCESS;
1199:
1200: IF p_init_msg_list = FND_API.G_TRUE THEN
1201: oe_msg_pub.initialize;
1202: END IF;
1196: END IF;
1197:
1198: x_return_status := FND_API.G_RET_STS_SUCCESS;
1199:
1200: IF p_init_msg_list = FND_API.G_TRUE THEN
1201: oe_msg_pub.initialize;
1202: END IF;
1203:
1204: /*
1333: x_workflow_string := l_workflow_string;
1334:
1335:
1336: EXCEPTION
1337: WHEN FND_API.G_EXC_ERROR THEN
1338:
1339: IF l_debug_level > 0 THEN
1340: oe_debug_pub.add('WHEN OTHERS in attachment_location ', 3);
1341: END IF;
1354: END IF;
1355: ********/
1356:
1357:
1358: x_return_status := FND_API.G_RET_STS_ERROR;
1359:
1360: /*****
1361: not needed as per meeting
1362: --transfer error messages on OKC stack to OM stack
1369: p_data => x_msg_data
1370: );
1371:
1372:
1373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1374:
1375: IF l_debug_level > 0 THEN
1376: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in attachment_location ', 3);
1377: END IF;
1389: CLOSE c_get_so_version;
1390: END IF;
1391: ********/
1392:
1393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1394:
1395: /*****
1396: not needed as per meeting
1397: --transfer error messages on OKC stack to OM stack
1424: CLOSE c_get_so_version;
1425: END IF;
1426: ********/
1427:
1428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1429:
1430: /*****
1431: not needed as per meeting
1432: --transfer error messages on OKC stack to OM stack
1558: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1559: 'terms_exists'
1560: );
1561: END IF;
1562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1563:
1564:
1565: END terms_exists;
1566:
1569: --delete articles belonging to the BSA or Sales Order
1570: PROCEDURE delete_articles
1571: (
1572: p_api_version IN NUMBER,
1573: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1574: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1575:
1576: p_doc_type IN VARCHAR2,
1577: p_doc_id IN NUMBER,
1570: PROCEDURE delete_articles
1571: (
1572: p_api_version IN NUMBER,
1573: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1574: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1575:
1576: p_doc_type IN VARCHAR2,
1577: p_doc_id IN NUMBER,
1578:
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add('In OE_Contracts_util.delete_articles ', 1);
1590: END IF;
1591:
1592: x_return_status := FND_API.G_RET_STS_SUCCESS;
1593:
1594: IF p_init_msg_list = FND_API.G_TRUE THEN
1595: oe_msg_pub.initialize;
1596: END IF;
1590: END IF;
1591:
1592: x_return_status := FND_API.G_RET_STS_SUCCESS;
1593:
1594: IF p_init_msg_list = FND_API.G_TRUE THEN
1595: oe_msg_pub.initialize;
1596: END IF;
1597:
1598: --Check for licensing
1630: END IF;
1631:
1632: --ETR
1633: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1635: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1636: RAISE FND_API.G_EXC_ERROR ;
1637: END IF;
1638: --ETR
1632: --ETR
1633: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1635: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1636: RAISE FND_API.G_EXC_ERROR ;
1637: END IF;
1638: --ETR
1639:
1640: IF l_debug_level > 0 THEN
1641: oe_debug_pub.add('End of OE_Contracts_util.delete_articles, x_return_status ' || x_return_status, 1);
1642: END IF;
1643:
1644: EXCEPTION
1645: WHEN FND_API.G_EXC_ERROR THEN
1646:
1647: IF l_debug_level > 0 THEN
1648: oe_debug_pub.add('WHEN G_EXC_ERROR in delete_articles ', 3);
1649: END IF;
1649: END IF;
1650:
1651: --close any cursors
1652:
1653: x_return_status := FND_API.G_RET_STS_ERROR;
1654:
1655: /*****
1656: not needed as per meeting
1657: --transfer error messages on OKC stack to OM stack
1664: p_data => x_msg_data
1665: );
1666:
1667:
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669:
1670: IF l_debug_level > 0 THEN
1671: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in delete_articles ', 3);
1672: END IF;
1672: END IF;
1673:
1674: --close any cursors
1675:
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1677:
1678: /*****
1679: not needed as per meeting
1680: --transfer error messages on OKC stack to OM stack
1693: IF l_debug_level > 0 THEN
1694: oe_debug_pub.add('WHEN OTHERS in delete_articles ', 3);
1695: END IF;
1696:
1697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1698:
1699: /*****
1700: not needed as per meeting
1701: --transfer error messages on OKC stack to OM stack
1722: --purge articles belonging to the BSA's or Sales Orders
1723: PROCEDURE purge_articles
1724: (
1725: p_api_version IN NUMBER,
1726: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1727: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1728:
1729: p_doc_tbl IN doc_tbl_type,
1730:
1723: PROCEDURE purge_articles
1724: (
1725: p_api_version IN NUMBER,
1726: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1727: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1728:
1729: p_doc_tbl IN doc_tbl_type,
1730:
1731: x_return_status OUT NOCOPY VARCHAR2,
1740: IF l_debug_level > 0 THEN
1741: oe_debug_pub.add('In OE_Contracts_util.purge_articles ', 1);
1742: END IF;
1743:
1744: x_return_status := FND_API.G_RET_STS_SUCCESS;
1745:
1746: IF p_init_msg_list = FND_API.G_TRUE THEN
1747: oe_msg_pub.initialize;
1748: END IF;
1742: END IF;
1743:
1744: x_return_status := FND_API.G_RET_STS_SUCCESS;
1745:
1746: IF p_init_msg_list = FND_API.G_TRUE THEN
1747: oe_msg_pub.initialize;
1748: END IF;
1749:
1750: --Check for licensing
1779: END IF;
1780:
1781: --ETR
1782: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1784: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1785: RAISE FND_API.G_EXC_ERROR ;
1786: END IF;
1787: --ETR
1781: --ETR
1782: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1784: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1785: RAISE FND_API.G_EXC_ERROR ;
1786: END IF;
1787: --ETR
1788:
1789: IF l_debug_level > 0 THEN
1790: oe_debug_pub.add('End of OE_Contracts_util.purge_articles, x_return_status ' || x_return_status, 1);
1791: END IF;
1792:
1793: EXCEPTION
1794: WHEN FND_API.G_EXC_ERROR THEN
1795:
1796: IF l_debug_level > 0 THEN
1797: oe_debug_pub.add('WHEN G_EXC_ERROR in purge_articles ', 3);
1798: END IF;
1798: END IF;
1799:
1800: --close any cursors
1801:
1802: x_return_status := FND_API.G_RET_STS_ERROR;
1803:
1804: /*****
1805: not needed as per meeting
1806: --transfer error messages on OKC stack to OM stack
1813: p_data => x_msg_data
1814: );
1815:
1816:
1817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1818:
1819: IF l_debug_level > 0 THEN
1820: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in purge_articles ', 3);
1821: END IF;
1821: END IF;
1822:
1823: --close any cursors
1824:
1825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1826:
1827: /*****
1828: not needed as per meeting
1829: --transfer error messages on OKC stack to OM stack
1842: IF l_debug_level > 0 THEN
1843: oe_debug_pub.add('WHEN OTHERS in purge_articles ', 3);
1844: END IF;
1845:
1846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1847:
1848: /*****
1849: not needed as per meeting
1850: --transfer error messages on OKC stack to OM stack
1870:
1871: PROCEDURE get_article_variable_values
1872: (
1873: p_api_version IN NUMBER,
1874: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1875: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1876:
1877: p_doc_type IN VARCHAR2,
1878: p_doc_id IN NUMBER,
1871: PROCEDURE get_article_variable_values
1872: (
1873: p_api_version IN NUMBER,
1874: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1875: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1876:
1877: p_doc_type IN VARCHAR2,
1878: p_doc_id IN NUMBER,
1879: p_sys_var_value_tbl IN OUT NOCOPY sys_var_value_tbl_type,
1952: oe_debug_pub.add('p_doc_type: ' || p_doc_type,3);
1953: oe_debug_pub.add('p_doc_id: ' || p_doc_id,3);
1954: END IF;
1955:
1956: x_return_status := FND_API.G_RET_STS_SUCCESS;
1957:
1958: IF p_init_msg_list = FND_API.G_TRUE THEN
1959: oe_msg_pub.initialize;
1960: END IF;
1954: END IF;
1955:
1956: x_return_status := FND_API.G_RET_STS_SUCCESS;
1957:
1958: IF p_init_msg_list = FND_API.G_TRUE THEN
1959: oe_msg_pub.initialize;
1960: END IF;
1961:
1962:
2207: END IF;
2208:
2209:
2210: EXCEPTION
2211: WHEN FND_API.G_EXC_ERROR THEN
2212:
2213: IF l_debug_level > 0 THEN
2214: oe_debug_pub.add('WHEN G_EXC_ERROR in get_article_variable_values ', 3);
2215: END IF;
2218: IF c_get_bsa_header_variables%ISOPEN THEN
2219: CLOSE c_get_bsa_header_variables;
2220: END IF;
2221:
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223:
2224: /*****
2225: not needed as per meeting
2226: --transfer error messages on OKC stack to OM stack
2233: p_data => x_msg_data
2234: );
2235:
2236:
2237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2238:
2239: IF l_debug_level > 0 THEN
2240: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in get_article_variable_values ', 3);
2241: END IF;
2244: IF c_get_bsa_header_variables%ISOPEN THEN
2245: CLOSE c_get_bsa_header_variables;
2246: END IF;
2247:
2248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2249:
2250: /*****
2251: not needed as per meeting
2252: --transfer error messages on OKC stack to OM stack
2269: IF c_get_bsa_header_variables%ISOPEN THEN
2270: CLOSE c_get_bsa_header_variables;
2271: END IF;
2272:
2273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2274:
2275: /*****
2276: not needed as per meeting
2277: --transfer error messages on OKC stack to OM stack
2300: --this overloaded signature is called from the contract expert
2301: PROCEDURE get_article_variable_values
2302: (
2303: p_api_version IN NUMBER,
2304: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2305: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2306:
2307: p_doc_type IN VARCHAR2,
2308: p_doc_id IN NUMBER,
2301: PROCEDURE get_article_variable_values
2302: (
2303: p_api_version IN NUMBER,
2304: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2305: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2306:
2307: p_doc_type IN VARCHAR2,
2308: p_doc_id IN NUMBER,
2309: p_line_var_tbl IN line_var_tbl_type,
2400: oe_debug_pub.add('p_line_var_tbl.COUNT: ' || p_line_var_tbl.COUNT, 1);
2401: END IF;
2402:
2403:
2404: x_return_status := FND_API.G_RET_STS_SUCCESS;
2405:
2406: IF p_init_msg_list = FND_API.G_TRUE THEN
2407: oe_msg_pub.initialize;
2408: END IF;
2402:
2403:
2404: x_return_status := FND_API.G_RET_STS_SUCCESS;
2405:
2406: IF p_init_msg_list = FND_API.G_TRUE THEN
2407: oe_msg_pub.initialize;
2408: END IF;
2409:
2410:
2547: oe_debug_pub.add('End of OE_Contracts_util.get_article_variable_values for line level variables, x_return_status: '|| x_return_status, 1);
2548: END IF;
2549:
2550: EXCEPTION
2551: WHEN FND_API.G_EXC_ERROR THEN
2552:
2553: IF l_debug_level > 0 THEN
2554: oe_debug_pub.add('WHEN G_EXC_ERROR in get_article_variable_values ', 3);
2555: END IF;
2558: IF c_get_derived_item_category%ISOPEN THEN
2559: CLOSE c_get_derived_item_category;
2560: END IF;
2561:
2562: x_return_status := FND_API.G_RET_STS_ERROR;
2563:
2564: /*****
2565: not needed as per meeting
2566: --transfer error messages on OKC stack to OM stack
2574: p_data => x_msg_data
2575: );
2576:
2577:
2578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2579:
2580: IF l_debug_level > 0 THEN
2581: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in get_article_variable_values ', 3);
2582: END IF;
2585: IF c_get_derived_item_category%ISOPEN THEN
2586: CLOSE c_get_derived_item_category;
2587: END IF;
2588:
2589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2590:
2591: /*****
2592: not needed as per meeting
2593: --transfer error messages on OKC stack to OM stack
2611: IF c_get_derived_item_category%ISOPEN THEN
2612: CLOSE c_get_derived_item_category;
2613: END IF;
2614:
2615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2616:
2617: /*****
2618: not needed as per meeting
2619: --transfer error messages on OKC stack to OM stack
2643: --to return details about an article template being used by a particular BSA or Sales Order
2644: PROCEDURE get_terms_template
2645: (
2646: p_api_version IN NUMBER,
2647: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2648: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2649:
2650: p_doc_type IN VARCHAR2,
2651: p_doc_id IN NUMBER,
2644: PROCEDURE get_terms_template
2645: (
2646: p_api_version IN NUMBER,
2647: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2648: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2649:
2650: p_doc_type IN VARCHAR2,
2651: p_doc_id IN NUMBER,
2652:
2668: IF l_debug_level > 0 THEN
2669: oe_debug_pub.add('In OE_Contracts_util.get_terms_template ', 1);
2670: END IF;
2671:
2672: x_return_status := FND_API.G_RET_STS_SUCCESS;
2673:
2674: IF p_init_msg_list = FND_API.G_TRUE THEN
2675: oe_msg_pub.initialize;
2676: END IF;
2670: END IF;
2671:
2672: x_return_status := FND_API.G_RET_STS_SUCCESS;
2673:
2674: IF p_init_msg_list = FND_API.G_TRUE THEN
2675: oe_msg_pub.initialize;
2676: END IF;
2677:
2678: --Check for licensing
2714: END IF;
2715:
2716: --ETR
2717: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2719: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2720: RAISE FND_API.G_EXC_ERROR ;
2721: END IF;
2722: --ETR
2716: --ETR
2717: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2719: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2720: RAISE FND_API.G_EXC_ERROR ;
2721: END IF;
2722: --ETR
2723:
2724: IF l_debug_level > 0 THEN
2725: oe_debug_pub.add('End of OE_Contracts_util.get_terms_template , x_return_status ' || x_return_status, 1);
2726: END IF;
2727:
2728: EXCEPTION
2729: WHEN FND_API.G_EXC_ERROR THEN
2730:
2731: IF l_debug_level > 0 THEN
2732: oe_debug_pub.add('WHEN G_EXC_ERROR in get_terms_template ', 3);
2733: END IF;
2731: IF l_debug_level > 0 THEN
2732: oe_debug_pub.add('WHEN G_EXC_ERROR in get_terms_template ', 3);
2733: END IF;
2734:
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736:
2737: /*****
2738: not needed as per meeting
2739: --transfer error messages on OKC stack to OM stack
2746: p_data => x_msg_data
2747: );
2748:
2749:
2750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2751:
2752: IF l_debug_level > 0 THEN
2753: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in get_terms_template ', 3);
2754: END IF;
2754: END IF;
2755:
2756: --close any cursors
2757:
2758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2759:
2760: /*****
2761: not needed as per meeting
2762: --transfer error messages on OKC stack to OM stack
2775: IF l_debug_level > 0 THEN
2776: oe_debug_pub.add('WHEN OTHERS in get_terms_template ', 3);
2777: END IF;
2778:
2779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2780:
2781: /*****
2782: not needed as per meeting
2783: --transfer error messages on OKC stack to OM stack
2805:
2806: /* Gets the name of a contract template. It does not have to be instantiated against anything. */
2807: FUNCTION Get_Template_Name(
2808: p_api_version IN NUMBER,
2809: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2810: p_template_id IN NUMBER,
2811:
2812: x_return_status OUT NOCOPY VARCHAR2,
2813: x_msg_data OUT NOCOPY VARCHAR2,
2828: oe_debug_pub.add('Calling OKC_TERMS_UTIL_GRP.Get_Template_Name',3);
2829: oe_debug_pub.add('p_tempate_id: ' || p_template_id,3);
2830: END IF;
2831:
2832: x_return_status := FND_API.G_RET_STS_SUCCESS;
2833:
2834: --Check for licensing
2835: IF OE_Contracts_util.check_license() <> 'Y' THEN
2836: IF l_debug_level > 0 THEN
2856: END IF;
2857:
2858: --ETR
2859: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2861: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2862: RAISE FND_API.G_EXC_ERROR ;
2863: END IF;
2864: --ETR
2858: --ETR
2859: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2861: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2862: RAISE FND_API.G_EXC_ERROR ;
2863: END IF;
2864: --ETR
2865:
2866: IF l_debug_level > 0 THEN
2870: RETURN l_template_name;
2871:
2872:
2873: EXCEPTION
2874: WHEN FND_API.G_EXC_ERROR THEN
2875:
2876: IF l_debug_level > 0 THEN
2877: oe_debug_pub.add('WHEN G_EXC_ERROR in Get_Template_Name ', 3);
2878: END IF;
2876: IF l_debug_level > 0 THEN
2877: oe_debug_pub.add('WHEN G_EXC_ERROR in Get_Template_Name ', 3);
2878: END IF;
2879:
2880: x_return_status := FND_API.G_RET_STS_ERROR;
2881:
2882: /*****
2883: not needed as per meeting
2884: --transfer error messages on OKC stack to OM stack
2891: p_data => x_msg_data
2892: );
2893:
2894:
2895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2896:
2897: IF l_debug_level > 0 THEN
2898: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in Get_Template_Name ', 3);
2899: END IF;
2899: END IF;
2900:
2901: --close any cursors
2902:
2903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2904:
2905: /*****
2906: not needed as per meeting
2907: --transfer error messages on OKC stack to OM stack
2925: 'non_standard_article_exists'
2926: );
2927: END IF;
2928:
2929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2930:
2931: --Get message count and data
2932: OE_MSG_PUB.Count_And_Get (
2933: p_count => x_msg_count,
2943: --used internally by instantiate_doc_terms
2944: PROCEDURE instantiate_terms
2945: (
2946: p_api_version IN NUMBER,
2947: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2948: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2949:
2950: p_template_id IN NUMBER,
2951: p_doc_type IN VARCHAR2,
2944: PROCEDURE instantiate_terms
2945: (
2946: p_api_version IN NUMBER,
2947: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2948: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2949:
2950: p_template_id IN NUMBER,
2951: p_doc_type IN VARCHAR2,
2952: p_doc_id IN NUMBER,
2966: IF l_debug_level > 0 THEN
2967: oe_debug_pub.add('In OE_Contracts_util.instantiate_terms ', 1);
2968: END IF;
2969:
2970: x_return_status := FND_API.G_RET_STS_SUCCESS;
2971:
2972: IF p_init_msg_list = FND_API.G_TRUE THEN
2973: oe_msg_pub.initialize;
2974: END IF;
2968: END IF;
2969:
2970: x_return_status := FND_API.G_RET_STS_SUCCESS;
2971:
2972: IF p_init_msg_list = FND_API.G_TRUE THEN
2973: oe_msg_pub.initialize;
2974: END IF;
2975:
2976: --Check for licensing
3016: END IF;
3017:
3018: --ETR
3019: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3021: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3022: RAISE FND_API.G_EXC_ERROR ;
3023: END IF;
3024: --ETR
3018: --ETR
3019: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3021: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3022: RAISE FND_API.G_EXC_ERROR ;
3023: END IF;
3024: --ETR
3025:
3026: IF l_debug_level > 0 THEN
3027: oe_debug_pub.add('End of OE_Contracts_util.instantiate_terms , x_return_status ' || x_return_status, 1);
3028: END IF;
3029:
3030: EXCEPTION
3031: WHEN FND_API.G_EXC_ERROR THEN
3032:
3033: IF l_debug_level > 0 THEN
3034: oe_debug_pub.add('WHEN G_EXC_ERROR in instantiate_terms ', 3);
3035: END IF;
3033: IF l_debug_level > 0 THEN
3034: oe_debug_pub.add('WHEN G_EXC_ERROR in instantiate_terms ', 3);
3035: END IF;
3036:
3037: x_return_status := FND_API.G_RET_STS_ERROR;
3038:
3039: /*****
3040: not needed as per meeting
3041: --transfer error messages on OKC stack to OM stack
3048: p_data => x_msg_data
3049: );
3050:
3051:
3052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3053:
3054: IF l_debug_level > 0 THEN
3055: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in instantiate_terms ', 3);
3056: END IF;
3056: END IF;
3057:
3058: --close any cursors
3059:
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3061:
3062: /*****
3063: not needed as per meeting
3064: --transfer error messages on OKC stack to OM stack
3077: IF l_debug_level > 0 THEN
3078: oe_debug_pub.add('WHEN OTHERS in instantiate_terms ', 3);
3079: END IF;
3080:
3081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3082:
3083: /*****
3084: not needed as per meeting
3085: --transfer error messages on OKC stack to OM stack
3108: --the contract template id is defaulted for a new BSA or Sales Order
3109: PROCEDURE instantiate_doc_terms
3110: (
3111: p_api_version IN NUMBER,
3112: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3113: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3114:
3115: p_template_id IN NUMBER,
3116: p_doc_type IN VARCHAR2,
3109: PROCEDURE instantiate_doc_terms
3110: (
3111: p_api_version IN NUMBER,
3112: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3113: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3114:
3115: p_template_id IN NUMBER,
3116: p_doc_type IN VARCHAR2,
3117: p_doc_id IN NUMBER,
3135: IF l_debug_level > 0 THEN
3136: oe_debug_pub.add('In OE_Contracts_util.instantiate_doc_terms ', 1);
3137: END IF;
3138:
3139: x_return_status := FND_API.G_RET_STS_SUCCESS;
3140:
3141: IF p_init_msg_list = FND_API.G_TRUE THEN
3142: oe_msg_pub.initialize;
3143: END IF;
3137: END IF;
3138:
3139: x_return_status := FND_API.G_RET_STS_SUCCESS;
3140:
3141: IF p_init_msg_list = FND_API.G_TRUE THEN
3142: oe_msg_pub.initialize;
3143: END IF;
3144:
3145: --Check for licensing
3176:
3177: --first determine whether any terms and conditions have been instantiated for the BSA or Sales Order
3178: oe_contracts_util.get_terms_template (
3179: p_api_version => 1.0,
3180: p_init_msg_list => FND_API.G_FALSE,
3181: p_commit => FND_API.G_FALSE,
3182:
3183: p_doc_type => p_doc_type,
3184: p_doc_id => p_doc_id,
3177: --first determine whether any terms and conditions have been instantiated for the BSA or Sales Order
3178: oe_contracts_util.get_terms_template (
3179: p_api_version => 1.0,
3180: p_init_msg_list => FND_API.G_FALSE,
3181: p_commit => FND_API.G_FALSE,
3182:
3183: p_doc_type => p_doc_type,
3184: p_doc_id => p_doc_id,
3185:
3205: END IF;
3206:
3207: oe_contracts_util.instantiate_terms (
3208: p_api_version => 1.0,
3209: p_init_msg_list => FND_API.G_FALSE,
3210: p_commit => FND_API.G_TRUE, --important: need to save before invoking articles UI
3211:
3212: p_template_id => p_template_id,
3213: p_doc_type => p_doc_type,
3206:
3207: oe_contracts_util.instantiate_terms (
3208: p_api_version => 1.0,
3209: p_init_msg_list => FND_API.G_FALSE,
3210: p_commit => FND_API.G_TRUE, --important: need to save before invoking articles UI
3211:
3212: p_template_id => p_template_id,
3213: p_doc_type => p_doc_type,
3214: p_doc_id => p_doc_id,
3238: oe_debug_pub.add('End of OE_Contracts_util.instantiate_doc_terms , x_return_status ' || x_return_status, 1);
3239: END IF;
3240:
3241: EXCEPTION
3242: WHEN FND_API.G_EXC_ERROR THEN
3243:
3244: IF l_debug_level > 0 THEN
3245: oe_debug_pub.add('WHEN G_EXC_ERROR in instantiate_doc_terms ', 3);
3246: END IF;
3244: IF l_debug_level > 0 THEN
3245: oe_debug_pub.add('WHEN G_EXC_ERROR in instantiate_doc_terms ', 3);
3246: END IF;
3247:
3248: x_return_status := FND_API.G_RET_STS_ERROR;
3249:
3250: /*****
3251: not needed as per meeting
3252: --transfer error messages on OKC stack to OM stack
3259: p_data => x_msg_data
3260: );
3261:
3262:
3263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3264:
3265: IF l_debug_level > 0 THEN
3266: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in instantiate_doc_terms ', 3);
3267: END IF;
3267: END IF;
3268:
3269: --close any cursors
3270:
3271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3272:
3273: /*****
3274: not needed as per meeting
3275: --transfer error messages on OKC stack to OM stack
3288: IF l_debug_level > 0 THEN
3289: oe_debug_pub.add('WHEN OTHERS in instantiate_doc_terms ', 3);
3290: END IF;
3291:
3292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3293:
3294: /*****
3295: not needed as per meeting
3296: --transfer error messages on OKC stack to OM stack
3321: --This function is to check whether or not the given order has already been
3322: --accepted (i.e signed). Returns 'Y' if accepted, and 'N' otherwise.
3323: FUNCTION Is_order_signed(
3324: p_api_version IN NUMBER,
3325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3326:
3327: x_return_status OUT NOCOPY VARCHAR2,
3328: x_msg_data OUT NOCOPY VARCHAR2,
3329: x_msg_count OUT NOCOPY NUMBER,
3350: IF (l_debug_level > 0) THEN
3351: oe_debug_pub.add('In OE_Contracts_util.is_order_signed', 2);
3352: END IF;
3353: -- Initialize message list if p_init_msg_list is set to TRUE.
3354: IF p_init_msg_list = FND_API.G_TRUE THEN
3355: oe_msg_pub.initialize;
3356: END IF;
3357: -- Initialize API return status to success
3358: x_return_status := FND_API.G_RET_STS_SUCCESS;
3354: IF p_init_msg_list = FND_API.G_TRUE THEN
3355: oe_msg_pub.initialize;
3356: END IF;
3357: -- Initialize API return status to success
3358: x_return_status := FND_API.G_RET_STS_SUCCESS;
3359: IF l_debug_level > 0 THEN
3360: oe_debug_pub.add('Fetching customer_signature and customer_signature_date from oe_order_headers_all ', 3);
3361: oe_debug_pub.add('p_api_version: ' || p_api_version,3);
3362: oe_debug_pub.add('p_init_msg_list: ' || p_init_msg_list,3);
3447: IF l_debug_level > 0 THEN
3448: oe_debug_pub.add('In OE_Contracts_util.copy_doc ', 1);
3449: END IF;
3450:
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452:
3453: IF p_init_msg_list = FND_API.G_TRUE THEN
3454: oe_msg_pub.initialize;
3455: END IF;
3449: END IF;
3450:
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452:
3453: IF p_init_msg_list = FND_API.G_TRUE THEN
3454: oe_msg_pub.initialize;
3455: END IF;
3456:
3457: --Check contract Licence
3518: x_msg_count => x_msg_count,
3519: x_msg_data => x_msg_data);
3520:
3521:
3522: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3523: RAISE FND_API.G_EXC_ERROR;
3524: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3519: x_msg_data => x_msg_data);
3520:
3521:
3522: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3523: RAISE FND_API.G_EXC_ERROR;
3524: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527:
3520:
3521:
3522: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3523: RAISE FND_API.G_EXC_ERROR;
3524: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527:
3528: End If;
3521:
3522: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3523: RAISE FND_API.G_EXC_ERROR;
3524: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3526: END IF;
3527:
3528: End If;
3529: ELSE
3571: x_msg_count => x_msg_count,
3572: p_copy_abstract_yn => 'Y');
3573:
3574:
3575: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3576: RAISE FND_API.G_EXC_ERROR;
3577: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3579: END IF;
3572: p_copy_abstract_yn => 'Y');
3573:
3574:
3575: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3576: RAISE FND_API.G_EXC_ERROR;
3577: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3579: END IF;
3580:
3573:
3574:
3575: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3576: RAISE FND_API.G_EXC_ERROR;
3577: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3579: END IF;
3580:
3581:
3574:
3575: IF x_return_status = FND_API.G_RET_STS_ERROR Then
3576: RAISE FND_API.G_EXC_ERROR;
3577: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR Then
3578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3579: END IF;
3580:
3581:
3582: END IF;
3586: End If;
3587:
3588:
3589: EXCEPTION
3590: WHEN FND_API.G_EXC_ERROR THEN
3591:
3592: IF l_debug_level > 0 THEN
3593: oe_debug_pub.add('WHEN G_EXC_ERROR in copy_doc ', 3);
3594: END IF;
3596: OE_MSG_PUB.Count_And_Get (
3597: p_count => x_msg_count,
3598: p_data => x_msg_data);
3599:
3600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3601:
3602: IF l_debug_level > 0 THEN
3603: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in copy_doc ', 3);
3604: END IF;
3613: IF l_debug_level > 0 THEN
3614: oe_debug_pub.add('WHEN OTHERS in copy_doc ', 3);
3615: END IF;
3616:
3617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3618:
3619: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3620: OE_MSG_PUB.Add_Exc_Msg (
3621: G_PKG_NAME,
3689: IF l_debug_level > 0 THEN
3690: oe_debug_pub.add('Return status from OE_LINE_UTIL.GET_ITEM_INFO is '||l_return_status) ;
3691: END IF;
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3690: oe_debug_pub.add('Return status from OE_LINE_UTIL.GET_ITEM_INFO is '||l_return_status) ;
3691: END IF;
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698:
3691: END IF;
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698:
3699: IF p_item_or_desc = 'I' THEN
3692:
3693: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3695: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698:
3699: IF p_item_or_desc = 'I' THEN
3700: l_value := l_inventory_item;
3712:
3713: RETURN l_value;
3714:
3715: EXCEPTION
3716: WHEN FND_API.G_EXC_ERROR THEN
3717: IF l_debug_level > 0 THEN
3718: oe_debug_pub.add('In oe_contracts_util.get_item_info:g_exc_error section') ;
3719: END IF;
3720: RAISE FND_API.G_EXC_ERROR;
3716: WHEN FND_API.G_EXC_ERROR THEN
3717: IF l_debug_level > 0 THEN
3718: oe_debug_pub.add('In oe_contracts_util.get_item_info:g_exc_error section') ;
3719: END IF;
3720: RAISE FND_API.G_EXC_ERROR;
3721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add('In oe_contracts_util.get_item_info:g_exc_unexpected_error section') ;
3724: END IF;
3717: IF l_debug_level > 0 THEN
3718: oe_debug_pub.add('In oe_contracts_util.get_item_info:g_exc_error section') ;
3719: END IF;
3720: RAISE FND_API.G_EXC_ERROR;
3721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add('In oe_contracts_util.get_item_info:g_exc_unexpected_error section') ;
3724: END IF;
3725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add('In oe_contracts_util.get_item_info:g_exc_unexpected_error section') ;
3724: END IF;
3725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3726: WHEN OTHERS THEN
3727: IF l_debug_level > 0 THEN
3728: oe_debug_pub.add('In oe_contracts_util.get_item_info: when others section') ;
3729: END IF;
3730: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3731: THEN
3732: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'GET_ITEM_INFO');
3733: END IF;
3734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3735: END GET_ITEM_INFO;
3736:
3737: --FP word integration
3738: PROCEDURE get_contract_defaults
3737: --FP word integration
3738: PROCEDURE get_contract_defaults
3739: (
3740: p_api_version IN NUMBER,
3741: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3742: p_doc_type IN VARCHAR2,
3743: p_template_id IN NUMBER,
3744: x_authoring_party OUT NOCOPY VARCHAR2,
3745: x_contract_source OUT NOCOPY VARCHAR2,
3758: IF l_debug_level > 0 THEN
3759: oe_debug_pub.add('In OE_Contracts_util.get_contract_defaults ', 1);
3760: END IF;
3761:
3762: x_return_status := FND_API.G_RET_STS_SUCCESS;
3763:
3764: IF p_init_msg_list = FND_API.G_TRUE THEN
3765: oe_msg_pub.initialize;
3766: END IF;
3760: END IF;
3761:
3762: x_return_status := FND_API.G_RET_STS_SUCCESS;
3763:
3764: IF p_init_msg_list = FND_API.G_TRUE THEN
3765: oe_msg_pub.initialize;
3766: END IF;
3767:
3768: --Check for licensing
3807: oe_debug_pub.add('x_return_status: '|| x_return_status, 3);
3808: END IF;
3809:
3810: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3812: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3813: RAISE FND_API.G_EXC_ERROR ;
3814: END IF;
3815:
3809:
3810: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3812: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3813: RAISE FND_API.G_EXC_ERROR ;
3814: END IF;
3815:
3816: IF l_debug_level > 0 THEN
3817: oe_debug_pub.add('End of OE_Contracts_util.get_contract_defaults , x_return_status ' || x_return_status, 1);
3817: oe_debug_pub.add('End of OE_Contracts_util.get_contract_defaults , x_return_status ' || x_return_status, 1);
3818: END IF;
3819:
3820: EXCEPTION
3821: WHEN FND_API.G_EXC_ERROR THEN
3822:
3823: IF l_debug_level > 0 THEN
3824: oe_debug_pub.add('WHEN G_EXC_ERROR in get_contract_defaults ', 3);
3825: END IF;
3823: IF l_debug_level > 0 THEN
3824: oe_debug_pub.add('WHEN G_EXC_ERROR in get_contract_defaults ', 3);
3825: END IF;
3826:
3827: x_return_status := FND_API.G_RET_STS_ERROR;
3828:
3829: --Get message count and data
3830: OE_MSG_PUB.Count_And_Get (
3831: p_count => x_msg_count,
3832: p_data => x_msg_data
3833: );
3834:
3835:
3836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3837:
3838: IF l_debug_level > 0 THEN
3839: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in get_contract_defaults ', 3);
3840: END IF;
3840: END IF;
3841:
3842: --close any cursors
3843:
3844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3845:
3846: --Get message count and data
3847: OE_MSG_PUB.Count_And_Get (
3848: p_count => x_msg_count,
3855: IF l_debug_level > 0 THEN
3856: oe_debug_pub.add('WHEN OTHERS in get_contract_defaults ', 3);
3857: END IF;
3858:
3859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3860:
3861: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3862: OE_MSG_PUB.Add_Exc_Msg (
3863: G_PKG_NAME,
3878: --get the template name, id, source and authoring party for the doc id
3879: PROCEDURE get_contract_details_all
3880: (
3881: p_api_version IN NUMBER,
3882: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3883: p_doc_type IN VARCHAR2,
3884: p_doc_id IN NUMBER,
3885: p_document_version IN NUMBER := NULL,
3886: x_template_id OUT NOCOPY NUMBER,
3910: IF l_debug_level > 0 THEN
3911: oe_debug_pub.add('In OE_Contracts_util.get_contract_details_all ', 1);
3912: END IF;
3913:
3914: x_return_status := FND_API.G_RET_STS_SUCCESS;
3915:
3916: IF p_init_msg_list = FND_API.G_TRUE THEN
3917: oe_msg_pub.initialize;
3918: END IF;
3912: END IF;
3913:
3914: x_return_status := FND_API.G_RET_STS_SUCCESS;
3915:
3916: IF p_init_msg_list = FND_API.G_TRUE THEN
3917: oe_msg_pub.initialize;
3918: END IF;
3919:
3920: --Check for licensing
3972: oe_debug_pub.add('x_return_status: '|| x_return_status, 3);
3973: END IF;
3974:
3975: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3977: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3978: RAISE FND_API.G_EXC_ERROR ;
3979: END IF;
3980:
3974:
3975: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3977: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3978: RAISE FND_API.G_EXC_ERROR ;
3979: END IF;
3980:
3981: IF l_debug_level > 0 THEN
3982: oe_debug_pub.add('End of OE_Contracts_util.get_contract_details_all , x_return_status ' || x_return_status, 1);
3982: oe_debug_pub.add('End of OE_Contracts_util.get_contract_details_all , x_return_status ' || x_return_status, 1);
3983: END IF;
3984:
3985: EXCEPTION
3986: WHEN FND_API.G_EXC_ERROR THEN
3987:
3988: IF l_debug_level > 0 THEN
3989: oe_debug_pub.add('WHEN G_EXC_ERROR in get_contract_details_all ', 3);
3990: END IF;
3988: IF l_debug_level > 0 THEN
3989: oe_debug_pub.add('WHEN G_EXC_ERROR in get_contract_details_all ', 3);
3990: END IF;
3991:
3992: x_return_status := FND_API.G_RET_STS_ERROR;
3993:
3994: --Get message count and data
3995: OE_MSG_PUB.Count_And_Get (
3996: p_count => x_msg_count,
3997: p_data => x_msg_data
3998: );
3999:
4000:
4001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4002:
4003: IF l_debug_level > 0 THEN
4004: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in get_contract_details_all ', 3);
4005: END IF;
4005: END IF;
4006:
4007: --close any cursors
4008:
4009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4010:
4011: --Get message count and data
4012: OE_MSG_PUB.Count_And_Get (
4013: p_count => x_msg_count,
4020: IF l_debug_level > 0 THEN
4021: oe_debug_pub.add('WHEN OTHERS in get_contract_details_all ', 3);
4022: END IF;
4023:
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4025:
4026: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4027: OE_MSG_PUB.Add_Exc_Msg (
4028: G_PKG_NAME,
4045: --check if template attached to order type is valid or not
4046: Function Is_Terms_Template_Valid
4047: (
4048: p_api_version IN NUMBER,
4049: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4050: x_return_status OUT NOCOPY VARCHAR2,
4051: x_msg_count OUT NOCOPY NUMBER,
4052: x_msg_data OUT NOCOPY VARCHAR2,
4053: p_doc_type IN VARCHAR2,
4063: IF l_debug_level > 0 THEN
4064: oe_debug_pub.add('In OE_Contracts_util.Is_Terms_Template_Valid ', 1);
4065: END IF;
4066:
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068:
4069: IF p_init_msg_list = FND_API.G_TRUE THEN
4070: oe_msg_pub.initialize;
4071: END IF;
4065: END IF;
4066:
4067: x_return_status := FND_API.G_RET_STS_SUCCESS;
4068:
4069: IF p_init_msg_list = FND_API.G_TRUE THEN
4070: oe_msg_pub.initialize;
4071: END IF;
4072:
4073: --Check for licensing
4106: oe_debug_pub.add(' l_result: '|| l_result, 3);
4107: END IF;
4108:
4109: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4111: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4112: RAISE FND_API.G_EXC_ERROR ;
4113: END IF;
4114:
4108:
4109: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4111: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
4112: RAISE FND_API.G_EXC_ERROR ;
4113: END IF;
4114:
4115: IF l_debug_level > 0 THEN
4116: oe_debug_pub.add('End of OE_Contracts_util.Is_Terms_Template_Valid , x_return_status ' || x_return_status, 1);
4118:
4119: RETURN l_result;
4120:
4121: EXCEPTION
4122: WHEN FND_API.G_EXC_ERROR THEN
4123:
4124: IF l_debug_level > 0 THEN
4125: oe_debug_pub.add('WHEN G_EXC_ERROR in Is_Terms_Template_Valid ', 3);
4126: END IF;
4124: IF l_debug_level > 0 THEN
4125: oe_debug_pub.add('WHEN G_EXC_ERROR in Is_Terms_Template_Valid ', 3);
4126: END IF;
4127:
4128: x_return_status := FND_API.G_RET_STS_ERROR;
4129:
4130: --Get message count and data
4131: OE_MSG_PUB.Count_And_Get (
4132: p_count => x_msg_count,
4133: p_data => x_msg_data
4134: );
4135:
4136:
4137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4138:
4139: IF l_debug_level > 0 THEN
4140: oe_debug_pub.add('WHEN G_EXC_UNEXPECTED_ERROR in Is_Terms_Template_Valid ', 3);
4141: END IF;
4141: END IF;
4142:
4143: --close any cursors
4144:
4145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4146:
4147: --Get message count and data
4148: OE_MSG_PUB.Count_And_Get (
4149: p_count => x_msg_count,
4156: IF l_debug_level > 0 THEN
4157: oe_debug_pub.add('WHEN OTHERS in Is_Terms_Template_Valid ', 3);
4158: END IF;
4159:
4160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4161:
4162: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4163: OE_MSG_PUB.Add_Exc_Msg (
4164: G_PKG_NAME,
4233: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
4234: 'Is_Auth_Party_Internal'
4235: );
4236: END IF;
4237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4238:
4239: END Is_Auth_Party_Internal;
4240:
4241: --Function to check if Recurring Charges is Enabled, required by Preview and Print
4293: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
4294: 'Is_RChg_Enabled'
4295: );
4296: END IF;
4297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4298:
4299: END Is_RChg_Enabled;
4300:
4301: END OE_Contracts_util;