[Home] [Help]
16: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data
17: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
18: procedure Get_Offset_Date(
19: p_api_version IN NUMBER ,
20: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
21: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
22: x_return_status OUT NOCOPY VARCHAR2 ,
23: x_msg_count OUT NOCOPY NUMBER ,
24: x_msg_data OUT NOCOPY VARCHAR2 ,
17: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
18: procedure Get_Offset_Date(
19: p_api_version IN NUMBER ,
20: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
21: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
22: x_return_status OUT NOCOPY VARCHAR2 ,
23: x_msg_count OUT NOCOPY NUMBER ,
24: x_msg_data OUT NOCOPY VARCHAR2 ,
25: p_start_date IN DATE,
39: -- p_api_version IN NUMBER (required)
40: -- API Version of this procedure
41: --
42: -- p_init_msg_list IN VARCHAR2 (optional)
43: -- DEFAULT = FND_API.G_FALSE,
44: --
45: -- p_commit IN VARCHAR2 (optional)
46: -- DEFAULT = FND_API.G_FALSE
47: --
42: -- p_init_msg_list IN VARCHAR2 (optional)
43: -- DEFAULT = FND_API.G_FALSE,
44: --
45: -- p_commit IN VARCHAR2 (optional)
46: -- DEFAULT = FND_API.G_FALSE
47: --
48: -- p_start_date IN DATE (Required)
49: -- date from which offset is computed
50: -- p_offset_days IN NUMBER (Required)
97: -- Standard start of API savepoint
98: SAVEPOINT Get_Offset_Date;
99: --
100: -- Standard Call to check for call compatibility
101: IF NOT FND_API.Compatible_API_Call(l_api_version
102: , p_api_version
103: , l_api_name
104: , G_PKG_NAME) THEN
105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: IF NOT FND_API.Compatible_API_Call(l_api_version
102: , p_api_version
103: , l_api_name
104: , G_PKG_NAME) THEN
105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106: END IF;
107: --
108: -- Initialize message list if p_init_msg_list is set to true
109: IF FND_API.to_Boolean(p_init_msg_list) THEN
105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106: END IF;
107: --
108: -- Initialize message list if p_init_msg_list is set to true
109: IF FND_API.to_Boolean(p_init_msg_list) THEN
110: FND_MSG_PUB.initialize;
111: END IF;
112: --
113: -- Initialisize API return status to access
110: FND_MSG_PUB.initialize;
111: END IF;
112: --
113: -- Initialisize API return status to access
114: x_return_status := FND_API.G_RET_STS_SUCCESS;
115: --
116: -- API body
117: --
118:
121: l_counter := l_counter + 1;
122: end loop;
123:
124: if (l_counter <> 1) then
125: raise fnd_api.g_exc_unexpected_error;
126: end if;
127:
128: --
129: -- END of API body
127:
128: --
129: -- END of API body
130: -- Standard check of p_commit
131: IF FND_API.to_Boolean(p_commit) THEN
132: COMMIT;
133: END IF;
134: -- Standard call to get message count and if count is 1, get message info
135: FND_MSG_PUB.Count_And_Get
136: (p_count => x_msg_count
137: , p_data => x_msg_data);
138:
139: EXCEPTION
140: WHEN FND_API.G_EXC_ERROR THEN
141: --
142: ROLLBACK TO Get_Offset_Date;
143: --
144: x_return_status := FND_API.G_RET_STS_ERROR;
140: WHEN FND_API.G_EXC_ERROR THEN
141: --
142: ROLLBACK TO Get_Offset_Date;
143: --
144: x_return_status := FND_API.G_RET_STS_ERROR;
145: --
146: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
147: , p_data => x_msg_data);
148: --
145: --
146: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
147: , p_data => x_msg_data);
148: --
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: --
151: ROLLBACK TO Get_Offset_Date;
152: --
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
150: --
151: ROLLBACK TO Get_Offset_Date;
152: --
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154: --
155: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
156: , p_data => x_msg_data);
157: --
158: WHEN OTHERS THEN
159: --
160: ROLLBACK TO Get_Offset_Date;
161: --
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: --
164: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
165: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
166: END IF;
311: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data
312: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
313: PROCEDURE Validate_AdjustAccount(
314: p_api_version IN NUMBER ,
315: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
316: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
317: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
318: x_return_status OUT NOCOPY VARCHAR2 ,
319: x_msg_count OUT NOCOPY NUMBER ,
312: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
313: PROCEDURE Validate_AdjustAccount(
314: p_api_version IN NUMBER ,
315: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
316: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
317: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
318: x_return_status OUT NOCOPY VARCHAR2 ,
319: x_msg_count OUT NOCOPY NUMBER ,
320: x_msg_data OUT NOCOPY VARCHAR2 ,
313: PROCEDURE Validate_AdjustAccount(
314: p_api_version IN NUMBER ,
315: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
316: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
317: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
318: x_return_status OUT NOCOPY VARCHAR2 ,
319: x_msg_count OUT NOCOPY NUMBER ,
320: x_msg_data OUT NOCOPY VARCHAR2 ,
321: p_adjustaccount_rec IN MTL_CCEOI_VAR_PVT.ADJUSTACCOUNT_REC_TYPE )
334: -- p_api_version IN NUMBER (required)
335: -- API Version of this procedure
336: --
337: -- p_init_msg_list IN VARCHAR2 (optional)
338: -- DEFAULT = FND_API.G_FALSE,
339: --
340: -- p_commit IN VARCHAR2 (optional)
341: -- DEFAULT = FND_API.G_FALSE
342: --
337: -- p_init_msg_list IN VARCHAR2 (optional)
338: -- DEFAULT = FND_API.G_FALSE,
339: --
340: -- p_commit IN VARCHAR2 (optional)
341: -- DEFAULT = FND_API.G_FALSE
342: --
343: -- p_validation_level IN NUMBER (optional)
344: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
345: --
340: -- p_commit IN VARCHAR2 (optional)
341: -- DEFAULT = FND_API.G_FALSE
342: --
343: -- p_validation_level IN NUMBER (optional)
344: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
345: --
346: -- p_adjustaccount_rec IN MTL_CCEOI_VAR_PVT.ADJUSTACCOUNT_REC_TYPE (required)
347: -- the RECORD parameter includes the
348: -- adjustment account
444: -- Standard start of API savepoint
445: SAVEPOINT Validate_AdjustAccount;
446: --
447: -- Standard Call to check for call compatibility
448: IF NOT FND_API.Compatible_API_Call(l_api_version
449: , p_api_version
450: , l_api_name
451: , G_PKG_NAME) THEN
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
448: IF NOT FND_API.Compatible_API_Call(l_api_version
449: , p_api_version
450: , l_api_name
451: , G_PKG_NAME) THEN
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454: --
455: -- Initialize message list if p_init_msg_list is set to true
456: IF FND_API.to_Boolean(p_init_msg_list) THEN
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454: --
455: -- Initialize message list if p_init_msg_list is set to true
456: IF FND_API.to_Boolean(p_init_msg_list) THEN
457: FND_MSG_PUB.initialize;
458: END IF;
459: --
460: -- Initialisize API return status to access
457: FND_MSG_PUB.initialize;
458: END IF;
459: --
460: -- Initialisize API return status to access
461: x_return_status := FND_API.G_RET_STS_SUCCESS;
462: --
463: -- API body
464: --
465: -- Check OF existence
475: c_rec. code_combination_id;
476: --
477: L_counter := L_counter + 1;
478: IF L_counter > 1 THEN
479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
480: END IF;
481: --
482: END LOOP;
483: --
518: c_rec. code_combination_id;
519: --
520: L_counter := L_counter + 1;
521: IF L_counter > 1 THEN
522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
523: END IF;
524: --
525: END LOOP;
526: --
527: END IF;
528: --
529: IF L_counter = 0 THEN
530: -- the Adjustment account does NOT exist
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
533: --
534: -- END of API body
535: -- Standard check of p_commit
532: END IF;
533: --
534: -- END of API body
535: -- Standard check of p_commit
536: IF FND_API.to_Boolean(p_commit) THEN
537: COMMIT;
538: END IF;
539: -- Standard call to get message count and if count is 1, get message info
540: FND_MSG_PUB.Count_And_Get
540: FND_MSG_PUB.Count_And_Get
541: (p_count => x_msg_count
542: , p_data => x_msg_data);
543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: --
546: ROLLBACK TO Validate_AdjustAccount;
547: --
548: x_return_status := FND_API.G_RET_STS_ERROR;
544: WHEN FND_API.G_EXC_ERROR THEN
545: --
546: ROLLBACK TO Validate_AdjustAccount;
547: --
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: --
550: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
551: , p_data => x_msg_data);
552: --
549: --
550: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
551: , p_data => x_msg_data);
552: --
553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
554: --
555: ROLLBACK TO Validate_AdjustAccount;
556: --
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
554: --
555: ROLLBACK TO Validate_AdjustAccount;
556: --
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558: --
559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
560: , p_data => x_msg_data);
561: --
562: WHEN OTHERS THEN
563: --
564: ROLLBACK TO Validate_AdjustAccount;
565: --
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
567: --
568: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
569: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
570: END IF;
578: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
579: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
580: PROCEDURE Validate_CountDate(
581: p_api_version IN NUMBER ,
582: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
583: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
584: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
585: x_return_status OUT NOCOPY VARCHAR2 ,
586: x_msg_count OUT NOCOPY NUMBER ,
579: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
580: PROCEDURE Validate_CountDate(
581: p_api_version IN NUMBER ,
582: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
583: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
584: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
585: x_return_status OUT NOCOPY VARCHAR2 ,
586: x_msg_count OUT NOCOPY NUMBER ,
587: x_msg_data OUT NOCOPY VARCHAR2 ,
580: PROCEDURE Validate_CountDate(
581: p_api_version IN NUMBER ,
582: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
583: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
584: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
585: x_return_status OUT NOCOPY VARCHAR2 ,
586: x_msg_count OUT NOCOPY NUMBER ,
587: x_msg_data OUT NOCOPY VARCHAR2 ,
588: x_errorcode OUT NOCOPY NUMBER ,
601: -- p_api_version IN NUMBER (required)
602: -- API Version of this procedure
603: --
604: -- p_init_msg_list IN VARCHAR2 (optional)
605: -- DEFAULT = FND_API.G_FALSE,
606: --
607: -- p_commit IN VARCHAR2 (optional)
608: -- DEFAULT = FND_API.G_FALSE
609: --
604: -- p_init_msg_list IN VARCHAR2 (optional)
605: -- DEFAULT = FND_API.G_FALSE,
606: --
607: -- p_commit IN VARCHAR2 (optional)
608: -- DEFAULT = FND_API.G_FALSE
609: --
610: -- p_validation_level IN NUMBER (optional)
611: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
612: --
607: -- p_commit IN VARCHAR2 (optional)
608: -- DEFAULT = FND_API.G_FALSE
609: --
610: -- p_validation_level IN NUMBER (optional)
611: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
612: --
613: -- p_count_date IN DATE (required)
614: -- DATE OF the COUNT
615: --
641: -- Standard start of API savepoint
642: SAVEPOINT Validate_CountDate;
643: --
644: -- Standard Call to check for call compatibility
645: IF NOT FND_API.Compatible_API_Call(l_api_version
646: , p_api_version
647: , l_api_name
648: , G_PKG_NAME) THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
645: IF NOT FND_API.Compatible_API_Call(l_api_version
646: , p_api_version
647: , l_api_name
648: , G_PKG_NAME) THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651: --
652: -- Initialize message list if p_init_msg_list is set to true
653: IF FND_API.to_Boolean(p_init_msg_list) THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651: --
652: -- Initialize message list if p_init_msg_list is set to true
653: IF FND_API.to_Boolean(p_init_msg_list) THEN
654: FND_MSG_PUB.initialize;
655: END IF;
656: --
657: -- Initialisize API return status to access
654: FND_MSG_PUB.initialize;
655: END IF;
656: --
657: -- Initialisize API return status to access
658: x_return_status := FND_API.G_RET_STS_SUCCESS;
659: x_errorcode := 0;
660: --
661: -- API body
662: --
667: IF p_count_date IS NULL THEN
668: x_errorcode := 59;
669: FND_MESSAGE.SET_NAME('INV', 'INV_COUNT_DATE_FUTURE');
670: FND_MSG_PUB.Add;
671: RAISE FND_API.G_EXC_ERROR;
672: END IF;
673: -- no future DATE
674: IF TRUNC(p_count_date) > TRUNC(SYSDATE) THEN
675: x_errorcode := 23;
674: IF TRUNC(p_count_date) > TRUNC(SYSDATE) THEN
675: x_errorcode := 23;
676: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_COUNT_DATE_FUTURE');
677: FND_MSG_PUB.Add;
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680: --
681: -- within a accounting period
682: IF(fnd_profile.defined('TRANSACTION_DATE')) THEN
696: FND_MESSAGE.SET_TOKEN('OPTION', 'TRANSACTION_DATE', TRUE);
697: FND_MESSAGE.SET_TOKEN('ROUTINE',
698: 'MTL_CC_TRANSACT_PKG.CC_TRANSACT ', TRUE);
699: FND_MSG_PUB.Add;
700: RAISE FND_API.G_EXC_ERROR;
701: END IF;
702:
703: IF L_profile_value = 2 THEN
704: IF trunc(p_count_date) < TRUNC(sysdate) THEN
704: IF trunc(p_count_date) < TRUNC(sysdate) THEN
705: x_errorcode := 24;
706: FND_MESSAGE.SET_NAME('INV', 'INV_NO_PAST_TXN_DATES');
707: FND_MSG_PUB.Add;
708: RAISE FND_API.G_EXC_ERROR;
709: END IF;
710: END IF;
711:
712: INVTTMTX.TDATECHK(
717: IF L_period_id = 0 THEN
718: x_errorcode := 24;
719: FND_MESSAGE.SET_NAME('INV', 'INV_NO_OPEN_PERIOD');
720: FND_MSG_PUB.Add;
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF L_period_id = -1 THEN
723: x_errorcode := 24;
724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
725: ELSE
720: FND_MSG_PUB.Add;
721: RAISE FND_API.G_EXC_ERROR;
722: ELSIF L_period_id = -1 THEN
723: x_errorcode := 24;
724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
725: ELSE
726: IF(L_profile_value = 3) AND
727: NOT(L_open_past_period) THEN
728: x_errorcode := 24;
727: NOT(L_open_past_period) THEN
728: x_errorcode := 24;
729: FND_MESSAGE.SET_NAME('INV', 'INV_NO_PAST_TXN_PERIODS');
730: FND_MSG_PUB.Add;
731: RAISE FND_API.G_EXC_ERROR;
732: END IF;
733: END IF;
734:
735:
737: MTL_CCEOI_VAR_PVT.G_COUNT_DATE := p_count_date;
738: --
739: -- END of API body
740: -- Standard check of p_commit
741: IF FND_API.to_Boolean(p_commit) THEN
742: COMMIT;
743: END IF;
744: -- Standard call to get message count and if count is 1, get message info
745: FND_MSG_PUB.Count_And_Get
745: FND_MSG_PUB.Count_And_Get
746: (p_count => x_msg_count
747: , p_data => x_msg_data);
748: EXCEPTION
749: WHEN FND_API.G_EXC_ERROR THEN
750: --
751: ROLLBACK TO Validate_CountDate;
752: --
753: x_return_status := FND_API.G_RET_STS_ERROR;
749: WHEN FND_API.G_EXC_ERROR THEN
750: --
751: ROLLBACK TO Validate_CountDate;
752: --
753: x_return_status := FND_API.G_RET_STS_ERROR;
754: --
755: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
756: , p_data => x_msg_data);
757: --
754: --
755: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
756: , p_data => x_msg_data);
757: --
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
759: --
760: ROLLBACK TO Validate_CountDate;
761: --
762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
759: --
760: ROLLBACK TO Validate_CountDate;
761: --
762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
763: --
764: x_errorcode := -1;
765: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
766: , p_data => x_msg_data);
769: --
770: ROLLBACK TO Validate_CountDate;
771: --
772: x_errorcode := -1;
773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
774: --
775: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
776: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
777: END IF;
785: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
786: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
787: PROCEDURE Validate_CountHeader(
788: p_api_version IN NUMBER ,
789: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
790: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
791: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
792: x_return_status OUT NOCOPY VARCHAR2 ,
793: x_msg_count OUT NOCOPY NUMBER ,
786: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
787: PROCEDURE Validate_CountHeader(
788: p_api_version IN NUMBER ,
789: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
790: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
791: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
792: x_return_status OUT NOCOPY VARCHAR2 ,
793: x_msg_count OUT NOCOPY NUMBER ,
794: x_msg_data OUT NOCOPY VARCHAR2 ,
787: PROCEDURE Validate_CountHeader(
788: p_api_version IN NUMBER ,
789: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
790: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
791: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
792: x_return_status OUT NOCOPY VARCHAR2 ,
793: x_msg_count OUT NOCOPY NUMBER ,
794: x_msg_data OUT NOCOPY VARCHAR2 ,
795: x_errorcode OUT NOCOPY VARCHAR2 ,
810: -- p_api_version IN NUMBER (required)
811: -- API Version of this procedure
812: --
813: -- p_init_msg_level IN VARCHAR2 (optional)
814: -- DEFAULT = FND_API.G_FALSE,
815: --
816: -- p_commit IN VARCHAR2 (optional)
817: -- DEFAULT = FND_API.G_FALSE
818: --
813: -- p_init_msg_level IN VARCHAR2 (optional)
814: -- DEFAULT = FND_API.G_FALSE,
815: --
816: -- p_commit IN VARCHAR2 (optional)
817: -- DEFAULT = FND_API.G_FALSE
818: --
819: -- p_validation_level IN NUMBER (optional)
820: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
821: --
816: -- p_commit IN VARCHAR2 (optional)
817: -- DEFAULT = FND_API.G_FALSE
818: --
819: -- p_validation_level IN NUMBER (optional)
820: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
821: --
822: -- p_cycle_count_header_id IN NUMBER default NULL (required - defaulted NULL)
823: -- Cycle COUNT header ID
824: --
867: -- Standard start of API savepoint
868: SAVEPOINT Validate_CountHeader;
869: --
870: -- Standard Call to check for call compatibility
871: IF NOT FND_API.Compatible_API_Call(l_api_version
872: , p_api_version
873: , l_api_name
874: , G_PKG_NAME) THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
871: IF NOT FND_API.Compatible_API_Call(l_api_version
872: , p_api_version
873: , l_api_name
874: , G_PKG_NAME) THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: END IF;
877: --
878: -- Initialize message list if p_init_msg_list is set to true
879: IF FND_API.to_Boolean(p_init_msg_list) THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: END IF;
877: --
878: -- Initialize message list if p_init_msg_list is set to true
879: IF FND_API.to_Boolean(p_init_msg_list) THEN
880: FND_MSG_PUB.initialize;
881: END IF;
882: --
883: -- Initialisize API return status to access
880: FND_MSG_PUB.initialize;
881: END IF;
882: --
883: -- Initialisize API return status to access
884: x_return_status := FND_API.G_RET_STS_SUCCESS;
885: x_errorcode := 0;
886: --
887: -- API body
888: --
919: THEN
920: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_HEADER');
921: FND_MSG_PUB.Add;
922: x_errorcode :=2;
923: RAISE FND_API.G_EXC_ERROR;
924: ELSE
925: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_SUCCESS');
926: FND_MSG_PUB.Add;
927: END IF;
929: (rec_counter = 0) THEN
930: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_HEADER');
931: FND_MSG_PUB.Add;
932: x_errorcode := 1;
933: RAISE FND_API.G_EXC_ERROR;
934: ELSIF
935: (rec_counter > 1) THEN
936: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_MULT_HEADER');
937: FND_MSG_PUB.Add;
935: (rec_counter > 1) THEN
936: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_MULT_HEADER');
937: FND_MSG_PUB.Add;
938: x_errorcode := 45;
939: RAISE FND_API.G_EXC_ERROR;
940: END IF;
941: --
942: --
943: -- END of API body
941: --
942: --
943: -- END of API body
944: -- Standard check of p_commit
945: IF FND_API.to_Boolean(p_commit) THEN
946: COMMIT;
947: END IF;
948: -- Standard call to get message count and if count is 1, get message info
949: FND_MSG_PUB.Count_And_Get
949: FND_MSG_PUB.Count_And_Get
950: (p_count => x_msg_count
951: , p_data => x_msg_data);
952: EXCEPTION
953: WHEN FND_API.G_EXC_ERROR THEN
954: --
955: ROLLBACK TO Validate_CountHeader;
956: --
957: x_return_status := FND_API.G_RET_STS_ERROR;
953: WHEN FND_API.G_EXC_ERROR THEN
954: --
955: ROLLBACK TO Validate_CountHeader;
956: --
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: --
959: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
960: , p_data => x_msg_data);
961: --
958: --
959: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
960: , p_data => x_msg_data);
961: --
962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
963: --
964: ROLLBACK TO Validate_CountHeader;
965: --
966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
963: --
964: ROLLBACK TO Validate_CountHeader;
965: --
966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: --
968: x_errorcode := -1;
969: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
970: , p_data => x_msg_data);
973: --
974: ROLLBACK TO Validate_CountHeader;
975: --
976: x_errorcode := -1;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: --
979: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
980: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
981: END IF;
989: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
990: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
991: PROCEDURE Validate_CountListSequence(
992: p_api_version NUMBER ,
993: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
994: p_commit VARCHAR2 DEFAULT FND_API.G_FALSE,
995: p_validation_level NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
996: x_return_status OUT NOCOPY VARCHAR2 ,
997: x_msg_count OUT NOCOPY NUMBER ,
990: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
991: PROCEDURE Validate_CountListSequence(
992: p_api_version NUMBER ,
993: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
994: p_commit VARCHAR2 DEFAULT FND_API.G_FALSE,
995: p_validation_level NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
996: x_return_status OUT NOCOPY VARCHAR2 ,
997: x_msg_count OUT NOCOPY NUMBER ,
998: x_msg_data OUT NOCOPY VARCHAR2 ,
991: PROCEDURE Validate_CountListSequence(
992: p_api_version NUMBER ,
993: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
994: p_commit VARCHAR2 DEFAULT FND_API.G_FALSE,
995: p_validation_level NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
996: x_return_status OUT NOCOPY VARCHAR2 ,
997: x_msg_count OUT NOCOPY NUMBER ,
998: x_msg_data OUT NOCOPY VARCHAR2 ,
999: x_errorcode OUT NOCOPY number ,
1016: -- p_api_version IN NUMBER (required)
1017: -- API Version of this procedure
1018: --
1019: -- p_init_msg_level IN VARCHAR2 (optional)
1020: -- DEFAULT = FND_API.G_FALSE,
1021: --
1022: -- p_commit IN VARCHAR2 (optional)
1023: -- DEFAULT = FND_API.G_FALSE
1024: --
1019: -- p_init_msg_level IN VARCHAR2 (optional)
1020: -- DEFAULT = FND_API.G_FALSE,
1021: --
1022: -- p_commit IN VARCHAR2 (optional)
1023: -- DEFAULT = FND_API.G_FALSE
1024: --
1025: -- p_validation_level IN NUMBER (optional)
1026: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1027: -- 0 = FOR Export validation
1022: -- p_commit IN VARCHAR2 (optional)
1023: -- DEFAULT = FND_API.G_FALSE
1024: --
1025: -- p_validation_level IN NUMBER (optional)
1026: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1027: -- 0 = FOR Export validation
1028: --
1029: -- p_cycle_count_header_id IN NUMBER (required -)
1030: -- Cycle COUNT header ID
1077: -- Standard start of API savepoint
1078: SAVEPOINT Validate_CountListSequence;
1079: --
1080: -- Standard Call to check for call compatibility
1081: IF NOT FND_API.Compatible_API_Call(l_api_version
1082: , p_api_version
1083: , l_api_name
1084: , G_PKG_NAME) THEN
1085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1081: IF NOT FND_API.Compatible_API_Call(l_api_version
1082: , p_api_version
1083: , l_api_name
1084: , G_PKG_NAME) THEN
1085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1087: --
1088: -- Initialize message list if p_init_msg_list is set to true
1089: IF FND_API.to_Boolean(p_init_msg_list) THEN
1085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1087: --
1088: -- Initialize message list if p_init_msg_list is set to true
1089: IF FND_API.to_Boolean(p_init_msg_list) THEN
1090: FND_MSG_PUB.initialize;
1091: END IF;
1092: --
1093: -- Initialisize API return status to access
1090: FND_MSG_PUB.initialize;
1091: END IF;
1092: --
1093: -- Initialisize API return status to access
1094: x_return_status := FND_API.G_RET_STS_SUCCESS;
1095: x_errorcode := 0;
1096: --
1097: -- API body
1098: --
1098: --
1099: IF P_Count_List_Sequence <= 0 THEN
1100: FND_MESSAGE.SET_NAME('INV', 'INV_POSITIVE_NUMBER');
1101: FND_MSG_PUB.Add;
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104: --
1105: IF (l_debug = 1) THEN
1106: MDEBUG( 'Validating Seq '||to_char(P_Count_List_Sequence));
1123: -- error Cycle COUNT must be unique
1124: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_MULT_MATCH_REQ');
1125: FND_MSG_PUB.Add;
1126: x_errorcode := 3;
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129: END LOOP;
1130: --
1131: IF(rec_counter = 0) THEN
1144: ELSE
1145: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_UNMATCH_LISTSEQ');
1146: FND_MSG_PUB.Add;
1147: x_errorcode := 46;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150: ELSIF -- XXX why do we post success message?
1151: (rec_counter = 1) THEN
1152: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_SUCCESS');
1156: --
1157: --
1158: -- END of API body
1159: -- Standard check of p_commit
1160: IF FND_API.to_Boolean(p_commit) THEN
1161: COMMIT;
1162: END IF;
1163: -- Standard call to get message count and if count is 1, get message info
1164: FND_MSG_PUB.Count_And_Get
1164: FND_MSG_PUB.Count_And_Get
1165: (p_count => x_msg_count
1166: , p_data => x_msg_data);
1167: EXCEPTION
1168: WHEN FND_API.G_EXC_ERROR THEN
1169: --
1170: ROLLBACK TO Validate_CountListSequence;
1171: --
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1168: WHEN FND_API.G_EXC_ERROR THEN
1169: --
1170: ROLLBACK TO Validate_CountListSequence;
1171: --
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: --
1174: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1175: , p_data => x_msg_data);
1176: --
1173: --
1174: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1175: , p_data => x_msg_data);
1176: --
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: --
1179: ROLLBACK TO Validate_CountListSequence;
1180: --
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1178: --
1179: ROLLBACK TO Validate_CountListSequence;
1180: --
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1182: --
1183: x_errorcode := -1;
1184: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1185: , p_data => x_msg_data);
1188: --
1189: ROLLBACK TO Validate_CountListSequence;
1190: --
1191: x_errorcode := -1;
1192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1193: --
1194: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1195: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1196: END IF;
1204: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
1205: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1206: PROCEDURE Validate_CountQuantity(
1207: p_api_version IN NUMBER ,
1208: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1209: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1210: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1211: x_return_status OUT NOCOPY VARCHAR2 ,
1212: x_msg_count OUT NOCOPY NUMBER ,
1205: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1206: PROCEDURE Validate_CountQuantity(
1207: p_api_version IN NUMBER ,
1208: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1209: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1210: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1211: x_return_status OUT NOCOPY VARCHAR2 ,
1212: x_msg_count OUT NOCOPY NUMBER ,
1213: x_msg_data OUT NOCOPY VARCHAR2 ,
1206: PROCEDURE Validate_CountQuantity(
1207: p_api_version IN NUMBER ,
1208: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1209: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1210: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1211: x_return_status OUT NOCOPY VARCHAR2 ,
1212: x_msg_count OUT NOCOPY NUMBER ,
1213: x_msg_data OUT NOCOPY VARCHAR2 ,
1214: x_errorcode OUT NOCOPY NUMBER ,
1229: -- p_api_version IN NUMBER (required)
1230: -- API Version of this procedure
1231: --
1232: -- p_init_msg_level IN VARCHAR2 (optional)
1233: -- DEFAULT = FND_API.G_FALSE,
1234: --
1235: -- p_commit IN VARCHAR2 (optional)
1236: -- DEFAULT = FND_API.G_FALSE
1237: --
1232: -- p_init_msg_level IN VARCHAR2 (optional)
1233: -- DEFAULT = FND_API.G_FALSE,
1234: --
1235: -- p_commit IN VARCHAR2 (optional)
1236: -- DEFAULT = FND_API.G_FALSE
1237: --
1238: -- p_validation_level IN NUMBER (optional)
1239: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1240: --
1235: -- p_commit IN VARCHAR2 (optional)
1236: -- DEFAULT = FND_API.G_FALSE
1237: --
1238: -- p_validation_level IN NUMBER (optional)
1239: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1240: --
1241: -- p_count_quantity IN NUMBER (required)
1242: -- the COUNT quantity
1243: --
1264: -- Standard start of API savepoint
1265: SAVEPOINT Validate_CountQuantity;
1266: --
1267: -- Standard Call to check for call compatibility
1268: IF NOT FND_API.Compatible_API_Call(l_api_version
1269: , p_api_version
1270: , l_api_name
1271: , G_PKG_NAME) THEN
1272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1268: IF NOT FND_API.Compatible_API_Call(l_api_version
1269: , p_api_version
1270: , l_api_name
1271: , G_PKG_NAME) THEN
1272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1273: END IF;
1274: --
1275: -- Initialize message list if p_init_msg_list is set to true
1276: IF FND_API.to_Boolean(p_init_msg_list) THEN
1272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1273: END IF;
1274: --
1275: -- Initialize message list if p_init_msg_list is set to true
1276: IF FND_API.to_Boolean(p_init_msg_list) THEN
1277: FND_MSG_PUB.initialize;
1278: END IF;
1279: --
1280: -- Initialisize API return status to access
1277: FND_MSG_PUB.initialize;
1278: END IF;
1279: --
1280: -- Initialisize API return status to access
1281: x_return_status := FND_API.G_RET_STS_SUCCESS;
1282: x_errorcode := 0;
1283: --
1284: -- API body
1285: --
1296: END IF;
1297: x_errorcode := 60;
1298: FND_MESSAGE.SET_NAME('INV', 'INV_SERIAL_QTY_MUST_BE_1');
1299: FND_MSG_PUB.Add;
1300: RAISE FND_API.G_EXC_ERROR;
1301: END IF;
1302: ELSE
1303: IF p_count_quantity IS NULL THEN
1304: IF (l_debug = 1) THEN
1306: END IF;
1307: x_errorcode := 61;
1308: FND_MESSAGE.SET_NAME('INV', 'INV_GREATER_EQUAL_ZERO');
1309: FND_MSG_PUB.Add;
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312: END IF;
1313: --
1314: IF p_count_quantity < 0 THEN
1317: END IF;
1318: x_errorcode := 22;
1319: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NEG_QTY');
1320: FND_MSG_PUB.Add;
1321: RAISE FND_API.G_EXC_ERROR;
1322: ELSE
1323: MTL_CCEOI_VAR_PVT.G_COUNT_QUANTITY := p_count_quantity;
1324: END IF;
1325: --
1324: END IF;
1325: --
1326: -- END of API body
1327: -- Standard check of p_commit
1328: IF FND_API.to_Boolean(p_commit) THEN
1329: COMMIT;
1330: END IF;
1331: -- Standard call to get message count and if count is 1, get message info
1332: FND_MSG_PUB.Count_And_Get
1332: FND_MSG_PUB.Count_And_Get
1333: (p_count => x_msg_count
1334: , p_data => x_msg_data);
1335: EXCEPTION
1336: WHEN FND_API.G_EXC_ERROR THEN
1337: --
1338: ROLLBACK TO Validate_CountQuantity;
1339: --
1340: x_return_status := FND_API.G_RET_STS_ERROR;
1336: WHEN FND_API.G_EXC_ERROR THEN
1337: --
1338: ROLLBACK TO Validate_CountQuantity;
1339: --
1340: x_return_status := FND_API.G_RET_STS_ERROR;
1341: IF (l_debug = 1) THEN
1342: MDEBUG( 'Error CntQty-Stat= '||x_return_status);
1343: END IF;
1344: --
1344: --
1345: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1346: , p_data => x_msg_data);
1347: --
1348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1349: --
1350: ROLLBACK TO Validate_CountQuantity;
1351: --
1352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1349: --
1350: ROLLBACK TO Validate_CountQuantity;
1351: --
1352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1353: --
1354: x_errorcode := -1;
1355: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1356: , p_data => x_msg_data);
1359: --
1360: ROLLBACK TO Validate_CountQuantity;
1361: --
1362: x_errorcode := -1;
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: --
1365: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1366: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1367: END IF;
1375: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
1376: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1377: PROCEDURE Validate_Ctrol(
1378: p_api_version IN NUMBER ,
1379: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1380: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1381: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1382: x_return_status OUT NOCOPY VARCHAR2 ,
1383: x_msg_count OUT NOCOPY NUMBER ,
1376: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1377: PROCEDURE Validate_Ctrol(
1378: p_api_version IN NUMBER ,
1379: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1380: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1381: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1382: x_return_status OUT NOCOPY VARCHAR2 ,
1383: x_msg_count OUT NOCOPY NUMBER ,
1384: x_msg_data OUT NOCOPY VARCHAR2 ,
1377: PROCEDURE Validate_Ctrol(
1378: p_api_version IN NUMBER ,
1379: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1380: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1381: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1382: x_return_status OUT NOCOPY VARCHAR2 ,
1383: x_msg_count OUT NOCOPY NUMBER ,
1384: x_msg_data OUT NOCOPY VARCHAR2 ,
1385: x_errorcode OUT NOCOPY NUMBER ,
1411: -- p_api_version IN NUMBER (required)
1412: -- API Version of this procedure
1413: --
1414: -- p_init_msg_level IN VARCHAR2 (optional)
1415: -- DEFAULT = FND_API.G_FALSE,
1416: --
1417: -- p_commit IN VARCHAR2 (optional)
1418: -- DEFAULT = FND_API.G_FALSE
1419: --
1414: -- p_init_msg_level IN VARCHAR2 (optional)
1415: -- DEFAULT = FND_API.G_FALSE,
1416: --
1417: -- p_commit IN VARCHAR2 (optional)
1418: -- DEFAULT = FND_API.G_FALSE
1419: --
1420: -- p_validation_level IN NUMBER (optional)
1421: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1422: --
1417: -- p_commit IN VARCHAR2 (optional)
1418: -- DEFAULT = FND_API.G_FALSE
1419: --
1420: -- p_validation_level IN NUMBER (optional)
1421: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1422: --
1423: -- p_inventory _item_id IN NUMBER (required)
1424: -- inventory item id
1425: --
1480: -- Standard start of API savepoint
1481: SAVEPOINT Validate_Ctrol;
1482: --
1483: -- Standard Call to check for call compatibility
1484: IF NOT FND_API.Compatible_API_Call(l_api_version
1485: , p_api_version
1486: , l_api_name
1487: , G_PKG_NAME) THEN
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1484: IF NOT FND_API.Compatible_API_Call(l_api_version
1485: , p_api_version
1486: , l_api_name
1487: , G_PKG_NAME) THEN
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1489: END IF;
1490: --
1491: -- Initialize message list if p_init_msg_list is set to true
1492: IF FND_API.to_Boolean(p_init_msg_list) THEN
1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1489: END IF;
1490: --
1491: -- Initialize message list if p_init_msg_list is set to true
1492: IF FND_API.to_Boolean(p_init_msg_list) THEN
1493: FND_MSG_PUB.initialize;
1494: END IF;
1495: --
1496: -- Initialisize API return status to access
1493: FND_MSG_PUB.initialize;
1494: END IF;
1495: --
1496: -- Initialisize API return status to access
1497: x_return_status := FND_API.G_RET_STS_SUCCESS;
1498: x_errorcode := 0;
1499: --
1500: -- API body
1501: --
1584: END IF;
1585: x_errorcode := 9;
1586: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_LOC');
1587: FND_MSG_PUB.Add;
1588: RAISE FND_API.G_EXC_ERROR;
1589: --
1590: END IF;
1591: END IF;
1592: IF (l_debug = 1) THEN
1608: END IF;
1609: x_errorcode := 15;
1610: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_SERIAL');
1611: FND_MSG_PUB.Add;
1612: RAISE FND_API.G_EXC_ERROR;
1613:
1614: ELSIF MTL_CCEOI_VAR_PVT.G_SKU_REC.SERIAL_NUMBER_CONTROL_CODE = 0 THEN
1615: --XXX it should not ever be 0
1616: MTL_CCEOI_VAR_PVT.G_SKU_REC.SERIAL_NUMBER := NULL;
1628: END IF;
1629: x_errorcode := 11;
1630: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_REV');
1631: FND_MSG_PUB.Add;
1632: RAISE FND_API.G_EXC_ERROR;
1633: --
1634: ELSIF MTL_CCEOI_VAR_PVT.G_SKU_REC.REVISION_QTY_CONTROL_CODE = 1 THEN
1635: MTL_CCEOI_VAR_PVT.G_SKU_REC.REVISION := NULL;
1636: END IF;
1647: END IF;
1648: x_errorcode := 13;
1649: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_LOT');
1650: FND_MSG_PUB.Add;
1651: RAISE FND_API.G_EXC_ERROR;
1652: --
1653: ELSIF MTL_CCEOI_VAR_PVT.G_SKU_REC.LOT_CONTROL_CODE= 1 THEN
1654: MTL_CCEOI_VAR_PVT.G_SKU_REC.LOT_NUMBER := NULL;
1655: END IF;
1655: END IF;
1656: --
1657: -- END of API body
1658: -- Standard check of p_commit
1659: IF FND_API.to_Boolean(p_commit) THEN
1660: COMMIT;
1661: END IF;
1662: -- Standard call to get message count and if count is 1, get message info
1663: FND_MSG_PUB.Count_And_Get
1663: FND_MSG_PUB.Count_And_Get
1664: (p_count => x_msg_count
1665: , p_data => x_msg_data);
1666: EXCEPTION
1667: WHEN FND_API.G_EXC_ERROR THEN
1668: --
1669: ROLLBACK TO Validate_Ctrol;
1670: --
1671: x_return_status := FND_API.G_RET_STS_ERROR;
1667: WHEN FND_API.G_EXC_ERROR THEN
1668: --
1669: ROLLBACK TO Validate_Ctrol;
1670: --
1671: x_return_status := FND_API.G_RET_STS_ERROR;
1672: --
1673: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1674: , p_data => x_msg_data);
1675: --
1672: --
1673: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1674: , p_data => x_msg_data);
1675: --
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1677: --
1678: ROLLBACK TO Validate_Ctrol;
1679: --
1680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1677: --
1678: ROLLBACK TO Validate_Ctrol;
1679: --
1680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1681: --
1682: x_errorcode := -1;
1683: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1684: , p_data => x_msg_data);
1687: --
1688: ROLLBACK TO Validate_Ctrol;
1689: --
1690: x_errorcode := -1;
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1692: --
1693: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1694: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1695: END IF;
1703: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
1704: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1705: PROCEDURE Validate_CountUOM(
1706: p_api_version IN NUMBER ,
1707: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1708: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1709: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1710: x_return_status OUT NOCOPY VARCHAR2 ,
1711: x_msg_count OUT NOCOPY NUMBER ,
1704: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1705: PROCEDURE Validate_CountUOM(
1706: p_api_version IN NUMBER ,
1707: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1708: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1709: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1710: x_return_status OUT NOCOPY VARCHAR2 ,
1711: x_msg_count OUT NOCOPY NUMBER ,
1712: x_msg_data OUT NOCOPY VARCHAR2 ,
1705: PROCEDURE Validate_CountUOM(
1706: p_api_version IN NUMBER ,
1707: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1708: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1709: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1710: x_return_status OUT NOCOPY VARCHAR2 ,
1711: x_msg_count OUT NOCOPY NUMBER ,
1712: x_msg_data OUT NOCOPY VARCHAR2 ,
1713: x_errorcode OUT NOCOPY NUMBER ,
1731: -- p_api_version IN NUMBER (required)
1732: -- API Version of this procedure
1733: --
1734: -- p_init_msg_level IN VARCHAR2 (optional)
1735: -- DEFAULT = FND_API.G_FALSE,
1736: --
1737: -- p_commit IN VARCHAR2 (optional)
1738: -- DEFAULT = FND_API.G_FALSE
1739: --
1734: -- p_init_msg_level IN VARCHAR2 (optional)
1735: -- DEFAULT = FND_API.G_FALSE,
1736: --
1737: -- p_commit IN VARCHAR2 (optional)
1738: -- DEFAULT = FND_API.G_FALSE
1739: --
1740: -- p_validation_level IN NUMBER (optional)
1741: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1742: --
1737: -- p_commit IN VARCHAR2 (optional)
1738: -- DEFAULT = FND_API.G_FALSE
1739: --
1740: -- p_validation_level IN NUMBER (optional)
1741: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1742: --
1743: -- p_count_uom IN VARCHAR2 (required - defaulted)
1744: -- default = NULL
1745: -- unit OF measure code OF the current cycle COUNT entry
1794: -- Standard start of API savepoint
1795: SAVEPOINT Validate_CountUOM;
1796: --
1797: -- Standard Call to check for call compatibility
1798: IF NOT FND_API.Compatible_API_Call(l_api_version
1799: , p_api_version
1800: , l_api_name
1801: , G_PKG_NAME) THEN
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: IF NOT FND_API.Compatible_API_Call(l_api_version
1799: , p_api_version
1800: , l_api_name
1801: , G_PKG_NAME) THEN
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: END IF;
1804: --
1805: -- Initialize message list if p_init_msg_list is set to true
1806: IF FND_API.to_Boolean(p_init_msg_list) THEN
1802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1803: END IF;
1804: --
1805: -- Initialize message list if p_init_msg_list is set to true
1806: IF FND_API.to_Boolean(p_init_msg_list) THEN
1807: FND_MSG_PUB.initialize;
1808: END IF;
1809: --
1810: -- Initialisize API return status to access
1807: FND_MSG_PUB.initialize;
1808: END IF;
1809: --
1810: -- Initialisize API return status to access
1811: x_return_status := FND_API.G_RET_STS_SUCCESS;
1812: x_errorcode := 0;
1813: --
1814: -- API body
1815: --
1820: --
1821: x_errorcode := 19;
1822: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_UOM');
1823: FND_MSG_PUB.Add;
1824: RAISE FND_API.G_EXC_ERROR;
1825: --
1826: ELSIF
1827: p_count_uom IS NOT NULL AND p_count_unit_of_measure IS NULL THEN
1828: --
1848: IF L_counter < 1 THEN
1849: x_errorcode := 20;
1850: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_UOM');
1851: FND_MSG_PUB.Add;
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854: --
1855: -- END of API body
1856: -- Standard check of p_commit
1853: END IF;
1854: --
1855: -- END of API body
1856: -- Standard check of p_commit
1857: IF FND_API.to_Boolean(p_commit) THEN
1858: COMMIT;
1859: END IF;
1860: -- Standard call to get message count and if count is 1, get message info
1861: FND_MSG_PUB.Count_And_Get
1861: FND_MSG_PUB.Count_And_Get
1862: (p_count => x_msg_count
1863: , p_data => x_msg_data);
1864: EXCEPTION
1865: WHEN FND_API.G_EXC_ERROR THEN
1866: --
1867: ROLLBACK TO Validate_CountUOM;
1868: --
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1865: WHEN FND_API.G_EXC_ERROR THEN
1866: --
1867: ROLLBACK TO Validate_CountUOM;
1868: --
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: --
1871: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1872: , p_data => x_msg_data);
1873: --
1870: --
1871: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1872: , p_data => x_msg_data);
1873: --
1874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1875: --
1876: ROLLBACK TO Validate_CountUOM;
1877: --
1878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1875: --
1876: ROLLBACK TO Validate_CountUOM;
1877: --
1878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879: --
1880: x_errorcode := -1;
1881: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1882: , p_data => x_msg_data);
1885: --
1886: ROLLBACK TO Validate_CountUOM;
1887: --
1888: x_errorcode := -1;
1889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1890: --
1891: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1892: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1893: END IF;
1901: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
1902: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1903: PROCEDURE Validate_Item(
1904: p_api_version IN NUMBER ,
1905: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1906: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1907: P_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1908: x_return_status OUT NOCOPY VARCHAR2 ,
1909: x_msg_count OUT NOCOPY NUMBER ,
1902: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
1903: PROCEDURE Validate_Item(
1904: p_api_version IN NUMBER ,
1905: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1906: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1907: P_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1908: x_return_status OUT NOCOPY VARCHAR2 ,
1909: x_msg_count OUT NOCOPY NUMBER ,
1910: x_msg_data OUT NOCOPY VARCHAR2 ,
1903: PROCEDURE Validate_Item(
1904: p_api_version IN NUMBER ,
1905: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1906: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1907: P_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
1908: x_return_status OUT NOCOPY VARCHAR2 ,
1909: x_msg_count OUT NOCOPY NUMBER ,
1910: x_msg_data OUT NOCOPY VARCHAR2 ,
1911: x_errorcode OUT NOCOPY NUMBER ,
1931: -- p_api_version IN NUMBER (required)
1932: -- API Version of this procedure
1933: --
1934: -- p_init_msg_list IN VARCHAR2 (optional)
1935: -- DEFAULT = FND_API.G_FALSE,
1936: --
1937: -- p_commit IN VARCHAR2 (optional)
1938: -- DEFAULT = FND_API.G_FALSE
1939: --
1934: -- p_init_msg_list IN VARCHAR2 (optional)
1935: -- DEFAULT = FND_API.G_FALSE,
1936: --
1937: -- p_commit IN VARCHAR2 (optional)
1938: -- DEFAULT = FND_API.G_FALSE
1939: --
1940: -- p_validation_level IN NUMBER (optional)
1941: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1942: --
1937: -- p_commit IN VARCHAR2 (optional)
1938: -- DEFAULT = FND_API.G_FALSE
1939: --
1940: -- p_validation_level IN NUMBER (optional)
1941: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
1942: --
1943: -- p_inventory_item_rec IN MTL_CCEOI_VAR_PVT.INV_ITEM_REC_TYPE (required)
1944: -- Item information with segments
1945: --
1988: -- Standard start of API savepoint
1989: SAVEPOINT Validate_Item;
1990: --
1991: -- Standard Call to check for call compatibility
1992: IF NOT FND_API.Compatible_API_Call(l_api_version
1993: , p_api_version
1994: , l_api_name
1995: , G_PKG_NAME) THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1992: IF NOT FND_API.Compatible_API_Call(l_api_version
1993: , p_api_version
1994: , l_api_name
1995: , G_PKG_NAME) THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1998: --
1999: -- Initialize message list if p_init_msg_list is set to true
2000: IF FND_API.to_Boolean(p_init_msg_list) THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1998: --
1999: -- Initialize message list if p_init_msg_list is set to true
2000: IF FND_API.to_Boolean(p_init_msg_list) THEN
2001: FND_MSG_PUB.initialize;
2002: END IF;
2003: --
2004: -- Initialisize API return status to access
2001: FND_MSG_PUB.initialize;
2002: END IF;
2003: --
2004: -- Initialisize API return status to access
2005: x_return_status := FND_API.G_RET_STS_SUCCESS;
2006: x_errorcode := 0;
2007: --
2008: -- API body
2009: IF (l_debug = 1) THEN
2073: IF L_counter = 0 THEN
2074: x_errorcode := 4;
2075: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_ITEM');
2076: FND_MSG_PUB.Add;
2077: RAISE FND_API.G_EXC_ERROR;
2078: ELSIF
2079: l_counter = 1 THEN
2080: L_counter := 0;
2081: --
2085: p_cycle_count_header_id) LOOP
2086: --
2087: L_counter := L_counter +1;
2088: IF L_counter > 1 THEN
2089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2090: END IF;
2091: --
2092: END LOOP;
2093: --
2102: END IF;
2103: --
2104: -- END of API body
2105: -- Standard check of p_commit
2106: IF FND_API.to_Boolean(p_commit) THEN
2107: COMMIT;
2108: END IF;
2109: -- Standard call to get message count and if count is 1, get message info
2110: FND_MSG_PUB.Count_And_Get
2110: FND_MSG_PUB.Count_And_Get
2111: (p_count => x_msg_count
2112: , p_data => x_msg_data);
2113: EXCEPTION
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: --
2116: ROLLBACK TO Validate_Item;
2117: --
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2114: WHEN FND_API.G_EXC_ERROR THEN
2115: --
2116: ROLLBACK TO Validate_Item;
2117: --
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: --
2120: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2121: , p_data => x_msg_data);
2122: --
2119: --
2120: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2121: , p_data => x_msg_data);
2122: --
2123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2124: --
2125: ROLLBACK TO Validate_Item;
2126: --
2127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2124: --
2125: ROLLBACK TO Validate_Item;
2126: --
2127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2128: --
2129: x_errorcode := -1;
2130: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2131: , p_data => x_msg_data);
2134: --
2135: ROLLBACK TO Validate_Item;
2136: --
2137: x_errorcode := -1;
2138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2139: --
2140: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2141: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2142: END IF;
2150: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
2151: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
2152: PROCEDURE Validate_Locator(
2153: p_api_version IN NUMBER ,
2154: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2155: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2156: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2157: x_return_status OUT NOCOPY VARCHAR2 ,
2158: x_msg_count OUT NOCOPY NUMBER ,
2151: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
2152: PROCEDURE Validate_Locator(
2153: p_api_version IN NUMBER ,
2154: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2155: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2156: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2157: x_return_status OUT NOCOPY VARCHAR2 ,
2158: x_msg_count OUT NOCOPY NUMBER ,
2159: x_msg_data OUT NOCOPY VARCHAR2 ,
2152: PROCEDURE Validate_Locator(
2153: p_api_version IN NUMBER ,
2154: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2155: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2156: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2157: x_return_status OUT NOCOPY VARCHAR2 ,
2158: x_msg_count OUT NOCOPY NUMBER ,
2159: x_msg_data OUT NOCOPY VARCHAR2 ,
2160: x_errorcode OUT NOCOPY NUMBER ,
2164: p_inventory_item_id IN NUMBER ,
2165: p_locator_control IN NUMBER ,
2166: p_control_level IN NUMBER ,
2167: p_restrict_control IN NUMBER,
2168: p_simulate IN VARCHAR2 DEFAULT FND_API.G_FALSE)
2169: IS
2170: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2171: BEGIN
2172: -- Start OF comments
2179: -- p_api_version IN NUMBER (required)
2180: -- API Version of this procedure
2181: --
2182: -- p_init_msg_level IN VARCHAR2 (optional)
2183: -- DEFAULT = FND_API.G_FALSE,
2184: --
2185: -- p_commit IN VARCHAR2 (optional)
2186: -- DEFAULT = FND_API.G_FALSE
2187: --
2182: -- p_init_msg_level IN VARCHAR2 (optional)
2183: -- DEFAULT = FND_API.G_FALSE,
2184: --
2185: -- p_commit IN VARCHAR2 (optional)
2186: -- DEFAULT = FND_API.G_FALSE
2187: --
2188: -- p_validation_level IN NUMBER (optional)
2189: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2190: --
2185: -- p_commit IN VARCHAR2 (optional)
2186: -- DEFAULT = FND_API.G_FALSE
2187: --
2188: -- p_validation_level IN NUMBER (optional)
2189: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2190: --
2191: -- p_locator_rec MTL_CCEOI_VAR_PVT.INV_LOCATOR_REC_TYPE (required)
2192: -- Locator information with segments
2193: --
2243: -- Standard start of API savepoint
2244: SAVEPOINT Validate_Locator;
2245: --
2246: -- Standard Call to check for call compatibility
2247: IF NOT FND_API.Compatible_API_Call(l_api_version
2248: , p_api_version
2249: , l_api_name
2250: , G_PKG_NAME) THEN
2251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2247: IF NOT FND_API.Compatible_API_Call(l_api_version
2248: , p_api_version
2249: , l_api_name
2250: , G_PKG_NAME) THEN
2251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2252: END IF;
2253: --
2254: -- Initialize message list if p_init_msg_list is set to true
2255: IF FND_API.to_Boolean(p_init_msg_list) THEN
2251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2252: END IF;
2253: --
2254: -- Initialize message list if p_init_msg_list is set to true
2255: IF FND_API.to_Boolean(p_init_msg_list) THEN
2256: FND_MSG_PUB.initialize;
2257: END IF;
2258: --
2259: -- Initialisize API return status to access
2256: FND_MSG_PUB.initialize;
2257: END IF;
2258: --
2259: -- Initialisize API return status to access
2260: x_return_status := FND_API.G_RET_STS_SUCCESS;
2261: x_errorcode := 0;
2262: --
2263: -- API body
2264: l_org.organization_id := p_organization_id;
2323: (p_restrict_control = 1 AND p_control_level=1) THEN
2324: x_errorcode := 10;
2325: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_LOC');
2326: FND_MSG_PUB.Add;
2327: RAISE FND_API.G_EXC_ERROR;
2328: END IF;
2329: -- Dynamic locator creation
2330: IF p_locator_control = 3 THEN
2331: IF (l_debug = 1) THEN
2340: END IF;
2341: x_errorcode := 10;
2342: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_LOC');
2343: FND_MSG_PUB.Add;
2344: RAISE FND_API.G_EXC_ERROR;
2345: END IF;
2346: END IF;
2347: ELSE
2348: --
2368: END IF;
2369: x_errorcode := 47;
2370: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_LOC_NOT_IN_LIST');
2371: FND_MSG_PUB.Add;
2372: RAISE FND_API.G_EXC_ERROR;
2373: END IF;
2374: END IF;
2375: x_errorcode := 0;
2376: END IF;
2376: END IF;
2377: --
2378: -- END of API body
2379: -- Standard check of p_commit
2380: IF FND_API.to_Boolean(p_commit) THEN
2381: COMMIT;
2382: END IF;
2383: -- Standard call to get message count and if count is 1, get message info
2384: FND_MSG_PUB.Count_And_Get
2384: FND_MSG_PUB.Count_And_Get
2385: (p_count => x_msg_count
2386: , p_data => x_msg_data);
2387: EXCEPTION
2388: WHEN FND_API.G_EXC_ERROR THEN
2389: --
2390: ROLLBACK TO Validate_Locator;
2391: --
2392: x_return_status := FND_API.G_RET_STS_ERROR;
2388: WHEN FND_API.G_EXC_ERROR THEN
2389: --
2390: ROLLBACK TO Validate_Locator;
2391: --
2392: x_return_status := FND_API.G_RET_STS_ERROR;
2393: --
2394: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2395: , p_data => x_msg_data);
2396: --
2393: --
2394: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2395: , p_data => x_msg_data);
2396: --
2397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2398: --
2399: ROLLBACK TO Validate_Locator;
2400: --
2401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2398: --
2399: ROLLBACK TO Validate_Locator;
2400: --
2401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2402: --
2403: x_errorcode := -1;
2404: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2405: , p_data => x_msg_data);
2408: --
2409: ROLLBACK TO Validate_Locator;
2410: --
2411: x_errorcode := -1;
2412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413: --
2414: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2415: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2416: END IF;
2424: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
2425: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
2426: PROCEDURE Validate_PrimaryUomQuantity(
2427: p_api_version IN NUMBER ,
2428: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2429: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2430: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2431: x_return_status OUT NOCOPY VARCHAR2 ,
2432: x_msg_count OUT NOCOPY NUMBER ,
2425: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
2426: PROCEDURE Validate_PrimaryUomQuantity(
2427: p_api_version IN NUMBER ,
2428: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2429: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2430: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2431: x_return_status OUT NOCOPY VARCHAR2 ,
2432: x_msg_count OUT NOCOPY NUMBER ,
2433: x_msg_data OUT NOCOPY VARCHAR2 ,
2426: PROCEDURE Validate_PrimaryUomQuantity(
2427: p_api_version IN NUMBER ,
2428: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2429: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2430: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2431: x_return_status OUT NOCOPY VARCHAR2 ,
2432: x_msg_count OUT NOCOPY NUMBER ,
2433: x_msg_data OUT NOCOPY VARCHAR2 ,
2434: x_errorcode OUT NOCOPY NUMBER ,
2448: -- p_api_version IN NUMBER (required)
2449: -- API Version of this procedure
2450: --
2451: -- p_init_msg_level IN VARCHAR2 (optional)
2452: -- DEFAULT = FND_API.G_FALSE,
2453: --
2454: -- p_commit IN VARCHAR2 (optional)
2455: -- DEFAULT = FND_API.G_FALSE
2456: --
2451: -- p_init_msg_level IN VARCHAR2 (optional)
2452: -- DEFAULT = FND_API.G_FALSE,
2453: --
2454: -- p_commit IN VARCHAR2 (optional)
2455: -- DEFAULT = FND_API.G_FALSE
2456: --
2457: -- p_validation_level IN NUMBER (optional)
2458: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2459: --
2454: -- p_commit IN VARCHAR2 (optional)
2455: -- DEFAULT = FND_API.G_FALSE
2456: --
2457: -- p_validation_level IN NUMBER (optional)
2458: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2459: --
2460: -- p_primary_uom_quantity IN NUMBER (required)
2461: -- Primary quantity
2462: --
2491: -- Standard start of API savepoint
2492: SAVEPOINT Validate_PrimaryUomQuantity;
2493: --
2494: -- Standard Call to check for call compatibility
2495: IF NOT FND_API.Compatible_API_Call(l_api_version
2496: , p_api_version
2497: , l_api_name
2498: , G_PKG_NAME) THEN
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2495: IF NOT FND_API.Compatible_API_Call(l_api_version
2496: , p_api_version
2497: , l_api_name
2498: , G_PKG_NAME) THEN
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: END IF;
2501: --
2502: -- Initialize message list if p_init_msg_list is set to true
2503: IF FND_API.to_Boolean(p_init_msg_list) THEN
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: END IF;
2501: --
2502: -- Initialize message list if p_init_msg_list is set to true
2503: IF FND_API.to_Boolean(p_init_msg_list) THEN
2504: FND_MSG_PUB.initialize;
2505: END IF;
2506: --
2507: -- Initialisize API return status to access
2504: FND_MSG_PUB.initialize;
2505: END IF;
2506: --
2507: -- Initialisize API return status to access
2508: x_return_status := FND_API.G_RET_STS_SUCCESS;
2509: x_errorcode := 0;
2510: --
2511: -- API body
2512: IF (l_debug = 1) THEN
2516: IF p_primary_uom_quantity is NULL THEN
2517: x_errorcode := 19;
2518: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_UOM');
2519: FND_MSG_PUB.Add;
2520: RAISE FND_API.G_EXC_ERROR;
2521: ELSE
2522: MTL_CCEOI_VAR_PVT.G_UOM_CODE := MTL_CCEOI_VAR_PVT.G_PRIMARY_UOM_CODE;
2523: Validate_CountQuantity(
2524: p_api_version => 0.9,
2531:
2532: --
2533: -- END of API body
2534: -- Standard check of p_commit
2535: IF FND_API.to_Boolean(p_commit) THEN
2536: COMMIT;
2537: END IF;
2538: -- Standard call to get message count and if count is 1, get message info
2539: FND_MSG_PUB.Count_And_Get
2539: FND_MSG_PUB.Count_And_Get
2540: (p_count => x_msg_count
2541: , p_data => x_msg_data);
2542: EXCEPTION
2543: WHEN FND_API.G_EXC_ERROR THEN
2544: --
2545: ROLLBACK TO Validate_PrimaryUomQuantity;
2546: --
2547: x_return_status := FND_API.G_RET_STS_ERROR;
2543: WHEN FND_API.G_EXC_ERROR THEN
2544: --
2545: ROLLBACK TO Validate_PrimaryUomQuantity;
2546: --
2547: x_return_status := FND_API.G_RET_STS_ERROR;
2548: --
2549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2550: , p_data => x_msg_data);
2551: --
2548: --
2549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2550: , p_data => x_msg_data);
2551: --
2552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2553: --
2554: ROLLBACK TO Validate_PrimaryUomQuantity;
2555: --
2556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2553: --
2554: ROLLBACK TO Validate_PrimaryUomQuantity;
2555: --
2556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2557: --
2558: x_errorcode := -1;
2559: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2560: , p_data => x_msg_data);
2563: --
2564: ROLLBACK TO Validate_PrimaryUomQuantity;
2565: --
2566: x_errorcode := -1;
2567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2568: --
2569: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2570: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2571: END IF;
2579: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
2580: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
2581: PROCEDURE Validate_Subinv(
2582: p_api_version IN NUMBER ,
2583: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2584: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2585: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2586: x_return_status OUT NOCOPY VARCHAR2 ,
2587: x_msg_count OUT NOCOPY NUMBER ,
2580: --OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
2581: PROCEDURE Validate_Subinv(
2582: p_api_version IN NUMBER ,
2583: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2584: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2585: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2586: x_return_status OUT NOCOPY VARCHAR2 ,
2587: x_msg_count OUT NOCOPY NUMBER ,
2588: x_msg_data OUT NOCOPY VARCHAR2 ,
2581: PROCEDURE Validate_Subinv(
2582: p_api_version IN NUMBER ,
2583: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2584: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2585: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2586: x_return_status OUT NOCOPY VARCHAR2 ,
2587: x_msg_count OUT NOCOPY NUMBER ,
2588: x_msg_data OUT NOCOPY VARCHAR2 ,
2589: x_errorcode OUT NOCOPY NUMBER ,
2606: -- p_api_version IN NUMBER (required)
2607: -- API Version of this procedure
2608: --
2609: -- p_init_msg_level IN VARCHAR2 (optional)
2610: -- DEFAULT = FND_API.G_FALSE,
2611: --
2612: -- p_commit IN VARCHAR2 (optional)
2613: -- DEFAULT = FND_API.G_FALSE
2614: --
2609: -- p_init_msg_level IN VARCHAR2 (optional)
2610: -- DEFAULT = FND_API.G_FALSE,
2611: --
2612: -- p_commit IN VARCHAR2 (optional)
2613: -- DEFAULT = FND_API.G_FALSE
2614: --
2615: -- p_validation_level IN NUMBER (optional)
2616: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2617: --
2612: -- p_commit IN VARCHAR2 (optional)
2613: -- DEFAULT = FND_API.G_FALSE
2614: --
2615: -- p_validation_level IN NUMBER (optional)
2616: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2617: --
2618: -- p_subinventory IN NUMBER (required)
2619: -- subinventory OF the item
2620: --
2668: -- Standard start of API savepoint
2669: SAVEPOINT Validate_SubInv;
2670: --
2671: -- Standard Call to check for call compatibility
2672: IF NOT FND_API.Compatible_API_Call(l_api_version
2673: , p_api_version
2674: , l_api_name
2675: , G_PKG_NAME) THEN
2676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2672: IF NOT FND_API.Compatible_API_Call(l_api_version
2673: , p_api_version
2674: , l_api_name
2675: , G_PKG_NAME) THEN
2676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2677: END IF;
2678: --
2679: -- Initialize message list if p_init_msg_list is set to true
2680: IF FND_API.to_Boolean(p_init_msg_list) THEN
2676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2677: END IF;
2678: --
2679: -- Initialize message list if p_init_msg_list is set to true
2680: IF FND_API.to_Boolean(p_init_msg_list) THEN
2681: FND_MSG_PUB.initialize;
2682: END IF;
2683: --
2684: -- Initialisize API return status to access
2681: FND_MSG_PUB.initialize;
2682: END IF;
2683: --
2684: -- Initialisize API return status to access
2685: x_return_status := FND_API.G_RET_STS_SUCCESS;
2686: x_errorcode := 0;
2687: --
2688: -- API body
2689: IF p_subinventory IS NULL THEN
2689: IF p_subinventory IS NULL THEN
2690: x_errorcode := 6;
2691: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_SUB');
2692: FND_MSG_PUB.Add;
2693: RAISE FND_API.G_EXC_ERROR;
2694: END IF;
2695: --
2696: IF (l_debug = 1) THEN
2697: MDEBUG( 'Validating Subinv ');
2707: IF l_sub.QUANTITY_TRACKED <> 1 THEN
2708: x_errorcode := 8;
2709: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NON_QTY_TRKD_SUB');
2710: FND_MSG_PUB.Add;
2711: RAISE FND_API.G_EXC_ERROR;
2712: END IF;
2713: L_counter := L_counter + 1;
2714: END IF;
2715:
2717: IF L_counter < 1 THEN
2718: x_errorcode := 6;
2719: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NO_SUB');
2720: FND_MSG_PUB.Add;
2721: RAISE FND_API.G_EXC_ERROR;
2722: END IF;
2723: --
2724: END IF;
2725: -- Cycle COUNT subinventory
2734: IF L_counter < 1 THEN
2735: x_errorcode := 7;
2736: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_INVALID_SUB');
2737: FND_MSG_PUB.Add;
2738: RAISE FND_API.G_EXC_ERROR;
2739: END IF;
2740: END IF;
2741:
2742: -- if validation went ok set global subinventory variable to
2745: --
2746: --
2747: -- END of API body
2748: -- Standard check of p_commit
2749: IF FND_API.to_Boolean(p_commit) THEN
2750: COMMIT;
2751: END IF;
2752: -- Standard call to get message count and if count is 1, get message info
2753: FND_MSG_PUB.Count_And_Get
2753: FND_MSG_PUB.Count_And_Get
2754: (p_count => x_msg_count
2755: , p_data => x_msg_data);
2756: EXCEPTION
2757: WHEN FND_API.G_EXC_ERROR THEN
2758: --
2759: ROLLBACK TO Validate_SubInv;
2760: --
2761: x_return_status := FND_API.G_RET_STS_ERROR;
2757: WHEN FND_API.G_EXC_ERROR THEN
2758: --
2759: ROLLBACK TO Validate_SubInv;
2760: --
2761: x_return_status := FND_API.G_RET_STS_ERROR;
2762: --
2763: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2764: , p_data => x_msg_data);
2765: --
2762: --
2763: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2764: , p_data => x_msg_data);
2765: --
2766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2767: --
2768: ROLLBACK TO Validate_SubInv;
2769: --
2770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2767: --
2768: ROLLBACK TO Validate_SubInv;
2769: --
2770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2771: --
2772: x_errorcode := -1;
2773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
2774: , p_data => x_msg_data);
2777: --
2778: ROLLBACK TO Validate_SubInv;
2779: --
2780: x_errorcode := -1;
2781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2782: --
2783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2784: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2785: END IF;
2800: --x_locator_control,x_level OUT parameters to comply with GSCC File.Sql.39
2801: --standard. Bug:4410902
2802: PROCEDURE Locator_Control(
2803: p_api_version IN NUMBER ,
2804: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2805: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2806: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2807: x_return_status OUT NOCOPY VARCHAR2 ,
2808: x_msg_count OUT NOCOPY NUMBER ,
2801: --standard. Bug:4410902
2802: PROCEDURE Locator_Control(
2803: p_api_version IN NUMBER ,
2804: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2805: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2806: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2807: x_return_status OUT NOCOPY VARCHAR2 ,
2808: x_msg_count OUT NOCOPY NUMBER ,
2809: x_msg_data OUT NOCOPY VARCHAR2 ,
2802: PROCEDURE Locator_Control(
2803: p_api_version IN NUMBER ,
2804: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2805: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2806: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
2807: x_return_status OUT NOCOPY VARCHAR2 ,
2808: x_msg_count OUT NOCOPY NUMBER ,
2809: x_msg_data OUT NOCOPY VARCHAR2 ,
2810: p_org_control IN NUMBER ,
2828: -- p_api_version IN NUMBER (required)
2829: -- API Version of this procedure
2830: --
2831: -- p_init_msg_list IN VARCHAR2 (optional)
2832: -- DEFAULT = FND_API.G_FALSE,
2833: --
2834: -- p_commit IN VARCHAR2 (optional)
2835: -- DEFAULT = FND_API.G_FALSE
2836: --
2831: -- p_init_msg_list IN VARCHAR2 (optional)
2832: -- DEFAULT = FND_API.G_FALSE,
2833: --
2834: -- p_commit IN VARCHAR2 (optional)
2835: -- DEFAULT = FND_API.G_FALSE
2836: --
2837: -- p_validation_level IN NUMBER (optional)
2838: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2839: --
2834: -- p_commit IN VARCHAR2 (optional)
2835: -- DEFAULT = FND_API.G_FALSE
2836: --
2837: -- p_validation_level IN NUMBER (optional)
2838: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
2839: --
2840: -- p_org_control IN NUMBER (required)
2841: -- org level control (stock_locator_control_code)
2842: --
2890: -- Standard start of API savepoint
2891: SAVEPOINT Locator_Control;
2892: --
2893: -- Standard Call to check for call compatibility
2894: IF NOT FND_API.Compatible_API_Call(l_api_version
2895: , p_api_version
2896: , l_api_name
2897: , G_PKG_NAME) THEN
2898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2894: IF NOT FND_API.Compatible_API_Call(l_api_version
2895: , p_api_version
2896: , l_api_name
2897: , G_PKG_NAME) THEN
2898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2899: END IF;
2900: --
2901: -- Initialize message list if p_init_msg_list is set to true
2902: IF FND_API.to_Boolean(p_init_msg_list) THEN
2898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2899: END IF;
2900: --
2901: -- Initialize message list if p_init_msg_list is set to true
2902: IF FND_API.to_Boolean(p_init_msg_list) THEN
2903: FND_MSG_PUB.initialize;
2904: END IF;
2905: --
2906: -- Initialisize API return status to access
2903: FND_MSG_PUB.initialize;
2904: END IF;
2905: --
2906: -- Initialisize API return status to access
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908: --
2909: -- API body
2910: --
2911: IF (l_debug = 1) THEN
2924: ELSIF
2925: (p_org_control = 3) THEN
2926: locator_control := 3;
2927: IF(no_neg_balance(p_restrict_flag,
2928: p_neg_flag, p_action)= FND_API.G_TRUE) THEN
2929: locator_control := 2;
2930: IF (l_debug = 1) THEN
2931: mdebug('2.LOCATOR control (locator control) '||x_return_status);
2932: END IF;
2944: ELSIF
2945: (p_sub_control = 3) THEN
2946: locator_control := 3;
2947: IF(no_neg_balance(p_restrict_flag,
2948: p_neg_flag, p_action)= FND_API.G_TRUE) THEN
2949: locator_control := 2;
2950: IF (l_debug = 1) THEN
2951: mdebug('3.LOCATOR control (locator control) '||x_return_status);
2952: END IF;
2964: ELSIF
2965: (p_item_control = 3) THEN
2966: locator_control := 3;
2967: IF(no_neg_balance(p_restrict_flag,
2968: p_neg_flag, p_action)= FND_API.G_TRUE) THEN
2969: locator_control := 2;
2970: IF (l_debug = 1) THEN
2971: mdebug('4.LOCATOR control (locator control) '||x_return_status);
2972: END IF;
3002: END IF;
3003: --
3004: -- END of API body
3005: -- Standard check of p_commit
3006: IF FND_API.to_Boolean(p_commit) THEN
3007: COMMIT;
3008: END IF;
3009: -- Standard call to get message count and if count is 1, get message info
3010: FND_MSG_PUB.Count_And_Get
3010: FND_MSG_PUB.Count_And_Get
3011: (p_count => x_msg_count
3012: , p_data => x_msg_data);
3013: EXCEPTION
3014: WHEN FND_API.G_EXC_ERROR THEN
3015: --
3016: ROLLBACK TO Locator_Control;
3017: --
3018: x_return_status := FND_API.G_RET_STS_ERROR;
3014: WHEN FND_API.G_EXC_ERROR THEN
3015: --
3016: ROLLBACK TO Locator_Control;
3017: --
3018: x_return_status := FND_API.G_RET_STS_ERROR;
3019: --
3020: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3021: , p_data => x_msg_data);
3022: --
3019: --
3020: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3021: , p_data => x_msg_data);
3022: --
3023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3024: --
3025: ROLLBACK TO Locator_Control;
3026: --
3027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3024: --
3025: ROLLBACK TO Locator_Control;
3026: --
3027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3028: --
3029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3030: , p_data => x_msg_data);
3031: --
3032: WHEN OTHERS THEN
3033: --
3034: ROLLBACK TO Locator_Control;
3035: --
3036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3037: --
3038: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3039: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3040: END IF;
3064: IF(restrict_flag = 2 OR restrict_flag IS NULL) THEN
3065: IF(neg_flag = 2) THEN
3066: IF(action = 1 OR action = 2 OR action = 3 OR
3067: action = 21 OR action = 30 OR action = 32) THEN
3068: DO_NOT := FND_API.G_TRUE;
3069: ELSE
3070: DO_NOT := FND_API.G_FALSE;
3071: END IF;
3072: ELSE
3066: IF(action = 1 OR action = 2 OR action = 3 OR
3067: action = 21 OR action = 30 OR action = 32) THEN
3068: DO_NOT := FND_API.G_TRUE;
3069: ELSE
3070: DO_NOT := FND_API.G_FALSE;
3071: END IF;
3072: ELSE
3073: DO_NOT := FND_API.G_FALSE;
3074: -- VALUE := neg_flag;
3069: ELSE
3070: DO_NOT := FND_API.G_FALSE;
3071: END IF;
3072: ELSE
3073: DO_NOT := FND_API.G_FALSE;
3074: -- VALUE := neg_flag;
3075: -- app_exception.invalid_argument('LOCATOR.NO_NEG_BALACE',
3076: -- 'NEG_FLAG',VALUE);
3077: END IF;
3076: -- 'NEG_FLAG',VALUE);
3077: END IF;
3078: ELSIF
3079: (restrict_flag = 1) THEN
3080: DO_NOT := FND_API.G_TRUE;
3081: ELSE
3082: VALUE := restrict_flag;
3083: app_exception.invalid_argument('LOCATOR.NO_NEG_BALANCE',
3084: 'RESTRICT_FLAG',
3092: --Added NOCOPY hint to x_return_status,x_msg_count,x_msg_data,x_errorcode
3093: --P_Location_id OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
3094: PROCEDURE Inv_Dlocator_Create(
3095: P_Api_Version IN NUMBER ,
3096: P_Init_Msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3097: P_Commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3098: P_Validation_Level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3099: X_Return_Status OUT NOCOPY VARCHAR2 ,
3100: X_Msg_Count OUT NOCOPY NUMBER ,
3093: --P_Location_id OUT parameters to comply with GSCC File.Sql.39 standard .Bug:4410902
3094: PROCEDURE Inv_Dlocator_Create(
3095: P_Api_Version IN NUMBER ,
3096: P_Init_Msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3097: P_Commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3098: P_Validation_Level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3099: X_Return_Status OUT NOCOPY VARCHAR2 ,
3100: X_Msg_Count OUT NOCOPY NUMBER ,
3101: X_Msg_Data OUT NOCOPY VARCHAR2 ,
3094: PROCEDURE Inv_Dlocator_Create(
3095: P_Api_Version IN NUMBER ,
3096: P_Init_Msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3097: P_Commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3098: P_Validation_Level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
3099: X_Return_Status OUT NOCOPY VARCHAR2 ,
3100: X_Msg_Count OUT NOCOPY NUMBER ,
3101: X_Msg_Data OUT NOCOPY VARCHAR2 ,
3102: X_Errorcode OUT NOCOPY NUMBER ,
3122: P_Segment19 IN VARCHAR2 DEFAULT NULL,
3123: P_Segment20 IN VARCHAR2 DEFAULT NULL,
3124: P_Subinv IN VARCHAR2,
3125: P_Organization_Id IN NUMBER,
3126: p_simulate IN VARCHAR2 DEFAULT FND_API.G_FALSE
3127: ) IS
3128: -- end of parameter
3129: --
3130: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3140: -- p_api_version IN NUMBER (required)
3141: -- API Version of this procedure
3142: --
3143: -- p_init_msg_level IN VARCHAR2 (optional)
3144: -- DEFAULT = FND_API.G_FALSE
3145: --
3146: -- p_commit IN VARCHAR2 (optional)
3147: -- DEFAULT = FND_API.G_FALSE
3148: --
3143: -- p_init_msg_level IN VARCHAR2 (optional)
3144: -- DEFAULT = FND_API.G_FALSE
3145: --
3146: -- p_commit IN VARCHAR2 (optional)
3147: -- DEFAULT = FND_API.G_FALSE
3148: --
3149: -- p_validation_level IN NUMBER (optional)
3150: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
3151: --
3146: -- p_commit IN VARCHAR2 (optional)
3147: -- DEFAULT = FND_API.G_FALSE
3148: --
3149: -- p_validation_level IN NUMBER (optional)
3150: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL,
3151: --
3152: -- Locator Segments 1..20 (optional)
3153: --
3154: -- P_Subinv IN VARCHAR2 (required)
3200: SAVEPOINT Inv_Dlocator_Create;
3201: --
3202: -- for Testing marked by suresh
3203: -- Standard Call to check for call compatibility
3204: IF NOT FND_API.Compatible_API_Call(l_api_version
3205: , p_api_version
3206: , l_api_name
3207: , G_PKG_NAME) THEN
3208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3204: IF NOT FND_API.Compatible_API_Call(l_api_version
3205: , p_api_version
3206: , l_api_name
3207: , G_PKG_NAME) THEN
3208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3209: END IF;
3210:
3211: -- Initialize message list if p_init_msg_list is set to true
3212: IF FND_API.to_Boolean(p_init_msg_list) THEN
3208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3209: END IF;
3210:
3211: -- Initialize message list if p_init_msg_list is set to true
3212: IF FND_API.to_Boolean(p_init_msg_list) THEN
3213: FND_MSG_PUB.initialize;
3214: END IF;
3215:
3216:
3214: END IF;
3215:
3216:
3217: -- Initialisize API return status to access
3218: x_return_status := FND_API.G_RET_STS_SUCCESS;
3219: --
3220: -- API body
3221: --
3222: BEGIN
3221: --
3222: BEGIN
3223:
3224: -- in case of simulation just check validity of locator
3225: IF FND_API.to_Boolean(p_simulate) THEN
3226: l_keyval_mode := 'CHECK_COMBINATION';
3227: ELSE
3228: --l_keyval_mode := 'CREATE_COMBINATION';
3229: l_keyval_mode := 'CREATE_COMB_NO_AT';
3319:
3320: IF (l_debug = 1) THEN
3321: mdebug('Validate Seg CCid: '||to_char(L_new_ccid));
3322: END IF;
3323: IF NOT FND_API.to_Boolean(p_simulate) THEN
3324: UPDATE mtl_item_locations
3325: SET subinventory_code = p_subinv
3326: WHERE inventory_location_id = l_new_ccid
3327: AND organization_id = P_Organization_Id ;
3328: IF SQL%NOTFOUND THEN
3329: IF (l_debug = 1) THEN
3330: mdebug('Table is not Updated');
3331: END IF;
3332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3333: END IF;
3334: END IF;
3335: IF (l_debug = 1) THEN
3336: mdebug('Create New Seg CCid: '||to_char(L_new_ccid));
3340: x_msg_data := fnd_flex_keyval.error_segment;
3341: IF (l_debug = 1) THEN
3342: mdebug('Errored out procedure');
3343: END IF;
3344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3345:
3346: end if;
3347: P_Location_Id := L_new_ccid ;
3348: --
3347: P_Location_Id := L_new_ccid ;
3348: --
3349: -- END of API body
3350: -- Standard check of p_commit
3351: IF FND_API.to_Boolean(p_commit) THEN
3352: COMMIT;
3353: END IF;
3354: -- Standard call to get message count and if count is 1, get message info
3355: FND_MSG_PUB.Count_And_Get
3355: FND_MSG_PUB.Count_And_Get
3356: (p_count => x_msg_count
3357: , p_data => x_msg_data);
3358: EXCEPTION
3359: WHEN FND_API.G_EXC_ERROR THEN
3360: --
3361: ROLLBACK TO Inv_Dlocator_Create;
3362: --
3363: --MDEBUG( 'Exception Error ');
3360: --
3361: ROLLBACK TO Inv_Dlocator_Create;
3362: --
3363: --MDEBUG( 'Exception Error ');
3364: x_return_status := FND_API.G_RET_STS_ERROR;
3365: --
3366: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3367: , p_data => x_msg_data);
3368: --
3365: --
3366: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3367: , p_data => x_msg_data);
3368: --
3369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3370: --
3371: ROLLBACK TO Inv_Dlocator_Create;
3372: --
3373: --MDEBUG( 'UNexp Exception Error ');
3370: --
3371: ROLLBACK TO Inv_Dlocator_Create;
3372: --
3373: --MDEBUG( 'UNexp Exception Error ');
3374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3375: --
3376: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3377: , p_data => x_msg_data);
3378: --
3380: --
3381: --MDEBUG( 'Others Exception Error ');
3382: ROLLBACK TO Inv_Dlocator_Create;
3383: --
3384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3385: --
3386: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3387: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3388: END IF;
3394:
3395: -- BEGIN INVCONV
3396: PROCEDURE validate_secondarycountuom (
3397: p_api_version IN NUMBER
3398: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3399: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3400: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
3401: , x_return_status OUT NOCOPY VARCHAR2
3402: , x_msg_count OUT NOCOPY NUMBER
3395: -- BEGIN INVCONV
3396: PROCEDURE validate_secondarycountuom (
3397: p_api_version IN NUMBER
3398: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3399: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3400: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
3401: , x_return_status OUT NOCOPY VARCHAR2
3402: , x_msg_count OUT NOCOPY NUMBER
3403: , x_msg_data OUT NOCOPY VARCHAR2
3396: PROCEDURE validate_secondarycountuom (
3397: p_api_version IN NUMBER
3398: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3399: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3400: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
3401: , x_return_status OUT NOCOPY VARCHAR2
3402: , x_msg_count OUT NOCOPY NUMBER
3403: , x_msg_data OUT NOCOPY VARCHAR2
3404: , x_errorcode OUT NOCOPY NUMBER
3429: SAVEPOINT validate_secondarycountuom;
3430:
3431: --
3432: -- Standard Call to check for call compatibility
3433: IF NOT fnd_api.compatible_api_call (l_api_version
3434: , p_api_version
3435: , l_api_name
3436: , g_pkg_name) THEN
3437: RAISE fnd_api.g_exc_unexpected_error;
3433: IF NOT fnd_api.compatible_api_call (l_api_version
3434: , p_api_version
3435: , l_api_name
3436: , g_pkg_name) THEN
3437: RAISE fnd_api.g_exc_unexpected_error;
3438: END IF;
3439:
3440: --
3441: -- Initialize message list if p_init_msg_list is set to true
3438: END IF;
3439:
3440: --
3441: -- Initialize message list if p_init_msg_list is set to true
3442: IF fnd_api.to_boolean (p_init_msg_list) THEN
3443: fnd_msg_pub.initialize;
3444: END IF;
3445:
3446: --
3444: END IF;
3445:
3446: --
3447: -- Initialisize API return status to success
3448: x_return_status := fnd_api.g_ret_sts_success;
3449: x_errorcode := 0;
3450:
3451: --
3452: IF p_secondary_uom IS NULL AND p_secondary_unit_of_measure IS NULL THEN
3470: IF l_secondary_uom <> MTL_CCEOI_VAR_PVT.g_secondary_uom_code THEN
3471: x_errorcode := 20;
3472: fnd_message.set_name ('INV', 'INV_INCORRECT_SECONDARY_UOM');
3473: fnd_msg_pub.ADD;
3474: RAISE fnd_api.g_exc_error;
3475: END IF;
3476:
3477: --
3478: MTL_CCEOI_VAR_PVT.g_secondary_count_uom := l_secondary_uom;
3476:
3477: --
3478: MTL_CCEOI_VAR_PVT.g_secondary_count_uom := l_secondary_uom;
3479:
3480: IF fnd_api.to_boolean (p_commit) THEN
3481: COMMIT;
3482: END IF;
3483:
3484: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3482: END IF;
3483:
3484: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3485: EXCEPTION
3486: WHEN fnd_api.g_exc_error THEN
3487: ROLLBACK TO validate_secondarycountuom;
3488: x_return_status := fnd_api.g_ret_sts_error;
3489: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3490: WHEN fnd_api.g_exc_unexpected_error THEN
3484: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3485: EXCEPTION
3486: WHEN fnd_api.g_exc_error THEN
3487: ROLLBACK TO validate_secondarycountuom;
3488: x_return_status := fnd_api.g_ret_sts_error;
3489: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3490: WHEN fnd_api.g_exc_unexpected_error THEN
3491: ROLLBACK TO validate_secondarycountuom;
3492: x_return_status := fnd_api.g_ret_sts_unexp_error;
3486: WHEN fnd_api.g_exc_error THEN
3487: ROLLBACK TO validate_secondarycountuom;
3488: x_return_status := fnd_api.g_ret_sts_error;
3489: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3490: WHEN fnd_api.g_exc_unexpected_error THEN
3491: ROLLBACK TO validate_secondarycountuom;
3492: x_return_status := fnd_api.g_ret_sts_unexp_error;
3493: x_errorcode := -1;
3494: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3488: x_return_status := fnd_api.g_ret_sts_error;
3489: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3490: WHEN fnd_api.g_exc_unexpected_error THEN
3491: ROLLBACK TO validate_secondarycountuom;
3492: x_return_status := fnd_api.g_ret_sts_unexp_error;
3493: x_errorcode := -1;
3494: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3495: WHEN OTHERS THEN
3496: ROLLBACK TO validate_secondarycountuom;
3494: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3495: WHEN OTHERS THEN
3496: ROLLBACK TO validate_secondarycountuom;
3497: x_errorcode := -1;
3498: x_return_status := fnd_api.g_ret_sts_unexp_error;
3499:
3500: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3501: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3502: END IF;
3505: END validate_secondarycountuom;
3506:
3507: PROCEDURE validate_secondarycountqty (
3508: p_api_version IN NUMBER
3509: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3510: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3511: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
3512: , p_precision IN NUMBER DEFAULT 5
3513: , x_return_status OUT NOCOPY VARCHAR2
3506:
3507: PROCEDURE validate_secondarycountqty (
3508: p_api_version IN NUMBER
3509: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3510: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3511: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
3512: , p_precision IN NUMBER DEFAULT 5
3513: , x_return_status OUT NOCOPY VARCHAR2
3514: , x_msg_count OUT NOCOPY NUMBER
3507: PROCEDURE validate_secondarycountqty (
3508: p_api_version IN NUMBER
3509: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
3510: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
3511: , p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
3512: , p_precision IN NUMBER DEFAULT 5
3513: , x_return_status OUT NOCOPY VARCHAR2
3514: , x_msg_count OUT NOCOPY NUMBER
3515: , x_msg_data OUT NOCOPY VARCHAR2
3534: -- Standard start of API savepoint
3535: SAVEPOINT validate_secondarycountqty;
3536:
3537: -- Standard Call to check for call compatibility
3538: IF NOT fnd_api.compatible_api_call (l_api_version
3539: , p_api_version
3540: , l_api_name
3541: , g_pkg_name) THEN
3542: RAISE fnd_api.g_exc_unexpected_error;
3538: IF NOT fnd_api.compatible_api_call (l_api_version
3539: , p_api_version
3540: , l_api_name
3541: , g_pkg_name) THEN
3542: RAISE fnd_api.g_exc_unexpected_error;
3543: END IF;
3544:
3545: -- Initialize message list if p_init_msg_list is set to true
3546: IF fnd_api.to_boolean (p_init_msg_list) THEN
3542: RAISE fnd_api.g_exc_unexpected_error;
3543: END IF;
3544:
3545: -- Initialize message list if p_init_msg_list is set to true
3546: IF fnd_api.to_boolean (p_init_msg_list) THEN
3547: fnd_msg_pub.initialize;
3548: END IF;
3549:
3550: -- Initialisize API return status to success
3547: fnd_msg_pub.initialize;
3548: END IF;
3549:
3550: -- Initialisize API return status to success
3551: x_return_status := fnd_api.g_ret_sts_success;
3552: x_errorcode := 0;
3553: --
3554: IF p_secondary_quantity IS NULL OR p_secondary_quantity = 0 THEN
3555: l_converted_qty := INV_CONVERT.inv_um_convert(
3567: IF (l_converted_qty = -99999) THEN
3568: x_errorcode := 50;
3569: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
3570: fnd_msg_pub.ADD;
3571: RAISE fnd_api.g_exc_error;
3572: END IF;
3573:
3574: MTL_CCEOI_VAR_PVT.g_secondary_count_quantity := l_converted_qty;
3575:
3577: IF p_secondary_quantity < 0 THEN
3578: x_errorcode := 52;
3579: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NEG_QTY');
3580: FND_MSG_PUB.Add;
3581: RAISE FND_API.G_EXC_ERROR;
3582: END IF;
3583:
3584: IF ( INV_CONVERT.within_deviation(
3585: p_organization_id => p_organization_id
3596: x_errorcode := 51;
3597: FND_MESSAGE.SET_NAME('INV','INV_DEVIATION_CHECK_ERR');
3598: -- An error occurred in call to INV_CONVERT.within_deviation
3599: fnd_msg_pub.ADD;
3600: RAISE fnd_api.g_exc_error;
3601: END IF;
3602:
3603: MTL_CCEOI_VAR_PVT.g_secondary_count_quantity := p_secondary_quantity;
3604: END IF;
3602:
3603: MTL_CCEOI_VAR_PVT.g_secondary_count_quantity := p_secondary_quantity;
3604: END IF;
3605:
3606: IF fnd_api.to_boolean (p_commit) THEN
3607: COMMIT;
3608: END IF;
3609:
3610: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3608: END IF;
3609:
3610: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3611: EXCEPTION
3612: WHEN fnd_api.g_exc_error THEN
3613: ROLLBACK TO validate_secondarycountqty;
3614: x_return_status := fnd_api.g_ret_sts_error;
3615: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3616: WHEN fnd_api.g_exc_unexpected_error THEN
3610: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3611: EXCEPTION
3612: WHEN fnd_api.g_exc_error THEN
3613: ROLLBACK TO validate_secondarycountqty;
3614: x_return_status := fnd_api.g_ret_sts_error;
3615: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3616: WHEN fnd_api.g_exc_unexpected_error THEN
3617: ROLLBACK TO validate_secondarycountqty;
3618: x_return_status := fnd_api.g_ret_sts_unexp_error;
3612: WHEN fnd_api.g_exc_error THEN
3613: ROLLBACK TO validate_secondarycountqty;
3614: x_return_status := fnd_api.g_ret_sts_error;
3615: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3616: WHEN fnd_api.g_exc_unexpected_error THEN
3617: ROLLBACK TO validate_secondarycountqty;
3618: x_return_status := fnd_api.g_ret_sts_unexp_error;
3619: x_errorcode := -1;
3620: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3614: x_return_status := fnd_api.g_ret_sts_error;
3615: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3616: WHEN fnd_api.g_exc_unexpected_error THEN
3617: ROLLBACK TO validate_secondarycountqty;
3618: x_return_status := fnd_api.g_ret_sts_unexp_error;
3619: x_errorcode := -1;
3620: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3621: WHEN OTHERS THEN
3622: ROLLBACK TO validate_secondarycountqty;
3620: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3621: WHEN OTHERS THEN
3622: ROLLBACK TO validate_secondarycountqty;
3623: x_errorcode := -1;
3624: x_return_status := fnd_api.g_ret_sts_unexp_error;
3625:
3626: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3627: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3628: END IF;