14: p_api_name IN VARCHAR2
15: ) IS
16: BEGIN
17: IF (NVL(p_number,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
18: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
19: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
20: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
21: FND_MSG_PUB.Add;
22: RAISE FND_API.G_EXC_ERROR;
15: ) IS
16: BEGIN
17: IF (NVL(p_number,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
18: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
19: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
20: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
21: FND_MSG_PUB.Add;
22: RAISE FND_API.G_EXC_ERROR;
23: END IF;
16: BEGIN
17: IF (NVL(p_number,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
18: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
19: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
20: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
21: FND_MSG_PUB.Add;
22: RAISE FND_API.G_EXC_ERROR;
23: END IF;
24: END Check_Reqd_Param_num;
35: p_api_name IN VARCHAR2
36: ) IS
37: BEGIN
38: IF (NVL(p_variable,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
39: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
40: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
41: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
42: FND_MSG_PUB.Add;
43: RAISE FND_API.G_EXC_ERROR;
36: ) IS
37: BEGIN
38: IF (NVL(p_variable,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
39: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
40: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
41: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
42: FND_MSG_PUB.Add;
43: RAISE FND_API.G_EXC_ERROR;
44: END IF;
37: BEGIN
38: IF (NVL(p_variable,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
39: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
40: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
41: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
42: FND_MSG_PUB.Add;
43: RAISE FND_API.G_EXC_ERROR;
44: END IF;
45: END Check_Reqd_Param_char;
56: p_api_name IN VARCHAR2
57: ) IS
58: BEGIN
59: IF (NVL(p_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
60: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
61: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
62: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
63: FND_MSG_PUB.Add;
64: RAISE FND_API.G_EXC_ERROR;
57: ) IS
58: BEGIN
59: IF (NVL(p_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
60: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
61: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
62: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
63: FND_MSG_PUB.Add;
64: RAISE FND_API.G_EXC_ERROR;
65: END IF;
58: BEGIN
59: IF (NVL(p_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
60: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
61: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
62: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
63: FND_MSG_PUB.Add;
64: RAISE FND_API.G_EXC_ERROR;
65: END IF;
66: END Check_Reqd_Param_date;
97: and NVL(contact_ip_id,fnd_api.g_miss_num) = nvl(p_contact_ip_id,fnd_api.g_miss_num)
98: and ((active_end_date is null) OR (active_end_date >= sysdate));
99:
100: IF ( p_stack_err_msg = TRUE ) THEN
101: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_REL_COMB');
102: FND_MESSAGE.SET_TOKEN('PARTY_REL_COMB',to_char(p_instance_id) ||','||p_party_source_table||','||to_char(p_party_id)||','||p_relationship_type||','||to_char(p_contact_ip_id));
103: FND_MSG_PUB.Add;
104: END IF;
105: RETURN l_return_value;
98: and ((active_end_date is null) OR (active_end_date >= sysdate));
99:
100: IF ( p_stack_err_msg = TRUE ) THEN
101: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_REL_COMB');
102: FND_MESSAGE.SET_TOKEN('PARTY_REL_COMB',to_char(p_instance_id) ||','||p_party_source_table||','||to_char(p_party_id)||','||p_relationship_type||','||to_char(p_contact_ip_id));
103: FND_MSG_PUB.Add;
104: END IF;
105: RETURN l_return_value;
106: EXCEPTION
109: RETURN l_return_value;
110: WHEN TOO_MANY_ROWS THEN
111: l_return_value := TRUE;
112: IF ( p_stack_err_msg = TRUE ) THEN
113: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANY_PTY_REL_COM_EXIST');
114: FND_MESSAGE.SET_TOKEN('PARTY_REL_COMB',to_char(p_instance_id) ||','||p_party_source_table||','|| to_char(p_party_id)||','||p_relationship_type||','|| to_char(p_contact_ip_id));
115: FND_MSG_PUB.Add;
116: END IF;
117: RETURN l_return_value;
110: WHEN TOO_MANY_ROWS THEN
111: l_return_value := TRUE;
112: IF ( p_stack_err_msg = TRUE ) THEN
113: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANY_PTY_REL_COM_EXIST');
114: FND_MESSAGE.SET_TOKEN('PARTY_REL_COMB',to_char(p_instance_id) ||','||p_party_source_table||','|| to_char(p_party_id)||','||p_relationship_type||','|| to_char(p_contact_ip_id));
115: FND_MSG_PUB.Add;
116: END IF;
117: RETURN l_return_value;
118: END Is_Party_Rel_Comb_Exists;
134: INTO l_dummy
135: FROM csi_i_parties
136: WHERE instance_party_id = p_Instance_party_id;
137: IF ( p_stack_err_msg = TRUE ) THEN
138: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
139: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
140: FND_MSG_PUB.Add;
141: END IF;
142: RETURN l_return_value;
135: FROM csi_i_parties
136: WHERE instance_party_id = p_Instance_party_id;
137: IF ( p_stack_err_msg = TRUE ) THEN
138: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
139: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
140: FND_MSG_PUB.Add;
141: END IF;
142: RETURN l_return_value;
143: EXCEPTION
171: FETCH c1 INTO l_dummy;
172: IF c1%NOTFOUND THEN
173: l_return_value := FALSE;
174: IF ( p_stack_err_msg = TRUE ) THEN
175: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
176: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
177: FND_MSG_PUB.Add;
178: END IF;
179: END IF;
172: IF c1%NOTFOUND THEN
173: l_return_value := FALSE;
174: IF ( p_stack_err_msg = TRUE ) THEN
175: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
176: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
177: FND_MSG_PUB.Add;
178: END IF;
179: END IF;
180: CLOSE c1;
208: FETCH c1 INTO l_dummy;
209: IF c1%NOTFOUND THEN
210: l_return_value := FALSE;
211: IF ( p_stack_err_msg = TRUE ) THEN
212: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_SOURCE');
213: FND_MESSAGE.SET_TOKEN('PARTY_SOURCE_TABLE',p_party_source_table);
214: FND_MSG_PUB.Add;
215: END IF;
216: END IF;
209: IF c1%NOTFOUND THEN
210: l_return_value := FALSE;
211: IF ( p_stack_err_msg = TRUE ) THEN
212: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_SOURCE');
213: FND_MESSAGE.SET_TOKEN('PARTY_SOURCE_TABLE',p_party_source_table);
214: FND_MSG_PUB.Add;
215: END IF;
216: END IF;
217: CLOSE c1;
280: AND ((end_date_active is null) OR (end_date_active >= sysdate));
281: ELSE
282: l_return_value := FALSE;
283: IF ( p_stack_err_msg = TRUE ) THEN
284: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_SOURCE');
285: FND_MESSAGE.SET_TOKEN('PARTY_SOURCE_TABLE',p_party_source_table );
286: FND_MSG_PUB.Add;
287: END IF;
288: END IF;
281: ELSE
282: l_return_value := FALSE;
283: IF ( p_stack_err_msg = TRUE ) THEN
284: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_SOURCE');
285: FND_MESSAGE.SET_TOKEN('PARTY_SOURCE_TABLE',p_party_source_table );
286: FND_MSG_PUB.Add;
287: END IF;
288: END IF;
289: RETURN l_return_value;
290: EXCEPTION
291: WHEN NO_DATA_FOUND THEN
292: l_return_value := FALSE;
293: IF ( p_stack_err_msg = TRUE ) THEN
294: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ID');
295: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_id);
296: FND_MSG_PUB.Add;
297: END IF;
298: RETURN l_return_value;
291: WHEN NO_DATA_FOUND THEN
292: l_return_value := FALSE;
293: IF ( p_stack_err_msg = TRUE ) THEN
294: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ID');
295: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_id);
296: FND_MSG_PUB.Add;
297: END IF;
298: RETURN l_return_value;
299: END Is_Party_Valid;
340: EXCEPTION
341: WHEN NO_DATA_FOUND THEN
342: l_return_value := FALSE;
343: IF ( p_stack_err_msg = TRUE ) THEN
344: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PARTY_TYPE_CODE');
345: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_party_rel_type_code);
346: FND_MSG_PUB.Add;
347: END IF;
348: RETURN l_return_value;
341: WHEN NO_DATA_FOUND THEN
342: l_return_value := FALSE;
343: IF ( p_stack_err_msg = TRUE ) THEN
344: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PARTY_TYPE_CODE');
345: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_party_rel_type_code);
346: FND_MSG_PUB.Add;
347: END IF;
348: RETURN l_return_value;
349: END Is_Pty_Rel_type_Valid ;
407: FETCH C1 INTO l_party_id, l_party_source_table;
408: IF C1%NOTFOUND THEN
409: l_return_value := FALSE;
410: IF ( p_stack_err_msg = TRUE ) THEN
411: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_CONTACT_INFO');
412: FND_MESSAGE.SET_TOKEN('CONTACT_PARTY_ID',p_contact_party_id);
413: FND_MESSAGE.SET_TOKEN('CONTACT_SOURCE_TABLE',p_contact_source_table);
414: FND_MSG_PUB.Add;
415: END IF;
408: IF C1%NOTFOUND THEN
409: l_return_value := FALSE;
410: IF ( p_stack_err_msg = TRUE ) THEN
411: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_CONTACT_INFO');
412: FND_MESSAGE.SET_TOKEN('CONTACT_PARTY_ID',p_contact_party_id);
413: FND_MESSAGE.SET_TOKEN('CONTACT_SOURCE_TABLE',p_contact_source_table);
414: FND_MSG_PUB.Add;
415: END IF;
416: CLOSE C1;
409: l_return_value := FALSE;
410: IF ( p_stack_err_msg = TRUE ) THEN
411: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_CONTACT_INFO');
412: FND_MESSAGE.SET_TOKEN('CONTACT_PARTY_ID',p_contact_party_id);
413: FND_MESSAGE.SET_TOKEN('CONTACT_SOURCE_TABLE',p_contact_source_table);
414: FND_MSG_PUB.Add;
415: END IF;
416: CLOSE C1;
417: RETURN l_return_value;
424: FETCH C2 INTO l_dummy;
425: IF C2%NOTFOUND THEN
426: l_return_value := FALSE;
427: IF ( p_stack_err_msg = TRUE ) THEN
428: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_CONTACT_INFO');
429: FND_MESSAGE.SET_TOKEN('CONTACT_PARTY_ID',p_contact_party_id);
430: FND_MESSAGE.SET_TOKEN('CONTACT_SOURCE_TABLE',p_contact_source_table);
431: FND_MSG_PUB.Add;
432: END IF;
425: IF C2%NOTFOUND THEN
426: l_return_value := FALSE;
427: IF ( p_stack_err_msg = TRUE ) THEN
428: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_CONTACT_INFO');
429: FND_MESSAGE.SET_TOKEN('CONTACT_PARTY_ID',p_contact_party_id);
430: FND_MESSAGE.SET_TOKEN('CONTACT_SOURCE_TABLE',p_contact_source_table);
431: FND_MSG_PUB.Add;
432: END IF;
433: CLOSE C2;
426: l_return_value := FALSE;
427: IF ( p_stack_err_msg = TRUE ) THEN
428: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_CONTACT_INFO');
429: FND_MESSAGE.SET_TOKEN('CONTACT_PARTY_ID',p_contact_party_id);
430: FND_MESSAGE.SET_TOKEN('CONTACT_SOURCE_TABLE',p_contact_source_table);
431: FND_MSG_PUB.Add;
432: END IF;
433: CLOSE C2;
434: END IF;
465: BEGIN
466: IF ((p_end_date is NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
467: IF trunc(p_start_date,'MI') > trunc(p_end_date,'MI') THEN --Changed to trunc for bug 9750206
468: l_return_value := FALSE;
469: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
470: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
471: FND_MSG_PUB.Add;
472: RETURN l_return_value;
473: END IF;
466: IF ((p_end_date is NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
467: IF trunc(p_start_date,'MI') > trunc(p_end_date,'MI') THEN --Changed to trunc for bug 9750206
468: l_return_value := FALSE;
469: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
470: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
471: FND_MSG_PUB.Add;
472: RETURN l_return_value;
473: END IF;
474: END IF;
477: FETCH c1 INTO l_instance_start_date,l_instance_end_date;
478: IF c1%NOTFOUND THEN
479: l_return_value := FALSE;
480: IF ( p_stack_err_msg = TRUE ) THEN
481: FND_MESSAGE.SET_NAME('CSI','CSI_API_INST_STARTDATE_NOT_EXT');
482: FND_MSG_PUB.Add;
483: END IF;
484: CLOSE c1;
485: RETURN l_return_value;
489: OR ((l_instance_end_date IS NOT NULL) AND (p_start_date > l_instance_end_date))
490: OR (p_start_date > SYSDATE)) THEN
491: l_return_value := FALSE;
492: IF ( p_stack_err_msg = TRUE ) THEN
493: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
494: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
495: FND_MSG_PUB.Add;
496: END IF;
497: END IF;
490: OR (p_start_date > SYSDATE)) THEN
491: l_return_value := FALSE;
492: IF ( p_stack_err_msg = TRUE ) THEN
493: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
494: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
495: FND_MSG_PUB.Add;
496: END IF;
497: END IF;
498: RETURN l_return_value;
526: BEGIN
527: IF p_end_date is NOT NULL THEN
528: IF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(sysdate,'DD-MM-YY HH24:MI') THEN
529: l_return_value := FALSE;
530: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
531: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
532: FND_MSG_PUB.Add;
533: RETURN l_return_value;
534: END IF;
527: IF p_end_date is NOT NULL THEN
528: IF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(sysdate,'DD-MM-YY HH24:MI') THEN
529: l_return_value := FALSE;
530: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
531: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
532: FND_MSG_PUB.Add;
533: RETURN l_return_value;
534: END IF;
535: END IF;
541: IF ((p_end_date > l_instance_end_date) OR
542: (p_end_date < l_instance_start_date))THEN
543: l_return_value := FALSE;
544: IF ( p_stack_err_msg = TRUE ) THEN
545: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
546: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
547: FND_MSG_PUB.Add;
548: END IF;
549: END IF;
542: (p_end_date < l_instance_start_date))THEN
543: l_return_value := FALSE;
544: IF ( p_stack_err_msg = TRUE ) THEN
545: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
546: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
547: FND_MSG_PUB.Add;
548: END IF;
549: END IF;
550: END IF;
586:
587: IF ((p_end_date is NOT NULL) and (p_end_date <> fnd_api.g_miss_date)) THEN
588: IF trunc(p_end_date,'MI') < trunc(sysdate,'MI') THEN --Changed to trunc for bug 9750206
589: l_return_value := FALSE;
590: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
591: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
592: FND_MSG_PUB.Add;
593: RETURN l_return_value;
594: END IF;
587: IF ((p_end_date is NOT NULL) and (p_end_date <> fnd_api.g_miss_date)) THEN
588: IF trunc(p_end_date,'MI') < trunc(sysdate,'MI') THEN --Changed to trunc for bug 9750206
589: l_return_value := FALSE;
590: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
591: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
592: FND_MSG_PUB.Add;
593: RETURN l_return_value;
594: END IF;
595: END IF;
617: IF ((p_end_date > l_instance_end_date) OR
618: (p_end_date < l_instance_start_date))THEN
619: l_return_value := FALSE;
620: IF ( p_stack_err_msg = TRUE ) THEN
621: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
622: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
623: FND_MSG_PUB.Add;
624: END IF;
625: END IF;
618: (p_end_date < l_instance_start_date))THEN
619: l_return_value := FALSE;
620: IF ( p_stack_err_msg = TRUE ) THEN
621: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
622: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
623: FND_MSG_PUB.Add;
624: END IF;
625: END IF;
626: END IF;
670: AND t.transaction_id <>nvl(p_txn_id, -99999);
671:
672: IF l_transaction_date > p_end_date
673: THEN
674: fnd_message.set_name('CSI','CSI_HAS_TXNS');
675: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
676: fnd_msg_pub.add;
677: l_return_value := FALSE;
678: RETURN l_return_value;
671:
672: IF l_transaction_date > p_end_date
673: THEN
674: fnd_message.set_name('CSI','CSI_HAS_TXNS');
675: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
676: fnd_msg_pub.add;
677: l_return_value := FALSE;
678: RETURN l_return_value;
679: END IF;
690: AND t.transaction_id <> nvl(p_txn_id, -99999);
691:
692: IF l_transaction_date > p_end_date
693: THEN
694: fnd_message.set_name('CSI','CSI_HAS_TXNS');
695: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
696: fnd_msg_pub.add;
697: l_return_value := FALSE;
698: RETURN l_return_value;
691:
692: IF l_transaction_date > p_end_date
693: THEN
694: fnd_message.set_name('CSI','CSI_HAS_TXNS');
695: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
696: fnd_msg_pub.add;
697: l_return_value := FALSE;
698: RETURN l_return_value;
699: END IF;
712: AND t.transaction_id <> nvl(p_txn_id, -99999);
713:
714: IF l_transaction_date > p_end_date
715: THEN
716: fnd_message.set_name('CSI','CSI_HAS_TXNS');
717: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
718: fnd_msg_pub.add;
719: l_return_value := FALSE;
720: RETURN l_return_value;
713:
714: IF l_transaction_date > p_end_date
715: THEN
716: fnd_message.set_name('CSI','CSI_HAS_TXNS');
717: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
718: fnd_msg_pub.add;
719: l_return_value := FALSE;
720: RETURN l_return_value;
721: END IF;
758: OPEN C1;
759: FETCH C1 INTO l_dummy;
760: IF C1%FOUND THEN
761: IF ( p_stack_err_msg = TRUE ) THEN
762: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_ALREADY_EXISTS');
763: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
764: FND_MSG_PUB.Add;
765: END IF;
766: ELSE
759: FETCH C1 INTO l_dummy;
760: IF C1%FOUND THEN
761: IF ( p_stack_err_msg = TRUE ) THEN
762: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_ALREADY_EXISTS');
763: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
764: FND_MSG_PUB.Add;
765: END IF;
766: ELSE
767: l_return_value := FALSE;
860: and party_account_id = p_party_account_id
861: and relationship_type_code = p_relationship_type
862: and ((active_end_date is null) OR (trunc(active_end_date,'MI') >= trunc(sysdate,'MI'))); --Changed to trunc for bug 9750206
863: IF ( p_stack_err_msg = TRUE ) THEN
864: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ACCT_COM');
865: FND_MESSAGE.SET_TOKEN('ACCT_COMBINATION',p_instance_party_id ||', '
866: ||p_party_account_id ||', '||p_relationship_type);
867: FND_MSG_PUB.Add;
868: END IF;
861: and relationship_type_code = p_relationship_type
862: and ((active_end_date is null) OR (trunc(active_end_date,'MI') >= trunc(sysdate,'MI'))); --Changed to trunc for bug 9750206
863: IF ( p_stack_err_msg = TRUE ) THEN
864: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ACCT_COM');
865: FND_MESSAGE.SET_TOKEN('ACCT_COMBINATION',p_instance_party_id ||', '
866: ||p_party_account_id ||', '||p_relationship_type);
867: FND_MSG_PUB.Add;
868: END IF;
869: RETURN l_return_value;
891: FROM csi_ip_accounts
892: WHERE ip_account_id = p_ip_account_id
893: and ((active_end_date is null) OR (trunc(active_end_date,'MI') >= trunc(sysdate,'MI'))); --Changed to trunc for bug 9750206
894: IF ( p_stack_err_msg = TRUE ) THEN
895: FND_MESSAGE.SET_NAME('CSI','CSI_API_IP_ACCOUNT_ID');
896: FND_MESSAGE.SET_TOKEN('IP_ACCOUNT_ID',p_ip_account_id);
897: FND_MSG_PUB.Add;
898: END IF;
899: RETURN l_return_value;
892: WHERE ip_account_id = p_ip_account_id
893: and ((active_end_date is null) OR (trunc(active_end_date,'MI') >= trunc(sysdate,'MI'))); --Changed to trunc for bug 9750206
894: IF ( p_stack_err_msg = TRUE ) THEN
895: FND_MESSAGE.SET_NAME('CSI','CSI_API_IP_ACCOUNT_ID');
896: FND_MESSAGE.SET_TOKEN('IP_ACCOUNT_ID',p_ip_account_id);
897: FND_MSG_PUB.Add;
898: END IF;
899: RETURN l_return_value;
900: EXCEPTION
975: WHERE instance_party_id = p_Instance_party_id;
976: EXCEPTION
977: WHEN NO_DATA_FOUND THEN
978: l_return_value := FALSE;
979: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
980: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_INSTANCE_PARTY_ID);
981: FND_MSG_PUB.Add;
982: END;
983: -- End addition for bug 3550541
976: EXCEPTION
977: WHEN NO_DATA_FOUND THEN
978: l_return_value := FALSE;
979: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
980: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_INSTANCE_PARTY_ID);
981: FND_MSG_PUB.Add;
982: END;
983: -- End addition for bug 3550541
984: ELSE
983: -- End addition for bug 3550541
984: ELSE
985: l_return_value := FALSE;
986: IF p_stack_err_msg = TRUE THEN
987: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
988: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_INSTANCE_PARTY_ID);
989: FND_MSG_PUB.Add;
990: END IF;
991: END IF;
984: ELSE
985: l_return_value := FALSE;
986: IF p_stack_err_msg = TRUE THEN
987: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
988: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_INSTANCE_PARTY_ID);
989: FND_MSG_PUB.Add;
990: END IF;
991: END IF;
992: RETURN l_return_value;
1052: WHERE instance_party_id = p_instance_party_id;
1053: EXCEPTION
1054: WHEN NO_DATA_FOUND THEN
1055: l_return_value := FALSE;
1056: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
1057: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
1058: FND_MSG_PUB.Add;
1059: -- Errored, No need to proceed further
1060: RETURN l_return_value;
1053: EXCEPTION
1054: WHEN NO_DATA_FOUND THEN
1055: l_return_value := FALSE;
1056: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
1057: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
1058: FND_MSG_PUB.Add;
1059: -- Errored, No need to proceed further
1060: RETURN l_return_value;
1061: END;
1062: -- End addition for bug 3550541
1063: ELSE
1064: l_return_value := FALSE;
1065: IF ( p_stack_err_msg = TRUE ) THEN
1066: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
1067: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
1068: FND_MSG_PUB.Add;
1069: END IF;
1070: CLOSE C3;
1063: ELSE
1064: l_return_value := FALSE;
1065: IF ( p_stack_err_msg = TRUE ) THEN
1066: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
1067: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
1068: FND_MSG_PUB.Add;
1069: END IF;
1070: CLOSE C3;
1071: -- Errored, No need to proceed further
1082: THEN
1083: l_return_value := FALSE;
1084: IF ( p_stack_err_msg = TRUE )
1085: THEN
1086: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_ACCT_HZ_PTY');
1087: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_party_account_id);
1088: FND_MESSAGE.SET_TOKEN('PARTY_ID',l_party_id);
1089: FND_MSG_PUB.Add;
1090: END IF;
1083: l_return_value := FALSE;
1084: IF ( p_stack_err_msg = TRUE )
1085: THEN
1086: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_ACCT_HZ_PTY');
1087: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_party_account_id);
1088: FND_MESSAGE.SET_TOKEN('PARTY_ID',l_party_id);
1089: FND_MSG_PUB.Add;
1090: END IF;
1091: END IF;
1084: IF ( p_stack_err_msg = TRUE )
1085: THEN
1086: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_ACCT_HZ_PTY');
1087: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_party_account_id);
1088: FND_MESSAGE.SET_TOKEN('PARTY_ID',l_party_id);
1089: FND_MSG_PUB.Add;
1090: END IF;
1091: END IF;
1092: CLOSE c2;
1097: THEN
1098: l_return_value := FALSE;
1099: IF ( p_stack_err_msg = TRUE )
1100: THEN
1101: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
1102: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_party_account_id);
1103: FND_MSG_PUB.Add;
1104: END IF;
1105: END IF;
1098: l_return_value := FALSE;
1099: IF ( p_stack_err_msg = TRUE )
1100: THEN
1101: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
1102: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_party_account_id);
1103: FND_MSG_PUB.Add;
1104: END IF;
1105: END IF;
1106: CLOSE c1;
1134: FETCH c1 INTO l_dummy;
1135: IF c1%NOTFOUND THEN
1136: l_return_value := FALSE;
1137: IF ( p_stack_err_msg = TRUE ) THEN
1138: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ACCOUNT_TYPE');
1139: FND_MESSAGE.SET_TOKEN('IP_RELATIONSHIP_TYPE_CODE',p_acct_rel_type_code);
1140: FND_MSG_PUB.Add;
1141: END IF;
1142: END IF;
1135: IF c1%NOTFOUND THEN
1136: l_return_value := FALSE;
1137: IF ( p_stack_err_msg = TRUE ) THEN
1138: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ACCOUNT_TYPE');
1139: FND_MESSAGE.SET_TOKEN('IP_RELATIONSHIP_TYPE_CODE',p_acct_rel_type_code);
1140: FND_MSG_PUB.Add;
1141: END IF;
1142: END IF;
1143: CLOSE c1;
1170:
1171: -- Modified date comparision for bug 7333900, ignore difference in seconds
1172: IF (trunc(p_start_date,'MI') > trunc(p_end_date,'MI')) THEN --Changed to trunc for bug 9750206
1173: l_return_value := FALSE;
1174: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
1175: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
1176: FND_MSG_PUB.Add;
1177: RETURN l_return_value;
1178: END IF;
1171: -- Modified date comparision for bug 7333900, ignore difference in seconds
1172: IF (trunc(p_start_date,'MI') > trunc(p_end_date,'MI')) THEN --Changed to trunc for bug 9750206
1173: l_return_value := FALSE;
1174: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
1175: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
1176: FND_MSG_PUB.Add;
1177: RETURN l_return_value;
1178: END IF;
1179: END IF;
1182: FETCH c1 INTO l_inst_party_start_date;
1183: IF c1%NOTFOUND THEN
1184: l_return_value := FALSE;
1185: IF ( p_stack_err_msg = TRUE ) THEN
1186: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PTY_START_DATE');
1187: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
1188: FND_MSG_PUB.Add;
1189: END IF;
1190: CLOSE c1;
1183: IF c1%NOTFOUND THEN
1184: l_return_value := FALSE;
1185: IF ( p_stack_err_msg = TRUE ) THEN
1186: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PTY_START_DATE');
1187: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
1188: FND_MSG_PUB.Add;
1189: END IF;
1190: CLOSE c1;
1191: RETURN l_return_value;
1198: IF (trunc(p_start_date,'MI') < trunc(l_inst_party_start_date,'MI'))
1199: OR (trunc(p_start_date,'MI') > trunc(SYSDATE,'MI')) THEN --Changed to trunc for bug 9750206
1200: l_return_value := FALSE;
1201: IF ( p_stack_err_msg = TRUE ) THEN
1202: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
1203: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
1204: FND_MSG_PUB.Add;
1205: END IF;
1206: END IF;
1199: OR (trunc(p_start_date,'MI') > trunc(SYSDATE,'MI')) THEN --Changed to trunc for bug 9750206
1200: l_return_value := FALSE;
1201: IF ( p_stack_err_msg = TRUE ) THEN
1202: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
1203: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
1204: FND_MSG_PUB.Add;
1205: END IF;
1206: END IF;
1207: RETURN l_return_value;
1234: BEGIN
1235: IF p_end_date is NOT NULL THEN
1236: IF p_end_date < sysdate THEN
1237: l_return_value := FALSE;
1238: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1239: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1240: FND_MSG_PUB.Add;
1241: RETURN l_return_value;
1242: END IF;
1235: IF p_end_date is NOT NULL THEN
1236: IF p_end_date < sysdate THEN
1237: l_return_value := FALSE;
1238: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1239: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1240: FND_MSG_PUB.Add;
1241: RETURN l_return_value;
1242: END IF;
1243: END IF;
1248: IF l_instance_end_date is NOT NULL THEN
1249: IF p_end_date > l_instance_end_date THEN
1250: l_return_value := FALSE;
1251: IF ( p_stack_err_msg = TRUE ) THEN
1252: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1253: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1254: FND_MSG_PUB.Add;
1255: END IF;
1256: END IF;
1249: IF p_end_date > l_instance_end_date THEN
1250: l_return_value := FALSE;
1251: IF ( p_stack_err_msg = TRUE ) THEN
1252: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1253: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1254: FND_MSG_PUB.Add;
1255: END IF;
1256: END IF;
1257: END IF;
1293: THEN
1294: IF p_end_date < sysdate
1295: THEN
1296: l_return_value := FALSE;
1297: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1298: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1299: FND_MSG_PUB.Add;
1300: l_return_value := FALSE;
1301: RETURN l_return_value;
1294: IF p_end_date < sysdate
1295: THEN
1296: l_return_value := FALSE;
1297: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1298: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1299: FND_MSG_PUB.Add;
1300: l_return_value := FALSE;
1301: RETURN l_return_value;
1302: END IF;
1315: AND t.transaction_id <> nvl(p_txn_id, -99999);
1316:
1317: IF l_transaction_date > p_end_date
1318: THEN
1319: fnd_message.set_name('CSI','CSI_HAS_TXNS');
1320: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
1321: fnd_msg_pub.add;
1322: l_return_value := FALSE;
1323: RETURN l_return_value;
1316:
1317: IF l_transaction_date > p_end_date
1318: THEN
1319: fnd_message.set_name('CSI','CSI_HAS_TXNS');
1320: fnd_message.set_token('END_DATE_ACTIVE',p_end_date);
1321: fnd_msg_pub.add;
1322: l_return_value := FALSE;
1323: RETURN l_return_value;
1324: END IF;
1332: IF l_instance_end_date is NOT NULL THEN
1333: IF p_end_date > l_instance_end_date THEN
1334: l_return_value := FALSE;
1335: IF ( p_stack_err_msg = TRUE ) THEN
1336: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1337: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1338: FND_MSG_PUB.Add;
1339: END IF;
1340: END IF;
1333: IF p_end_date > l_instance_end_date THEN
1334: l_return_value := FALSE;
1335: IF ( p_stack_err_msg = TRUE ) THEN
1336: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
1337: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
1338: FND_MSG_PUB.Add;
1339: END IF;
1340: END IF;
1341: END IF;
1407: FETCH c1 INTO l_instance_start_date,l_instance_end_date;
1408: IF c1%NOTFOUND THEN
1409: l_return_value := FALSE;
1410: IF ( p_stack_err_msg = TRUE ) THEN
1411: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_INST_START_DATE');
1412: FND_MESSAGE.SET_TOKEN('ENTITY','VERSION LABEL');
1413: FND_MSG_PUB.Add;
1414: END IF;
1415: CLOSE c1;
1408: IF c1%NOTFOUND THEN
1409: l_return_value := FALSE;
1410: IF ( p_stack_err_msg = TRUE ) THEN
1411: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_INST_START_DATE');
1412: FND_MESSAGE.SET_TOKEN('ENTITY','VERSION LABEL');
1413: FND_MSG_PUB.Add;
1414: END IF;
1415: CLOSE c1;
1416: RETURN l_return_value;
1419: IF (( trunc(p_datetimestamp,'MI') < trunc(l_instance_start_date,'MI')) AND
1420: ( trunc(p_datetimestamp,'MI') > trunc(l_instance_end_date,'MI'))) THEN --Changed to trunc for bug 9750206
1421: l_return_value := FALSE;
1422: IF ( p_stack_err_msg = TRUE ) THEN
1423: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_TIMESTAMP');
1424: FND_MSG_PUB.Add;
1425: END IF;
1426: END IF;
1427: RETURN l_return_value;
1465: FROM csi_i_version_labels
1466: WHERE version_label_id = p_version_label_id
1467: and ((active_end_date is null) OR (active_end_date >= sysdate));
1468: IF ( p_stack_err_msg = TRUE ) THEN
1469: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VER_LABEL_ID');
1470: FND_MESSAGE.SET_TOKEN('VERSION_LABEL_ID',p_version_label_id);
1471: FND_MSG_PUB.Add;
1472: END IF;
1473: RETURN l_return_value;
1466: WHERE version_label_id = p_version_label_id
1467: and ((active_end_date is null) OR (active_end_date >= sysdate));
1468: IF ( p_stack_err_msg = TRUE ) THEN
1469: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VER_LABEL_ID');
1470: FND_MESSAGE.SET_TOKEN('VERSION_LABEL_ID',p_version_label_id);
1471: FND_MSG_PUB.Add;
1472: END IF;
1473: RETURN l_return_value;
1474: EXCEPTION
1536: FROM csi_i_assets
1537: WHERE instance_asset_id = p_instance_asset_id ;
1538:
1539: IF ( p_stack_err_msg = TRUE ) THEN
1540: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_INST_ASSET_ID');
1541: FND_MESSAGE.SET_TOKEN('INSTANCE_ASSET_ID',p_instance_asset_id);
1542: FND_MSG_PUB.Add;
1543: END IF;
1544: RETURN l_return_value;
1537: WHERE instance_asset_id = p_instance_asset_id ;
1538:
1539: IF ( p_stack_err_msg = TRUE ) THEN
1540: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_INST_ASSET_ID');
1541: FND_MESSAGE.SET_TOKEN('INSTANCE_ASSET_ID',p_instance_asset_id);
1542: FND_MSG_PUB.Add;
1543: END IF;
1544: RETURN l_return_value;
1545: EXCEPTION
1575: FETCH c1 INTO l_dummy;
1576: IF c1%NOTFOUND THEN
1577: l_return_value := FALSE;
1578: IF ( p_stack_err_msg = TRUE ) THEN
1579: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_UPDATE_STATUS');
1580: FND_MESSAGE.SET_TOKEN('UPDATE_STATUS',p_update_status);
1581: FND_MSG_PUB.Add;
1582: END IF;
1583: END IF;
1576: IF c1%NOTFOUND THEN
1577: l_return_value := FALSE;
1578: IF ( p_stack_err_msg = TRUE ) THEN
1579: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_UPDATE_STATUS');
1580: FND_MESSAGE.SET_TOKEN('UPDATE_STATUS',p_update_status);
1581: FND_MSG_PUB.Add;
1582: END IF;
1583: END IF;
1584: CLOSE c1;
1600: l_return_status BOOLEAN := TRUE;
1601: BEGIN
1602: IF (NVL(p_asset_quantity,-1) <= 0 ) THEN
1603: l_return_status := FALSE;
1604: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ASSET_QTY');
1605: FND_MESSAGE.SET_TOKEN('QUANTITY',p_asset_quantity);
1606: FND_MSG_PUB.Add;
1607: END IF;
1608:
1601: BEGIN
1602: IF (NVL(p_asset_quantity,-1) <= 0 ) THEN
1603: l_return_status := FALSE;
1604: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ASSET_QTY');
1605: FND_MESSAGE.SET_TOKEN('QUANTITY',p_asset_quantity);
1606: FND_MSG_PUB.Add;
1607: END IF;
1608:
1609: RETURN l_return_status;
1653: EXCEPTION
1654: WHEN NO_DATA_FOUND THEN
1655: l_return_value := FALSE;
1656: IF ( p_stack_err_msg = TRUE ) THEN
1657: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ASSET_COMB');
1658: FND_MESSAGE.SET_TOKEN('ASSET_COMBINATION',p_asset_id||'-'||p_book_type_code);
1659: FND_MSG_PUB.Add;
1660: END IF;
1661: RETURN l_return_value;
1654: WHEN NO_DATA_FOUND THEN
1655: l_return_value := FALSE;
1656: IF ( p_stack_err_msg = TRUE ) THEN
1657: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ASSET_COMB');
1658: FND_MESSAGE.SET_TOKEN('ASSET_COMBINATION',p_asset_id||'-'||p_book_type_code);
1659: FND_MSG_PUB.Add;
1660: END IF;
1661: RETURN l_return_value;
1662: END Is_Asset_Comb_Valid;
1685: EXCEPTION
1686: WHEN NO_DATA_FOUND THEN
1687: l_return_value := FALSE;
1688: IF ( p_stack_err_msg = TRUE ) THEN
1689: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ASSET_LOCATION');
1690: FND_MESSAGE.SET_TOKEN('ASSET_LOCATION_ID',p_location_id);
1691: FND_MSG_PUB.Add;
1692: END IF;
1693: RETURN l_return_value;
1686: WHEN NO_DATA_FOUND THEN
1687: l_return_value := FALSE;
1688: IF ( p_stack_err_msg = TRUE ) THEN
1689: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ASSET_LOCATION');
1690: FND_MESSAGE.SET_TOKEN('ASSET_LOCATION_ID',p_location_id);
1691: FND_MSG_PUB.Add;
1692: END IF;
1693: RETURN l_return_value;
1694: END Is_Asset_Location_Valid;
1766: EXCEPTION
1767: WHEN NO_DATA_FOUND THEN
1768: l_return_value := FALSE;
1769: IF ( p_stack_err_msg = TRUE ) THEN
1770: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_BILL_TO_ADD_ID');
1771: FND_MESSAGE.SET_TOKEN('BILL_TO_ADD_ID',p_bill_to_add_id );
1772: FND_MSG_PUB.Add;
1773: END IF;
1774: RETURN l_return_value;
1767: WHEN NO_DATA_FOUND THEN
1768: l_return_value := FALSE;
1769: IF ( p_stack_err_msg = TRUE ) THEN
1770: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_BILL_TO_ADD_ID');
1771: FND_MESSAGE.SET_TOKEN('BILL_TO_ADD_ID',p_bill_to_add_id );
1772: FND_MSG_PUB.Add;
1773: END IF;
1774: RETURN l_return_value;
1775:
1798: EXCEPTION
1799: WHEN NO_DATA_FOUND THEN
1800: l_return_value := FALSE;
1801: IF ( p_stack_err_msg = TRUE ) THEN
1802: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_SHIP_TO_ADD_ID');
1803: FND_MESSAGE.SET_TOKEN('SHIP_TO_ADD_ID',p_ship_to_add_id );
1804: FND_MSG_PUB.Add;
1805: END IF;
1806: RETURN l_return_value;
1799: WHEN NO_DATA_FOUND THEN
1800: l_return_value := FALSE;
1801: IF ( p_stack_err_msg = TRUE ) THEN
1802: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_SHIP_TO_ADD_ID');
1803: FND_MESSAGE.SET_TOKEN('SHIP_TO_ADD_ID',p_ship_to_add_id );
1804: FND_MSG_PUB.Add;
1805: END IF;
1806: RETURN l_return_value;
1807:
1833: WHERE instance_party_id = p_instance_party_id
1834: and relationship_type_code = p_relationship_type
1835: and ((active_end_date is null) OR (active_end_date > sysdate));
1836: IF ( p_stack_err_msg = TRUE ) THEN
1837: FND_MESSAGE.SET_NAME('CSI','CSI_API_DUP_ACCT_TYPE');
1838: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_relationship_type);
1839: FND_MSG_PUB.Add;
1840: END IF;
1841:
1834: and relationship_type_code = p_relationship_type
1835: and ((active_end_date is null) OR (active_end_date > sysdate));
1836: IF ( p_stack_err_msg = TRUE ) THEN
1837: FND_MESSAGE.SET_NAME('CSI','CSI_API_DUP_ACCT_TYPE');
1838: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_relationship_type);
1839: FND_MSG_PUB.Add;
1840: END IF;
1841:
1842: -- Vaidate if owner accounts are created, the party is also an owner
1845:
1846: IF ((p_relationship_type = 'OWNER')
1847: AND (l_party_relation <> 'OWNER')) THEN
1848: IF ( p_stack_err_msg = TRUE ) THEN
1849: FND_MESSAGE.SET_NAME('CSI','CSI_OWNER_ACCT_REQ_OWNER_PTY');
1850: FND_MSG_PUB.Add;
1851: END IF;
1852: END IF;
1853: RETURN l_return_value;
1879: AND contact_flag = 'Y';
1880:
1881: l_return_value := FALSE;
1882: IF ( p_stack_err_msg = TRUE ) THEN
1883: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_CONTACT_EXISTS');
1884: FND_MSG_PUB.Add;
1885: END IF;
1886: RETURN l_return_value;
1887: EXCEPTION
1890: RETURN l_return_value;
1891: WHEN TOO_MANY_ROWS THEN
1892: l_return_value := FALSE;
1893: IF ( p_stack_err_msg = TRUE ) THEN
1894: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_CONTACT_EXISTS');
1895: FND_MSG_PUB.Add;
1896: END IF;
1897: RETURN l_return_value;
1898: END Is_Party_Contact_Exists;
1917: RETURN l_rel_type_code;
1918: EXCEPTION
1919: WHEN NO_DATA_FOUND THEN
1920: IF ( p_stack_err_msg = TRUE ) THEN
1921: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
1922: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
1923: FND_MSG_PUB.Add;
1924: END IF;
1925: RETURN NULL;
1918: EXCEPTION
1919: WHEN NO_DATA_FOUND THEN
1920: IF ( p_stack_err_msg = TRUE ) THEN
1921: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
1922: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
1923: FND_MSG_PUB.Add;
1924: END IF;
1925: RETURN NULL;
1926: END Get_Party_relation;
2001: RETURN TRUE;
2002: EXCEPTION
2003: WHEN NO_DATA_FOUND THEN
2004: IF ( p_stack_err_msg = TRUE ) THEN
2005: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
2006: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
2007: FND_MSG_PUB.Add;
2008: END IF;
2009: RETURN FALSE;
2002: EXCEPTION
2003: WHEN NO_DATA_FOUND THEN
2004: IF ( p_stack_err_msg = TRUE ) THEN
2005: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_PARTY_ID');
2006: FND_MESSAGE.SET_TOKEN('INSTANCE_PARTY_ID',p_instance_party_id);
2007: FND_MSG_PUB.Add;
2008: END IF;
2009: RETURN FALSE;
2010: END Get_Party_Record;
2411: OPEN C1;
2412: FETCH C1 INTO l_dummy;
2413: IF C1%FOUND THEN
2414: IF ( p_stack_err_msg = TRUE ) THEN
2415: FND_MESSAGE.SET_NAME('CSI','CSI_API_PREFERRED_PTY_EXISTS');
2416: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2417: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2418: FND_MSG_PUB.Add;
2419: END IF;
2412: FETCH C1 INTO l_dummy;
2413: IF C1%FOUND THEN
2414: IF ( p_stack_err_msg = TRUE ) THEN
2415: FND_MESSAGE.SET_NAME('CSI','CSI_API_PREFERRED_PTY_EXISTS');
2416: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2417: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2418: FND_MSG_PUB.Add;
2419: END IF;
2420: ELSE
2413: IF C1%FOUND THEN
2414: IF ( p_stack_err_msg = TRUE ) THEN
2415: FND_MESSAGE.SET_NAME('CSI','CSI_API_PREFERRED_PTY_EXISTS');
2416: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2417: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2418: FND_MSG_PUB.Add;
2419: END IF;
2420: ELSE
2421: l_return_value := FALSE;
2463: OPEN C1;
2464: FETCH C1 INTO l_dummy;
2465: IF C1%FOUND THEN
2466: IF ( p_stack_err_msg = TRUE ) THEN
2467: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
2468: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2469: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2470: FND_MSG_PUB.Add;
2471: END IF;
2464: FETCH C1 INTO l_dummy;
2465: IF C1%FOUND THEN
2466: IF ( p_stack_err_msg = TRUE ) THEN
2467: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
2468: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2469: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2470: FND_MSG_PUB.Add;
2471: END IF;
2472: ELSE
2465: IF C1%FOUND THEN
2466: IF ( p_stack_err_msg = TRUE ) THEN
2467: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
2468: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2469: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2470: FND_MSG_PUB.Add;
2471: END IF;
2472: ELSE
2473: l_return_value := FALSE;
2511: OPEN C1;
2512: FETCH C1 INTO l_dummy;
2513: IF C1%FOUND THEN
2514: IF ( p_stack_err_msg = TRUE ) THEN
2515: FND_MESSAGE.SET_NAME('CSI','CSI_API_PREFERRED_PTY_EXISTS');
2516: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2517: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2518: FND_MSG_PUB.Add;
2519: END IF;
2512: FETCH C1 INTO l_dummy;
2513: IF C1%FOUND THEN
2514: IF ( p_stack_err_msg = TRUE ) THEN
2515: FND_MESSAGE.SET_NAME('CSI','CSI_API_PREFERRED_PTY_EXISTS');
2516: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2517: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2518: FND_MSG_PUB.Add;
2519: END IF;
2520: ELSE
2513: IF C1%FOUND THEN
2514: IF ( p_stack_err_msg = TRUE ) THEN
2515: FND_MESSAGE.SET_NAME('CSI','CSI_API_PREFERRED_PTY_EXISTS');
2516: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2517: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2518: FND_MSG_PUB.Add;
2519: END IF;
2520: ELSE
2521: l_return_value := FALSE;
2561: OPEN C1;
2562: FETCH C1 INTO l_dummy;
2563: IF C1%FOUND THEN
2564: IF ( p_stack_err_msg = TRUE ) THEN
2565: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
2566: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2567: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2568: FND_MSG_PUB.Add;
2569: END IF;
2562: FETCH C1 INTO l_dummy;
2563: IF C1%FOUND THEN
2564: IF ( p_stack_err_msg = TRUE ) THEN
2565: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
2566: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2567: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2568: FND_MSG_PUB.Add;
2569: END IF;
2570: ELSE
2563: IF C1%FOUND THEN
2564: IF ( p_stack_err_msg = TRUE ) THEN
2565: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
2566: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
2567: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',p_relationship_type);
2568: FND_MSG_PUB.Add;
2569: END IF;
2570: ELSE
2571: l_return_value := FALSE;