[Home] [Help]
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: --
76: l_temp := NULL;
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;
100: --
124: WHEN no_data_found THEN
125: l_return_value := FALSE;
126: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
127: fnd_message.set_token('ORGANIZATION_ID',p_instance_rec.vld_organization_id);
128: fnd_msg_pub.add;
129: RETURN l_return_value;
130: END;
131: --
132: l_temp := NULL;
144: l_return_value := FALSE;
145: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM');
146: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_instance_rec.inventory_item_id);
147: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_instance_rec.vld_organization_id);
148: FND_MSG_PUB.Add;
149: RETURN l_return_value;
150: End;
151: --
152: FOR j IN p_instance_tbl.FIRST .. p_instance_tbl.LAST LOOP
187: IF nvl(l_temp,'0') = '1' THEN
188: l_return_value := FALSE;
189: fnd_message.set_name('CSI','CSI_SER_CASE1');
190: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
191: fnd_msg_pub.add;
192: RETURN l_return_value;
193: ELSIF nvl(l_temp,'0') = '4' THEN
194: l_return_value := FALSE;
195: fnd_message.set_name('CSI','CSI_SER_CASE4');
193: ELSIF nvl(l_temp,'0') = '4' THEN
194: l_return_value := FALSE;
195: fnd_message.set_name('CSI','CSI_SER_CASE4');
196: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
197: fnd_msg_pub.add;
198: RETURN l_return_value;
199: END IF;
200: END IF; -- Serial Type 1
201: --
214: IF l_temp IS NOT NULL THEN
215: l_return_value := FALSE;
216: fnd_message.set_name('CSI','CSI_SER_CASE1');
217: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
218: fnd_msg_pub.add;
219: RETURN l_return_value;
220: END IF;
221: END IF; -- serial_type 4
222: --
235: IF l_temp IS NOT NULL THEN
236: l_return_value := FALSE;
237: fnd_message.set_name('CSI','CSI_SER_CASE2');
238: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
239: fnd_msg_pub.add;
240: RETURN l_return_value;
241: END IF;
242: --
243: -- Also check if it has been already defined as
254: IF l_temp IS NOT NULL THEN
255: l_return_value := FALSE;
256: fnd_message.set_name('CSI','CSI_SER_CASE21');
257: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
258: fnd_msg_pub.add;
259: RETURN l_return_value;
260: END IF;
261: EXCEPTION
262: WHEN OTHERS THEN
278: IF l_temp IS NOT NULL THEN
279: l_return_value := FALSE;
280: fnd_message.set_name('CSI','CSI_SER_CASE3');
281: fnd_message.set_token('SERIAL_NUMBER',p_instance_rec.serial_number);
282: fnd_msg_pub.add;
283: RETURN l_return_value;
284: END IF;
285: END IF; -- serial_type 3
286: --
309: IF l_party_rec.active_start_date > l_party_rec.active_end_date THEN
310: l_return_status := FALSE;
311: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
312: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',l_party_rec.active_start_date);
313: FND_MSG_PUB.ADD;
314: RETURN l_return_status;
315: END IF;
316: --
317: IF ( (l_party_rec.active_end_date < SYSDATE) OR
318: (p_end_date IS NOT NULL AND l_party_rec.active_end_date > p_end_date) ) THEN
319: l_return_status := FALSE;
320: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_END_DATE');
321: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',l_party_rec.active_end_date);
322: FND_MSG_PUB.ADD;
323: RETURN l_return_status;
324: END IF;
325: END IF;
326: --
328: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND l_party_rec.active_start_date > p_end_date) ) THEN
329: l_return_status := FALSE;
330: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_START_DATE');
331: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',l_party_rec.active_start_date);
332: FND_MSG_PUB.ADD;
333: RETURN l_return_status;
334: END IF;
335: IF l_party_tbl.count < 2 THEN
336: l_return_status := TRUE;
353: l_return_status := FALSE;
354: FND_MESSAGE.SET_NAME('CSI','CSI_PREFERRED_PTY_TYPE');
355: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
356: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
357: FND_MSG_PUB.ADD;
358: RETURN l_return_status;
359: END IF;
360: END IF;
361: END IF;
385: l_return_status := FALSE;
386: FND_MESSAGE.SET_NAME('CSI','CSI_PRIMARY_PTY_TYPE');
387: FND_MESSAGE.SET_TOKEN('PARTY_TYPE',l_party_rec.PARTY_SOURCE_TABLE);
388: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
389: FND_MSG_PUB.ADD;
390: exit;
391: ELSE
392: -- Check for Primary Party
393: IF l_party_tbl(pty_row).primary_flag = 'Y' AND
411: IF l_count > 1 THEN
412: l_return_status := FALSE;
413: FND_MESSAGE.SET_NAME('CSI','CSI_API_MANY_PTY_REL_COM_EXIST');
414: 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);
415: FND_MSG_PUB.ADD;
416: RETURN l_return_status;
417: END IF;
418: --
419: IF l_primary_pty_count > 1 OR
421: l_return_status := FALSE;
422: FND_MESSAGE.SET_NAME('CSI','CSI_API_PRIMARY_PTY_EXISTS');
423: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',l_party_rec.INSTANCE_ID);
424: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE',l_party_rec.relationship_type_code);
425: FND_MSG_PUB.ADD;
426: RETURN l_return_status;
427: END IF;
428: --
429: RETURN l_return_status;
455: IF p_account_rec.active_start_date > p_account_rec.active_end_date THEN
456: l_return_status := FALSE;
457: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
458: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_account_rec.active_start_date);
459: FND_MSG_PUB.ADD;
460: RETURN l_return_status;
461: END IF;
462: --
463: IF ( (p_account_rec.active_end_date < SYSDATE) OR
464: (p_end_date IS NOT NULL AND p_account_rec.active_end_date > p_end_date) ) THEN
465: l_return_status := FALSE;
466: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_END_DATE');
467: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_account_rec.active_end_date);
468: FND_MSG_PUB.ADD;
469: RETURN l_return_status;
470: END IF;
471: END IF;
472: --
474: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE AND p_account_rec.active_start_date > p_end_date) ) THEN
475: l_return_status := FALSE;
476: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_ACCT_START_DATE');
477: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_account_rec.active_start_date);
478: FND_MSG_PUB.ADD;
479: RETURN l_return_status;
480: END IF;
481: --
482: /**** IF p_pty_src_table = 'HZ_PARTIES' AND
528: IF l_valid_flag <> 'Y' THEN
529: l_return_status := FALSE;
530: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
531: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
532: FND_MSG_PUB.ADD;
533: RETURN l_return_status;
534: END IF;
535: END IF;
536: --
548: p_acct_id_tbl(l_ctr).valid_flag := 'N';
549: l_return_status := FALSE;
550: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PTY_ACCT_ID');
551: FND_MESSAGE.SET_TOKEN('PARTY_ACCOUNT_ID',p_account_rec.party_account_id);
552: FND_MSG_PUB.ADD;
553: RETURN l_return_status;
554: End;
555: END IF;
556: END IF;
575: l_return_status := FALSE;
576: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_ACCT_COM');
577: FND_MESSAGE.SET_TOKEN('ACCT_COMBINATION',to_char(p_account_rec.instance_party_id) ||', '
578: ||to_char(p_account_rec.party_account_id) ||','||p_account_rec.relationship_type_code);
579: FND_MSG_PUB.ADD;
580: RETURN l_return_status;
581: END IF;
582: --
583: IF l_rel_count > 1 THEN
583: IF l_rel_count > 1 THEN
584: l_return_status := FALSE;
585: FND_MESSAGE.SET_NAME('CSI','CSI_API_DUP_ACCT_TYPE');
586: FND_MESSAGE.SET_TOKEN('RELATIONSHIP_TYPE_CODE',p_account_rec.relationship_type_code);
587: FND_MSG_PUB.ADD;
588: RETURN l_return_status;
589: END IF;
590: --
591: RETURN l_return_status;
608: IF p_org_units_rec.active_start_date > p_org_units_rec.active_end_date THEN
609: l_return_status := FALSE;
610: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_START_DATE');
611: FND_MESSAGE.SET_TOKEN('START_DATE',p_org_units_rec.active_start_date);
612: FND_MSG_PUB.ADD;
613: RETURN l_return_status;
614: END IF;
615: --
616: IF ( (p_org_units_rec.active_end_date < SYSDATE) OR
617: (p_end_date IS NOT NULL AND p_org_units_rec.active_end_date > p_end_date) ) THEN
618: l_return_status := FALSE;
619: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_END_DATE');
620: FND_MESSAGE.SET_TOKEN('END_DATE',p_org_units_rec.active_end_date);
621: FND_MSG_PUB.ADD;
622: RETURN l_return_status;
623: END IF;
624: END IF;
625: --
627: (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
628: l_return_status := FALSE;
629: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_ORG_START_DATE');
630: FND_MESSAGE.SET_TOKEN('START_DATE',p_org_units_rec.active_start_date);
631: FND_MSG_PUB.ADD;
632: RETURN l_return_status;
633: END IF;
634: --
635: IF p_org_units_tbl.count < 2 THEN
646: IF l_count > 1 THEN
647: l_return_status := FALSE;
648: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ALTERNATE_PK');
649: FND_MESSAGE.SET_TOKEN('ALTERNATE_PK',to_char(p_org_units_rec.instance_id)||' '||p_org_units_rec.relationship_type_code);
650: FND_MSG_PUB.ADD;
651: RETURN l_return_status;
652: END IF;
653: --
654: RETURN l_return_status;
670: IF p_pricing_rec.active_start_date > p_pricing_rec.active_end_date THEN
671: l_return_status := FALSE;
672: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_START_DATE');
673: FND_MESSAGE.SET_TOKEN('START_DATE',p_pricing_rec.active_start_date);
674: FND_MSG_PUB.ADD;
675: RETURN l_return_status;
676: END IF;
677: --
678: IF ( (p_pricing_rec.active_end_date < SYSDATE) OR
679: (p_end_date IS NOT NULL AND p_pricing_rec.active_end_date > p_end_date) ) THEN
680: l_return_status := FALSE;
681: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_END_DATE');
682: FND_MESSAGE.SET_TOKEN('END_DATE',p_pricing_rec.active_end_date);
683: FND_MSG_PUB.ADD;
684: RETURN l_return_status;
685: END IF;
686: END IF;
687: --
689: (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
690: l_return_status := FALSE;
691: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_PRI_START_DATE');
692: FND_MESSAGE.SET_TOKEN('START_DATE',p_pricing_rec.active_start_date);
693: FND_MSG_PUB.ADD;
694: RETURN l_return_status;
695: END IF;
696: --
697: RETURN l_return_status;
715: IF p_ext_rec.active_start_date > p_ext_rec.active_end_date THEN
716: l_return_status := FALSE;
717: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_START_DATE');
718: FND_MESSAGE.SET_TOKEN('START_DATE',p_ext_rec.active_start_date);
719: FND_MSG_PUB.ADD;
720: RETURN l_return_status;
721: END IF;
722: --
723: IF ( (p_ext_rec.active_end_date < SYSDATE) OR
724: (p_end_date IS NOT NULL AND p_ext_rec.active_end_date > p_end_date) ) THEN
725: l_return_status := FALSE;
726: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_END_DATE');
727: FND_MESSAGE.SET_TOKEN('END_DATE',p_ext_rec.active_end_date);
728: FND_MSG_PUB.ADD;
729: RETURN l_return_status;
730: END IF;
731: END IF;
732: --
734: (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
735: l_return_status := FALSE;
736: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_EXT_START_DATE');
737: FND_MESSAGE.SET_TOKEN('START_DATE',p_ext_rec.active_start_date);
738: FND_MSG_PUB.ADD;
739: RETURN l_return_status;
740: END IF;
741: --
742: IF p_ext_tbl.count < 2 THEN
753: IF l_count > 1 THEN
754: l_return_status := FALSE;
755: FND_MESSAGE.SET_NAME('CSI','CSI_EXT_INVALID_ALTERNATE_PK');
756: FND_MESSAGE.SET_TOKEN('ALTERNATE_PK',to_char(p_ext_rec.instance_id)||','||to_char(p_ext_rec.attribute_id));
757: FND_MSG_PUB.ADD;
758: RETURN l_return_status;
759: END IF;
760: --
761: RETURN l_return_status;
777: IF p_asset_rec.active_start_date > p_asset_rec.active_end_date THEN
778: l_return_status := FALSE;
779: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_START_DATE');
780: FND_MESSAGE.SET_TOKEN('START_DATE',p_asset_rec.active_start_date);
781: FND_MSG_PUB.ADD;
782: RETURN l_return_status;
783: END IF;
784: --
785: IF ( (p_asset_rec.active_end_date < SYSDATE) OR
786: (p_end_date IS NOT NULL AND p_asset_rec.active_end_date > p_end_date) ) THEN
787: l_return_status := FALSE;
788: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_END_DATE');
789: FND_MESSAGE.SET_TOKEN('END_DATE',p_asset_rec.active_end_date);
790: FND_MSG_PUB.ADD;
791: RETURN l_return_status;
792: END IF;
793: END IF;
794: --
796: (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
797: l_return_status := FALSE;
798: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_AST_START_DATE');
799: FND_MESSAGE.SET_TOKEN('START_DATE',p_asset_rec.active_start_date);
800: FND_MSG_PUB.ADD;
801: RETURN l_return_status;
802: END IF;
803: --
804: RETURN l_return_status;
5992: END IF;
5993:
5994: -- Initialize message list if p_init_msg_list is set to TRUE.
5995: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5996: FND_MSG_PUB.initialize;
5997: END IF;
5998:
5999: -- Initialize API return status to success
6000: x_return_status := FND_API.G_RET_STS_SUCCESS;
6036: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
6037: --
6038: IF l_internal_party_id IS NULL THEN
6039: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
6040: FND_MSG_PUB.ADD;
6041: RAISE OTHER_ERROR;
6042: END IF;
6043: --
6044: BEGIN
6050: EXCEPTION
6051: WHEN OTHERS THEN
6052: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_STATUS_ID');
6053: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS',l_instance_status);
6054: FND_MSG_PUB.Add;
6055: -- RAISE FND_API.G_EXC_ERROR;
6056: RAISE OTHER_ERROR; -- Added for bug 3579121 (rel 11.5.9)
6057: END;
6058: --
6060: FOR inst_tab_row IN p_instance_tbl.FIRST .. p_instance_tbl.LAST
6061: LOOP
6062: BEGIN
6063: IF p_instance_tbl.EXISTS(inst_tab_row) THEN
6064: FND_MSG_PUB.initialize;
6065: csi_gen_utility_pvt.dump_instance_rec(p_instance_tbl(inst_tab_row));
6066:
6067: -- Standard Start of API savepoint
6068: SAVEPOINT create_item_instance;
6195: IF ((p_instance_tbl(inst_tab_row).version_label IS NULL) OR
6196: (p_instance_tbl(inst_tab_row).version_label = FND_API.G_MISS_CHAR)) THEN
6197: IF l_version_label IS NULL THEN
6198: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VERSION_LABEL');
6199: FND_MSG_PUB.ADD;
6200: l_msg_index := 1;
6201: FND_MSG_PUB.Count_And_Get
6202: (p_count => x_msg_count,
6203: p_data => x_msg_data
6197: IF l_version_label IS NULL THEN
6198: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VERSION_LABEL');
6199: FND_MSG_PUB.ADD;
6200: l_msg_index := 1;
6201: FND_MSG_PUB.Count_And_Get
6202: (p_count => x_msg_count,
6203: p_data => x_msg_data
6204: );
6205: l_msg_count := x_msg_count;
6203: p_data => x_msg_data
6204: );
6205: l_msg_count := x_msg_count;
6206: WHILE l_msg_count > 0 LOOP
6207: x_msg_data := FND_MSG_PUB.GET
6208: ( l_msg_index,
6209: FND_API.G_FALSE );
6210: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6211: l_msg_index := l_msg_index + 1;
6233: IF NOT Valid_Serial_Number
6234: ( p_instance_rec => p_instance_tbl(inst_tab_row),
6235: p_instance_tbl => p_instance_tbl) THEN
6236: l_msg_index := 1;
6237: FND_MSG_PUB.Count_And_Get
6238: (p_count => x_msg_count,
6239: p_data => x_msg_data
6240: );
6241: l_msg_count := x_msg_count;
6239: p_data => x_msg_data
6240: );
6241: l_msg_count := x_msg_count;
6242: WHILE l_msg_count > 0 LOOP
6243: x_msg_data := FND_MSG_PUB.GET
6244: ( l_msg_index,
6245: FND_API.G_FALSE );
6246: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6247: l_msg_index := l_msg_index + 1;
6262: IF NOT Valid_Lot_Number
6263: ( p_instance_rec => p_instance_tbl(inst_tab_row),
6264: p_instance_tbl => p_instance_tbl) THEN
6265: l_msg_index := 1;
6266: FND_MSG_PUB.Count_And_Get
6267: (p_count => x_msg_count,
6268: p_data => x_msg_data
6269: );
6270: l_msg_count := x_msg_count;
6268: p_data => x_msg_data
6269: );
6270: l_msg_count := x_msg_count;
6271: WHILE l_msg_count > 0 LOOP
6272: x_msg_data := FND_MSG_PUB.GET
6273: ( l_msg_index,
6274: FND_API.G_FALSE );
6275: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6276: l_msg_index := l_msg_index + 1;
6320: csi_gen_utility_pvt.put_line( ' Error from CSI_ITEM_INSTANCE_PVT.. ');
6321: l_msg_index := 1;
6322: l_msg_count := x_msg_count;
6323: WHILE l_msg_count > 0 LOOP
6324: x_msg_data := FND_MSG_PUB.GET
6325: ( l_msg_index,
6326: FND_API.G_FALSE );
6327: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6328: l_msg_index := l_msg_index + 1;
6439: ,p_start_date => p_instance_tbl(inst_tab_row).active_start_date
6440: ,p_end_date => p_instance_tbl(inst_tab_row).active_end_date
6441: ) ) THEN
6442: l_msg_index := 1;
6443: FND_MSG_PUB.Count_And_Get
6444: (p_count => x_msg_count,
6445: p_data => x_msg_data
6446: );
6447: l_msg_count := x_msg_count;
6445: p_data => x_msg_data
6446: );
6447: l_msg_count := x_msg_count;
6448: WHILE l_msg_count > 0 LOOP
6449: x_msg_data := FND_MSG_PUB.GET
6450: ( l_msg_index,
6451: FND_API.G_FALSE );
6452: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
6453: l_msg_index := l_msg_index + 1;
6479: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6480: l_msg_index := 1;
6481: l_msg_count := x_msg_count;
6482: WHILE l_msg_count > 0 LOOP
6483: x_msg_data := FND_MSG_PUB.GET
6484: ( l_msg_index,
6485: FND_API.G_FALSE );
6486: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
6487: l_msg_index := l_msg_index + 1;
6533: ,p_start_date => p_party_tbl(tab_row).active_start_date
6534: ,p_end_date => p_party_tbl(tab_row).active_end_date
6535: ) ) THEN
6536: l_msg_index := 1;
6537: FND_MSG_PUB.Count_And_Get
6538: (p_count => x_msg_count,
6539: p_data => x_msg_data
6540: );
6541: l_msg_count := x_msg_count;
6539: p_data => x_msg_data
6540: );
6541: l_msg_count := x_msg_count;
6542: WHILE l_msg_count > 0 LOOP
6543: x_msg_data := FND_MSG_PUB.GET(
6544: l_msg_index,
6545: FND_API.G_FALSE );
6546: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
6547: l_msg_index := l_msg_index + 1;
6572: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6573: l_msg_index := 1;
6574: l_msg_count := x_msg_count;
6575: WHILE l_msg_count > 0 LOOP
6576: x_msg_data := FND_MSG_PUB.GET(
6577: l_msg_index,
6578: FND_API.G_FALSE );
6579: csi_gen_utility_pvt.put_line( 'message data = '||x_msg_data);
6580: l_msg_index := l_msg_index + 1;
6621: ,p_start_date => p_instance_tbl(inst_tab_row).active_start_date
6622: ,p_end_date => p_instance_tbl(inst_tab_row).active_end_date
6623: ) ) THEN
6624: l_msg_index := 1;
6625: FND_MSG_PUB.Count_And_Get
6626: (p_count => x_msg_count,
6627: p_data => x_msg_data
6628: );
6629: l_msg_count := x_msg_count;
6627: p_data => x_msg_data
6628: );
6629: l_msg_count := x_msg_count;
6630: WHILE l_msg_count > 0 LOOP
6631: x_msg_data := FND_MSG_PUB.GET
6632: ( l_msg_index,
6633: FND_API.G_FALSE );
6634: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6635: l_msg_index := l_msg_index + 1;
6660: csi_gen_utility_pvt.put_line( ' Error from CSI_ORGANIZATION_UNIT_PVT..');
6661: l_msg_index := 1;
6662: l_msg_count := x_msg_count;
6663: WHILE l_msg_count > 0 LOOP
6664: x_msg_data := FND_MSG_PUB.GET
6665: ( l_msg_index,
6666: FND_API.G_FALSE );
6667: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6668: l_msg_index := l_msg_index + 1;
6700: ,p_start_date => p_instance_tbl(inst_tab_row).active_start_date
6701: ,p_end_date => p_instance_tbl(inst_tab_row).active_end_date
6702: ) ) THEN
6703: l_msg_index := 1;
6704: FND_MSG_PUB.Count_And_Get
6705: (p_count => x_msg_count,
6706: p_data => x_msg_data
6707: );
6708: l_msg_count := x_msg_count;
6706: p_data => x_msg_data
6707: );
6708: l_msg_count := x_msg_count;
6709: WHILE l_msg_count > 0 LOOP
6710: x_msg_data := FND_MSG_PUB.GET
6711: ( l_msg_index,
6712: FND_API.G_FALSE );
6713: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6714: l_msg_index := l_msg_index + 1;
6736: csi_gen_utility_pvt.put_line( ' Error from CSI_PRICING_ATTRIBS_PUB..');
6737: l_msg_index := 1;
6738: l_msg_count := x_msg_count;
6739: WHILE l_msg_count > 0 LOOP
6740: x_msg_data := FND_MSG_PUB.GET
6741: ( l_msg_index,
6742: FND_API.G_FALSE );
6743: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6744: l_msg_index := l_msg_index + 1;
6788: ,p_start_date => p_instance_tbl(inst_tab_row).active_start_date
6789: ,p_end_date => p_instance_tbl(inst_tab_row).active_end_date
6790: ) ) THEN
6791: l_msg_index := 1;
6792: FND_MSG_PUB.Count_And_Get
6793: (p_count => x_msg_count,
6794: p_data => x_msg_data
6795: );
6796: l_msg_count := x_msg_count;
6794: p_data => x_msg_data
6795: );
6796: l_msg_count := x_msg_count;
6797: WHILE l_msg_count > 0 LOOP
6798: x_msg_data := FND_MSG_PUB.GET
6799: ( l_msg_index,
6800: FND_API.G_FALSE );
6801: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6802: l_msg_index := l_msg_index + 1;
6828: csi_gen_utility_pvt.put_line( ' Error from CSI_EXTENDED_ATTRIBS_PUB..');
6829: l_msg_index := 1;
6830: l_msg_count := x_msg_count;
6831: WHILE l_msg_count > 0 LOOP
6832: x_msg_data := FND_MSG_PUB.GET
6833: ( l_msg_index,
6834: FND_API.G_FALSE );
6835: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6836: l_msg_index := l_msg_index + 1;
6868: ,p_start_date => p_instance_tbl(inst_tab_row).active_start_date
6869: ,p_end_date => p_instance_tbl(inst_tab_row).active_end_date
6870: ) ) THEN
6871: l_msg_index := 1;
6872: FND_MSG_PUB.Count_And_Get
6873: (p_count => x_msg_count,
6874: p_data => x_msg_data
6875: );
6876: l_msg_count := x_msg_count;
6874: p_data => x_msg_data
6875: );
6876: l_msg_count := x_msg_count;
6877: WHILE l_msg_count > 0 LOOP
6878: x_msg_data := FND_MSG_PUB.GET
6879: ( l_msg_index,
6880: FND_API.G_FALSE );
6881: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6882: l_msg_index := l_msg_index + 1;
6939: csi_gen_utility_pvt.put_line( ' Error from CSI_ASSET_PVT..');
6940: l_msg_index := 1;
6941: l_msg_count := x_msg_count;
6942: WHILE l_msg_count > 0 LOOP
6943: x_msg_data := FND_MSG_PUB.GET
6944: ( l_msg_index,
6945: FND_API.G_FALSE );
6946: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
6947: l_msg_index := l_msg_index + 1;
7294: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7295: l_msg_index := 1;
7296: l_msg_count := x_msg_count;
7297: WHILE l_msg_count > 0 LOOP
7298: x_msg_data := FND_MSG_PUB.GET
7299: ( l_msg_index,
7300: FND_API.G_FALSE );
7301: l_msg_index := l_msg_index + 1;
7302: l_msg_count := l_msg_count - 1;
7345: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
7346: l_msg_index := 1;
7347: l_msg_count := x_msg_count;
7348: WHILE l_msg_count > 0 LOOP
7349: x_msg_data := FND_MSG_PUB.GET
7350: ( l_msg_index,
7351: FND_API.G_FALSE );
7352: l_msg_index := l_msg_index + 1;
7353: l_msg_count := l_msg_count - 1;
7445: csi_gen_utility_pvt.put_line('Error from Call_to_contracts...');
7446: l_msg_index := 1;
7447: l_msg_count := x_msg_count;
7448: WHILE l_msg_count > 0 LOOP
7449: x_msg_data := FND_MSG_PUB.GET
7450: ( l_msg_index,
7451: FND_API.G_FALSE
7452: );
7453: l_msg_index := l_msg_index + 1;
7503: csi_gen_utility_pvt.put_line('Error from Call_to_contracts...');
7504: l_msg_index := 1;
7505: l_msg_count := x_msg_count;
7506: WHILE l_msg_count > 0 LOOP
7507: x_msg_data := FND_MSG_PUB.GET
7508: ( l_msg_index,
7509: FND_API.G_FALSE
7510: );
7511: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7631: -- End disable trace
7632: ****/
7633:
7634: -- Standard call to get message count and if count is get message info.
7635: FND_MSG_PUB.Count_And_Get
7636: (p_count => x_msg_count ,
7637: p_data => x_msg_data
7638: );
7639:
7640: EXCEPTION
7641: -- The following other_error exception is added for bug 3579121 (rel 11.5.9)
7642: WHEN OTHER_ERROR THEN
7643: x_return_status := FND_API.G_RET_STS_ERROR ;
7644: FND_MSG_PUB.Count_And_Get
7645: ( p_count => x_msg_count,
7646: p_data => x_msg_data
7647: );
7648:
7648:
7649: WHEN FND_API.G_EXC_ERROR THEN
7650: x_return_status := FND_API.G_RET_STS_ERROR ;
7651: ROLLBACK TO create_item_instance;
7652: FND_MSG_PUB.Count_And_Get
7653: ( p_count => x_msg_count,
7654: p_data => x_msg_data
7655: );
7656:
7658: FND_File.Put_Line(Fnd_File.LOG,'Into unexpected exception of grp.create_item_instance');
7659: FND_File.Put_Line(Fnd_File.LOG,'SQLERRM:'||substr(SQLERRM,1,200));
7660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7661: ROLLBACK TO create_item_instance;
7662: FND_MSG_PUB.Count_And_Get
7663: ( p_count => x_msg_count,
7664: p_data => x_msg_data
7665: );
7666:
7668: FND_File.Put_Line(Fnd_File.LOG,'Into when others exception of grp.create_item_instance');
7669: FND_File.Put_Line(Fnd_File.LOG,'SQLERRM:'||substr(SQLERRM,1,200));
7670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7671: ROLLBACK TO create_item_instance;
7672: IF FND_MSG_PUB.Check_Msg_Level
7673: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7674: THEN
7675: FND_MSG_PUB.Add_Exc_Msg
7676: (G_PKG_NAME,
7669: FND_File.Put_Line(Fnd_File.LOG,'SQLERRM:'||substr(SQLERRM,1,200));
7670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7671: ROLLBACK TO create_item_instance;
7672: IF FND_MSG_PUB.Check_Msg_Level
7673: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7674: THEN
7675: FND_MSG_PUB.Add_Exc_Msg
7676: (G_PKG_NAME,
7677: l_api_name
7671: ROLLBACK TO create_item_instance;
7672: IF FND_MSG_PUB.Check_Msg_Level
7673: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7674: THEN
7675: FND_MSG_PUB.Add_Exc_Msg
7676: (G_PKG_NAME,
7677: l_api_name
7678: );
7679: END IF;
7676: (G_PKG_NAME,
7677: l_api_name
7678: );
7679: END IF;
7680: FND_MSG_PUB.Count_And_Get
7681: ( p_count => x_msg_count,
7682: p_data => x_msg_data
7683: );
7684:
7992: END IF;
7993:
7994: -- Initialize message list if p_init_msg_list is set to TRUE.
7995: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7996: FND_MSG_PUB.initialize;
7997: END IF;
7998:
7999: -- Initialize API return status to success
8000: x_return_status := FND_API.G_RET_STS_SUCCESS;
8019: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
8020: --
8021: IF l_internal_party_id IS NULL THEN
8022: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
8023: FND_MSG_PUB.ADD;
8024: RAISE FND_API.G_EXC_ERROR;
8025: END IF;
8026: --
8027: l_old_instance_tbl.DELETE;
8121: csi_gen_utility_pvt.put_line( 'Error from UPDATE_ITEM_INSTANCE_PVT..');
8122: l_msg_index := 1;
8123: l_msg_count := x_msg_count;
8124: WHILE l_msg_count > 0 LOOP
8125: x_msg_data := FND_MSG_PUB.GET
8126: ( l_msg_index,
8127: FND_API.G_FALSE );
8128: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8129: l_msg_index := l_msg_index + 1;
8232: l_msg_index := 1;
8233: l_msg_count := x_msg_count;
8234: WHILE l_msg_count > 0
8235: LOOP
8236: x_msg_data := FND_MSG_PUB.GET
8237: ( l_msg_index,
8238: FND_API.G_FALSE );
8239: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8240: l_msg_index := l_msg_index + 1;
8288: l_msg_index := 1;
8289: l_msg_count := x_msg_count;
8290: WHILE l_msg_count > 0
8291: LOOP
8292: x_msg_data := FND_MSG_PUB.GET
8293: ( l_msg_index,
8294: FND_API.G_FALSE );
8295: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8296: l_msg_index := l_msg_index + 1;
8327: l_msg_index := 1;
8328: l_msg_count := x_msg_count;
8329: WHILE l_msg_count > 0
8330: LOOP
8331: x_msg_data := FND_MSG_PUB.GET
8332: ( l_msg_index,
8333: FND_API.G_FALSE );
8334: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8335: l_msg_index := l_msg_index + 1;
8402: l_msg_index := 1;
8403: l_msg_count := x_msg_count;
8404: WHILE l_msg_count > 0
8405: LOOP
8406: x_msg_data := FND_MSG_PUB.GET
8407: ( l_msg_index,
8408: FND_API.G_FALSE );
8409: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8410: l_msg_index := l_msg_index + 1;
8436: l_msg_index := 1;
8437: l_msg_count := x_msg_count;
8438: WHILE l_msg_count > 0
8439: LOOP
8440: x_msg_data := FND_MSG_PUB.GET
8441: ( l_msg_index,
8442: FND_API.G_FALSE );
8443: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8444: l_msg_index := l_msg_index + 1;
8502: csi_gen_utility_pvt.put_line( ' Error from CSI_ORGANIZATION_UNIT_PVT..');
8503: l_msg_index := 1;
8504: l_msg_count := x_msg_count;
8505: WHILE l_msg_count > 0 LOOP
8506: x_msg_data := FND_MSG_PUB.GET
8507: ( l_msg_index,
8508: FND_API.G_FALSE );
8509: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8510: l_msg_index := l_msg_index + 1;
8561: csi_gen_utility_pvt.put_line( ' Error from CSI_PRICING_ATTRIBS_PVT..');
8562: l_msg_index := 1;
8563: l_msg_count := x_msg_count;
8564: WHILE l_msg_count > 0 LOOP
8565: x_msg_data := FND_MSG_PUB.GET
8566: ( l_msg_index,
8567: FND_API.G_FALSE );
8568: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8569: l_msg_index := l_msg_index + 1;
8624: csi_gen_utility_pvt.put_line( ' Error from CSI_ITEM_INSTANCE_PVT.EXTENDED_ATTRIBS..');
8625: l_msg_index := 1;
8626: l_msg_count := x_msg_count;
8627: WHILE l_msg_count > 0 LOOP
8628: x_msg_data := FND_MSG_PUB.GET
8629: ( l_msg_index,
8630: FND_API.G_FALSE );
8631: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8632: l_msg_index := l_msg_index + 1;
8690: csi_gen_utility_pvt.put_line( ' Error from CSI_ASSET_PVT..');
8691: l_msg_index := 1;
8692: l_msg_count := x_msg_count;
8693: WHILE l_msg_count > 0 LOOP
8694: x_msg_data := FND_MSG_PUB.GET
8695: ( l_msg_index,
8696: FND_API.G_FALSE );
8697: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8698: l_msg_index := l_msg_index + 1;
8766: csi_gen_utility_pvt.put_line( 'Error from UPDATE_ITEM_INSTANCE_PVT..');
8767: l_msg_index := 1;
8768: l_msg_count := x_msg_count;
8769: WHILE l_msg_count > 0 LOOP
8770: x_msg_data := FND_MSG_PUB.GET
8771: ( l_msg_index,
8772: FND_API.G_FALSE );
8773: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8774: l_msg_index := l_msg_index + 1;
8852: csi_gen_utility_pvt.put_line( ' Error from CSI_ITEM_INSTANCE_PVT.CREATE_VERSION_LABEL..');
8853: l_msg_index := 1;
8854: l_msg_count := x_msg_count;
8855: WHILE l_msg_count > 0 LOOP
8856: x_msg_data := FND_MSG_PUB.GET
8857: ( l_msg_index,
8858: FND_API.G_FALSE );
8859: csi_gen_utility_pvt.put_line( ' MESSAGE DATA = '||x_msg_data);
8860: l_msg_index := l_msg_index + 1;
8923: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8924: l_msg_index := 1;
8925: l_msg_count := x_msg_count;
8926: WHILE l_msg_count > 0 LOOP
8927: x_msg_data := FND_MSG_PUB.GET
8928: ( l_msg_index,
8929: FND_API.G_FALSE
8930: );
8931: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
8973: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8974: l_msg_index := 1;
8975: l_msg_count := x_msg_count;
8976: WHILE l_msg_count > 0 LOOP
8977: x_msg_data := FND_MSG_PUB.GET
8978: ( l_msg_index,
8979: FND_API.G_FALSE
8980: );
8981: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
9064: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9065: l_msg_index := 1;
9066: l_msg_count := x_msg_count;
9067: WHILE l_msg_count > 0 LOOP
9068: x_msg_data := FND_MSG_PUB.GET
9069: ( l_msg_index,
9070: FND_API.G_FALSE
9071: );
9072: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
9127: --
9128: l_msg_index := 1;
9129: l_msg_count := x_msg_count;
9130: WHILE l_msg_count > 0 LOOP
9131: x_msg_data := FND_MSG_PUB.GET
9132: ( l_msg_index,
9133: FND_API.G_FALSE
9134: );
9135: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
9135: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
9136: l_msg_index := l_msg_index + 1;
9137: l_msg_count := l_msg_count - 1;
9138: END LOOP;
9139: FND_MSG_PUB.Count_And_Get
9140: ( p_count => x_msg_count,
9141: p_data => x_msg_data
9142: );
9143: ELSIF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9144: csi_gen_utility_pvt.put_line('Error from Call_to_contracts...');
9145: l_msg_index := 1;
9146: l_msg_count := x_msg_count;
9147: WHILE l_msg_count > 0 LOOP
9148: x_msg_data := FND_MSG_PUB.GET
9149: ( l_msg_index,
9150: FND_API.G_FALSE
9151: );
9152: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
9187: END IF;
9188: -- End disable trace
9189: ****/
9190: -- Standard call to get message count and if count is get message info.
9191: FND_MSG_PUB.Count_And_Get
9192: (p_count => x_msg_count ,
9193: p_data => x_msg_data
9194: );
9195: EXCEPTION
9195: EXCEPTION
9196: WHEN FND_API.G_EXC_ERROR THEN
9197: ROLLBACK TO update_item_instance;
9198: x_return_status := FND_API.G_RET_STS_ERROR ;
9199: FND_MSG_PUB.Count_And_Get
9200: ( p_count => x_msg_count,
9201: p_data => x_msg_data
9202: );
9203:
9203:
9204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9205: ROLLBACK TO update_item_instance;
9206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9207: FND_MSG_PUB.Count_And_Get
9208: ( p_count => x_msg_count,
9209: p_data => x_msg_data
9210: );
9211:
9211:
9212: WHEN OTHERS THEN
9213: ROLLBACK TO update_item_instance;
9214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9215: IF FND_MSG_PUB.Check_Msg_Level
9216: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9217: THEN
9218: FND_MSG_PUB.Add_Exc_Msg
9219: ( G_PKG_NAME ,
9212: WHEN OTHERS THEN
9213: ROLLBACK TO update_item_instance;
9214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9215: IF FND_MSG_PUB.Check_Msg_Level
9216: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9217: THEN
9218: FND_MSG_PUB.Add_Exc_Msg
9219: ( G_PKG_NAME ,
9220: l_api_name
9214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9215: IF FND_MSG_PUB.Check_Msg_Level
9216: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9217: THEN
9218: FND_MSG_PUB.Add_Exc_Msg
9219: ( G_PKG_NAME ,
9220: l_api_name
9221: );
9222: END IF;
9219: ( G_PKG_NAME ,
9220: l_api_name
9221: );
9222: END IF;
9223: FND_MSG_PUB.Count_And_Get
9224: ( p_count => x_msg_count,
9225: p_data => x_msg_data
9226: );
9227: END update_item_instance;
9279: END IF;
9280:
9281: -- Initialize message list if p_init_msg_list is set to TRUE.
9282: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9283: FND_MSG_PUB.initialize;
9284: END IF;
9285: -- Initialize API return status to success
9286: x_return_status := FND_API.G_RET_STS_SUCCESS;
9287:
9339: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9340: l_msg_index := 1;
9341: l_msg_count := x_msg_count;
9342: WHILE l_msg_count > 0 LOOP
9343: x_msg_data := FND_MSG_PUB.GET
9344: (
9345: l_msg_index,
9346: FND_API.G_FALSE
9347: );
9396: csi_gen_utility_pvt.put_line('Error from Call_to_contracts...');
9397: l_msg_index := 1;
9398: l_msg_count := x_msg_count;
9399: WHILE l_msg_count > 0 LOOP
9400: x_msg_data := FND_MSG_PUB.GET
9401: ( l_msg_index,
9402: FND_API.G_FALSE
9403: );
9404: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
9433: END IF;
9434: -- End disable trace
9435: ****/
9436: -- Standard call to get message count and if count is get message info.
9437: FND_MSG_PUB.Count_And_Get
9438: (p_count => x_msg_count ,
9439: p_data => x_msg_data );
9440:
9441: EXCEPTION
9441: EXCEPTION
9442: WHEN FND_API.G_EXC_ERROR THEN
9443: ROLLBACK TO expire_item_instance;
9444: x_return_status := FND_API.G_RET_STS_ERROR ;
9445: FND_MSG_PUB.Count_And_Get
9446: ( p_count => x_msg_count,
9447: p_data => x_msg_data
9448: );
9449:
9449:
9450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9451: ROLLBACK TO expire_item_instance;
9452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9453: FND_MSG_PUB.Count_And_Get
9454: ( p_count => x_msg_count,
9455: p_data => x_msg_data );
9456:
9457: WHEN OTHERS THEN
9456:
9457: WHEN OTHERS THEN
9458: ROLLBACK TO expire_item_instance;
9459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9460: IF FND_MSG_PUB.Check_Msg_Level
9461: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9462: THEN
9463: FND_MSG_PUB.Add_Exc_Msg
9464: ( G_PKG_NAME, l_api_name );
9457: WHEN OTHERS THEN
9458: ROLLBACK TO expire_item_instance;
9459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9460: IF FND_MSG_PUB.Check_Msg_Level
9461: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9462: THEN
9463: FND_MSG_PUB.Add_Exc_Msg
9464: ( G_PKG_NAME, l_api_name );
9465: END IF;
9459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9460: IF FND_MSG_PUB.Check_Msg_Level
9461: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9462: THEN
9463: FND_MSG_PUB.Add_Exc_Msg
9464: ( G_PKG_NAME, l_api_name );
9465: END IF;
9466: FND_MSG_PUB.Count_And_Get
9467: ( p_count => x_msg_count,
9462: THEN
9463: FND_MSG_PUB.Add_Exc_Msg
9464: ( G_PKG_NAME, l_api_name );
9465: END IF;
9466: FND_MSG_PUB.Count_And_Get
9467: ( p_count => x_msg_count,
9468: p_data => x_msg_data );
9469:
9470: END expire_item_instance;
9509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9510: END IF;
9511: -- Initialize message list if p_init_msg_list is set to TRUE.
9512: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9513: FND_MSG_PUB.initialize;
9514: END IF;
9515: -- Initialize API return status to success
9516: x_return_status := FND_API.G_RET_STS_SUCCESS;
9517: --
9516: x_return_status := FND_API.G_RET_STS_SUCCESS;
9517: --
9518: IF p_subject_id IS NULL OR p_subject_id = FND_API.G_MISS_NUM THEN
9519: fnd_message.set_name('CSI', 'CSI_INVALID_PARAMETERS');
9520: fnd_msg_pub.add;
9521: x_return_status := fnd_api.g_ret_sts_error;
9522: RAISE fnd_api.g_exc_error;
9523: END IF;
9524: --
9564: End;
9565: END LOOP;
9566: -- End of API body
9567: -- Standard call to get message count and if count is get message info.
9568: FND_MSG_PUB.Count_And_Get
9569: (p_count => x_msg_count ,
9570: p_data => x_msg_data
9571: );
9572: EXCEPTION
9571: );
9572: EXCEPTION
9573: WHEN FND_API.G_EXC_ERROR THEN
9574: x_return_status := FND_API.G_RET_STS_ERROR ;
9575: FND_MSG_PUB.Count_And_Get
9576: ( p_count => x_msg_count,
9577: p_data => x_msg_data
9578: );
9579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9577: p_data => x_msg_data
9578: );
9579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9581: FND_MSG_PUB.Count_And_Get
9582: ( p_count => x_msg_count,
9583: p_data => x_msg_data
9584: );
9585:
9585:
9586: WHEN OTHERS THEN
9587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9588: csi_gen_utility_pvt.put_line('Others Error '||substr(sqlerrm,1,250));
9589: IF FND_MSG_PUB.Check_Msg_Level
9590: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9591: THEN
9592: FND_MSG_PUB.Add_Exc_Msg
9593: ( G_PKG_NAME ,
9586: WHEN OTHERS THEN
9587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9588: csi_gen_utility_pvt.put_line('Others Error '||substr(sqlerrm,1,250));
9589: IF FND_MSG_PUB.Check_Msg_Level
9590: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9591: THEN
9592: FND_MSG_PUB.Add_Exc_Msg
9593: ( G_PKG_NAME ,
9594: l_api_name
9588: csi_gen_utility_pvt.put_line('Others Error '||substr(sqlerrm,1,250));
9589: IF FND_MSG_PUB.Check_Msg_Level
9590: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9591: THEN
9592: FND_MSG_PUB.Add_Exc_Msg
9593: ( G_PKG_NAME ,
9594: l_api_name
9595: );
9596: END IF;
9593: ( G_PKG_NAME ,
9594: l_api_name
9595: );
9596: END IF;
9597: FND_MSG_PUB.Count_And_Get
9598: ( p_count => x_msg_count,
9599: p_data => x_msg_data
9600: );
9601: END Get_All_Parents;
9671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9672: l_msg_index := 1;
9673: l_msg_count := x_msg_count;
9674: WHILE l_msg_count > 0 LOOP
9675: x_msg_data := FND_MSG_PUB.GET
9676: ( l_msg_index,
9677: FND_API.G_FALSE );
9678: l_msg_index := l_msg_index + 1;
9679: l_msg_count := l_msg_count - 1;
10014: EXCEPTION
10015: WHEN FND_API.G_EXC_ERROR THEN
10016: ROLLBACK TO Get_And_Build_Instance_Details;
10017: x_return_status := FND_API.G_RET_STS_ERROR ;
10018: FND_MSG_PUB.Count_And_Get
10019: ( p_count => x_msg_count,
10020: p_data => x_msg_data
10021: );
10022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10021: );
10022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10023: ROLLBACK TO Get_And_Build_Instance_Details;
10024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10025: FND_MSG_PUB.Count_And_Get
10026: ( p_count => x_msg_count,
10027: p_data => x_msg_data
10028: );
10029: WHEN OTHERS THEN
10028: );
10029: WHEN OTHERS THEN
10030: ROLLBACK TO Get_And_Build_Instance_Details;
10031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10032: IF FND_MSG_PUB.Check_Msg_Level
10033: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10034: THEN
10035: FND_MSG_PUB.Add_Exc_Msg
10036: ( G_PKG_NAME ,
10029: WHEN OTHERS THEN
10030: ROLLBACK TO Get_And_Build_Instance_Details;
10031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10032: IF FND_MSG_PUB.Check_Msg_Level
10033: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10034: THEN
10035: FND_MSG_PUB.Add_Exc_Msg
10036: ( G_PKG_NAME ,
10037: l_api_name
10031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10032: IF FND_MSG_PUB.Check_Msg_Level
10033: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10034: THEN
10035: FND_MSG_PUB.Add_Exc_Msg
10036: ( G_PKG_NAME ,
10037: l_api_name
10038: );
10039: END IF;
10036: ( G_PKG_NAME ,
10037: l_api_name
10038: );
10039: END IF;
10040: FND_MSG_PUB.Count_And_Get
10041: ( p_count => x_msg_count,
10042: p_data => x_msg_data
10043: );
10044: END Get_And_Build_Instance_Details;
10114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10115: END IF;
10116: -- Initialize message list if p_init_msg_list is set to TRUE.
10117: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10118: FND_MSG_PUB.initialize;
10119: END IF;
10120: -- Initialize API return status to success
10121: x_return_status := FND_API.G_RET_STS_SUCCESS;
10122: -- Check the profile option debug_level for debug message reporting
10134: OR (p_source_instance_tbl(src_rec).QUANTITY = FND_API.G_MISS_NUM )
10135: OR (p_source_instance_tbl(src_rec).QUANTITY <> 1)) THEN
10136: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
10137: FND_MESSAGE.SET_TOKEN('QUANTITY',p_source_instance_tbl(src_rec).QUANTITY);
10138: FND_MSG_PUB.Add;
10139: RAISE FND_API.G_EXC_ERROR;
10140: END IF;
10141: --
10142: IF (p_source_instance_tbl(src_rec).instance_id IS NULL) OR
10141: --
10142: IF (p_source_instance_tbl(src_rec).instance_id IS NULL) OR
10143: (p_source_instance_tbl(src_rec).instance_id = FND_API.G_MISS_NUM) THEN
10144: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_ID_NULL');
10145: FND_MSG_PUB.Add;
10146: RAISE FND_API.G_EXC_ERROR;
10147: END IF;
10148: --
10149: -- Verify if configruation has been exploded before
10175: );
10176: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10177: csi_gen_utility_pvt.put_line('Error in Explode_BOM Regular Routine..');
10178: FOR i in 1..x_msg_Count LOOP
10179: FND_MSG_PUB.Get(p_msg_index => i,
10180: p_encoded => 'F',
10181: p_data => x_msg_data,
10182: p_msg_index_out => x_msg_index_out );
10183: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
10206: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10207: l_msg_index := 1;
10208: l_msg_count := x_msg_count;
10209: WHILE l_msg_count > 0 LOOP
10210: x_msg_data := FND_MSG_PUB.GET
10211: ( l_msg_index,
10212: FND_API.G_FALSE );
10213: l_msg_index := l_msg_index + 1;
10214: l_msg_count := l_msg_count - 1;
10426: --
10427: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10428: csi_gen_utility_pvt.put_line('Error from Group Create_item_instance..');
10429: FOR i in 1..x_msg_Count LOOP
10430: FND_MSG_PUB.Get(p_msg_index => i,
10431: p_encoded => 'F',
10432: p_data => x_msg_data,
10433: p_msg_index_out => x_msg_index_out );
10434: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
10454: csi_gen_utility_pvt.put_line('End of Create Relationship...');
10455: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10456: csi_gen_utility_pvt.put_line('Error while trying to Create II Relationships..');
10457: FOR i in 1..x_msg_Count LOOP
10458: FND_MSG_PUB.Get(p_msg_index => i,
10459: p_encoded => 'F',
10460: p_data => x_msg_data,
10461: p_msg_index_out => x_msg_index_out );
10462: csi_gen_utility_pvt.put_line('message data = '||x_msg_data);
10469: IF FND_API.To_Boolean( p_commit ) THEN
10470: COMMIT WORK;
10471: END IF;
10472: -- Standard call to get message count and if count is get message info.
10473: FND_MSG_PUB.Count_And_Get
10474: ( p_count => x_msg_count ,
10475: p_data => x_msg_data
10476: );
10477: EXCEPTION
10477: EXCEPTION
10478: WHEN FND_API.G_EXC_ERROR THEN
10479: ROLLBACK TO explode_bom;
10480: x_return_status := FND_API.G_RET_STS_ERROR ;
10481: FND_MSG_PUB.Count_And_Get
10482: ( p_count => x_msg_count,
10483: p_data => x_msg_data
10484: );
10485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10484: );
10485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10486: ROLLBACK TO explode_bom;
10487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10488: FND_MSG_PUB.Count_And_Get
10489: ( p_count => x_msg_count,
10490: p_data => x_msg_data
10491: );
10492: WHEN OTHERS THEN
10491: );
10492: WHEN OTHERS THEN
10493: ROLLBACK TO explode_bom;
10494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10495: IF FND_MSG_PUB.Check_Msg_Level
10496: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10497: THEN
10498: FND_MSG_PUB.Add_Exc_Msg
10499: ( G_PKG_NAME ,
10492: WHEN OTHERS THEN
10493: ROLLBACK TO explode_bom;
10494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10495: IF FND_MSG_PUB.Check_Msg_Level
10496: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10497: THEN
10498: FND_MSG_PUB.Add_Exc_Msg
10499: ( G_PKG_NAME ,
10500: l_api_name
10494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10495: IF FND_MSG_PUB.Check_Msg_Level
10496: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10497: THEN
10498: FND_MSG_PUB.Add_Exc_Msg
10499: ( G_PKG_NAME ,
10500: l_api_name
10501: );
10502: END IF;
10499: ( G_PKG_NAME ,
10500: l_api_name
10501: );
10502: END IF;
10503: FND_MSG_PUB.Count_And_Get
10504: ( p_count => x_msg_count,
10505: p_data => x_msg_data
10506: );
10507: END Explode_Bom;
10544: END IF;
10545:
10546: -- Initialize message list if p_init_msg_list is set to TRUE.
10547: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10548: FND_MSG_PUB.initialize;
10549: END IF;
10550:
10551: -- Initialize API return status to success
10552: x_return_status := FND_API.G_RET_STS_SUCCESS;
10585: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10586: l_msg_index := 1;
10587: l_msg_count := x_msg_count;
10588: WHILE l_msg_count > 0 LOOP
10589: x_msg_data := FND_MSG_PUB.GET
10590: ( l_msg_index,
10591: FND_API.G_FALSE );
10592: csi_gen_utility_pvt.put_line('Error while locking item instances..');
10593: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
10601: COMMIT WORK;
10602: END IF;
10603:
10604: -- Standard call to get message count and if count is get message info.
10605: FND_MSG_PUB.Count_And_Get
10606: (p_count => x_msg_count ,
10607: p_data => x_msg_data );
10608:
10609: EXCEPTION
10609: EXCEPTION
10610: WHEN FND_API.G_EXC_ERROR THEN
10611: ROLLBACK TO csi_lock_item_grp;
10612: x_return_status := FND_API.G_RET_STS_ERROR ;
10613: FND_MSG_PUB.Count_And_Get
10614: ( p_count => x_msg_count,
10615: p_data => x_msg_data );
10616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10617: ROLLBACK TO csi_lock_item_grp;
10615: p_data => x_msg_data );
10616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10617: ROLLBACK TO csi_lock_item_grp;
10618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10619: FND_MSG_PUB.Count_And_Get
10620: ( p_count => x_msg_count,
10621: p_data => x_msg_data );
10622: WHEN OTHERS THEN
10623: ROLLBACK TO csi_lock_item_grp;
10621: p_data => x_msg_data );
10622: WHEN OTHERS THEN
10623: ROLLBACK TO csi_lock_item_grp;
10624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10625: IF FND_MSG_PUB.Check_Msg_Level
10626: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10627: THEN
10628: FND_MSG_PUB.Add_Exc_Msg
10629: ( g_pkg_name, l_api_name );
10622: WHEN OTHERS THEN
10623: ROLLBACK TO csi_lock_item_grp;
10624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10625: IF FND_MSG_PUB.Check_Msg_Level
10626: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10627: THEN
10628: FND_MSG_PUB.Add_Exc_Msg
10629: ( g_pkg_name, l_api_name );
10630: END IF;
10624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10625: IF FND_MSG_PUB.Check_Msg_Level
10626: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10627: THEN
10628: FND_MSG_PUB.Add_Exc_Msg
10629: ( g_pkg_name, l_api_name );
10630: END IF;
10631: FND_MSG_PUB.Count_And_Get
10632: ( p_count => x_msg_count,
10627: THEN
10628: FND_MSG_PUB.Add_Exc_Msg
10629: ( g_pkg_name, l_api_name );
10630: END IF;
10631: FND_MSG_PUB.Count_And_Get
10632: ( p_count => x_msg_count,
10633: p_data => x_msg_data );
10634: END lock_item_instances;
10635:
10670: END IF;
10671:
10672: -- Initialize message list if p_init_msg_list is set to TRUE.
10673: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10674: FND_MSG_PUB.initialize;
10675: END IF;
10676:
10677: -- Initialize API return status to success
10678: x_return_status := FND_API.G_RET_STS_SUCCESS;
10713: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
10714: l_msg_index := 1;
10715: l_msg_count := x_msg_count;
10716: WHILE l_msg_count > 0 LOOP
10717: x_msg_data := FND_MSG_PUB.GET
10718: ( l_msg_index,
10719: FND_API.G_FALSE );
10720: csi_gen_utility_pvt.put_line('Error while unlocking item instances..');
10721: csi_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
10730: COMMIT WORK;
10731: END IF;
10732:
10733: -- Standard call to get message count and if count is get message info.
10734: FND_MSG_PUB.Count_And_Get
10735: (p_count => x_msg_count ,
10736: p_data => x_msg_data );
10737:
10738: EXCEPTION
10738: EXCEPTION
10739: WHEN FND_API.G_EXC_ERROR THEN
10740: ROLLBACK TO csi_unlock_item_grp;
10741: x_return_status := FND_API.G_RET_STS_ERROR ;
10742: FND_MSG_PUB.Count_And_Get
10743: ( p_count => x_msg_count,
10744: p_data => x_msg_data );
10745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10746: ROLLBACK TO csi_unlock_item_grp;
10744: p_data => x_msg_data );
10745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10746: ROLLBACK TO csi_unlock_item_grp;
10747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10748: FND_MSG_PUB.Count_And_Get
10749: ( p_count => x_msg_count,
10750: p_data => x_msg_data );
10751: WHEN OTHERS THEN
10752: ROLLBACK TO csi_unlock_item_grp;
10750: p_data => x_msg_data );
10751: WHEN OTHERS THEN
10752: ROLLBACK TO csi_unlock_item_grp;
10753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10754: IF FND_MSG_PUB.Check_Msg_Level
10755: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10756: THEN
10757: FND_MSG_PUB.Add_Exc_Msg
10758: ( g_pkg_name, l_api_name );
10751: WHEN OTHERS THEN
10752: ROLLBACK TO csi_unlock_item_grp;
10753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10754: IF FND_MSG_PUB.Check_Msg_Level
10755: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10756: THEN
10757: FND_MSG_PUB.Add_Exc_Msg
10758: ( g_pkg_name, l_api_name );
10759: END IF;
10753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10754: IF FND_MSG_PUB.Check_Msg_Level
10755: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10756: THEN
10757: FND_MSG_PUB.Add_Exc_Msg
10758: ( g_pkg_name, l_api_name );
10759: END IF;
10760: FND_MSG_PUB.Count_And_Get
10761: ( p_count => x_msg_count,
10756: THEN
10757: FND_MSG_PUB.Add_Exc_Msg
10758: ( g_pkg_name, l_api_name );
10759: END IF;
10760: FND_MSG_PUB.Count_And_Get
10761: ( p_count => x_msg_count,
10762: p_data => x_msg_data );
10763: END unlock_item_instances;
10764: