73: PROCEDURE UpdateRecord
74: ( p_Dimension_Rec BIS_Dimension_PUB.Dimension_Rec_Type
75: , x_Dimension_Rec OUT NOCOPY BIS_Dimension_PUB.Dimension_Rec_Type
76: , x_return_status OUT NOCOPY VARCHAR2
77: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
78: );
79: --
80: PROCEDURE Create_New_Dimension
81: ( p_dimension_id IN NUMBER, -- l_id
132: PROCEDURE UpdateRecord
133: ( p_Dimension_Rec BIS_Dimension_PUB.Dimension_Rec_Type
134: , x_Dimension_Rec OUT NOCOPY BIS_Dimension_PUB.Dimension_Rec_Type
135: , x_return_status OUT NOCOPY VARCHAR2
136: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
137: )
138: IS
139: --
140: l_Dimension_Rec BIS_Dimension_PUB.Dimension_Rec_Type;
138: IS
139: --
140: l_Dimension_Rec BIS_Dimension_PUB.Dimension_Rec_Type;
141: l_return_status VARCHAR2(10);
142: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
143: --
144: BEGIN
145: x_return_status:= FND_API.G_RET_STS_SUCCESS;
146:
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159:
160: -- apply changes
161: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.Dimension_ID)
162: = FND_API.G_TRUE
163: ) THEN
164: l_Dimension_Rec.Dimension_ID := p_Dimension_Rec.Dimension_ID;
165: END IF;
163: ) THEN
164: l_Dimension_Rec.Dimension_ID := p_Dimension_Rec.Dimension_ID;
165: END IF;
166: --
167: IF( BIS_UTILITIES_PUB.Value_Not_Missing
168: (p_Dimension_Rec.Dimension_Short_Name)
169: = FND_API.G_TRUE
170: ) THEN
171: l_Dimension_Rec.Dimension_Short_Name
171: l_Dimension_Rec.Dimension_Short_Name
172: := p_Dimension_Rec.Dimension_Short_Name ;
173: END IF;
174: --
175: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.Dimension_Name)
176: = FND_API.G_TRUE
177: ) THEN
178: l_Dimension_Rec.Dimension_Name := p_Dimension_Rec.Dimension_Name;
179: END IF;
177: ) THEN
178: l_Dimension_Rec.Dimension_Name := p_Dimension_Rec.Dimension_Name;
179: END IF;
180: --
181: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.Description)
182: = FND_API.G_TRUE
183: ) THEN
184: l_Dimension_Rec.Description := p_Dimension_Rec.Description;
185: END IF;
183: ) THEN
184: l_Dimension_Rec.Description := p_Dimension_Rec.Description;
185: END IF;
186: --
187: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.Application_ID)
188: = FND_API.G_TRUE
189: ) THEN
190: l_Dimension_Rec.Application_ID := p_Dimension_Rec.Application_ID;
191: END IF;
189: ) THEN
190: l_Dimension_Rec.Application_ID := p_Dimension_Rec.Application_ID;
191: END IF;
192: --
193: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.dim_grp_id)
194: = FND_API.G_TRUE
195: ) THEN
196: l_Dimension_Rec.dim_grp_id := p_Dimension_Rec.dim_grp_id;
197: END IF;
195: ) THEN
196: l_Dimension_Rec.dim_grp_id := p_Dimension_Rec.dim_grp_id;
197: END IF;
198:
199: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.hide)
200: = FND_API.G_TRUE
201: ) THEN
202: l_Dimension_Rec.hide := p_Dimension_Rec.hide;
203: END IF;
232: PROCEDURE Retrieve_Dimensions
233: ( p_api_version IN NUMBER
234: , x_Dimension_Tbl OUT NOCOPY BIS_DIMENSION_PUB.Dimension_Tbl_Type
235: , x_return_status OUT NOCOPY VARCHAR2
236: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
237: )
238: IS
239: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
240: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
236: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
237: )
238: IS
239: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
240: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
241:
242: cursor cr_all_dimensions is
243: SELECT dimension_id
244: , dimension_short_name
295: ( p_api_version IN NUMBER
296: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
297: , x_Dimension_Rec OUT NOCOPY BIS_DIMENSION_PUB.Dimension_Rec_Type
298: , x_return_status OUT NOCOPY VARCHAR2
299: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
300: )
301: is
302: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
303: CURSOR cr_dim_id IS
298: , x_return_status OUT NOCOPY VARCHAR2
299: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
300: )
301: is
302: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
303: CURSOR cr_dim_id IS
304: SELECT dimension_id, short_name, name, description,
305: application_id, dim_grp_id, hide_in_design
306: FROM bis_dimensions_vl
322:
323: x_return_status := FND_API.G_RET_STS_SUCCESS;
324: x_Dimension_Rec := p_Dimension_Rec;
325:
326: IF BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.dimension_id)
327: = FND_API.G_TRUE
328: THEN
329: OPEN cr_dim_id;
330: FETCH cr_dim_id
340: END IF;
341: CLOSE cr_dim_id;
342:
343: ELSIF
344: BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.dimension_short_name)
345: = FND_API.G_TRUE
346: THEN
347:
348: OPEN cr_dim_short_name;
359: END IF;
360: CLOSE cr_dim_short_name;
361:
362: ELSIF
363: BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Rec.dimension_name)
364: = FND_API.G_TRUE
365: THEN
366: OPEN cr_dim_name;
367: FETCH cr_dim_short_name
383: BIS_UTILITIES_PVT.Add_Error_Message
384: ( p_error_msg_name => 'BIS_INVALID_DIMENSION_VALUE'
385: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
386: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Dimension'
387: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
388: , p_error_table => l_error_tbl
389: , x_error_table => x_error_tbl
390: );
391: RAISE FND_API.G_EXC_ERROR;
397: BIS_UTILITIES_PVT.Add_Error_Message
398: ( p_error_msg_name => 'BIS_INVALID_DIMENSION__VALUE'
399: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
400: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Dimension'
401: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
402: , p_error_table => l_error_tbl
403: , x_error_table => x_error_tbl
404: );
405: RAISE FND_API.G_EXC_ERROR;
437: , p_commit IN VARCHAR2 := FND_API.G_FALSE
438: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
439: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
440: , x_return_status OUT NOCOPY VARCHAR2
441: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
442: )
443: IS
444: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
445: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
441: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
442: )
443: IS
444: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
445: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
446: BEGIN
447: l_Dimension_Rec := p_Dimension_Rec;
448: l_Dimension_Rec.Last_Update_Date := NVL(p_Dimension_Rec.Last_Update_Date, SYSDATE);
449: Create_Dimension
450: ( p_api_version => p_api_version
451: , p_commit => p_commit
452: , p_validation_level => p_validation_level
453: , p_Dimension_Rec => l_Dimension_Rec
454: , p_owner => BIS_UTILITIES_PUB.G_CUSTOM_OWNER
455: , x_return_status => x_return_status
456: , x_error_Tbl => x_error_Tbl
457: );
458:
478: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
479: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
480: , p_owner IN VARCHAR2
481: , x_return_status OUT NOCOPY VARCHAR2
482: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
483: )
484: IS
485: l_user_id NUMBER;
486: l_login_id NUMBER;
485: l_user_id NUMBER;
486: l_login_id NUMBER;
487: l_id NUMBER;
488: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
489: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
490:
491: DUPLICATE_DIMENSION_VALUE EXCEPTION;
492: PRAGMA EXCEPTION_INIT(DUPLICATE_DIMENSION_VALUE, -1);
493:
513: BIS_UTILITIES_PVT.Add_Error_Message
514: ( p_error_msg_name => 'BIS_NAME_SHORT_NAME_MISSING'
515: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
516: , p_error_proc_name => G_PKG_NAME||'.Create_Dimension'
517: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
518: , p_error_table => l_error_tbl
519: , x_error_table => x_error_tbl
520: );
521: RAISE FND_API.G_EXC_ERROR;
525: -- ankgoel: bug#3891748 - Created_By will take precedence over Owner.
526: -- Last_Updated_By can be different from Created_By while creating dimensions
527: -- during sync-up
528: IF (l_Dimension_Rec.Created_By IS NULL) THEN
529: l_Dimension_Rec.Created_By := BIS_UTILITIES_PUB.Get_Owner_Id(p_owner);
530: END IF;
531: IF (l_Dimension_Rec.Last_Updated_By IS NULL) THEN
532: l_Dimension_Rec.Last_Updated_By := l_Dimension_Rec.Created_By;
533: END IF;
570: BIS_UTILITIES_PVT.Add_Error_Message
571: ( p_error_msg_name => 'BIS_DIMENSION_UNIQUENESS_ERROR'
572: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
573: , p_error_proc_name => G_PKG_NAME||'.Create_Dimension'
574: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
575: , p_error_table => l_error_tbl
576: , x_error_table => x_error_tbl
577: );
578:
697: */
698: l_msg := 'Failed to upload ' || p_dimension_short_name;
699: l_msg := l_msg || ' . Dimension name: ' || p_dimension_name ;
700: l_msg := l_msg || ' already exists in the database.' ;
701: BIS_UTILITIES_PUB.put_line(p_text =>l_msg);
702:
703: ROLLBACK TO InsertIntoBISDims;
704: RAISE;
705:
712: , p_commit IN VARCHAR2 := FND_API.G_FALSE
713: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
714: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
715: , x_return_status OUT NOCOPY VARCHAR2
716: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
717: )
718: IS
719: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
720: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
715: , x_return_status OUT NOCOPY VARCHAR2
716: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
717: )
718: IS
719: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
720: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
721: BEGIN
722:
723: l_Dimension_Rec := p_Dimension_Rec;
726: ( p_api_version => p_api_version
727: , p_commit => p_commit
728: , p_validation_level => p_validation_level
729: , p_Dimension_Rec => l_Dimension_Rec
730: , p_owner => BIS_UTILITIES_PUB.G_CUSTOM_OWNER
731: , x_return_status => x_return_status
732: , x_error_Tbl => x_error_Tbl
733: );
734:
755: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
756: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
757: , p_owner IN VARCHAR2
758: , x_return_status OUT NOCOPY VARCHAR2
759: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
760: )
761: IS
762:
763: l_user_id number;
763: l_user_id number;
764: l_login_id number;
765: l_count NUMBER := 0;
766: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
767: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
768:
769: DUPLICATE_DIMENSION_VALUE EXCEPTION;
770: PRAGMA EXCEPTION_INIT(DUPLICATE_DIMENSION_VALUE, -1);
771:
793: BIS_UTILITIES_PVT.Add_Error_Message
794: ( p_error_msg_name => 'BIS_INVALID_DIMENSION_ID'
795: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
796: , p_error_proc_name => G_PKG_NAME||'.Update_Dimension'
797: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
798: , p_error_table => l_error_tbl
799: , x_error_table => x_error_tbl
800: );
801: RAISE FND_API.G_EXC_ERROR;
800: );
801: RAISE FND_API.G_EXC_ERROR;
802: END IF;
803: --
804: l_user_id := BIS_UTILITIES_PUB.Get_Owner_Id(p_owner);
805: l_login_id := fnd_global.LOGIN_ID;
806: --
807:
808: l_Dimension_Rec.Last_Update_Date := NVL(p_Dimension_Rec.Last_Update_Date, SYSDATE);
840: BIS_UTILITIES_PVT.Add_Error_Message
841: ( p_error_msg_name => 'BIS_DIMENSION_UNIQUENESS_ERROR'
842: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
843: , p_error_proc_name => G_PKG_NAME||'.Update_Dimension'
844: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
845: , p_error_table => l_error_tbl
846: , x_error_table => x_error_tbl
847: );
848: WHEN NO_DATA_FOUND THEN
874: , p_commit IN VARCHAR2 := FND_API.G_FALSE
875: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
876: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
877: , x_return_status OUT NOCOPY VARCHAR2
878: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
879: )
880: IS
881: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
882: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
877: , x_return_status OUT NOCOPY VARCHAR2
878: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
879: )
880: IS
881: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
882: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
883: BEGIN
884:
885: l_Dimension_Rec := p_Dimension_Rec;
888: ( p_api_version => p_api_version
889: , p_commit => p_commit
890: , p_validation_level => p_validation_level
891: , p_Dimension_Rec => l_Dimension_Rec
892: , p_owner => BIS_UTILITIES_PUB.G_CUSTOM_OWNER
893: , x_return_status => x_return_status
894: , x_error_Tbl => x_error_Tbl
895: );
896:
917: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
918: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
919: , p_owner IN VARCHAR2
920: , x_return_status OUT NOCOPY VARCHAR2
921: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
922: )
923: IS
924: l_user_id NUMBER;
925: l_login_id NUMBER;
924: l_user_id NUMBER;
925: l_login_id NUMBER;
926: l_count NUMBER := 0;
927: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
928: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
929:
930: BEGIN
931:
932: -- retrieve record from database and apply changes
948: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
949: RAISE FND_API.G_EXC_ERROR;
950: END IF;
951: --
952: l_user_id := BIS_UTILITIES_PUB.Get_Owner_Id(p_owner);
953: l_login_id := fnd_global.LOGIN_ID;
954: --
955:
956: l_Dimension_Rec.Last_Update_Date := NVL(p_Dimension_Rec.Last_Update_Date, SYSDATE);
1000: ( p_api_version IN NUMBER
1001: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1002: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
1003: , x_return_status OUT NOCOPY VARCHAR2
1004: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1005: )
1006: IS
1007: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1008: l_error_tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1003: , x_return_status OUT NOCOPY VARCHAR2
1004: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1005: )
1006: IS
1007: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1008: l_error_tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1009: BEGIN
1010:
1011: BEGIN
1004: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1005: )
1006: IS
1007: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1008: l_error_tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1009: BEGIN
1010:
1011: BEGIN
1012:
1062: ( p_api_version IN NUMBER
1063: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
1064: , x_Dimension_Rec IN OUT NOCOPY BIS_DIMENSION_PUB.Dimension_Rec_Type
1065: , x_return_status OUT NOCOPY VARCHAR2
1066: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1067: )
1068: IS
1069: BEGIN
1070:
1070:
1071: x_return_status := FND_API.G_RET_STS_SUCCESS;
1072: x_Dimension_Rec := p_Dimension_Rec;
1073:
1074: IF (BIS_UTILITIES_PUB.Value_Missing(x_Dimension_Rec.Dimension_id)
1075: = FND_API.G_TRUE) THEN
1076: BIS_DIMENSION_PVT.Value_ID_Conversion
1077: ( p_api_version
1078: , x_Dimension_Rec.Dimension_Short_Name
1110: , p_Dimension_Short_Name IN VARCHAR2
1111: , p_Dimension_Name IN VARCHAR2
1112: , x_Dimension_ID OUT NOCOPY NUMBER
1113: , x_return_status OUT NOCOPY VARCHAR2
1114: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1115: )
1116: is
1117: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1118: begin
1113: , x_return_status OUT NOCOPY VARCHAR2
1114: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1115: )
1116: is
1117: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1118: begin
1119:
1120: x_return_status := FND_API.G_RET_STS_SUCCESS;
1121:
1118: begin
1119:
1120: x_return_status := FND_API.G_RET_STS_SUCCESS;
1121:
1122: IF (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Short_Name)
1123: = FND_API.G_TRUE) THEN
1124: SELECT dimension_id INTO x_Dimension_ID
1125: FROM bis_dimensions_vl
1126: WHERE short_name = p_Dimension_Short_Name;
1123: = FND_API.G_TRUE) THEN
1124: SELECT dimension_id INTO x_Dimension_ID
1125: FROM bis_dimensions_vl
1126: WHERE short_name = p_Dimension_Short_Name;
1127: elsIF (BIS_UTILITIES_PUB.Value_Not_Missing(p_Dimension_Name)
1128: = FND_API.G_TRUE) THEN
1129: SELECT dimension_id INTO x_Dimension_ID
1130: FROM bis_dimensions_vl
1131: WHERE name = p_Dimension_Name;
1134: BIS_UTILITIES_PVT.Add_Error_Message
1135: ( p_error_msg_name => 'BIS_NAME_SHORT_NAME_MISSING'
1136: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1137: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
1138: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
1139: , p_error_table => l_error_tbl
1140: , x_error_table => x_error_tbl
1141: );
1142:
1225: p_commit IN VARCHAR2 := FND_API.G_FALSE
1226: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1227: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
1228: , x_return_status OUT NOCOPY VARCHAR2
1229: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1230: ) IS
1231: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1232: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
1233: BEGIN
1227: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
1228: , x_return_status OUT NOCOPY VARCHAR2
1229: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1230: ) IS
1231: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1232: l_Dimension_Rec BIS_DIMENSION_PUB.Dimension_Rec_Type;
1233: BEGIN
1234: SAVEPOINT DeleteFromBISDims;
1235:
1282: p_commit IN VARCHAR2 := FND_API.G_FALSE
1283: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1284: , p_Dimension_Rec IN BIS_DIMENSION_PUB.Dimension_Rec_Type
1285: , x_return_status OUT NOCOPY VARCHAR2
1286: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1287: ) IS
1288:
1289: l_dim_id NUMBER;
1290: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1286: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1287: ) IS
1288:
1289: l_dim_id NUMBER;
1290: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1291: l_user_id NUMBER;
1292: l_login_id NUMBER;
1293:
1294: BEGIN