66: WHERE organization_id = p_instance_rec.vld_organization_id;
67: EXCEPTION
68: WHEN no_data_found THEN
69: l_return_value := FALSE;
70: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
71: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
72: fnd_msg_pub.add;
73: RETURN l_return_value;
74: END;
67: EXCEPTION
68: WHEN no_data_found THEN
69: l_return_value := FALSE;
70: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
71: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
72: fnd_msg_pub.add;
73: RETURN l_return_value;
74: END;
75: --
90: END LOOP;
91: --
92: IF l_temp IS NOT NULL THEN
93: l_return_value := FALSE;
94: fnd_message.set_name('CSI','CSI_LOT_CASE2');
95: fnd_message.set_token('LOT_NUMBER',p_instance_rec.lot_number);
96: fnd_msg_pub.add;
97: RETURN l_return_value;
98: END IF;
91: --
92: IF l_temp IS NOT NULL THEN
93: l_return_value := FALSE;
94: fnd_message.set_name('CSI','CSI_LOT_CASE2');
95: fnd_message.set_token('LOT_NUMBER',p_instance_rec.lot_number);
96: fnd_msg_pub.add;
97: RETURN l_return_value;
98: END IF;
99: END IF;
123: WHERE organization_id = p_instance_rec.vld_organization_id;
124: EXCEPTION
125: WHEN no_data_found THEN
126: l_return_value := FALSE;
127: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
128: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
129: fnd_msg_pub.add;
130: RETURN l_return_value;
131: END;
124: EXCEPTION
125: WHEN no_data_found THEN
126: l_return_value := FALSE;
127: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
128: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
129: fnd_msg_pub.add;
130: RETURN l_return_value;
131: END;
132: --
142: and organization_id = p_instance_rec.vld_organization_id;
143: Exception
144: when no_data_found then
145: l_return_value := FALSE;
146: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
147: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
148: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
149: FND_MSG_PUB.Add;
150: RETURN l_return_value;
143: Exception
144: when no_data_found then
145: l_return_value := FALSE;
146: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
147: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
148: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
149: FND_MSG_PUB.Add;
150: RETURN l_return_value;
151: End;
144: when no_data_found then
145: l_return_value := FALSE;
146: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
147: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
148: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
149: FND_MSG_PUB.Add;
150: RETURN l_return_value;
151: End;
152: --
188: END LOOP;
189: --
190: IF nvl(l_temp,'0') = '1' THEN
191: l_return_value := FALSE;
192: fnd_message.set_name('CSI','CSI_SER_CASE1');
193: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
194: fnd_msg_pub.add;
195: RETURN l_return_value;
196: ELSIF nvl(l_temp,'0') = '4' THEN
189: --
190: IF nvl(l_temp,'0') = '1' THEN
191: l_return_value := FALSE;
192: fnd_message.set_name('CSI','CSI_SER_CASE1');
193: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
194: fnd_msg_pub.add;
195: RETURN l_return_value;
196: ELSIF nvl(l_temp,'0') = '4' THEN
197: l_return_value := FALSE;
194: fnd_msg_pub.add;
195: RETURN l_return_value;
196: ELSIF nvl(l_temp,'0') = '4' THEN
197: l_return_value := FALSE;
198: fnd_message.set_name('CSI','CSI_SER_CASE4');
199: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
200: fnd_msg_pub.add;
201: RETURN l_return_value;
202: END IF;
195: RETURN l_return_value;
196: ELSIF nvl(l_temp,'0') = '4' THEN
197: l_return_value := FALSE;
198: fnd_message.set_name('CSI','CSI_SER_CASE4');
199: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
200: fnd_msg_pub.add;
201: RETURN l_return_value;
202: END IF;
203: END IF; -- Serial Type 1
215: END IF;
216: END LOOP;
217: IF l_temp IS NOT NULL THEN
218: l_return_value := FALSE;
219: fnd_message.set_name('CSI','CSI_SER_CASE1');
220: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
221: fnd_msg_pub.add;
222: RETURN l_return_value;
223: END IF;
216: END LOOP;
217: IF l_temp IS NOT NULL THEN
218: l_return_value := FALSE;
219: fnd_message.set_name('CSI','CSI_SER_CASE1');
220: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
221: fnd_msg_pub.add;
222: RETURN l_return_value;
223: END IF;
224: END IF; -- serial_type 4
236: END IF;
237: END LOOP;
238: IF l_temp IS NOT NULL THEN
239: l_return_value := FALSE;
240: fnd_message.set_name('CSI','CSI_SER_CASE2');
241: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
242: fnd_msg_pub.add;
243: RETURN l_return_value;
244: END IF;
237: END LOOP;
238: IF l_temp IS NOT NULL THEN
239: l_return_value := FALSE;
240: fnd_message.set_name('CSI','CSI_SER_CASE2');
241: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
242: fnd_msg_pub.add;
243: RETURN l_return_value;
244: END IF;
245: --
255: AND p.serial_number_type = 3
256: AND ROWNUM = 1;
257: IF l_temp IS NOT NULL THEN
258: l_return_value := FALSE;
259: fnd_message.set_name('CSI','CSI_SER_CASE21');
260: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
261: fnd_msg_pub.add;
262: RETURN l_return_value;
263: END IF;
256: AND ROWNUM = 1;
257: IF l_temp IS NOT NULL THEN
258: l_return_value := FALSE;
259: fnd_message.set_name('CSI','CSI_SER_CASE21');
260: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
261: fnd_msg_pub.add;
262: RETURN l_return_value;
263: END IF;
264: EXCEPTION
279: END IF;
280: END LOOP;
281: IF l_temp IS NOT NULL THEN
282: l_return_value := FALSE;
283: fnd_message.set_name('CSI','CSI_SER_CASE3');
284: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
285: fnd_msg_pub.add;
286: RETURN l_return_value;
287: END IF;
280: END LOOP;
281: IF l_temp IS NOT NULL THEN
282: l_return_value := FALSE;
283: fnd_message.set_name('CSI','CSI_SER_CASE3');
284: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
285: fnd_msg_pub.add;
286: RETURN l_return_value;
287: END IF;
288: END IF; -- serial_type 3
310: IF l_party_rec.active_end_date IS NOT NULL AND
311: l_party_rec.active_end_date <> FND_API.G_MISS_DATE THEN
312: IF TRUNC(l_party_rec.active_start_date,'MI') > TRUNC(l_party_rec.active_end_date,'MI') THEN --Changed to trunc for bug 9756224
313: l_return_status := FALSE;
314: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
315: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',l_party_rec.active_start_date);
316: FND_MSG_PUB.ADD;
317: RETURN l_return_status;
318: END IF;
311: l_party_rec.active_end_date <> FND_API.G_MISS_DATE THEN
312: IF TRUNC(l_party_rec.active_start_date,'MI') > TRUNC(l_party_rec.active_end_date,'MI') THEN --Changed to trunc for bug 9756224
313: l_return_status := FALSE;
314: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
315: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',l_party_rec.active_start_date);
316: FND_MSG_PUB.ADD;
317: RETURN l_return_status;
318: END IF;
319: --
319: --
320: IF ( (TRUNC(l_party_rec.active_end_date,'MI') < TRUNC(SYSDATE,'MI')) OR
321: (p_end_date IS NOT NULL AND TRUNC(l_party_rec.active_end_date,'MI') > TRUNC(p_end_date,'MI'))) THEN --Changed to trunc for bug 9756224
322: l_return_status := FALSE;
323: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
324: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',l_party_rec.active_end_date);
325: FND_MSG_PUB.ADD;
326: RETURN l_return_status;
327: END IF;
320: IF ( (TRUNC(l_party_rec.active_end_date,'MI') < TRUNC(SYSDATE,'MI')) OR
321: (p_end_date IS NOT NULL AND TRUNC(l_party_rec.active_end_date,'MI') > TRUNC(p_end_date,'MI'))) THEN --Changed to trunc for bug 9756224
322: l_return_status := FALSE;
323: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
324: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',l_party_rec.active_end_date);
325: FND_MSG_PUB.ADD;
326: RETURN l_return_status;
327: END IF;
328: END IF;
329: --
330: IF ( (TRUNC(l_party_rec.active_start_date,'MI') < TRUNC( p_start_date,'MI')) OR
331: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND TRUNC(l_party_rec.active_start_date,'MI') > TRUNC(p_end_date,'MI')) ) THEN --Changed to trunc for bug 9756224
332: l_return_status := FALSE;
333: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
334: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',l_party_rec.active_start_date);
335: FND_MSG_PUB.ADD;
336: RETURN l_return_status;
337: END IF;
330: IF ( (TRUNC(l_party_rec.active_start_date,'MI') < TRUNC( p_start_date,'MI')) OR
331: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND TRUNC(l_party_rec.active_start_date,'MI') > TRUNC(p_end_date,'MI')) ) THEN --Changed to trunc for bug 9756224
332: l_return_status := FALSE;
333: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
334: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',l_party_rec.active_start_date);
335: FND_MSG_PUB.ADD;
336: RETURN l_return_status;
337: END IF;
338: IF l_party_tbl.count < 2 THEN
353: IF l_party_rec.PREFERRED_FLAG = 'Y' THEN
354: IF l_party_rec.CONTACT_FLAG <> 'Y' THEN
355: IF l_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM') THEN
356: l_return_status := FALSE;
357: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
358: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
359: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
360: FND_MSG_PUB.ADD;
361: RETURN l_return_status;
354: IF l_party_rec.CONTACT_FLAG <> 'Y' THEN
355: IF l_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM') THEN
356: l_return_status := FALSE;
357: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
358: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
359: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
360: FND_MSG_PUB.ADD;
361: RETURN l_return_status;
362: END IF;
355: IF l_party_rec.PARTY_SOURCE_TABLE NOT IN ('GROUP','TEAM') THEN
356: l_return_status := FALSE;
357: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
358: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
359: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
360: FND_MSG_PUB.ADD;
361: RETURN l_return_status;
362: END IF;
363: END IF;
385: IF l_party_rec.primary_flag = 'Y' THEN
386: IF l_party_rec.contact_flag <> 'Y' THEN
387: IF l_party_rec.party_source_table NOT IN ('GROUP','TEAM') THEN
388: l_return_status := FALSE;
389: FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
391: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
392: FND_MSG_PUB.ADD;
393: exit;
386: IF l_party_rec.contact_flag <> 'Y' THEN
387: IF l_party_rec.party_source_table NOT IN ('GROUP','TEAM') THEN
388: l_return_status := FALSE;
389: FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
391: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
392: FND_MSG_PUB.ADD;
393: exit;
394: ELSE
387: IF l_party_rec.party_source_table NOT IN ('GROUP','TEAM') THEN
388: l_return_status := FALSE;
389: FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
390: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
391: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
392: FND_MSG_PUB.ADD;
393: exit;
394: ELSE
395: -- Check for Primary Party
412: END LOOP;
413: --
414: IF l_count > 1 THEN
415: l_return_status := FALSE;
416: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANY_PTY_REL_COM_EXIST');
417: FND_MESSAGE.SET_TOKEN('PARTY_REL_COMB',to_char(l_party_rec.INSTANCE_ID)||','||l_party_rec.PARTY_SOURCE_TABLE||','||to_char(l_party_rec.party_id)||','||l_party_rec.relationship_type_code);
418: FND_MSG_PUB.ADD;
419: RETURN l_return_status;
420: END IF;
413: --
414: IF l_count > 1 THEN
415: l_return_status := FALSE;
416: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANY_PTY_REL_COM_EXIST');
417: FND_MESSAGE.SET_TOKEN('PARTY_REL_COMB',to_char(l_party_rec.INSTANCE_ID)||','||l_party_rec.PARTY_SOURCE_TABLE||','||to_char(l_party_rec.party_id)||','||l_party_rec.relationship_type_code);
418: FND_MSG_PUB.ADD;
419: RETURN l_return_status;
420: END IF;
421: --
421: --
422: IF l_primary_pty_count > 1 OR
423: l_primary_con_count > 1 THEN
424: l_return_status := FALSE;
425: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
426: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
427: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',l_party_rec.relationship_type_code);
428: FND_MSG_PUB.ADD;
429: RETURN l_return_status;
422: IF l_primary_pty_count > 1 OR
423: l_primary_con_count > 1 THEN
424: l_return_status := FALSE;
425: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
426: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
427: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',l_party_rec.relationship_type_code);
428: FND_MSG_PUB.ADD;
429: RETURN l_return_status;
430: END IF;
423: l_primary_con_count > 1 THEN
424: l_return_status := FALSE;
425: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
426: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
427: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',l_party_rec.relationship_type_code);
428: FND_MSG_PUB.ADD;
429: RETURN l_return_status;
430: END IF;
431: --
456: IF p_account_rec.active_end_date IS NOT NULL AND
457: p_account_rec.active_end_date <> FND_API.G_MISS_DATE THEN
458: IF TRUNC(p_account_rec.active_start_date,'MI') > TRUNC(p_account_rec.active_end_date,'MI') THEN --Changed to trunc for bug 9756224
459: l_return_status := FALSE;
460: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
461: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_account_rec.active_start_date);
462: FND_MSG_PUB.ADD;
463: RETURN l_return_status;
464: END IF;
457: p_account_rec.active_end_date <> FND_API.G_MISS_DATE THEN
458: IF TRUNC(p_account_rec.active_start_date,'MI') > TRUNC(p_account_rec.active_end_date,'MI') THEN --Changed to trunc for bug 9756224
459: l_return_status := FALSE;
460: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
461: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_account_rec.active_start_date);
462: FND_MSG_PUB.ADD;
463: RETURN l_return_status;
464: END IF;
465: --
465: --
466: IF ( (TRUNC(p_account_rec.active_end_date,'MI') < TRUNC(SYSDATE,'MI')) OR
467: (p_end_date IS NOT NULL AND TRUNC(p_account_rec.active_end_date,'MI') > TRUNC(p_end_date,'MI')) ) THEN --Changed to trunc for bug 9756224
468: l_return_status := FALSE;
469: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
470: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_account_rec.active_end_date);
471: FND_MSG_PUB.ADD;
472: RETURN l_return_status;
473: END IF;
466: IF ( (TRUNC(p_account_rec.active_end_date,'MI') < TRUNC(SYSDATE,'MI')) OR
467: (p_end_date IS NOT NULL AND TRUNC(p_account_rec.active_end_date,'MI') > TRUNC(p_end_date,'MI')) ) THEN --Changed to trunc for bug 9756224
468: l_return_status := FALSE;
469: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
470: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_account_rec.active_end_date);
471: FND_MSG_PUB.ADD;
472: RETURN l_return_status;
473: END IF;
474: END IF;
475: --
476: IF ( (TRUNC(p_account_rec.active_start_date,'MI') < TRUNC(p_start_date,'MI')) OR
477: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND TRUNC(p_account_rec.active_start_date,'MI') > TRUNC(p_end_date,'MI')) ) THEN --Changed to trunc for bug 9756224
478: l_return_status := FALSE;
479: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
480: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_account_rec.active_start_date);
481: FND_MSG_PUB.ADD;
482: RETURN l_return_status;
483: END IF;
476: IF ( (TRUNC(p_account_rec.active_start_date,'MI') < TRUNC(p_start_date,'MI')) OR
477: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND TRUNC(p_account_rec.active_start_date,'MI') > TRUNC(p_end_date,'MI')) ) THEN --Changed to trunc for bug 9756224
478: l_return_status := FALSE;
479: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
480: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_account_rec.active_start_date);
481: FND_MSG_PUB.ADD;
482: RETURN l_return_status;
483: END IF;
484: --
494: and hzc.party_id = hzp.party_id;
495: Exception
496: when others then
497: l_return_status := FALSE;
498: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_ACCT_HZ_PTY');
499: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
500: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_id);
501: RETURN l_return_status;
502: End;
495: Exception
496: when others then
497: l_return_status := FALSE;
498: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_ACCT_HZ_PTY');
499: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
500: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_id);
501: RETURN l_return_status;
502: End;
503: ELSE
496: when others then
497: l_return_status := FALSE;
498: FND_MESSAGE.SET_NAME('CSI','CSI_API_PTY_ACCT_HZ_PTY');
499: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
500: FND_MESSAGE.SET_TOKEN('PARTY_ID',p_party_id);
501: RETURN l_return_status;
502: End;
503: ELSE
504: Begin
508: where hzc.cust_account_id = p_account_rec.party_account_id;
509: Exception
510: when others then
511: l_return_status := FALSE;
512: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
513: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
514: RETURN l_return_status;
515: End;
516: END IF; ***/
509: Exception
510: when others then
511: l_return_status := FALSE;
512: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
513: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
514: RETURN l_return_status;
515: End;
516: END IF; ***/
517: --
529: END LOOP;
530: --
531: IF l_valid_flag <> 'Y' THEN
532: l_return_status := FALSE;
533: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
534: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
535: FND_MSG_PUB.ADD;
536: RETURN l_return_status;
537: END IF;
530: --
531: IF l_valid_flag <> 'Y' THEN
532: l_return_status := FALSE;
533: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
534: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
535: FND_MSG_PUB.ADD;
536: RETURN l_return_status;
537: END IF;
538: END IF;
549: Exception
550: when others then
551: p_acct_id_tbl(l_ctr).valid_flag := 'N';
552: l_return_status := FALSE;
553: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
554: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
555: FND_MSG_PUB.ADD;
556: RETURN l_return_status;
557: End;
550: when others then
551: p_acct_id_tbl(l_ctr).valid_flag := 'N';
552: l_return_status := FALSE;
553: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
554: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
555: FND_MSG_PUB.ADD;
556: RETURN l_return_status;
557: End;
558: END IF;
575: END LOOP;
576: --
577: IF l_count > 1 THEN
578: l_return_status := FALSE;
579: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ACCT_COM');
580: FND_MESSAGE.SET_TOKEN('ACCT_COMBINATION',to_char(p_account_rec.instance_party_id) ||', '
581: ||to_char(p_account_rec.party_account_id) ||','||p_account_rec.relationship_type_code);
582: FND_MSG_PUB.ADD;
583: RETURN l_return_status;
576: --
577: IF l_count > 1 THEN
578: l_return_status := FALSE;
579: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ACCT_COM');
580: FND_MESSAGE.SET_TOKEN('ACCT_COMBINATION',to_char(p_account_rec.instance_party_id) ||', '
581: ||to_char(p_account_rec.party_account_id) ||','||p_account_rec.relationship_type_code);
582: FND_MSG_PUB.ADD;
583: RETURN l_return_status;
584: END IF;
584: END IF;
585: --
586: IF l_rel_count > 1 THEN
587: l_return_status := FALSE;
588: FND_MESSAGE.SET_NAME('CSI','CSI_API_DUP_ACCT_TYPE');
589: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_account_rec.relationship_type_code);
590: FND_MSG_PUB.ADD;
591: RETURN l_return_status;
592: END IF;
585: --
586: IF l_rel_count > 1 THEN
587: l_return_status := FALSE;
588: FND_MESSAGE.SET_NAME('CSI','CSI_API_DUP_ACCT_TYPE');
589: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_account_rec.relationship_type_code);
590: FND_MSG_PUB.ADD;
591: RETURN l_return_status;
592: END IF;
593: --
609: IF p_org_units_rec.active_end_date IS NOT NULL AND
610: p_org_units_rec.active_end_date <> FND_API.G_MISS_DATE THEN
611: IF p_org_units_rec.active_start_date > p_org_units_rec.active_end_date THEN
612: l_return_status := FALSE;
613: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_START_DATE');
614: FND_MESSAGE.SET_TOKEN('START_DATE',p_org_units_rec.active_start_date);
615: FND_MSG_PUB.ADD;
616: RETURN l_return_status;
617: END IF;
610: p_org_units_rec.active_end_date <> FND_API.G_MISS_DATE THEN
611: IF p_org_units_rec.active_start_date > p_org_units_rec.active_end_date THEN
612: l_return_status := FALSE;
613: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_START_DATE');
614: FND_MESSAGE.SET_TOKEN('START_DATE',p_org_units_rec.active_start_date);
615: FND_MSG_PUB.ADD;
616: RETURN l_return_status;
617: END IF;
618: --
618: --
619: IF ( (p_org_units_rec.active_end_date < SYSDATE) OR
620: (p_end_date IS NOT NULL AND p_org_units_rec.active_end_date > p_end_date) ) THEN
621: l_return_status := FALSE;
622: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_END_DATE');
623: FND_MESSAGE.SET_TOKEN('END_DATE',p_org_units_rec.active_end_date);
624: FND_MSG_PUB.ADD;
625: RETURN l_return_status;
626: END IF;
619: IF ( (p_org_units_rec.active_end_date < SYSDATE) OR
620: (p_end_date IS NOT NULL AND p_org_units_rec.active_end_date > p_end_date) ) THEN
621: l_return_status := FALSE;
622: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_END_DATE');
623: FND_MESSAGE.SET_TOKEN('END_DATE',p_org_units_rec.active_end_date);
624: FND_MSG_PUB.ADD;
625: RETURN l_return_status;
626: END IF;
627: END IF;
628: --
629: IF ( (p_org_units_rec.active_start_date < p_start_date) OR
630: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_org_units_rec.active_start_date > p_end_date) ) THEN
631: l_return_status := FALSE;
632: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_START_DATE');
633: FND_MESSAGE.SET_TOKEN('START_DATE',p_org_units_rec.active_start_date);
634: FND_MSG_PUB.ADD;
635: RETURN l_return_status;
636: END IF;
629: IF ( (p_org_units_rec.active_start_date < p_start_date) OR
630: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_org_units_rec.active_start_date > p_end_date) ) THEN
631: l_return_status := FALSE;
632: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_START_DATE');
633: FND_MESSAGE.SET_TOKEN('START_DATE',p_org_units_rec.active_start_date);
634: FND_MSG_PUB.ADD;
635: RETURN l_return_status;
636: END IF;
637: --
647: END LOOP;
648: --
649: IF l_count > 1 THEN
650: l_return_status := FALSE;
651: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ALTERNATE_PK');
652: FND_MESSAGE.SET_TOKEN('ALTERNATE_PK',to_char(p_org_units_rec.instance_id)||' '||p_org_units_rec.relationship_type_code);
653: FND_MSG_PUB.ADD;
654: RETURN l_return_status;
655: END IF;
648: --
649: IF l_count > 1 THEN
650: l_return_status := FALSE;
651: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ALTERNATE_PK');
652: FND_MESSAGE.SET_TOKEN('ALTERNATE_PK',to_char(p_org_units_rec.instance_id)||' '||p_org_units_rec.relationship_type_code);
653: FND_MSG_PUB.ADD;
654: RETURN l_return_status;
655: END IF;
656: --
671: IF p_pricing_rec.active_end_date IS NOT NULL AND
672: p_pricing_rec.active_end_date <> FND_API.G_MISS_DATE THEN
673: IF p_pricing_rec.active_start_date > p_pricing_rec.active_end_date THEN
674: l_return_status := FALSE;
675: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_START_DATE');
676: FND_MESSAGE.SET_TOKEN('START_DATE',p_pricing_rec.active_start_date);
677: FND_MSG_PUB.ADD;
678: RETURN l_return_status;
679: END IF;
672: p_pricing_rec.active_end_date <> FND_API.G_MISS_DATE THEN
673: IF p_pricing_rec.active_start_date > p_pricing_rec.active_end_date THEN
674: l_return_status := FALSE;
675: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_START_DATE');
676: FND_MESSAGE.SET_TOKEN('START_DATE',p_pricing_rec.active_start_date);
677: FND_MSG_PUB.ADD;
678: RETURN l_return_status;
679: END IF;
680: --
680: --
681: IF ( (p_pricing_rec.active_end_date < SYSDATE) OR
682: (p_end_date IS NOT NULL AND p_pricing_rec.active_end_date > p_end_date) ) THEN
683: l_return_status := FALSE;
684: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_END_DATE');
685: FND_MESSAGE.SET_TOKEN('END_DATE',p_pricing_rec.active_end_date);
686: FND_MSG_PUB.ADD;
687: RETURN l_return_status;
688: END IF;
681: IF ( (p_pricing_rec.active_end_date < SYSDATE) OR
682: (p_end_date IS NOT NULL AND p_pricing_rec.active_end_date > p_end_date) ) THEN
683: l_return_status := FALSE;
684: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_END_DATE');
685: FND_MESSAGE.SET_TOKEN('END_DATE',p_pricing_rec.active_end_date);
686: FND_MSG_PUB.ADD;
687: RETURN l_return_status;
688: END IF;
689: END IF;
690: --
691: IF ( (p_pricing_rec.active_start_date < p_start_date) OR
692: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_pricing_rec.active_start_date > p_end_date) ) THEN
693: l_return_status := FALSE;
694: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_START_DATE');
695: FND_MESSAGE.SET_TOKEN('START_DATE',p_pricing_rec.active_start_date);
696: FND_MSG_PUB.ADD;
697: RETURN l_return_status;
698: END IF;
691: IF ( (p_pricing_rec.active_start_date < p_start_date) OR
692: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_pricing_rec.active_start_date > p_end_date) ) THEN
693: l_return_status := FALSE;
694: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_START_DATE');
695: FND_MESSAGE.SET_TOKEN('START_DATE',p_pricing_rec.active_start_date);
696: FND_MSG_PUB.ADD;
697: RETURN l_return_status;
698: END IF;
699: --
716: IF p_ext_rec.active_end_date IS NOT NULL AND
717: p_ext_rec.active_end_date <> FND_API.G_MISS_DATE THEN
718: IF p_ext_rec.active_start_date > p_ext_rec.active_end_date THEN
719: l_return_status := FALSE;
720: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_START_DATE');
721: FND_MESSAGE.SET_TOKEN('START_DATE',p_ext_rec.active_start_date);
722: FND_MSG_PUB.ADD;
723: RETURN l_return_status;
724: END IF;
717: p_ext_rec.active_end_date <> FND_API.G_MISS_DATE THEN
718: IF p_ext_rec.active_start_date > p_ext_rec.active_end_date THEN
719: l_return_status := FALSE;
720: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_START_DATE');
721: FND_MESSAGE.SET_TOKEN('START_DATE',p_ext_rec.active_start_date);
722: FND_MSG_PUB.ADD;
723: RETURN l_return_status;
724: END IF;
725: --
725: --
726: IF ( (p_ext_rec.active_end_date < SYSDATE) OR
727: (p_end_date IS NOT NULL AND p_ext_rec.active_end_date > p_end_date) ) THEN
728: l_return_status := FALSE;
729: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_END_DATE');
730: FND_MESSAGE.SET_TOKEN('END_DATE',p_ext_rec.active_end_date);
731: FND_MSG_PUB.ADD;
732: RETURN l_return_status;
733: END IF;
726: IF ( (p_ext_rec.active_end_date < SYSDATE) OR
727: (p_end_date IS NOT NULL AND p_ext_rec.active_end_date > p_end_date) ) THEN
728: l_return_status := FALSE;
729: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_END_DATE');
730: FND_MESSAGE.SET_TOKEN('END_DATE',p_ext_rec.active_end_date);
731: FND_MSG_PUB.ADD;
732: RETURN l_return_status;
733: END IF;
734: END IF;
735: --
736: IF ( (p_ext_rec.active_start_date < p_start_date) OR
737: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_ext_rec.active_start_date > p_end_date) ) THEN
738: l_return_status := FALSE;
739: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_START_DATE');
740: FND_MESSAGE.SET_TOKEN('START_DATE',p_ext_rec.active_start_date);
741: FND_MSG_PUB.ADD;
742: RETURN l_return_status;
743: END IF;
736: IF ( (p_ext_rec.active_start_date < p_start_date) OR
737: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_ext_rec.active_start_date > p_end_date) ) THEN
738: l_return_status := FALSE;
739: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_START_DATE');
740: FND_MESSAGE.SET_TOKEN('START_DATE',p_ext_rec.active_start_date);
741: FND_MSG_PUB.ADD;
742: RETURN l_return_status;
743: END IF;
744: --
754: END LOOP;
755: --
756: IF l_count > 1 THEN
757: l_return_status := FALSE;
758: FND_MESSAGE.SET_NAME('CSI','CSI_EXT_INVALID_ALTERNATE_PK');
759: FND_MESSAGE.SET_TOKEN('ALTERNATE_PK',to_char(p_ext_rec.instance_id)||','||to_char(p_ext_rec.attribute_id));
760: FND_MSG_PUB.ADD;
761: RETURN l_return_status;
762: END IF;
755: --
756: IF l_count > 1 THEN
757: l_return_status := FALSE;
758: FND_MESSAGE.SET_NAME('CSI','CSI_EXT_INVALID_ALTERNATE_PK');
759: FND_MESSAGE.SET_TOKEN('ALTERNATE_PK',to_char(p_ext_rec.instance_id)||','||to_char(p_ext_rec.attribute_id));
760: FND_MSG_PUB.ADD;
761: RETURN l_return_status;
762: END IF;
763: --
778: IF p_asset_rec.active_end_date IS NOT NULL AND
779: p_asset_rec.active_end_date <> FND_API.G_MISS_DATE THEN
780: IF p_asset_rec.active_start_date > p_asset_rec.active_end_date THEN
781: l_return_status := FALSE;
782: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_START_DATE');
783: FND_MESSAGE.SET_TOKEN('START_DATE',p_asset_rec.active_start_date);
784: FND_MSG_PUB.ADD;
785: RETURN l_return_status;
786: END IF;
779: p_asset_rec.active_end_date <> FND_API.G_MISS_DATE THEN
780: IF p_asset_rec.active_start_date > p_asset_rec.active_end_date THEN
781: l_return_status := FALSE;
782: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_START_DATE');
783: FND_MESSAGE.SET_TOKEN('START_DATE',p_asset_rec.active_start_date);
784: FND_MSG_PUB.ADD;
785: RETURN l_return_status;
786: END IF;
787: --
787: --
788: IF ( (p_asset_rec.active_end_date < SYSDATE) OR
789: (p_end_date IS NOT NULL AND p_asset_rec.active_end_date > p_end_date) ) THEN
790: l_return_status := FALSE;
791: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_END_DATE');
792: FND_MESSAGE.SET_TOKEN('END_DATE',p_asset_rec.active_end_date);
793: FND_MSG_PUB.ADD;
794: RETURN l_return_status;
795: END IF;
788: IF ( (p_asset_rec.active_end_date < SYSDATE) OR
789: (p_end_date IS NOT NULL AND p_asset_rec.active_end_date > p_end_date) ) THEN
790: l_return_status := FALSE;
791: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_END_DATE');
792: FND_MESSAGE.SET_TOKEN('END_DATE',p_asset_rec.active_end_date);
793: FND_MSG_PUB.ADD;
794: RETURN l_return_status;
795: END IF;
796: END IF;
797: --
798: IF ( (p_asset_rec.active_start_date < p_start_date) OR
799: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_asset_rec.active_start_date > p_end_date) ) THEN
800: l_return_status := FALSE;
801: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_START_DATE');
802: FND_MESSAGE.SET_TOKEN('START_DATE',p_asset_rec.active_start_date);
803: FND_MSG_PUB.ADD;
804: RETURN l_return_status;
805: END IF;
798: IF ( (p_asset_rec.active_start_date < p_start_date) OR
799: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_asset_rec.active_start_date > p_end_date) ) THEN
800: l_return_status := FALSE;
801: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_START_DATE');
802: FND_MESSAGE.SET_TOKEN('START_DATE',p_asset_rec.active_start_date);
803: FND_MSG_PUB.ADD;
804: RETURN l_return_status;
805: END IF;
806: --
6069: --
6070: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
6071: --
6072: IF l_internal_party_id IS NULL THEN
6073: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
6074: FND_MSG_PUB.ADD;
6075: RAISE OTHER_ERROR;
6076: END IF;
6077: --
6082: WHERE name = l_instance_status;
6083: --
6084: EXCEPTION
6085: WHEN OTHERS THEN
6086: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_STATUS_ID');
6087: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',l_instance_status);
6088: FND_MSG_PUB.Add;
6089: -- RAISE FND_API.G_EXC_ERROR;
6090: RAISE OTHER_ERROR; -- Added for bug 3579121 (rel 11.5.9)
6083: --
6084: EXCEPTION
6085: WHEN OTHERS THEN
6086: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_STATUS_ID');
6087: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',l_instance_status);
6088: FND_MSG_PUB.Add;
6089: -- RAISE FND_API.G_EXC_ERROR;
6090: RAISE OTHER_ERROR; -- Added for bug 3579121 (rel 11.5.9)
6091: END;
6361: -- If version label is null, then we need read the the default value from the profile option
6362: IF ((p_instance_tbl(inst_tab_row).version_label IS NULL) OR
6363: (p_instance_tbl(inst_tab_row).version_label = FND_API.G_MISS_CHAR)) THEN
6364: IF l_version_label IS NULL THEN
6365: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VERSION_LABEL');
6366: FND_MSG_PUB.ADD;
6367: l_msg_index := 1;
6368: FND_MSG_PUB.Count_And_Get
6369: (p_count => x_msg_count,
8555: --
8556: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
8557: --
8558: IF l_internal_party_id IS NULL THEN
8559: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
8560: FND_MSG_PUB.ADD;
8561: RAISE FND_API.G_EXC_ERROR;
8562: END IF;
8563: --
10070: -- Initialize API return status to success
10071: x_return_status := FND_API.G_RET_STS_SUCCESS;
10072: --
10073: IF p_subject_id IS NULL OR p_subject_id = FND_API.G_MISS_NUM THEN
10074: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
10075: fnd_msg_pub.add;
10076: x_return_status := fnd_api.g_ret_sts_error;
10077: RAISE fnd_api.g_exc_error;
10078: END IF;
10697: -- Verify instance quantity
10698: IF ((p_source_instance_tbl(src_rec).QUANTITY IS NULL)
10699: OR (p_source_instance_tbl(src_rec).QUANTITY = FND_API.G_MISS_NUM )
10700: OR (p_source_instance_tbl(src_rec).QUANTITY <> 1)) THEN
10701: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
10702: FND_MESSAGE.SET_TOKEN('QUANTITY',p_source_instance_tbl(src_rec).QUANTITY);
10703: FND_MSG_PUB.Add;
10704: RAISE FND_API.G_EXC_ERROR;
10705: END IF;
10698: IF ((p_source_instance_tbl(src_rec).QUANTITY IS NULL)
10699: OR (p_source_instance_tbl(src_rec).QUANTITY = FND_API.G_MISS_NUM )
10700: OR (p_source_instance_tbl(src_rec).QUANTITY <> 1)) THEN
10701: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
10702: FND_MESSAGE.SET_TOKEN('QUANTITY',p_source_instance_tbl(src_rec).QUANTITY);
10703: FND_MSG_PUB.Add;
10704: RAISE FND_API.G_EXC_ERROR;
10705: END IF;
10706: --
10705: END IF;
10706: --
10707: IF (p_source_instance_tbl(src_rec).instance_id IS NULL) OR
10708: (p_source_instance_tbl(src_rec).instance_id = FND_API.G_MISS_NUM) THEN
10709: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_ID_NULL');
10710: FND_MSG_PUB.Add;
10711: RAISE FND_API.G_EXC_ERROR;
10712: END IF;
10713: --