71: BEGIN
72:
73: l_date:= bis_common_parameters.get_global_start_date;
74: -- Standard call to check for call compatibility.
75: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
76: p_api_version_number,
77: l_api_name,
78: g_pkg_name)
79: THEN
76: p_api_version_number,
77: l_api_name,
78: g_pkg_name)
79: THEN
80: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
81: END IF;
82:
83: POPULATE_SOURCE_DENORM
84: (p_api_version_number => 1.0
81: END IF;
82:
83: POPULATE_SOURCE_DENORM
84: (p_api_version_number => 1.0
85: ,p_init_msg_list => FND_API.G_FALSE
86: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
87: ,p_commit => FND_API.G_FALSE
88: ,x_msg_Count => x_msg_count
89: ,x_msg_Data => x_msg_data
82:
83: POPULATE_SOURCE_DENORM
84: (p_api_version_number => 1.0
85: ,p_init_msg_list => FND_API.G_FALSE
86: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
87: ,p_commit => FND_API.G_FALSE
88: ,x_msg_Count => x_msg_count
89: ,x_msg_Data => x_msg_data
90: ,x_return_status => x_return_status
83: POPULATE_SOURCE_DENORM
84: (p_api_version_number => 1.0
85: ,p_init_msg_list => FND_API.G_FALSE
86: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
87: ,p_commit => FND_API.G_FALSE
88: ,x_msg_Count => x_msg_count
89: ,x_msg_Data => x_msg_data
90: ,x_return_status => x_return_status
91: ,p_proc_num => p_proc_num
91: ,p_proc_num => p_proc_num
92: ,p_load_type => p_load_type
93: );
94:
95: IF x_return_status = FND_API.g_ret_sts_error
96: THEN
97: RAISE FND_API.g_exc_error;
98: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
99: RAISE FND_API.g_exc_unexpected_error;
93: );
94:
95: IF x_return_status = FND_API.g_ret_sts_error
96: THEN
97: RAISE FND_API.g_exc_error;
98: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
99: RAISE FND_API.g_exc_unexpected_error;
100: END IF;
101:
94:
95: IF x_return_status = FND_API.g_ret_sts_error
96: THEN
97: RAISE FND_API.g_exc_error;
98: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
99: RAISE FND_API.g_exc_unexpected_error;
100: END IF;
101:
102: IF x_return_status = FND_API.g_ret_sts_error
95: IF x_return_status = FND_API.g_ret_sts_error
96: THEN
97: RAISE FND_API.g_exc_error;
98: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
99: RAISE FND_API.g_exc_unexpected_error;
100: END IF;
101:
102: IF x_return_status = FND_API.g_ret_sts_error
103: THEN
98: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
99: RAISE FND_API.g_exc_unexpected_error;
100: END IF;
101:
102: IF x_return_status = FND_API.g_ret_sts_error
103: THEN
104: RAISE FND_API.g_exc_error;
105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
106: RAISE FND_API.g_exc_unexpected_error;
100: END IF;
101:
102: IF x_return_status = FND_API.g_ret_sts_error
103: THEN
104: RAISE FND_API.g_exc_error;
105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
106: RAISE FND_API.g_exc_unexpected_error;
107: END IF;
108:
101:
102: IF x_return_status = FND_API.g_ret_sts_error
103: THEN
104: RAISE FND_API.g_exc_error;
105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
106: RAISE FND_API.g_exc_unexpected_error;
107: END IF;
108:
109: LOAD_ADMIN_RECORDS
102: IF x_return_status = FND_API.g_ret_sts_error
103: THEN
104: RAISE FND_API.g_exc_error;
105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
106: RAISE FND_API.g_exc_unexpected_error;
107: END IF;
108:
109: LOAD_ADMIN_RECORDS
110: (p_api_version_number => 1.0
107: END IF;
108:
109: LOAD_ADMIN_RECORDS
110: (p_api_version_number => 1.0
111: ,p_init_msg_list => FND_API.G_FALSE
112: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
113: ,p_commit => FND_API.G_FALSE
114: ,x_msg_Count => x_msg_count
115: ,x_msg_Data => x_msg_data
108:
109: LOAD_ADMIN_RECORDS
110: (p_api_version_number => 1.0
111: ,p_init_msg_list => FND_API.G_FALSE
112: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
113: ,p_commit => FND_API.G_FALSE
114: ,x_msg_Count => x_msg_count
115: ,x_msg_Data => x_msg_data
116: ,x_return_status => x_return_status
109: LOAD_ADMIN_RECORDS
110: (p_api_version_number => 1.0
111: ,p_init_msg_list => FND_API.G_FALSE
112: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
113: ,p_commit => FND_API.G_FALSE
114: ,x_msg_Count => x_msg_count
115: ,x_msg_Data => x_msg_data
116: ,x_return_status => x_return_status
117: );
115: ,x_msg_Data => x_msg_data
116: ,x_return_status => x_return_status
117: );
118:
119: IF x_return_status = FND_API.g_ret_sts_error
120: THEN
121: RAISE FND_API.g_exc_error;
122: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
123: RAISE FND_API.g_exc_unexpected_error;
117: );
118:
119: IF x_return_status = FND_API.g_ret_sts_error
120: THEN
121: RAISE FND_API.g_exc_error;
122: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
123: RAISE FND_API.g_exc_unexpected_error;
124: END IF;
125:
118:
119: IF x_return_status = FND_API.g_ret_sts_error
120: THEN
121: RAISE FND_API.g_exc_error;
122: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
123: RAISE FND_API.g_exc_unexpected_error;
124: END IF;
125:
126: LOAD_TOP_LEVEL_OBJECTS
119: IF x_return_status = FND_API.g_ret_sts_error
120: THEN
121: RAISE FND_API.g_exc_error;
122: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
123: RAISE FND_API.g_exc_unexpected_error;
124: END IF;
125:
126: LOAD_TOP_LEVEL_OBJECTS
127: (p_api_version_number => 1.0
124: END IF;
125:
126: LOAD_TOP_LEVEL_OBJECTS
127: (p_api_version_number => 1.0
128: ,p_init_msg_list => FND_API.G_FALSE
129: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
130: ,p_commit => FND_API.G_FALSE
131: ,x_msg_Count => x_msg_count
132: ,x_msg_Data => x_msg_data
125:
126: LOAD_TOP_LEVEL_OBJECTS
127: (p_api_version_number => 1.0
128: ,p_init_msg_list => FND_API.G_FALSE
129: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
130: ,p_commit => FND_API.G_FALSE
131: ,x_msg_Count => x_msg_count
132: ,x_msg_Data => x_msg_data
133: ,x_return_status => x_return_status
126: LOAD_TOP_LEVEL_OBJECTS
127: (p_api_version_number => 1.0
128: ,p_init_msg_list => FND_API.G_FALSE
129: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
130: ,p_commit => FND_API.G_FALSE
131: ,x_msg_Count => x_msg_count
132: ,x_msg_Data => x_msg_data
133: ,x_return_status => x_return_status
134: );
132: ,x_msg_Data => x_msg_data
133: ,x_return_status => x_return_status
134: );
135:
136: IF x_return_status = FND_API.g_ret_sts_error
137: THEN
138: RAISE FND_API.g_exc_error;
139: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
140: RAISE FND_API.g_exc_unexpected_error;
134: );
135:
136: IF x_return_status = FND_API.g_ret_sts_error
137: THEN
138: RAISE FND_API.g_exc_error;
139: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
140: RAISE FND_API.g_exc_unexpected_error;
141: END IF;
142:
135:
136: IF x_return_status = FND_API.g_ret_sts_error
137: THEN
138: RAISE FND_API.g_exc_error;
139: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
140: RAISE FND_API.g_exc_unexpected_error;
141: END IF;
142:
143: EXCEPTION
136: IF x_return_status = FND_API.g_ret_sts_error
137: THEN
138: RAISE FND_API.g_exc_error;
139: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
140: RAISE FND_API.g_exc_unexpected_error;
141: END IF;
142:
143: EXCEPTION
144:
141: END IF;
142:
143: EXCEPTION
144:
145: WHEN FND_API.G_EXC_ERROR THEN
146: x_return_status := FND_API.g_ret_sts_error ;
147: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
148: p_count => x_msg_count,
149: p_data => x_msg_data);
142:
143: EXCEPTION
144:
145: WHEN FND_API.G_EXC_ERROR THEN
146: x_return_status := FND_API.g_ret_sts_error ;
147: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
148: p_count => x_msg_count,
149: p_data => x_msg_data);
150: ERRBUF := x_msg_data;
143: EXCEPTION
144:
145: WHEN FND_API.G_EXC_ERROR THEN
146: x_return_status := FND_API.g_ret_sts_error ;
147: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
148: p_count => x_msg_count,
149: p_data => x_msg_data);
150: ERRBUF := x_msg_data;
151: RETCODE := 2;
149: p_data => x_msg_data);
150: ERRBUF := x_msg_data;
151: RETCODE := 2;
152:
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: x_return_status := FND_API.g_ret_sts_unexp_error ;
155: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
156: p_count => x_msg_count,
157: p_data => x_msg_data);
150: ERRBUF := x_msg_data;
151: RETCODE := 2;
152:
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: x_return_status := FND_API.g_ret_sts_unexp_error ;
155: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
156: p_count => x_msg_count,
157: p_data => x_msg_data);
158: ERRBUF := x_msg_data;
151: RETCODE := 2;
152:
153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: x_return_status := FND_API.g_ret_sts_unexp_error ;
155: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
156: p_count => x_msg_count,
157: p_data => x_msg_data);
158: ERRBUF := x_msg_data;
159: RETCODE := 2;
158: ERRBUF := x_msg_data;
159: RETCODE := 2;
160:
161: WHEN OTHERS THEN
162: x_return_status := FND_API.g_ret_sts_unexp_error ;
163: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
164: p_count => x_msg_count,
165: p_data => x_msg_data);
166: ERRBUF := sqlerrm(sqlcode);
159: RETCODE := 2;
160:
161: WHEN OTHERS THEN
162: x_return_status := FND_API.g_ret_sts_unexp_error ;
163: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
164: p_count => x_msg_count,
165: p_data => x_msg_data);
166: ERRBUF := sqlerrm(sqlcode);
167: RETCODE := sqlcode;
200:
201:
202: BEGIN
203:
204: l_init_msg_list:= FND_API.G_FALSE;
205:
206: IF p_load_type = 'F' THEN
207:
208: --it is a call for First/Inital load, then truncate the denorm table first
475: ,p_period_to => sysdate
476: );
477:
478: EXCEPTION
479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: -- Standard call to get message count and if count=1, get the message
482: FND_MSG_PUB.Count_And_Get (
483: p_encoded => FND_API.G_FALSE,
476: );
477:
478: EXCEPTION
479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: -- Standard call to get message count and if count=1, get the message
482: FND_MSG_PUB.Count_And_Get (
483: p_encoded => FND_API.G_FALSE,
484: p_count => x_msg_count,
479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: -- Standard call to get message count and if count=1, get the message
482: FND_MSG_PUB.Count_And_Get (
483: p_encoded => FND_API.G_FALSE,
484: p_count => x_msg_count,
485: p_data => x_msg_data
486: );
487:
484: p_count => x_msg_count,
485: p_data => x_msg_data
486: );
487:
488: WHEN FND_API.g_exc_error THEN
489: x_return_status := FND_API.g_ret_sts_error;
490: FND_MSG_PUB.count_and_get(
491: p_encoded => FND_API.g_false,
492: p_count => x_msg_count,
485: p_data => x_msg_data
486: );
487:
488: WHEN FND_API.g_exc_error THEN
489: x_return_status := FND_API.g_ret_sts_error;
490: FND_MSG_PUB.count_and_get(
491: p_encoded => FND_API.g_false,
492: p_count => x_msg_count,
493: p_data => x_msg_data
487:
488: WHEN FND_API.g_exc_error THEN
489: x_return_status := FND_API.g_ret_sts_error;
490: FND_MSG_PUB.count_and_get(
491: p_encoded => FND_API.g_false,
492: p_count => x_msg_count,
493: p_data => x_msg_data
494: );
495:
493: p_data => x_msg_data
494: );
495:
496: WHEN OTHERS THEN
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
499: THEN
500: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
501: END IF;
500: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
501: END IF;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => x_msg_data
507: );
508:
547:
548: COMMIT;
549:
550: EXCEPTION
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: -- Standard call to get message count and if count=1, get the message
554: FND_MSG_PUB.Count_And_Get (
555: p_encoded => FND_API.G_FALSE,
548: COMMIT;
549:
550: EXCEPTION
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: -- Standard call to get message count and if count=1, get the message
554: FND_MSG_PUB.Count_And_Get (
555: p_encoded => FND_API.G_FALSE,
556: p_count => x_msg_count,
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: -- Standard call to get message count and if count=1, get the message
554: FND_MSG_PUB.Count_And_Get (
555: p_encoded => FND_API.G_FALSE,
556: p_count => x_msg_count,
557: p_data => x_msg_data
558: );
559:
556: p_count => x_msg_count,
557: p_data => x_msg_data
558: );
559:
560: WHEN FND_API.g_exc_error THEN
561: x_return_status := FND_API.g_ret_sts_error;
562: FND_MSG_PUB.count_and_get(
563: p_encoded => FND_API.g_false,
564: p_count => x_msg_count,
557: p_data => x_msg_data
558: );
559:
560: WHEN FND_API.g_exc_error THEN
561: x_return_status := FND_API.g_ret_sts_error;
562: FND_MSG_PUB.count_and_get(
563: p_encoded => FND_API.g_false,
564: p_count => x_msg_count,
565: p_data => x_msg_data
559:
560: WHEN FND_API.g_exc_error THEN
561: x_return_status := FND_API.g_ret_sts_error;
562: FND_MSG_PUB.count_and_get(
563: p_encoded => FND_API.g_false,
564: p_count => x_msg_count,
565: p_data => x_msg_data
566: );
567:
565: p_data => x_msg_data
566: );
567:
568: WHEN OTHERS THEN
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
571: THEN
572: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
573: END IF;
572: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
573: END IF;
574: -- Standard call to get message count and if count=1, get the message
575: FND_MSG_PUB.Count_And_Get (
576: p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data
579: );
580:
659: GROUP BY c.resource_id,b.parent_source_code_id;
660: COMMIT;
661:
662: EXCEPTION
663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: -- Standard call to get message count and if count=1, get the message
666: FND_MSG_PUB.Count_And_Get (
667: p_encoded => FND_API.G_FALSE,
660: COMMIT;
661:
662: EXCEPTION
663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: -- Standard call to get message count and if count=1, get the message
666: FND_MSG_PUB.Count_And_Get (
667: p_encoded => FND_API.G_FALSE,
668: p_count => x_msg_count,
663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: -- Standard call to get message count and if count=1, get the message
666: FND_MSG_PUB.Count_And_Get (
667: p_encoded => FND_API.G_FALSE,
668: p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671:
668: p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671:
672: WHEN FND_API.g_exc_error THEN
673: x_return_status := FND_API.g_ret_sts_error;
674: FND_MSG_PUB.count_and_get(
675: p_encoded => FND_API.g_false,
676: p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671:
672: WHEN FND_API.g_exc_error THEN
673: x_return_status := FND_API.g_ret_sts_error;
674: FND_MSG_PUB.count_and_get(
675: p_encoded => FND_API.g_false,
676: p_count => x_msg_count,
677: p_data => x_msg_data
671:
672: WHEN FND_API.g_exc_error THEN
673: x_return_status := FND_API.g_ret_sts_error;
674: FND_MSG_PUB.count_and_get(
675: p_encoded => FND_API.g_false,
676: p_count => x_msg_count,
677: p_data => x_msg_data
678: );
679:
677: p_data => x_msg_data
678: );
679:
680: WHEN OTHERS THEN
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
683: THEN
684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
685: END IF;
684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
685: END IF;
686: -- Standard call to get message count and if count=1, get the message
687: FND_MSG_PUB.Count_And_Get (
688: p_encoded => FND_API.G_FALSE,
689: p_count => x_msg_count,
690: p_data => x_msg_data
691: );
692: