[Home] [Help]
76:
77: BEGIN
78:
79: -- Initialize API return status to success
80: x_return_status := FND_API.G_RET_STS_SUCCESS;
81:
82: l_message := '
83:
84: JTF_FM_UTL_V.PRINT_MESSAGE('Creating Batch XML ..',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
101: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_BATCH_LIST');
102: FND_MSG_PUB.Add;
103: END IF;
104: RAISE FND_API.G_EXC_ERROR;
105: ELSE
106:
107: IF ( INSTR(upper(p_media),'P') > 0) THEN
108: IF NOT p_printer.EXISTS(1) THEN
109: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
110: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_TEST_MISS_PRINT_ADD');
111: FND_MSG_PUB.Add;
112: END IF;
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
115: END IF;
116: IF ( INSTR(upper(p_media),'E') > 0) THEN
117: IF NOT p_email.EXISTS(1) THEN
118: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
119: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_TEST_MISS_EMAIL_ADD');
120: FND_MSG_PUB.Add;
121: END IF;
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124: END IF;
125: IF ( INSTR(upper(p_media),'F') > 0) THEN
126: IF NOT p_fax.EXISTS(1) THEN
127: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
128: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_TEST_MISS_FAX_ADD');
129: FND_MSG_PUB.Add;
130: END IF;
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133: END IF;
134:
135:
255: WHEN OTHERS
256: THEN
257: JTF_FM_UTL_V.PRINT_MESSAGE('UNEXPECTED ERROR IN PROCEDURE INSERT_REQUEST_CONTENTS', JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
258:
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260:
261: END INSERT_REQUEST_CONTENTS;
262:
263:
405: WHEN NO_DATA_FOUND THEN
406: JTF_FM_UTL_V.PRINT_MESSAGE('JTF_FM_OCM_ATTACH_ABS',
407: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
408: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_ATTACH_ABS', p_citem_ver_id);
409: RAISE FND_API.G_EXC_ERROR;
410: END;
411:
412: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name,
413: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
575: FND_MESSAGE.Set_Token('ARG1',p_content_id);
576: FND_MESSAGE.Set_Token('ARG2',p_version);
577: FND_MSG_PUB.Add;
578: END IF;
579: RAISE FND_API.G_EXC_ERROR;
580:
581: END IF;
582:
583: -- Now begin construction of XML and insert into request contents
676: FND_MESSAGE.Set_Token('ARG1',p_content_id);
677: FND_MESSAGE.Set_Token('ARG2',p_version);
678: FND_MSG_PUB.Add;
679: END IF;
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
682: END IF;
683:
684: IF (INSTR(p_media_type, 'E') > 0 OR INSTR(p_media_type, 'F') > 0) THEN
688: FND_MESSAGE.Set_Token('ARG1',p_content_id);
689: FND_MESSAGE.Set_Token('ARG2',p_version);
690: FND_MSG_PUB.Add;
691: END IF;
692: RAISE FND_API.G_EXC_ERROR;
693:
694: END IF;
695:
696: IF JTF_FM_UTL_V.IS_FLD_VALID(p_email_format) THEN
813: FND_MESSAGE.Set_Token('ARG1',p_content_id);
814: FND_MESSAGE.Set_Token('ARG2',p_version);
815: FND_MSG_PUB.Add;
816: END IF;
817: RAISE FND_API.G_EXC_ERROR;
818:
819: END IF; -- End IF Not(html_flag
820: END IF;--END IF(JTF_FM_UTL_V.IS_FLD_VALID
821:
833: FND_MESSAGE.Set_Token('ARG1',p_content_id);
834: FND_MESSAGE.Set_Token('ARG2',p_version);
835: FND_MSG_PUB.Add;
836: END IF;
837: RAISE FND_API.G_EXC_ERROR;
838:
839: END IF;
840:
841:
841:
842:
843: EXCEPTION
844:
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
846: THEN
847:
848: --x_citem_name := NULL;
849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
846: THEN
847:
848: --x_citem_name := NULL;
849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
850: -- Standard call to get message count and if count=1, get the message
851: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
852: p_count => x_msg_count,
853: p_data => x_msg_data
847:
848: --x_citem_name := NULL;
849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
850: -- Standard call to get message count and if count=1, get the message
851: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
852: p_count => x_msg_count,
853: p_data => x_msg_data
854: );
855: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
853: p_data => x_msg_data
854: );
855: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
856:
857: WHEN FND_API.G_EXC_ERROR
858: THEN
859:
860: --x_citem_name := NULL;
861: x_return_status := FND_API.G_RET_STS_ERROR;
857: WHEN FND_API.G_EXC_ERROR
858: THEN
859:
860: --x_citem_name := NULL;
861: x_return_status := FND_API.G_RET_STS_ERROR;
862:
863: -- Standard call to get message count and if count=1, get the message
864: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
865: p_count => x_msg_count,
860: --x_citem_name := NULL;
861: x_return_status := FND_API.G_RET_STS_ERROR;
862:
863: -- Standard call to get message count and if count=1, get the message
864: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
865: p_count => x_msg_count,
866: p_data => x_msg_data
867: );
868: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
870: WHEN OTHERS
871: THEN
872:
873: --x_citem_name := NULL;
874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
875: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
876:
877: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
878: THEN
879: FND_MSG_PUB.Add_Exc_Msg('JTF_FM_OCM_REND_REQ', G_PKG_NAME );
880: END IF; -- IF FND_MSG_PUB.Check_Msg_Level
881:
882: -- Standard call to get message count and if count=1, get the message
883: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
884: p_count => x_msg_count,
885: p_data => x_msg_data
886: );
887: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
886: );
887: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
888:
889: for i in 0..x_msg_count loop
890: JTF_FM_UTL_V.PRINT_MESSAGE(FND_MSG_PUB.get(i,FND_API.G_FALSE),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_REND_DETAILS');
891:
892: end loop;
893:
894:
1031: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name,
1032: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1033:
1034: -- Initialize API return status to success
1035: x_return_status := FND_API.G_RET_STS_SUCCESS;
1036:
1037:
1038: -- Query to detemine if this is a test account as the rules for determining
1039: -- content item versions differ between test requests and regular requests
1054: -- was a version passed into the call. If so, we use it, othewise
1055: -- we need to determine what the version is so we can find the FND_LOBS
1056: -- file_id.
1057:
1058: IF (p_version IS NOT NULL AND p_version <> FND_API.G_MISS_NUM) THEN
1059:
1060: x_item_version_id := p_version;
1061:
1062: ELSE
1087: ELSE
1088:
1089: -- This isn't a test request...
1090:
1091: IF (p_version IS NOT NULL AND p_version <> FND_API.G_MISS_NUM) THEN
1092:
1093: x_item_version_id := p_version;
1094:
1095: ELSE
1110: 'Content is either not present in OCM or is not approved' ||
1111: p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1112:
1113: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
1114: RAISE FND_API.G_EXC_ERROR;
1115: END;
1116:
1117:
1118:
1124:
1125: IBC_CITEM_ADMIN_GRP.get_trans_item(
1126: x_item_version_id
1127: ,l_UserEnvLang
1128: ,FND_API.G_TRUE -- p_skip_security added as per bug # 3409965
1129: ,FND_API.G_TRUE
1130: ,IBC_CITEM_ADMIN_GRP.G_API_VERSION_DEFAULT
1131: ,content_item_id
1132: ,citem_name
1125: IBC_CITEM_ADMIN_GRP.get_trans_item(
1126: x_item_version_id
1127: ,l_UserEnvLang
1128: ,FND_API.G_TRUE -- p_skip_security added as per bug # 3409965
1129: ,FND_API.G_TRUE
1130: ,IBC_CITEM_ADMIN_GRP.G_API_VERSION_DEFAULT
1131: ,content_item_id
1132: ,citem_name
1133: ,citem_version
1184:
1185: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_EXCEPTION_IN_GET_ITEM',
1186: x_item_version_id);
1187:
1188: RAISE FND_API.G_EXC_ERROR;
1189:
1190: END;
1191:
1192: if (return_status <> FND_API.G_RET_STS_SUCCESS) then
1188: RAISE FND_API.G_EXC_ERROR;
1189:
1190: END;
1191:
1192: if (return_status <> FND_API.G_RET_STS_SUCCESS) then
1193:
1194: JTF_FM_UTL_V.PRINT_MESSAGE('JTF_FM_GET_TRANS_ITEM_FAIL name = '||
1195: p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1196: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_GET_TRANS_ITEM_FAIL', p_content_id);
1194: JTF_FM_UTL_V.PRINT_MESSAGE('JTF_FM_GET_TRANS_ITEM_FAIL name = '||
1195: p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1196: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_GET_TRANS_ITEM_FAIL', p_content_id);
1197:
1198: RAISE FND_API.G_EXC_ERROR;
1199:
1200: else
1201:
1202: JTF_FM_UTL_V.PRINT_MESSAGE('IN GET_OCM_REND_DETAILS name = '||citem_name,
1332: return_status,
1333: msg_count,
1334: msg_data);
1335:
1336: IF (return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1337: RAISE FND_API.G_EXC_ERROR;
1338: END IF;
1339:
1340:
1333: msg_count,
1334: msg_data);
1335:
1336: IF (return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1337: RAISE FND_API.G_EXC_ERROR;
1338: END IF;
1339:
1340:
1341: --Now add attachment xml and delv xml to this
1350: JTF_FM_UTL_V.PRINT_MESSAGE('End GET_OCM_REND_DETAILS',
1351: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1352:
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1355:
1356: x_citem_name := NULL;
1357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358:
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1355:
1356: x_citem_name := NULL;
1357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358:
1359: -- Standard call to get message count and if count=1, get the message
1360: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1361: p_count => x_msg_count,
1356: x_citem_name := NULL;
1357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358:
1359: -- Standard call to get message count and if count=1, get the message
1360: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1361: p_count => x_msg_count,
1362: p_data => x_msg_data
1363: );
1364: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1362: p_data => x_msg_data
1363: );
1364: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1365:
1366: WHEN FND_API.G_EXC_ERROR THEN
1367:
1368: x_citem_name := NULL;
1369: x_return_status := FND_API.G_RET_STS_ERROR;
1370:
1365:
1366: WHEN FND_API.G_EXC_ERROR THEN
1367:
1368: x_citem_name := NULL;
1369: x_return_status := FND_API.G_RET_STS_ERROR;
1370:
1371: -- Standard call to get message count and if count=1, get the message
1372: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1373: p_count => x_msg_count,
1368: x_citem_name := NULL;
1369: x_return_status := FND_API.G_RET_STS_ERROR;
1370:
1371: -- Standard call to get message count and if count=1, get the message
1372: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1373: p_count => x_msg_count,
1374: p_data => x_msg_data
1375: );
1376: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1377:
1378: WHEN OTHERS THEN
1379:
1380: x_citem_name := NULL;
1381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1382: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
1383:
1384: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1385: THEN
1386: FND_MSG_PUB.Add_Exc_Msg('JTF_FM_OCM_REND_REQ', G_PKG_NAME );
1387: END IF; -- IF FND_MSG_PUB.Check_Msg_Level
1388:
1389: -- Standard call to get message count and if count=1, get the message
1390: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1391: p_count => x_msg_count,
1392: p_data => x_msg_data
1393: );
1394: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1394: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1395:
1396: for i in 0..x_msg_count loop
1397:
1398: JTF_FM_UTL_V.PRINT_MESSAGE(FND_MSG_PUB.get(i,FND_API.G_FALSE),
1399: JTF_FM_UTL_V.G_LEVEL_PROCEDURE,
1400: 'JTF_FM_REQUEST_GRP.GET_OCM_REND_DETAILS');
1401:
1402: end loop;
1471: a:= b||c; */
1472: a := '';
1473:
1474: -- Check for API version compatibility
1475: IF NOT FND_API.Compatible_API_Call (l_api_version,
1476: p_api_version,
1477: l_api_name,
1478: G_PKG_NAME)
1479: THEN
1476: p_api_version,
1477: l_api_name,
1478: G_PKG_NAME)
1479: THEN
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1481: END IF; -- NOT FND_API.Compatible_API_Call
1482:
1483: --Initialize message list if p_init_msg_list is TRUE.
1484: IF FND_API.To_Boolean (p_init_msg_list)
1477: l_api_name,
1478: G_PKG_NAME)
1479: THEN
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1481: END IF; -- NOT FND_API.Compatible_API_Call
1482:
1483: --Initialize message list if p_init_msg_list is TRUE.
1484: IF FND_API.To_Boolean (p_init_msg_list)
1485: THEN
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1481: END IF; -- NOT FND_API.Compatible_API_Call
1482:
1483: --Initialize message list if p_init_msg_list is TRUE.
1484: IF FND_API.To_Boolean (p_init_msg_list)
1485: THEN
1486: FND_MSG_PUB.initialize;
1487: END IF; -- FND_API.To_Boolean
1488:
1483: --Initialize message list if p_init_msg_list is TRUE.
1484: IF FND_API.To_Boolean (p_init_msg_list)
1485: THEN
1486: FND_MSG_PUB.initialize;
1487: END IF; -- FND_API.To_Boolean
1488:
1489: -- Debug Message
1490: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1491: THEN
1494: FND_MSG_PUB.Add;
1495: END IF; -- FND_MSG_PUB.Check_Msg_level
1496:
1497: -- Initialize API return status to success
1498: x_return_status := FND_API.G_RET_STS_SUCCESS;
1499:
1500: -- Check if Content_id parameter is NULL. Content_id represents the
1501: -- unique identifier for getting the document from MES tables
1502: IF (p_content_id IS NULL)
1510: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_CONTENT_ID');
1511: FND_MSG_PUB.Add;
1512: END IF; -- IF FND_MSG_PUB.check_msg_level
1513:
1514: RAISE FND_API.G_EXC_ERROR;
1515:
1516: -- check if the media_type paramater is NULL. No point in processing a
1517: -- request without a media_type
1518: ELSIF (p_media_type IS NULL) -- IF (p_media_type IS NULL)
1524: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_MEDIA_TYPE');
1525: FND_MSG_PUB.Add;
1526: END IF; -- IF FND_MSG_PUB.check_msg_level
1527:
1528: RAISE FND_API.G_EXC_ERROR;
1529: -- Must pass a request_type
1530:
1531: ELSIF (p_request_id IS NULL) -- IF (p_request_id IS NULL)
1532: THEN
1537: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_REQUEST_ID');
1538: FND_MSG_PUB.Add;
1539: END IF; -- IF _FND_MSG_PUB.check_msg_level
1540:
1541: RAISE FND_API.G_EXC_ERROR;
1542: ELSE -- IF (p_content_id IS NULL)
1543:
1544: -- Start forming the XML Request for the content
1545:
1549:
1550: -- Identify the media types requested
1551: IF (INSTR(p_media_type, 'PRINTER') > 0)
1552: THEN
1553: IF p_printer = FND_API.G_MISS_CHAR
1554: THEN
1555: l_message := l_message||'
1556: ELSE -- IF p_printer
1557: l_message := l_message||'
1562: END IF; -- IF (INSTR(p_media_type,
1563:
1564: IF (INSTR(p_media_type, 'EMAIL') > 0)
1565: THEN
1566: IF p_email = FND_API.G_MISS_CHAR
1567: THEN
1568: l_message := l_message||'
1569: ELSE -- IF p_email
1570: l_message := l_message||'
1575: END IF; -- IF (INSTR(p_media_type
1576:
1577: IF (INSTR(p_media_type, 'FAX') > 0)
1578: THEN
1579: IF p_fax = FND_API.G_MISS_CHAR
1580: THEN
1581: l_message := l_message||'
1582: ELSE -- IF p_fax
1583: l_message := l_message||'
1598: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_INVALID_MEDIATYPE');
1599: FND_MSG_PUB.Add;
1600: END IF; -- IF FND_MSG_PUB.check_msg_level
1601:
1602: RAISE FND_API.G_EXC_ERROR;
1603:
1604: END IF; -- IF (l_temp = 0)
1605:
1606: l_message := l_message||' '||a;
1615:
1616: l_message := l_message||'
1618: l_message := l_message||' quantity="'||to_char(p_quantity)||'" user_note="User_Note" source ="ocm" '||a;
1619: IF p_version <> FND_API.G_MISS_NUM THEN
1620: l_message := l_message||' version_id="'||p_version ||'"'||a;
1621: END IF;
1622: l_message := l_message||'>' || a;
1623:
1641: x_return_status ,
1642: x_msg_count ,
1643: x_msg_data
1644: );
1645: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1646: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in OCM Repository' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1647:
1648: l_message := l_message|| x_html;
1649: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
1645: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1646: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in OCM Repository' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1647:
1648: l_message := l_message|| x_html;
1649: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
1650: RAISE FND_API.G_EXC_ERROR;
1651: ELSE
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653:
1646: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in OCM Repository' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1647:
1648: l_message := l_message|| x_html;
1649: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
1650: RAISE FND_API.G_EXC_ERROR;
1651: ELSE
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653:
1654: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in OCM Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
1648: l_message := l_message|| x_html;
1649: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
1650: RAISE FND_API.G_EXC_ERROR;
1651: ELSE
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653:
1654: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in OCM Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
1655: END IF;
1656:
1692: END IF; -- IF FND_MSG_PUB.Check_Msg_Level
1693:
1694: --Standard check of commit
1695:
1696: IF FND_API.To_Boolean ( p_commit ) THEN
1697: COMMIT WORK;
1698: END IF; -- IF FND_API.To_Boolean
1699:
1700: -- Debug Message
1694: --Standard check of commit
1695:
1696: IF FND_API.To_Boolean ( p_commit ) THEN
1697: COMMIT WORK;
1698: END IF; -- IF FND_API.To_Boolean
1699:
1700: -- Debug Message
1701: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1702: FND_MESSAGE.Set_Name('FFM','JTF_FM_API_DEBUG_MESSAGE');
1704: FND_MSG_PUB.Add;
1705: END IF; -- IF FND_MSG_PUB.Check_Msg_level
1706:
1707: --Standard call to get message count and if count=1, get the message
1708: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1709: p_count => x_msg_count,
1710: p_data => x_msg_data
1711: );
1712:
1710: p_data => x_msg_data
1711: );
1712:
1713: EXCEPTION
1714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1715: ROLLBACK TO Content_XML;
1716: x_content_xml := NULL;
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
1713: EXCEPTION
1714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1715: ROLLBACK TO Content_XML;
1716: x_content_xml := NULL;
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
1719: -- Standard call to get message count and if count=1, get the message
1720: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1721: p_count => x_msg_count,
1716: x_content_xml := NULL;
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
1719: -- Standard call to get message count and if count=1, get the message
1720: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1721: p_count => x_msg_count,
1722: p_data => x_msg_data
1723: );
1724: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1722: p_data => x_msg_data
1723: );
1724: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1725:
1726: WHEN FND_API.G_EXC_ERROR THEN
1727: ROLLBACK TO Content_XML;
1728: x_content_xml := NULL;
1729: x_return_status := FND_API.G_RET_STS_ERROR;
1730: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
1725:
1726: WHEN FND_API.G_EXC_ERROR THEN
1727: ROLLBACK TO Content_XML;
1728: x_content_xml := NULL;
1729: x_return_status := FND_API.G_RET_STS_ERROR;
1730: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
1731: -- Standard call to get message count and if count=1, get the message
1732: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1733: p_count => x_msg_count,
1728: x_content_xml := NULL;
1729: x_return_status := FND_API.G_RET_STS_ERROR;
1730: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
1731: -- Standard call to get message count and if count=1, get the message
1732: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1733: p_count => x_msg_count,
1734: p_data => x_msg_data
1735: );
1736: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1737:
1738: WHEN OTHERS THEN
1739: ROLLBACK TO Content_XML;
1740: x_content_xml := NULL;
1741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1742: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
1743:
1744: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1745: FND_MSG_PUB.Add_Exc_Msg
1746: (G_PKG_NAME, l_api_name);
1747: END IF; -- IF FND_MSG_PUB.Check_Msg_Level
1748:
1749: -- Standard call to get message count and if count=1, get the message
1750: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
1751: p_count => x_msg_count,
1752: p_data => x_msg_data
1753: );
1754: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
1763:
1764:
1765: PROCEDURE create_fulfillment_rendition
1766: (
1767: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1768: p_api_version IN NUMBER,
1769: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1770: p_order_header_rec IN JTF_Fulfillment_PUB.ORDER_HEADER_REC_TYPE,
1771: p_order_line_tbl IN JTF_Fulfillment_PUB.ORDER_LINE_TBL_TYPE,
1765: PROCEDURE create_fulfillment_rendition
1766: (
1767: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1768: p_api_version IN NUMBER,
1769: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1770: p_order_header_rec IN JTF_Fulfillment_PUB.ORDER_HEADER_REC_TYPE,
1771: p_order_line_tbl IN JTF_Fulfillment_PUB.ORDER_LINE_TBL_TYPE,
1772: p_fulfill_electronic_rec IN JTF_FM_OCM_REQUEST_GRP.FULFILL_ELECTRONIC_REC_TYPE,
1773: p_request_type IN VARCHAR2,
1781:
1782: l_api_name CONSTANT VARCHAR2(30) := 'create_fulfillment_rendition';
1783: l_full_name CONSTANT VARCHAR2(100) := G_PKG_NAME ||'.'|| l_api_name;
1784: l_api_version CONSTANT NUMBER := 1.0;
1785: l_init_msg_list VARCHAR2(2) := FND_API.G_FALSE;
1786: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1787: l_content_xml VARCHAR2(32767);
1788: l_content_xml1 VARCHAR2(32767);
1789: l_bind_var JTF_FM_REQUEST_GRP.G_VARCHAR_TBL_TYPE;
1782: l_api_name CONSTANT VARCHAR2(30) := 'create_fulfillment_rendition';
1783: l_full_name CONSTANT VARCHAR2(100) := G_PKG_NAME ||'.'|| l_api_name;
1784: l_api_version CONSTANT NUMBER := 1.0;
1785: l_init_msg_list VARCHAR2(2) := FND_API.G_FALSE;
1786: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
1787: l_content_xml VARCHAR2(32767);
1788: l_content_xml1 VARCHAR2(32767);
1789: l_bind_var JTF_FM_REQUEST_GRP.G_VARCHAR_TBL_TYPE;
1790: l_bind_val JTF_FM_REQUEST_GRP.G_VARCHAR_TBL_TYPE;
1798: l_request_history_id NUMBER;
1799: l_msg_data VARCHAR2(1000);
1800: l_Error_Msg VARCHAR2(1000);
1801: l_msg_count NUMBER;
1802: l_commit VARCHAR2(2) := FND_API.G_FALSE;
1803: l_total NUMBER;
1804: l_var_media_type VARCHAR2(30);
1805: l_printer_val VARCHAR2(250) := null;
1806: l_fax_val VARCHAR2(250):= null;
1818: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
1819: -- Standard Start of API savepoint
1820: SAVEPOINT create_fulfillment;
1821: -- Standard call to check for call compatibility.
1822: IF NOT FND_API.Compatible_API_Call
1823: (
1824: l_api_version,
1825: p_api_version,
1826: l_api_name, G_PKG_NAME )
1824: l_api_version,
1825: p_api_version,
1826: l_api_name, G_PKG_NAME )
1827: THEN
1828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829: END IF;
1830:
1831: -- Initialize message list if p_init_msg_list is set to TRUE.
1832: IF FND_API.to_Boolean( p_init_msg_list )
1828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829: END IF;
1830:
1831: -- Initialize message list if p_init_msg_list is set to TRUE.
1832: IF FND_API.to_Boolean( p_init_msg_list )
1833: THEN
1834: FND_MSG_PUB.initialize;
1835: END IF;
1836:
1888: p_order_line_tbl => p_order_line_tbl,
1889: x_order_header_rec => x_order_header_rec,
1890: x_request_history_id => x_request_history_id
1891: );
1892: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1893: THEN
1894: RAISE FND_API.G_EXC_ERROR;
1895: END IF;
1896: ELSIF (IS_REQ_ETSL(p_fulfill_electronic_rec.request_type)) THEN
1890: x_request_history_id => x_request_history_id
1891: );
1892: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1893: THEN
1894: RAISE FND_API.G_EXC_ERROR;
1895: END IF;
1896: ELSIF (IS_REQ_ETSL(p_fulfill_electronic_rec.request_type)) THEN
1897:
1898:
1895: END IF;
1896: ELSIF (IS_REQ_ETSL(p_fulfill_electronic_rec.request_type)) THEN
1897:
1898:
1899: x_return_status := FND_API.G_RET_STS_SUCCESS;
1900: l_bind_var := JTF_FM_REQUEST_GRP.L_VARCHAR_TBL;
1901: l_bind_val := JTF_FM_REQUEST_GRP.L_VARCHAR_TBL;
1902: l_bind_var_type := JTF_FM_REQUEST_GRP.L_VARCHAR_TBL;
1903:
1906: l_Error_Msg := 'Invalid media type specified. Only allowed values are ';
1907: l_Error_Msg := l_ERROR_Msg || 'EPF,EFP,FEP,FPE,PEF,PFE,EP,EF,E,PE,PF,P,FE,FP,F';
1908: JTF_FM_UTL_V.PRINT_MESSAGE(l_Error_msg, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1909: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_CF_INVALID_MEDIA');
1910: RAISE FND_API.G_EXC_ERROR;
1911:
1912: ELSE
1913: IF (IS_MED_EPF(p_fulfill_electronic_rec.media_types)) THEN
1914:
1922: IF p_fulfill_electronic_rec.request_type = 'S' THEN
1923: l_Error_Msg := 'Chosen Media is Print but missing print address';
1924: JTF_FM_UTL_V.PRINT_MESSAGE(l_Error_msg, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1925: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_PRINT_ADDR');
1926: RAISE FND_API.G_EXC_ERROR;
1927: ELSE--for mass requests
1928: l_printer_val := 'Query';
1929: END IF;
1930: END IF;
1939: IF p_fulfill_electronic_rec.request_type = 'S' THEN
1940: l_Error_Msg := 'Chosen Media is FAX but missing FAX address';
1941: JTF_FM_UTL_V.PRINT_MESSAGE(l_Error_msg, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1942: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_FAX_ADDR');
1943: RAISE FND_API.G_EXC_ERROR;
1944: ELSE -- no need of fax address for mass requests
1945: l_fax_val := 'Query';
1946: END IF;
1947: END IF;
1949: END IF;
1950:
1951: IF((INSTR(upper(p_fulfill_electronic_rec.media_types),'E')>0)
1952: OR p_fulfill_electronic_rec.media_types IS NULL
1953: OR p_fulfill_electronic_rec.media_types= FND_API.G_MISS_CHAR) THEN
1954: l_var_media_type := l_var_media_type ||'EMAIL';
1955: IF p_fulfill_electronic_rec.email.EXISTS(1) THEN
1956: l_email_val := p_fulfill_electronic_rec.email(1);
1957: ELSE
1959:
1960: l_Error_Msg := 'Chosen Media is Email but missing email address';
1961: JTF_FM_UTL_V.PRINT_MESSAGE(l_Error_msg, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1962: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_EMAIL_ADDR');
1963: RAISE FND_API.G_EXC_ERROR;
1964: ELSE
1965: l_email_val := 'Query';
1966: END IF;
1967: END IF;
1973: l_Error_Msg := 'Invalid media type specified. Only allowed values are ';
1974: l_Error_Msg := l_ERROR_Msg || 'EPF,EFP,FEP,FPE,PEF,PFE,EP,EF,E,PE,PF,P,FE,FP,F';
1975: JTF_FM_UTL_V.PRINT_MESSAGE(l_Error_msg, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
1976: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_CF_INVALID_MEDIA');
1977: RAISE FND_API.G_EXC_ERROR;
1978:
1979:
1980: END IF;
1981:
1984:
1985:
1986: IF(p_fulfill_electronic_rec.extended_header IS NULL) THEN
1987: JTF_FM_UTL_V.PRINT_MESSAGE('Extended header is null',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
1988: l_extended_header := FND_API.G_MISS_CHAR;
1989: ELSE
1990: l_extended_header := p_fulfill_electronic_rec.extended_header;
1991: END IF;
1992:
2006: );
2007: JTF_FM_UTL_V.PRINT_MESSAGE('Start_Request Return Status is ' || x_return_status,
2008: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2009:
2010: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2011: RAISE FND_API.G_EXC_ERROR;
2012: END IF;
2013:
2014: JTF_FM_UTL_V.PRINT_MESSAGE('Inside ocm pkg request id is ' || to_char(x_request_history_id),
2007: JTF_FM_UTL_V.PRINT_MESSAGE('Start_Request Return Status is ' || x_return_status,
2008: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2009:
2010: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2011: RAISE FND_API.G_EXC_ERROR;
2012: END IF;
2013:
2014: JTF_FM_UTL_V.PRINT_MESSAGE('Inside ocm pkg request id is ' || to_char(x_request_history_id),
2015: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2080: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2081:
2082: l_content_xml := l_content_xml1;
2083:
2084: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: END IF;
2087:
2088: IF(upper(p_fulfill_electronic_rec.log_user_ih) = 'Y') THEN
2081:
2082: l_content_xml := l_content_xml1;
2083:
2084: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: END IF;
2087:
2088: IF(upper(p_fulfill_electronic_rec.log_user_ih) = 'Y') THEN
2089: l_per_user_history := FND_API.G_TRUE;
2085: RAISE FND_API.G_EXC_ERROR;
2086: END IF;
2087:
2088: IF(upper(p_fulfill_electronic_rec.log_user_ih) = 'Y') THEN
2089: l_per_user_history := FND_API.G_TRUE;
2090: ELSE
2091: l_per_user_history := FND_API.G_FALSE;
2092: END IF;
2093:
2087:
2088: IF(upper(p_fulfill_electronic_rec.log_user_ih) = 'Y') THEN
2089: l_per_user_history := FND_API.G_TRUE;
2090: ELSE
2091: l_per_user_history := FND_API.G_FALSE;
2092: END IF;
2093:
2094: IF(length(p_fulfill_electronic_rec.subject) > 250) THEN
2095: l_subject := substrb(p_fulfill_electronic_rec.subject,1,250);
2113:
2114: ) ;
2115: JTF_FM_UTL_V.PRINT_MESSAGE('GET_TEST_XML Return Status is ' || l_return_status,
2116: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2117: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2118: THEN
2119: RAISE FND_API.G_EXC_ERROR;
2120: END IF;
2121:
2115: JTF_FM_UTL_V.PRINT_MESSAGE('GET_TEST_XML Return Status is ' || l_return_status,
2116: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2117: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2118: THEN
2119: RAISE FND_API.G_EXC_ERROR;
2120: END IF;
2121:
2122: END IF;
2123:
2122: END IF;
2123:
2124:
2125: -- Check if the agent wants detailed history
2126: IF l_per_user_history = FND_API.G_FALSE THEN
2127: l_fm_pvt_rec.party_id := -229929;
2128: END IF;
2129:
2130: /**
2159: ELSE
2160: -- throw error, item should have a query assoc for mass requests
2161: l_Error_Msg := 'Content must have a valid query associated with it.';
2162: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_OCM_QUERY',l_content_id);
2163: RAISE FND_API.G_EXC_ERROR;
2164: END IF;
2165: END IF;
2166: l_fm_pvt_rec.priority := 1.0;
2167: l_fm_pvt_rec.content_xml := l_message;
2180: l_fm_pvt_rec
2181: );
2182: JTF_FM_UTL_V.PRINT_MESSAGE('Submit_Mass_Request Return Status is ' || x_return_status,
2183: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2184: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2185: RAISE FND_API.G_EXC_ERROR;
2186: END IF;
2187:
2188: IF(upper(p_fulfill_electronic_rec.request_type) = 'T') THEN
2181: );
2182: JTF_FM_UTL_V.PRINT_MESSAGE('Submit_Mass_Request Return Status is ' || x_return_status,
2183: JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2184: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2185: RAISE FND_API.G_EXC_ERROR;
2186: END IF;
2187:
2188: IF(upper(p_fulfill_electronic_rec.request_type) = 'T') THEN
2189:
2200: THEN
2201: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_INVALID_REQTYPE');
2202: FND_MSG_PUB.Add;
2203: END IF; -- IF FND_MSG_PUB.check_msg_level
2204: RAISE FND_API.G_EXC_ERROR;
2205: END IF; -- end if electronic fulfillment
2206:
2207: -- Standard check of p_commit.
2208: IF FND_API.To_Boolean( p_commit ) THEN
2204: RAISE FND_API.G_EXC_ERROR;
2205: END IF; -- end if electronic fulfillment
2206:
2207: -- Standard check of p_commit.
2208: IF FND_API.To_Boolean( p_commit ) THEN
2209: COMMIT WORK;
2210: END IF;
2211:
2212: -- Standard call to get message count and if count is 1, get message info.
2213: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2214:
2215:
2216: EXCEPTION
2217: WHEN FND_API.G_EXC_ERROR THEN
2218: ROLLBACK TO create_fulfillment;
2219: x_return_status := FND_API.G_RET_STS_ERROR ;
2220: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2221:
2215:
2216: EXCEPTION
2217: WHEN FND_API.G_EXC_ERROR THEN
2218: ROLLBACK TO create_fulfillment;
2219: x_return_status := FND_API.G_RET_STS_ERROR ;
2220: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2221:
2222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2223: THEN
2218: ROLLBACK TO create_fulfillment;
2219: x_return_status := FND_API.G_RET_STS_ERROR ;
2220: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2221:
2222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2223: THEN
2224: ROLLBACK TO create_fulfillment;
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2226: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2221:
2222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2223: THEN
2224: ROLLBACK TO create_fulfillment;
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2226: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
2227:
2228: WHEN OTHERS
2229: THEN
2227:
2228: WHEN OTHERS
2229: THEN
2230: ROLLBACK TO create_fulfillment;
2231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2232: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2233: THEN
2234: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name);
2235: END IF;