13:
14:
15: PROCEDURE SHOW_IN_UWQ(
16: P_API_VERSION IN NUMBER,
17: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
18: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
19: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
20: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
21: X_MSG_COUNT OUT NOCOPY NUMBER,
14:
15: PROCEDURE SHOW_IN_UWQ(
16: P_API_VERSION IN NUMBER,
17: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
18: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
19: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
20: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
21: X_MSG_COUNT OUT NOCOPY NUMBER,
22: X_MSG_DATA OUT NOCOPY VARCHAR2,
15: PROCEDURE SHOW_IN_UWQ(
16: P_API_VERSION IN NUMBER,
17: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
18: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
19: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
20: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
21: X_MSG_COUNT OUT NOCOPY NUMBER,
22: X_MSG_DATA OUT NOCOPY VARCHAR2,
23: P_PROMISE_TBL IN DBMS_SQL.NUMBER_TABLE,
51: -- Standard start of API savepoint
52: SAVEPOINT SHOW_IN_UWQ_PVT;
53:
54: -- Standard call to check for call compatibility
55: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE
52: SAVEPOINT SHOW_IN_UWQ_PVT;
53:
54: -- Standard call to check for call compatibility
55: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE
60: IF FND_API.To_Boolean(p_init_msg_list) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE
60: IF FND_API.To_Boolean(p_init_msg_list) THEN
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: -- Initialize API return status to success
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: -- Initialize API return status to success
65: l_return_status := FND_API.G_RET_STS_SUCCESS;
66:
67: -- START OF BODY OF API
68:
69: -- validating uwq status
79: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
80: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
81: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
82: FND_MSG_PUB.Add;
83: RAISE FND_API.G_EXC_ERROR;
84: end if;
85:
86: -- validating table of promises
87: l_validation_item := 'P_PROMISE_TBL';
96: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
97: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
98: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
99: FND_MSG_PUB.Add;
100: RAISE FND_API.G_EXC_ERROR;
101: end if;
102:
103: -- validating p_days
104: l_validation_item := 'P_DAYS';
113: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
114: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
115: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
116: FND_MSG_PUB.Add;
117: RAISE FND_API.G_EXC_ERROR;
118: end if;
119:
120: -- filter passed promises; we need only BROKEN_PROMISE promises for update
121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
203:
204: -- END OF BODY OF API
205:
206: -- Standard check of p_commit.
207: IF FND_API.To_Boolean( p_commit ) THEN
208: COMMIT WORK;
209: END IF;
210:
211: x_return_status := l_return_status;
210:
211: x_return_status := l_return_status;
212: -- Standard call to get message count and if count is 1, get message info
213: FND_MSG_PUB.Count_And_Get(
214: p_encoded => FND_API.G_FALSE,
215: p_count => x_msg_count,
216: p_data => x_msg_data);
217:
218: EXCEPTION
215: p_count => x_msg_count,
216: p_data => x_msg_data);
217:
218: EXCEPTION
219: WHEN FND_API.G_EXC_ERROR THEN
220: ROLLBACK TO SHOW_IN_UWQ_PVT;
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
217:
218: EXCEPTION
219: WHEN FND_API.G_EXC_ERROR THEN
220: ROLLBACK TO SHOW_IN_UWQ_PVT;
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: ROLLBACK TO SHOW_IN_UWQ_PVT;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
219: WHEN FND_API.G_EXC_ERROR THEN
220: ROLLBACK TO SHOW_IN_UWQ_PVT;
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: ROLLBACK TO SHOW_IN_UWQ_PVT;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
227: WHEN OTHERS THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: ROLLBACK TO SHOW_IN_UWQ_PVT;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
227: WHEN OTHERS THEN
228: ROLLBACK TO SHOW_IN_UWQ_PVT;
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
227: WHEN OTHERS THEN
228: ROLLBACK TO SHOW_IN_UWQ_PVT;
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
231: THEN
232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
233: END IF;
289: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
290: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
291: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PROMISE_ID');
292: FND_MSG_PUB.Add;
293: RAISE FND_API.G_EXC_ERROR;
294: end if;
295:
296: if P_STATUS is null then
297: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
300: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
301: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
302: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_STATUS');
303: FND_MSG_PUB.Add;
304: RAISE FND_API.G_EXC_ERROR;
305: end if;
306:
307: --begin bug#2369298 schekuri 24-Feb-2006
308: --get party_id and cust_site_use id also
430: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: Sending ffm ...');
431: END IF;
432: IEX_DUNNING_PVT.CALL_FFM(
433: p_api_version => 1.0,
434: p_init_msg_list => FND_API.G_TRUE,
435: p_commit => FND_API.G_TRUE,
436: p_key_name => 'promise_id',
437: p_key_id => p_promise_id,
438: p_template_id => l_template_id,
431: END IF;
432: IEX_DUNNING_PVT.CALL_FFM(
433: p_api_version => 1.0,
434: p_init_msg_list => FND_API.G_TRUE,
435: p_commit => FND_API.G_TRUE,
436: p_key_name => 'promise_id',
437: p_key_id => p_promise_id,
438: p_template_id => l_template_id,
439: p_method => 'EMAIL',
609: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
610: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
611: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
612: FND_MSG_PUB.Add;
613: RAISE FND_API.G_EXC_ERROR;
614: end if;
615:
616: /* validate promise_amount */
617: l_validation_item := 'P_PROMISE_REC.PROMISE_AMOUNT';
626: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
627: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
628: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
629: FND_MSG_PUB.Add;
630: RAISE FND_API.G_EXC_ERROR;
631: end if;
632:
633: /* validate promise_date */
634: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
643: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
644: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
645: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
646: FND_MSG_PUB.Add;
647: RAISE FND_API.G_EXC_ERROR;
648: end if;
649:
650: /* validate currency */
651: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
660: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
661: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
662: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
663: FND_MSG_PUB.Add;
664: RAISE FND_API.G_EXC_ERROR;
665: end if;
666:
667: /* validate resource_id */
668: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
677: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
678: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
679: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
680: FND_MSG_PUB.Add;
681: RAISE FND_API.G_EXC_ERROR;
682: end if;
683:
684: /* get functional currency */
685: IEX_CURRENCY_PVT.GET_FUNCT_CURR(
683:
684: /* get functional currency */
685: IEX_CURRENCY_PVT.GET_FUNCT_CURR(
686: p_api_version => 1.0,
687: p_init_msg_list => FND_API.G_FALSE,
688: p_commit => FND_API.G_FALSE,
689: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
690: x_return_status => l_return_status,
691: x_msg_count => l_msg_count,
684: /* get functional currency */
685: IEX_CURRENCY_PVT.GET_FUNCT_CURR(
686: p_api_version => 1.0,
687: p_init_msg_list => FND_API.G_FALSE,
688: p_commit => FND_API.G_FALSE,
689: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
690: x_return_status => l_return_status,
691: x_msg_count => l_msg_count,
692: x_msg_data => l_msg_data,
685: IEX_CURRENCY_PVT.GET_FUNCT_CURR(
686: p_api_version => 1.0,
687: p_init_msg_list => FND_API.G_FALSE,
688: p_commit => FND_API.G_FALSE,
689: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
690: x_return_status => l_return_status,
691: x_msg_count => l_msg_count,
692: x_msg_data => l_msg_data,
693: x_functional_currency => l_fun_currency);
716: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
717: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
718: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
719: FND_MSG_PUB.Add;
720: RAISE FND_API.G_EXC_ERROR;
721: end if;
722: else
723: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
724: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' is null - nothing to validate');
738: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
739: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
740: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
741: FND_MSG_PUB.Add;
742: RAISE FND_API.G_EXC_ERROR;
743: end if;
744:
745: /* validate promise object */
746: if P_PROMISE_REC.PROMISE_TARGET = 'ACCOUNTS' then
771: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
772: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
773: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
774: FND_MSG_PUB.Add;
775: RAISE FND_API.G_EXC_ERROR;
776: end if;
777:
778: /* validate promise currency */
779: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
788: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
789: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
790: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
791: FND_MSG_PUB.Add;
792: RAISE FND_API.G_EXC_ERROR;
793: end if;
794:
795: elsif P_PROMISE_REC.PROMISE_TARGET = 'INVOICES' then
796:
807: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
808: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
809: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
810: FND_MSG_PUB.Add;
811: RAISE FND_API.G_EXC_ERROR;
812: end if;
813:
814: /* validate promise date */
815: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
840: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
841: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
842: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
843: FND_MSG_PUB.Add;
844: RAISE FND_API.G_EXC_ERROR;
845: end if;
846:
847: /* validate promise currency */
848: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
867: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
868: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
869: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
870: FND_MSG_PUB.Add;
871: RAISE FND_API.G_EXC_ERROR;
872: end if;
873:
874: elsif P_PROMISE_REC.PROMISE_TARGET = 'CNSLD' then
875:
886: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
887: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
888: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
889: FND_MSG_PUB.Add;
890: RAISE FND_API.G_EXC_ERROR;
891: end if;
892:
893: /* validate promise date */
894: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
919: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
920: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
921: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
922: FND_MSG_PUB.Add;
923: RAISE FND_API.G_EXC_ERROR;
924: end if;
925:
926: /* validate promise currency */
927: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
946: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
947: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
948: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
949: FND_MSG_PUB.Add;
950: RAISE FND_API.G_EXC_ERROR;
951: end if;
952:
953: elsif P_PROMISE_REC.PROMISE_TARGET = 'CONTRACTS' then
954:
965: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
966: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
967: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
968: FND_MSG_PUB.Add;
969: RAISE FND_API.G_EXC_ERROR;
970: end if;
971:
972: /* validate promise date */
973: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
998: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
999: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
1000: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1001: FND_MSG_PUB.Add;
1002: RAISE FND_API.G_EXC_ERROR;
1003: end if;
1004:
1005: /* validate promise currency */
1006: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
1032: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1033: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);
1034: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1035: FND_MSG_PUB.Add;
1036: RAISE FND_API.G_EXC_ERROR;
1037: end if;
1038:
1039: end if;
1040:
1041: end;
1042:
1043: PROCEDURE INSERT_PROMISE(
1044: P_API_VERSION IN NUMBER,
1045: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1046: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1047: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1048: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1049: X_MSG_COUNT OUT NOCOPY NUMBER,
1042:
1043: PROCEDURE INSERT_PROMISE(
1044: P_API_VERSION IN NUMBER,
1045: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1046: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1047: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1048: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1049: X_MSG_COUNT OUT NOCOPY NUMBER,
1050: X_MSG_DATA OUT NOCOPY VARCHAR2,
1043: PROCEDURE INSERT_PROMISE(
1044: P_API_VERSION IN NUMBER,
1045: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1046: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1047: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1048: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1049: X_MSG_COUNT OUT NOCOPY NUMBER,
1050: X_MSG_DATA OUT NOCOPY VARCHAR2,
1051: P_PROMISE_REC IN IEX_PROMISES_PUB.PRO_INSRT_REC_TYPE,
1090: -- Standard start of API savepoint
1091: SAVEPOINT INSERT_PROMISE_PVT;
1092:
1093: -- Standard call to check for call compatibility
1094: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END IF;
1097:
1098: -- Initialize message list if p_init_msg_list is set to TRUE
1091: SAVEPOINT INSERT_PROMISE_PVT;
1092:
1093: -- Standard call to check for call compatibility
1094: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END IF;
1097:
1098: -- Initialize message list if p_init_msg_list is set to TRUE
1099: IF FND_API.To_Boolean(p_init_msg_list) THEN
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END IF;
1097:
1098: -- Initialize message list if p_init_msg_list is set to TRUE
1099: IF FND_API.To_Boolean(p_init_msg_list) THEN
1100: FND_MSG_PUB.initialize;
1101: END IF;
1102:
1103: -- Initialize API return status to success
1100: FND_MSG_PUB.initialize;
1101: END IF;
1102:
1103: -- Initialize API return status to success
1104: l_return_status := FND_API.G_RET_STS_SUCCESS;
1105:
1106: -- START OF BODY OF API
1107: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1108: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
1319: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
1320: END IF;
1321:
1322: -- check for errors
1323: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1325: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1326: END IF;
1327: RAISE FND_API.G_EXC_ERROR;
1323: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1325: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1326: END IF;
1327: RAISE FND_API.G_EXC_ERROR;
1328: END IF;
1329: else
1330: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1331: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': no note to save');
1343:
1344: -- END OF BODY OF API
1345:
1346: -- Standard check of p_commit.
1347: IF FND_API.To_Boolean( p_commit ) THEN
1348: COMMIT WORK;
1349: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1350: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
1351: END IF;
1353:
1354: x_return_status := l_return_status;
1355: -- Standard call to get message count and if count is 1, get message info
1356: FND_MSG_PUB.Count_And_Get(
1357: p_encoded => FND_API.G_FALSE,
1358: p_count => x_msg_count,
1359: p_data => x_msg_data);
1360:
1361: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1362: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
1363: END IF;
1364:
1365: EXCEPTION
1366: WHEN FND_API.G_EXC_ERROR THEN
1367: ROLLBACK TO INSERT_PROMISE_PVT;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1364:
1365: EXCEPTION
1366: WHEN FND_API.G_EXC_ERROR THEN
1367: ROLLBACK TO INSERT_PROMISE_PVT;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1371: ROLLBACK TO INSERT_PROMISE_PVT;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366: WHEN FND_API.G_EXC_ERROR THEN
1367: ROLLBACK TO INSERT_PROMISE_PVT;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1371: ROLLBACK TO INSERT_PROMISE_PVT;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1374: WHEN OTHERS THEN
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1371: ROLLBACK TO INSERT_PROMISE_PVT;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1374: WHEN OTHERS THEN
1375: ROLLBACK TO INSERT_PROMISE_PVT;
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1374: WHEN OTHERS THEN
1375: ROLLBACK TO INSERT_PROMISE_PVT;
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1377: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1378: THEN
1379: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1380: END IF;
1447: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1448: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1449: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1450: FND_MSG_PUB.Add;
1451: RAISE FND_API.G_EXC_ERROR;
1452: end if;
1453:
1454: /* validate promise_amount */
1455: l_validation_item := 'P_PROMISE_REC.PROMISE_AMOUNT';
1464: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1465: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1466: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1467: FND_MSG_PUB.Add;
1468: RAISE FND_API.G_EXC_ERROR;
1469: end if;
1470:
1471: /* validate resource_id */
1472: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
1481: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1482: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1483: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1484: FND_MSG_PUB.Add;
1485: RAISE FND_API.G_EXC_ERROR;
1486: end if;
1487:
1488: /* pull data from db to do some validation */
1489: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1521: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1522: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1523: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1524: FND_MSG_PUB.Add;
1525: RAISE FND_API.G_EXC_ERROR;
1526: end if;
1527:
1528: /* validate promise_state */
1529: l_validation_item := 'STATE';
1537: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1538: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1539: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1540: FND_MSG_PUB.Add;
1541: RAISE FND_API.G_EXC_ERROR;
1542: end if;
1543:
1544: /* validate remaining amount */
1545: l_validation_item := 'AMOUNT_DUE_REMAINING';
1553: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1554: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1555: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1556: FND_MSG_PUB.Add;
1557: RAISE FND_API.G_EXC_ERROR;
1558: end if;
1559:
1560: /* validate promise_date */
1561: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
1570: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1571: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1572: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1573: FND_MSG_PUB.Add;
1574: RAISE FND_API.G_EXC_ERROR;
1575: end if;
1576:
1577: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1578: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item || ' for dublicates');
1627: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1628: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1629: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1630: FND_MSG_PUB.Add;
1631: RAISE FND_API.G_EXC_ERROR;
1632: end if;
1633:
1634: /* validate payment_method */
1635: l_validation_item := 'P_PROMISE_REC.PROMISE_PAYMENT_METHOD';
1655: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1656: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1657: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1658: FND_MSG_PUB.Add;
1659: RAISE FND_API.G_EXC_ERROR;
1660: end if;
1661: else
1662: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1663: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' is null - nothing to validate');
1667: end;
1668:
1669: PROCEDURE UPDATE_PROMISE(
1670: P_API_VERSION IN NUMBER,
1671: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1672: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1673: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1674: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1675: X_MSG_COUNT OUT NOCOPY NUMBER,
1668:
1669: PROCEDURE UPDATE_PROMISE(
1670: P_API_VERSION IN NUMBER,
1671: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1672: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1673: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1674: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1675: X_MSG_COUNT OUT NOCOPY NUMBER,
1676: X_MSG_DATA OUT NOCOPY VARCHAR2,
1669: PROCEDURE UPDATE_PROMISE(
1670: P_API_VERSION IN NUMBER,
1671: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1672: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1673: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1674: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1675: X_MSG_COUNT OUT NOCOPY NUMBER,
1676: X_MSG_DATA OUT NOCOPY VARCHAR2,
1677: P_PROMISE_REC IN IEX_PROMISES_PUB.PRO_UPDT_REC_TYPE,
1704: -- Standard start of API savepoint
1705: SAVEPOINT UPDATE_PROMISE_PVT;
1706:
1707: -- Standard call to check for call compatibility
1708: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1710: END IF;
1711:
1712: -- Initialize message list if p_init_msg_list is set to TRUE
1705: SAVEPOINT UPDATE_PROMISE_PVT;
1706:
1707: -- Standard call to check for call compatibility
1708: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1710: END IF;
1711:
1712: -- Initialize message list if p_init_msg_list is set to TRUE
1713: IF FND_API.To_Boolean(p_init_msg_list) THEN
1709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1710: END IF;
1711:
1712: -- Initialize message list if p_init_msg_list is set to TRUE
1713: IF FND_API.To_Boolean(p_init_msg_list) THEN
1714: FND_MSG_PUB.initialize;
1715: END IF;
1716:
1717: -- Initialize API return status to success
1714: FND_MSG_PUB.initialize;
1715: END IF;
1716:
1717: -- Initialize API return status to success
1718: l_return_status := FND_API.G_RET_STS_SUCCESS;
1719:
1720: -- START OF BODY OF API
1721: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1722: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
1869: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
1870: END IF;
1871:
1872: -- check for errors
1873: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1875: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1876: END IF;
1877: RAISE FND_API.G_EXC_ERROR;
1873: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1875: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1876: END IF;
1877: RAISE FND_API.G_EXC_ERROR;
1878: END IF;
1879: else
1880: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1881: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': no note to save');
1890: -- setting strategy
1891: --SET_STRATEGY(P_PROMISE_ID => P_PROMISE_REC.PROMISE_ID, P_STATUS => 'ONHOLD');
1892: */
1893: -- commit if promise updated successfully
1894: IF FND_API.To_Boolean( p_commit ) THEN
1895: COMMIT WORK;
1896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1897: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
1898: END IF;
1902:
1903: x_return_status := l_return_status;
1904: -- Standard call to get message count and if count is 1, get message info
1905: FND_MSG_PUB.Count_And_Get(
1906: p_encoded => FND_API.G_FALSE,
1907: p_count => x_msg_count,
1908: p_data => x_msg_data);
1909:
1910: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1911: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
1912: END IF;
1913:
1914: EXCEPTION
1915: WHEN FND_API.G_EXC_ERROR THEN
1916: ROLLBACK TO UPDATE_PROMISE_PVT;
1917: x_return_status := FND_API.G_RET_STS_ERROR;
1918: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1919: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1913:
1914: EXCEPTION
1915: WHEN FND_API.G_EXC_ERROR THEN
1916: ROLLBACK TO UPDATE_PROMISE_PVT;
1917: x_return_status := FND_API.G_RET_STS_ERROR;
1918: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1919: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1920: ROLLBACK TO UPDATE_PROMISE_PVT;
1921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1915: WHEN FND_API.G_EXC_ERROR THEN
1916: ROLLBACK TO UPDATE_PROMISE_PVT;
1917: x_return_status := FND_API.G_RET_STS_ERROR;
1918: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1919: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1920: ROLLBACK TO UPDATE_PROMISE_PVT;
1921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1922: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1923: WHEN OTHERS THEN
1917: x_return_status := FND_API.G_RET_STS_ERROR;
1918: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1919: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1920: ROLLBACK TO UPDATE_PROMISE_PVT;
1921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1922: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1923: WHEN OTHERS THEN
1924: ROLLBACK TO UPDATE_PROMISE_PVT;
1925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1922: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1923: WHEN OTHERS THEN
1924: ROLLBACK TO UPDATE_PROMISE_PVT;
1925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1926: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1927: THEN
1928: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1929: END IF;
1952: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1953: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1954: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1955: FND_MSG_PUB.Add;
1956: RAISE FND_API.G_EXC_ERROR;
1957: end if;
1958:
1959: /* validate resource_id */
1960: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
1969: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1970: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
1971: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
1972: FND_MSG_PUB.Add;
1973: RAISE FND_API.G_EXC_ERROR;
1974: end if;
1975:
1976: end;
1977:
1976: end;
1977:
1978: PROCEDURE CANCEL_PROMISE(
1979: P_API_VERSION IN NUMBER,
1980: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1981: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1982: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1983: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1984: X_MSG_COUNT OUT NOCOPY NUMBER,
1977:
1978: PROCEDURE CANCEL_PROMISE(
1979: P_API_VERSION IN NUMBER,
1980: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1981: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1982: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1983: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1984: X_MSG_COUNT OUT NOCOPY NUMBER,
1985: X_MSG_DATA OUT NOCOPY VARCHAR2,
1978: PROCEDURE CANCEL_PROMISE(
1979: P_API_VERSION IN NUMBER,
1980: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1981: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
1982: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
1983: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1984: X_MSG_COUNT OUT NOCOPY NUMBER,
1985: X_MSG_DATA OUT NOCOPY VARCHAR2,
1986: P_PROMISE_REC IN IEX_PROMISES_PUB.PRO_CNCL_REC_TYPE,
2013: -- Standard start of API savepoint
2014: SAVEPOINT CANCEL_PROMISE_PVT;
2015:
2016: -- Standard call to check for call compatibility
2017: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2019: END IF;
2020:
2021: -- Initialize message list if p_init_msg_list is set to TRUE
2014: SAVEPOINT CANCEL_PROMISE_PVT;
2015:
2016: -- Standard call to check for call compatibility
2017: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2019: END IF;
2020:
2021: -- Initialize message list if p_init_msg_list is set to TRUE
2022: IF FND_API.To_Boolean(p_init_msg_list) THEN
2018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2019: END IF;
2020:
2021: -- Initialize message list if p_init_msg_list is set to TRUE
2022: IF FND_API.To_Boolean(p_init_msg_list) THEN
2023: FND_MSG_PUB.initialize;
2024: END IF;
2025:
2026: -- Initialize API return status to success
2023: FND_MSG_PUB.initialize;
2024: END IF;
2025:
2026: -- Initialize API return status to success
2027: l_return_status := FND_API.G_RET_STS_SUCCESS;
2028:
2029: -- START OF BODY OF API
2030: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2031: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
2148: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
2149: END IF;
2150:
2151: -- check for errors
2152: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2153: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2154: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2155: END IF;
2156: RAISE FND_API.G_EXC_ERROR;
2152: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2153: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2154: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2155: END IF;
2156: RAISE FND_API.G_EXC_ERROR;
2157: END IF;
2158: else
2159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2160: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': no note to save');
2161: END IF;
2162: end if;
2163:
2164: -- commit if promise updated successfully
2165: IF FND_API.To_Boolean( p_commit ) THEN
2166: COMMIT WORK;
2167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2168: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
2169: END IF;
2173:
2174: x_return_status := l_return_status;
2175: -- Standard call to get message count and if count is 1, get message info
2176: FND_MSG_PUB.Count_And_Get(
2177: p_encoded => FND_API.G_FALSE,
2178: p_count => x_msg_count,
2179: p_data => x_msg_data);
2180:
2181: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2182: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
2183: END IF;
2184:
2185: EXCEPTION
2186: WHEN FND_API.G_EXC_ERROR THEN
2187: ROLLBACK TO CANCEL_PROMISE_PVT;
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2184:
2185: EXCEPTION
2186: WHEN FND_API.G_EXC_ERROR THEN
2187: ROLLBACK TO CANCEL_PROMISE_PVT;
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2191: ROLLBACK TO CANCEL_PROMISE_PVT;
2192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2186: WHEN FND_API.G_EXC_ERROR THEN
2187: ROLLBACK TO CANCEL_PROMISE_PVT;
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2191: ROLLBACK TO CANCEL_PROMISE_PVT;
2192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2194: WHEN OTHERS THEN
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2191: ROLLBACK TO CANCEL_PROMISE_PVT;
2192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2194: WHEN OTHERS THEN
2195: ROLLBACK TO CANCEL_PROMISE_PVT;
2196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2193: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2194: WHEN OTHERS THEN
2195: ROLLBACK TO CANCEL_PROMISE_PVT;
2196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2198: THEN
2199: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2200: END IF;
2232: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2233: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
2234: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
2235: FND_MSG_PUB.Add;
2236: RAISE FND_API.G_EXC_ERROR;
2237: end if;
2238:
2239: --commenting begin for bug 6717279 by gnramasa 25th Aug 08
2240: /* validate that all passed delinquencies belong to the same account */
2269: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2270: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
2271: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
2272: FND_MSG_PUB.Add;
2273: RAISE FND_API.G_EXC_ERROR;
2274: end if;
2275: */
2276: --commenting end for bug 6717279 by gnramasa 25th Aug 08
2277: /* validate promise_date */
2287: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2288: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
2289: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
2290: FND_MSG_PUB.Add;
2291: RAISE FND_API.G_EXC_ERROR;
2292: end if;
2293:
2294: /* validate resource_id */
2295: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
2304: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2305: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
2306: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
2307: FND_MSG_PUB.Add;
2308: RAISE FND_API.G_EXC_ERROR;
2309: end if;
2310:
2311: /* validate payment_method */
2312: l_validation_item := 'P_PROMISE_REC.PROMISE_PAYMENT_METHOD';
2332: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2333: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);
2334: FND_MESSAGE.SET_TOKEN('API_PARAMETER', l_validation_item);
2335: FND_MSG_PUB.Add;
2336: RAISE FND_API.G_EXC_ERROR;
2337: end if;
2338: else
2339: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2340: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' is null - nothing to validate');
2345:
2346:
2347: PROCEDURE MASS_PROMISE(
2348: P_API_VERSION IN NUMBER,
2349: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
2350: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
2351: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
2352: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
2353: X_MSG_COUNT OUT NOCOPY NUMBER,
2346:
2347: PROCEDURE MASS_PROMISE(
2348: P_API_VERSION IN NUMBER,
2349: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
2350: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
2351: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
2352: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
2353: X_MSG_COUNT OUT NOCOPY NUMBER,
2354: X_MSG_DATA OUT NOCOPY VARCHAR2,
2347: PROCEDURE MASS_PROMISE(
2348: P_API_VERSION IN NUMBER,
2349: P_INIT_MSG_LIST IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
2350: P_COMMIT IN VARCHAR2, -- DEFAULT FND_API.G_FALSE,
2351: P_VALIDATION_LEVEL IN NUMBER, -- DEFAULT FND_API.G_VALID_LEVEL_FULL,
2352: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
2353: X_MSG_COUNT OUT NOCOPY NUMBER,
2354: X_MSG_DATA OUT NOCOPY VARCHAR2,
2355: P_MASS_IDS_TBL IN DBMS_SQL.NUMBER_TABLE,
2407: -- Standard start of API savepoint
2408: SAVEPOINT MASS_PROMISE_PVT;
2409:
2410: -- Standard call to check for call compatibility
2411: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2413: END IF;
2414:
2415: -- Initialize message list if p_init_msg_list is set to TRUE
2408: SAVEPOINT MASS_PROMISE_PVT;
2409:
2410: -- Standard call to check for call compatibility
2411: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2413: END IF;
2414:
2415: -- Initialize message list if p_init_msg_list is set to TRUE
2416: IF FND_API.To_Boolean(p_init_msg_list) THEN
2412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2413: END IF;
2414:
2415: -- Initialize message list if p_init_msg_list is set to TRUE
2416: IF FND_API.To_Boolean(p_init_msg_list) THEN
2417: FND_MSG_PUB.initialize;
2418: END IF;
2419:
2420: -- Initialize API return status to success
2417: FND_MSG_PUB.initialize;
2418: END IF;
2419:
2420: -- Initialize API return status to success
2421: l_return_status := FND_API.G_RET_STS_SUCCESS;
2422:
2423: -- START OF BODY OF API
2424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2425: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
2777: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
2778: END IF;
2779:
2780: -- check for errors
2781: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2782: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2783: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2784: END IF;
2785: RAISE FND_API.G_EXC_ERROR;
2781: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2782: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2783: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2784: END IF;
2785: RAISE FND_API.G_EXC_ERROR;
2786: END IF;
2787:
2788: FOR k IN 1..X_MASS_PRORESP_TBL.count LOOP
2789: X_MASS_PRORESP_TBL(k).note_id := l_note_id;
2794: END IF;
2795: end if;
2796:
2797: -- commit if promise updated successfully
2798: IF FND_API.To_Boolean( p_commit ) THEN
2799: COMMIT WORK;
2800: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2801: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
2802: END IF;
2806:
2807: x_return_status := l_return_status;
2808: -- Standard call to get message count and if count is 1, get message info
2809: FND_MSG_PUB.Count_And_Get(
2810: p_encoded => FND_API.G_FALSE,
2811: p_count => x_msg_count,
2812: p_data => x_msg_data);
2813:
2814: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2815: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
2816: END IF;
2817:
2818: EXCEPTION
2819: WHEN FND_API.G_EXC_ERROR THEN
2820: ROLLBACK TO MASS_PROMISE_PVT;
2821: x_return_status := FND_API.G_RET_STS_ERROR;
2822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2817:
2818: EXCEPTION
2819: WHEN FND_API.G_EXC_ERROR THEN
2820: ROLLBACK TO MASS_PROMISE_PVT;
2821: x_return_status := FND_API.G_RET_STS_ERROR;
2822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2824: ROLLBACK TO MASS_PROMISE_PVT;
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2819: WHEN FND_API.G_EXC_ERROR THEN
2820: ROLLBACK TO MASS_PROMISE_PVT;
2821: x_return_status := FND_API.G_RET_STS_ERROR;
2822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2824: ROLLBACK TO MASS_PROMISE_PVT;
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2827: WHEN OTHERS THEN
2821: x_return_status := FND_API.G_RET_STS_ERROR;
2822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2823: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2824: ROLLBACK TO MASS_PROMISE_PVT;
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2827: WHEN OTHERS THEN
2828: ROLLBACK TO MASS_PROMISE_PVT;
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2827: WHEN OTHERS THEN
2828: ROLLBACK TO MASS_PROMISE_PVT;
2829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2830: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2831: THEN
2832: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2833: END IF;