20: REM | x_Target_Level_Rec , x_Target_Rec to IN OUT |
21: REM | in API RETRIEVE_TARGET_FROM_SHNMS |
22: REM | and x_Target_Rec in API Value_ID_Conversion |
23: REM | 15-JAN-2003 mahrao for 2744792 |
24: REM | removed the BIS_UTILITIES_PUB.Value_Not_Missing |
25: REM | condition in Update_db_Target for owners and |
26: REM | tolerance ranges as user might want to update |
27: REM | them to NULL. |
28: REM | 23-JAN-03 sugopal For having different local variables for IN and OUT |
45: PROCEDURE Update_db_Target
46: ( p_Target_Rec BIS_TARGET_PUB.Target_Rec_Type
47: , x_Target_Rec IN OUT NOCOPY BIS_TARGET_PUB.Target_Rec_Type
48: , x_return_status OUT NOCOPY VARCHAR2
49: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
50: );
51: --
52: -- returns the record with the G_MISS_CHAR/G_MISS_NUM replaced
53: -- by null
72: IS
73: BEGIN
74:
75: x_dimension_level_rec.Dimension_ID
76: := BIS_UTILITIES_PUB.G_NULL_NUM;
77: x_dimension_level_rec.Dimension_Short_Name
78: := BIS_UTILITIES_PUB.G_NULL_CHAR;
79: x_dimension_level_rec.Dimension_Name
80: := BIS_UTILITIES_PUB.G_NULL_CHAR;
74:
75: x_dimension_level_rec.Dimension_ID
76: := BIS_UTILITIES_PUB.G_NULL_NUM;
77: x_dimension_level_rec.Dimension_Short_Name
78: := BIS_UTILITIES_PUB.G_NULL_CHAR;
79: x_dimension_level_rec.Dimension_Name
80: := BIS_UTILITIES_PUB.G_NULL_CHAR;
81: x_dimension_level_rec.Dimension_Level_ID
82: := BIS_UTILITIES_PUB.G_NULL_NUM;
76: := BIS_UTILITIES_PUB.G_NULL_NUM;
77: x_dimension_level_rec.Dimension_Short_Name
78: := BIS_UTILITIES_PUB.G_NULL_CHAR;
79: x_dimension_level_rec.Dimension_Name
80: := BIS_UTILITIES_PUB.G_NULL_CHAR;
81: x_dimension_level_rec.Dimension_Level_ID
82: := BIS_UTILITIES_PUB.G_NULL_NUM;
83: x_dimension_level_rec.Dimension_Level_Short_Name
84: := BIS_UTILITIES_PUB.G_NULL_CHAR;
78: := BIS_UTILITIES_PUB.G_NULL_CHAR;
79: x_dimension_level_rec.Dimension_Name
80: := BIS_UTILITIES_PUB.G_NULL_CHAR;
81: x_dimension_level_rec.Dimension_Level_ID
82: := BIS_UTILITIES_PUB.G_NULL_NUM;
83: x_dimension_level_rec.Dimension_Level_Short_Name
84: := BIS_UTILITIES_PUB.G_NULL_CHAR;
85: x_dimension_level_rec.Dimension_Level_Name
86: := BIS_UTILITIES_PUB.G_NULL_CHAR;
80: := BIS_UTILITIES_PUB.G_NULL_CHAR;
81: x_dimension_level_rec.Dimension_Level_ID
82: := BIS_UTILITIES_PUB.G_NULL_NUM;
83: x_dimension_level_rec.Dimension_Level_Short_Name
84: := BIS_UTILITIES_PUB.G_NULL_CHAR;
85: x_dimension_level_rec.Dimension_Level_Name
86: := BIS_UTILITIES_PUB.G_NULL_CHAR;
87: x_dimension_level_rec.Description
88: := BIS_UTILITIES_PUB.G_NULL_CHAR;
82: := BIS_UTILITIES_PUB.G_NULL_NUM;
83: x_dimension_level_rec.Dimension_Level_Short_Name
84: := BIS_UTILITIES_PUB.G_NULL_CHAR;
85: x_dimension_level_rec.Dimension_Level_Name
86: := BIS_UTILITIES_PUB.G_NULL_CHAR;
87: x_dimension_level_rec.Description
88: := BIS_UTILITIES_PUB.G_NULL_CHAR;
89: x_dimension_level_rec.Level_Values_View_Name
90: := BIS_UTILITIES_PUB.G_NULL_CHAR;
84: := BIS_UTILITIES_PUB.G_NULL_CHAR;
85: x_dimension_level_rec.Dimension_Level_Name
86: := BIS_UTILITIES_PUB.G_NULL_CHAR;
87: x_dimension_level_rec.Description
88: := BIS_UTILITIES_PUB.G_NULL_CHAR;
89: x_dimension_level_rec.Level_Values_View_Name
90: := BIS_UTILITIES_PUB.G_NULL_CHAR;
91: x_dimension_level_rec.where_Clause
92: := BIS_UTILITIES_PUB.G_NULL_CHAR;
86: := BIS_UTILITIES_PUB.G_NULL_CHAR;
87: x_dimension_level_rec.Description
88: := BIS_UTILITIES_PUB.G_NULL_CHAR;
89: x_dimension_level_rec.Level_Values_View_Name
90: := BIS_UTILITIES_PUB.G_NULL_CHAR;
91: x_dimension_level_rec.where_Clause
92: := BIS_UTILITIES_PUB.G_NULL_CHAR;
93: x_dimension_level_rec.source
94: := BIS_UTILITIES_PUB.G_NULL_CHAR;
88: := BIS_UTILITIES_PUB.G_NULL_CHAR;
89: x_dimension_level_rec.Level_Values_View_Name
90: := BIS_UTILITIES_PUB.G_NULL_CHAR;
91: x_dimension_level_rec.where_Clause
92: := BIS_UTILITIES_PUB.G_NULL_CHAR;
93: x_dimension_level_rec.source
94: := BIS_UTILITIES_PUB.G_NULL_CHAR;
95:
96: EXCEPTION
90: := BIS_UTILITIES_PUB.G_NULL_CHAR;
91: x_dimension_level_rec.where_Clause
92: := BIS_UTILITIES_PUB.G_NULL_CHAR;
93: x_dimension_level_rec.source
94: := BIS_UTILITIES_PUB.G_NULL_CHAR;
95:
96: EXCEPTION
97: WHEN FND_API.G_EXC_ERROR THEN
98: RAISE
111: , p_commit IN VARCHAR2 := FND_API.G_FALSE
112: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
113: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
114: , x_return_status OUT NOCOPY VARCHAR2
115: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
116: )
117: IS
118: --
119: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
119: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
120: l_count NUMBER;
121: l_user_id NUMBER;
122: l_login_id NUMBER;
123: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
124:
125: --
126: BEGIN
127: --
188: BIS_UTILITIES_PVT.Add_Error_Message
189: ( p_error_msg_name => 'BIS_RECORD_EXISTS'
190: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
191: , p_error_proc_name => 'BIS_TARGET_PVT.Create_Target'
192: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
193: , p_error_table => l_error_tbl
194: , x_error_table => x_error_tbl
195: );
196: RAISE FND_API.G_EXC_ERROR;
402: , p_Target_Level_Rec IN BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type
403: , p_all_info IN VARCHAR2 := FND_API.G_TRUE
404: , x_Target_Tbl OUT NOCOPY BIS_TARGET_PUB.Target_Tbl_Type
405: , x_return_status OUT NOCOPY VARCHAR2
406: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
407: )
408: IS
409: --
410: CURSOR c_all_targets(p_Target_Level_ID IN NUMBER) IS
413: WHERE bisfv_targets.TARGET_LEVEL_ID = p_Target_Level_ID;
414: --
415: l_ind NUMBER := 0;
416: l_Target_Level_Rec BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type;
417: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
418:
419: --
420: BEGIN
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
419: --
420: BEGIN
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422: --
423: -- BIS_UTILITIES_PUB.put_line(p_text => ' ............................. ' );
424:
425: FOR cr IN c_all_targets
426: (p_Target_Level_ID => p_Target_Level_Rec.TARGET_LEVEL_ID) LOOP
427: l_ind := l_ind + 1;
458: x_Target_Tbl(l_ind).Notify_Resp3_ID := NVL(cr.Notify_Resp3_ID, BIS_UTILITIES_PVT.get_role_id(cr.Notify_Resp3_Short_Name));
459: x_Target_Tbl(l_ind).Notify_Resp3_Short_Name := cr.Notify_Resp3_Short_Name;
460: x_Target_Tbl(l_ind).Notify_Resp3_Name := cr.Notify_Resp3_Name;
461:
462: -- BIS_UTILITIES_PUB.put_line(p_text => ' Target id = ' || cr.Target_ID ) ;
463:
464: -- if numeric target is missing, get the computed target
465: --
466: IF ((BIS_UTILITIES_PUB.Value_Missing(x_Target_tbl(l_ind).Target)
462: -- BIS_UTILITIES_PUB.put_line(p_text => ' Target id = ' || cr.Target_ID ) ;
463:
464: -- if numeric target is missing, get the computed target
465: --
466: IF ((BIS_UTILITIES_PUB.Value_Missing(x_Target_tbl(l_ind).Target)
467: = FND_API.G_TRUE)
468: OR (BIS_UTILITIES_PUB.Value_Null(x_Target_tbl(l_ind).Target)
469: = FND_API.G_TRUE))
470: THEN
464: -- if numeric target is missing, get the computed target
465: --
466: IF ((BIS_UTILITIES_PUB.Value_Missing(x_Target_tbl(l_ind).Target)
467: = FND_API.G_TRUE)
468: OR (BIS_UTILITIES_PUB.Value_Null(x_Target_tbl(l_ind).Target)
469: = FND_API.G_TRUE))
470: THEN
471: IF ((BIS_UTILITIES_PUB.Value_Missing
472: (p_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE)
467: = FND_API.G_TRUE)
468: OR (BIS_UTILITIES_PUB.Value_Null(x_Target_tbl(l_ind).Target)
469: = FND_API.G_TRUE))
470: THEN
471: IF ((BIS_UTILITIES_PUB.Value_Missing
472: (p_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE)
473: OR (BIS_UTILITIES_PUB.Value_Null
474: (p_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE))
475: THEN
469: = FND_API.G_TRUE))
470: THEN
471: IF ((BIS_UTILITIES_PUB.Value_Missing
472: (p_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE)
473: OR (BIS_UTILITIES_PUB.Value_Null
474: (p_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE))
475: THEN
476: BIS_Target_Level_PVT.Retrieve_Target_Level
477: ( p_api_version => p_api_version
486: END IF;
487:
488: -- only compute target if found computing fn id
489: --
490: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
491: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE)
492: AND (BIS_UTILITIES_PUB.Value_Not_Null
493: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE))
494: THEN
488: -- only compute target if found computing fn id
489: --
490: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
491: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE)
492: AND (BIS_UTILITIES_PUB.Value_Not_Null
493: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE))
494: THEN
495: x_target_tbl(l_ind).target :=
496: Get_Target
500: END IF;
501: END IF;
502:
503: END LOOP;
504: -- BIS_UTILITIES_PUB.put_line(p_text => ' ............................. ' );
505: --
506:
507: --added this check
508: if(l_ind = 0) then
510: BIS_UTILITIES_PVT.Add_Error_Message
511: ( p_error_msg_name => 'BIS_INVALID_TAR_LEVEL_ID'
512: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
513: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Targets'
514: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
515: , p_error_table => l_error_tbl
516: , x_error_table => x_error_tbl
517: );
518: RAISE FND_API.G_EXC_ERROR;
558: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
559: , p_all_info IN VARCHAR2 := FND_API.G_TRUE
560: , x_Target_Rec IN OUT NOCOPY BIS_TARGET_PUB.Target_Rec_Type
561: , x_return_status OUT NOCOPY VARCHAR2
562: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
563: )
564: IS
565: --
566: l_bisfv_targets_rec bisfv_targets%ROWTYPE;
569: l_plan_id NUMBER;
570: l_Business_Plan_Rec BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type;
571: l_org_level_value_id VARCHAR2(250);
572: l_time_level_value_id VARCHAR2(250);
573: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
574:
575: l_Business_Plan_Rec_p BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type;
576: l_Target_Level_Rec_p BIS_TARGET_LEVEL_PUB.Target_Level_Rec_Type;
577: --
579:
580: x_target_Rec := p_target_rec;
581: x_return_status := FND_API.G_RET_STS_SUCCESS;
582: --
583: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Target_ID)
584: = FND_API.G_TRUE
585: AND p_Target_Rec.Target_ID IS NOT NULL
586: ) THEN
587: SELECT *
589: FROM bisfv_targets bisfv_targets
590: WHERE bisfv_targets.TARGET_ID = p_Target_Rec.Target_ID;
591:
592:
593: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Target_Level_ID)
594: = FND_API.G_TRUE
595: AND p_Target_Rec.Target_Level_ID IS NOT NULL
596: ) THEN
597: SELECT *
605: --Removed check for org and time
606:
607:
608: IF(l_bisbv_target_levels_rec.DIMENSION1_LEVEL_ID IS NOT NULL) THEN
609: IF( BIS_UTILITIES_PUB.Value_Missing
610: (p_Target_Rec.Dim1_Level_Value_ID)
611: = FND_API.G_TRUE
612: OR p_Target_Rec.Dim1_Level_Value_ID IS NULL
613: ) THEN
617: BIS_UTILITIES_PVT.Add_Error_Message
618: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
619: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
620: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
621: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
622: , p_error_table => l_error_tbl
623: , x_error_table => x_error_tbl
624: );
625: RAISE FND_API.G_EXC_ERROR;
623: , x_error_table => x_error_tbl
624: );
625: RAISE FND_API.G_EXC_ERROR;
626: END IF;
627: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing
628: (p_Target_Rec.Dim1_Level_Value_ID)
629: = FND_API.G_TRUE
630: AND p_Target_Rec.Dim1_Level_Value_ID IS NOT NULL
631: ) THEN
635: BIS_UTILITIES_PVT.Add_Error_Message
636: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
637: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
638: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
639: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
640: , p_error_table => l_error_tbl
641: , x_error_table => x_error_tbl
642: );
643: RAISE FND_API.G_EXC_ERROR;
643: RAISE FND_API.G_EXC_ERROR;
644: END IF;
645: --
646: IF(l_bisbv_target_levels_rec.DIMENSION2_LEVEL_ID IS NOT NULL) THEN
647: IF( BIS_UTILITIES_PUB.Value_Missing
648: (p_Target_Rec.Dim2_Level_Value_ID)
649: = FND_API.G_TRUE
650: OR p_Target_Rec.Dim2_Level_Value_ID IS NULL
651: ) THEN
654: BIS_UTILITIES_PVT.Add_Error_Message
655: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
656: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
657: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
658: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
659: , p_error_table => l_error_tbl
660: , x_error_table => x_error_tbl
661: );
662: RAISE FND_API.G_EXC_ERROR;
660: , x_error_table => x_error_tbl
661: );
662: RAISE FND_API.G_EXC_ERROR;
663: END IF;
664: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing
665: (p_Target_Rec.Dim2_Level_Value_ID)
666: = FND_API.G_TRUE
667: AND p_Target_Rec.Dim2_Level_Value_ID IS NOT NULL
668: ) THEN
671: BIS_UTILITIES_PVT.Add_Error_Message
672: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
673: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
674: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
675: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
676: , p_error_table => l_error_tbl
677: , x_error_table => x_error_tbl
678: );
679: RAISE FND_API.G_EXC_ERROR;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF;
681: --
682: IF(l_bisbv_target_levels_rec.DIMENSION3_LEVEL_ID IS NOT NULL) THEN
683: IF( BIS_UTILITIES_PUB.Value_Missing
684: (p_Target_Rec.Dim3_Level_Value_ID)
685: = FND_API.G_TRUE
686: OR p_Target_Rec.Dim3_Level_Value_ID IS NULL
687: ) THEN
690: BIS_UTILITIES_PVT.Add_Error_Message
691: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
692: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
693: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
694: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
695: , p_error_table => l_error_tbl
696: , x_error_table => x_error_tbl
697: );
698: RAISE FND_API.G_EXC_ERROR;
696: , x_error_table => x_error_tbl
697: );
698: RAISE FND_API.G_EXC_ERROR;
699: END IF;
700: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing
701: (p_Target_Rec.Dim3_Level_Value_ID)
702: = FND_API.G_TRUE
703: AND p_Target_Rec.Dim3_Level_Value_ID IS NOT NULL
704: )
708: BIS_UTILITIES_PVT.Add_Error_Message
709: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
710: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
711: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
712: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
713: , p_error_table => l_error_tbl
714: , x_error_table => x_error_tbl
715: );
716: RAISE FND_API.G_EXC_ERROR;
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718: --
719: IF(l_bisbv_target_levels_rec.DIMENSION4_LEVEL_ID IS NOT NULL) THEN
720: IF( BIS_UTILITIES_PUB.Value_Missing
721: (p_Target_Rec.Dim4_Level_Value_ID)
722: = FND_API.G_TRUE
723: OR p_Target_Rec.Dim4_Level_Value_ID IS NULL
724: ) THEN
727: BIS_UTILITIES_PVT.Add_Error_Message
728: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
729: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
730: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
731: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
732: , p_error_table => l_error_tbl
733: , x_error_table => x_error_tbl
734: );
735: RAISE FND_API.G_EXC_ERROR;
733: , x_error_table => x_error_tbl
734: );
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
737: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing
738: (p_Target_Rec.Dim4_Level_Value_ID)
739: = FND_API.G_TRUE
740: AND p_Target_Rec.Dim4_Level_Value_ID IS NOT NULL
741: ) THEN
744: BIS_UTILITIES_PVT.Add_Error_Message
745: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
746: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
747: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
748: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
749: , p_error_table => l_error_tbl
750: , x_error_table => x_error_tbl
751: );
752: RAISE FND_API.G_EXC_ERROR;
752: RAISE FND_API.G_EXC_ERROR;
753: END IF;
754: --
755: IF(l_bisbv_target_levels_rec.DIMENSION5_LEVEL_ID IS NOT NULL) THEN
756: IF( BIS_UTILITIES_PUB.Value_Missing
757: (p_Target_Rec.Dim5_Level_Value_ID)
758: = FND_API.G_TRUE
759: OR p_Target_Rec.Dim5_Level_Value_ID IS NULL
760: ) THEN
763: BIS_UTILITIES_PVT.Add_Error_Message
764: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
765: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
766: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
767: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
768: , p_error_table => l_error_tbl
769: , x_error_table => x_error_tbl
770: );
771: RAISE FND_API.G_EXC_ERROR;
769: , x_error_table => x_error_tbl
770: );
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing
774: (p_Target_Rec.Dim5_Level_Value_ID)
775: = FND_API.G_TRUE
776: AND p_Target_Rec.Dim5_Level_Value_ID IS NOT NULL
777: ) THEN
780: BIS_UTILITIES_PVT.Add_Error_Message
781: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
782: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
783: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
784: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
785: , p_error_table => l_error_tbl
786: , x_error_table => x_error_tbl
787: );
788: RAISE FND_API.G_EXC_ERROR;
788: RAISE FND_API.G_EXC_ERROR;
789: END IF;
790: --
791: IF(l_bisbv_target_levels_rec.DIMENSION6_LEVEL_ID IS NOT NULL) THEN
792: IF( BIS_UTILITIES_PUB.Value_Missing
793: (p_Target_Rec.Dim6_Level_Value_ID)
794: = FND_API.G_TRUE
795: OR p_Target_Rec.Dim6_Level_Value_ID IS NULL
796: ) THEN
799: BIS_UTILITIES_PVT.Add_Error_Message
800: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
801: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
802: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
803: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
804: , p_error_table => l_error_tbl
805: , x_error_table => x_error_tbl
806: );
807: RAISE FND_API.G_EXC_ERROR;
805: , x_error_table => x_error_tbl
806: );
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing
810: (p_Target_Rec.Dim6_Level_Value_ID)
811: = FND_API.G_TRUE
812: AND p_Target_Rec.Dim6_Level_Value_ID IS NOT NULL
813: ) THEN
816: BIS_UTILITIES_PVT.Add_Error_Message
817: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
818: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
819: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
820: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
821: , p_error_table => l_error_tbl
822: , x_error_table => x_error_tbl
823: );
824: RAISE FND_API.G_EXC_ERROR;
825: END IF;
826: --
827: --
828: IF(l_bisbv_target_levels_rec.DIMENSION7_LEVEL_ID IS NOT NULL) THEN
829: IF( BIS_UTILITIES_PUB.Value_Missing
830: (p_Target_Rec.Dim7_Level_Value_ID)
831: = FND_API.G_TRUE
832: OR p_Target_Rec.Dim7_Level_Value_ID IS NULL
833: ) THEN
836: BIS_UTILITIES_PVT.Add_Error_Message
837: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
838: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
839: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
840: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
841: , p_error_table => l_error_tbl
842: , x_error_table => x_error_tbl
843: );
844: RAISE FND_API.G_EXC_ERROR;
842: , x_error_table => x_error_tbl
843: );
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
846: ELSIF( BIS_UTILITIES_PUB.Value_Not_Missing
847: (p_Target_Rec.Dim7_Level_Value_ID)
848: = FND_API.G_TRUE
849: AND p_Target_Rec.Dim7_Level_Value_ID IS NOT NULL
850: ) THEN
853: BIS_UTILITIES_PVT.Add_Error_Message
854: ( p_error_msg_name => 'BIS_INVALID_DIM_LEVEL_ID'
855: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
856: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
857: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
858: , p_error_table => l_error_tbl
859: , x_error_table => x_error_tbl
860: );
861: RAISE FND_API.G_EXC_ERROR;
865:
866:
867: ---If Plan Id is not given, get Plan Id from Short name
868:
869: if (BIS_UTILITIES_PUB.Value_Missing(p_Target_Rec.Plan_ID)
870: = FND_API.G_TRUE) then
871: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Plan_Short_Name)
872: = FND_API.G_TRUE) then
873: l_Business_Plan_Rec.Business_Plan_Short_Name := p_Target_Rec.Plan_Short_Name;
867: ---If Plan Id is not given, get Plan Id from Short name
868:
869: if (BIS_UTILITIES_PUB.Value_Missing(p_Target_Rec.Plan_ID)
870: = FND_API.G_TRUE) then
871: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Plan_Short_Name)
872: = FND_API.G_TRUE) then
873: l_Business_Plan_Rec.Business_Plan_Short_Name := p_Target_Rec.Plan_Short_Name;
874: l_Business_Plan_Rec_p := l_Business_Plan_Rec;
875: BIS_BUSINESS_PLAN_PVT.Value_ID_Conversion
886: else
887: l_plan_id := p_Target_Rec.Plan_ID ;
888: end if;
889:
890: if(BIS_UTILITIES_PUB.Value_Missing(p_Target_Rec.Org_Level_Value_ID) = FND_API.G_TRUE)
891: then l_org_level_value_id := NULL;
892: else
893: l_org_level_value_id := p_Target_Rec.Org_Level_Value_ID;
894: end if;
893: l_org_level_value_id := p_Target_Rec.Org_Level_Value_ID;
894: end if;
895:
896:
897: if(BIS_UTILITIES_PUB.Value_Missing(p_Target_Rec.Time_Level_Value_ID) = FND_API.G_TRUE)
898: then l_time_level_value_id := NULL;
899: else
900: l_time_level_value_id := p_Target_Rec.Time_Level_Value_ID;
901: end if;
1010: x_Target_Rec.Notify_Resp3_Name := l_bisfv_targets_rec.Notify_Resp3_Name;
1011:
1012: -- if numeric target is missing, get the computed target
1013: --
1014: IF ((BIS_UTILITIES_PUB.Value_Missing(x_Target_Rec.Target) = FND_API.G_TRUE)
1015: OR (BIS_UTILITIES_PUB.Value_Null(x_Target_Rec.Target) = FND_API.G_TRUE))
1016: THEN
1017: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
1018: (x_Target_Rec.target_level_ID) = FND_API.G_TRUE)
1011:
1012: -- if numeric target is missing, get the computed target
1013: --
1014: IF ((BIS_UTILITIES_PUB.Value_Missing(x_Target_Rec.Target) = FND_API.G_TRUE)
1015: OR (BIS_UTILITIES_PUB.Value_Null(x_Target_Rec.Target) = FND_API.G_TRUE))
1016: THEN
1017: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
1018: (x_Target_Rec.target_level_ID) = FND_API.G_TRUE)
1019: AND (BIS_UTILITIES_PUB.Value_Not_Null
1013: --
1014: IF ((BIS_UTILITIES_PUB.Value_Missing(x_Target_Rec.Target) = FND_API.G_TRUE)
1015: OR (BIS_UTILITIES_PUB.Value_Null(x_Target_Rec.Target) = FND_API.G_TRUE))
1016: THEN
1017: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
1018: (x_Target_Rec.target_level_ID) = FND_API.G_TRUE)
1019: AND (BIS_UTILITIES_PUB.Value_Not_Null
1020: (x_Target_Rec.target_level_ID) = FND_API.G_TRUE))
1021: THEN
1015: OR (BIS_UTILITIES_PUB.Value_Null(x_Target_Rec.Target) = FND_API.G_TRUE))
1016: THEN
1017: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
1018: (x_Target_Rec.target_level_ID) = FND_API.G_TRUE)
1019: AND (BIS_UTILITIES_PUB.Value_Not_Null
1020: (x_Target_Rec.target_level_ID) = FND_API.G_TRUE))
1021: THEN
1022: l_Target_Level_Rec.target_level_ID := x_Target_Rec.target_level_ID;
1023: l_Target_Level_Rec_p := l_Target_Level_Rec;
1032: END IF;
1033:
1034: -- only compute target if found computing fn id
1035: --
1036: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
1037: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE)
1038: AND (BIS_UTILITIES_PUB.Value_Not_Null
1039: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE))
1040: THEN
1034: -- only compute target if found computing fn id
1035: --
1036: IF ((BIS_UTILITIES_PUB.Value_Not_Missing
1037: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE)
1038: AND (BIS_UTILITIES_PUB.Value_Not_Null
1039: (l_Target_Level_Rec.COMPUTING_FUNCTION_ID) = FND_API.G_TRUE))
1040: THEN
1041: x_target_rec.target :=
1042: Get_Target
1057: BIS_UTILITIES_PVT.Add_Error_Message
1058: ( p_error_msg_name => 'BIS_INVALID_TARGET_VALUE'
1059: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1060: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Target'
1061: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
1062: , p_error_table => l_error_tbl
1063: , x_error_table => x_error_tbl
1064: );
1065: x_return_status := FND_API.G_RET_STS_ERROR ;
1102: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1103: , p_all_info IN VARCHAR2 := FND_API.G_TRUE
1104: , x_Target_Owners_Rec OUT NOCOPY BIS_TARGET_PUB.Target_Owners_Rec_Type
1105: , x_return_status OUT NOCOPY VARCHAR2
1106: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1107: )
1108: IS
1109:
1110: l_Target_owners_rec BIS_TARGET_PUB.Target_Owners_Rec_Type;
1108: IS
1109:
1110: l_Target_owners_rec BIS_TARGET_PUB.Target_Owners_Rec_Type;
1111: l_target_rec BIS_TARGET_PUB.Target_Rec_Type;
1112: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1113: l_Target_Rec_p BIS_TARGET_PUB.Target_Rec_Type;
1114:
1115: BEGIN
1116:
1184: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1185: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1186: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1187: , x_return_status OUT NOCOPY VARCHAR2
1188: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1189: )
1190: IS
1191: --
1192: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
1192: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
1193: l_target_id NUMBER;
1194: l_user_id NUMBER;
1195: l_login_id NUMBER;
1196: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1197:
1198: l_Target_Rec_p BIS_TARGET_PUB.Target_Rec_Type;
1199:
1200: --
1269: BIS_UTILITIES_PVT.Add_Error_Message
1270: ( p_error_msg_name => 'BIS_UNIQUE_INDEX_VIOLATION'
1271: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1272: , p_error_proc_name => 'BIS_TARGET_PVT.Update_Target'
1273: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
1274: , p_error_table => l_error_tbl
1275: , x_error_table => x_error_tbl
1276: );
1277: RAISE FND_API.G_EXC_ERROR;
1284: BIS_UTILITIES_PVT.Add_Error_Message
1285: ( p_error_msg_name => 'BIS_INVALID_TARGET_VALUE'
1286: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1287: , p_error_proc_name => 'BIS_TARGET_PVT.Update_Target'
1288: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
1289: , p_error_table => l_error_tbl
1290: , x_error_table => x_error_tbl
1291: );
1292: --NULL;
1371: ( p_api_version IN NUMBER
1372: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1373: , x_Target_Rec OUT NOCOPY BIS_TARGET_PUB.Target_Rec_Type
1374: , x_return_status OUT NOCOPY VARCHAR2
1375: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1376: )
1377: IS
1378: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1379: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1374: , x_return_status OUT NOCOPY VARCHAR2
1375: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1376: )
1377: IS
1378: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1379: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1380: BEGIN
1381: x_Target_Rec := p_Target_Rec;
1382: IF( BIS_UTILITIES_PUB.Value_Missing(x_Target_Rec.TARGET_ID)
1375: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1376: )
1377: IS
1378: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1379: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1380: BEGIN
1381: x_Target_Rec := p_Target_Rec;
1382: IF( BIS_UTILITIES_PUB.Value_Missing(x_Target_Rec.TARGET_ID)
1383: = FND_API.G_TRUE
1378: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1379: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1380: BEGIN
1381: x_Target_Rec := p_Target_Rec;
1382: IF( BIS_UTILITIES_PUB.Value_Missing(x_Target_Rec.TARGET_ID)
1383: = FND_API.G_TRUE
1384: OR x_Target_Rec.TARGET_ID IS NULL
1385: ) THEN
1386: SELECT TARGET_ID
1456: BIS_UTILITIES_PVT.Add_Error_Message
1457: ( p_error_msg_name => 'BIS_INVALID_TARGET_VALUE'
1458: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1459: , p_error_proc_name => 'BIS_TARGET_PVT.GetID'
1460: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
1461: , p_error_table => l_error_tbl
1462: , x_error_table => x_error_tbl
1463: );
1464: IF(BIS_UTILITIES_PVT.G_DEBUG_FLAG = 1) THEN
1500: ( p_api_version IN NUMBER
1501: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1502: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1503: , x_return_status OUT NOCOPY VARCHAR2
1504: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1505: )
1506: IS
1507: --
1508: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
1505: )
1506: IS
1507: --
1508: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
1509: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1510: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1511: --
1512: BEGIN
1513: -- validate if record can be deleted (no children etc.)
1506: IS
1507: --
1508: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
1509: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1510: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1511: --
1512: BEGIN
1513: -- validate if record can be deleted (no children etc.)
1514: -- get the ID if its not given in the record
1541: BIS_UTILITIES_PVT.Add_Error_Message
1542: ( p_error_msg_name => 'BIS_INVALID_TARGET_VALUE'
1543: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
1544: , p_error_proc_name => 'BIS_TARGET_PVT.Delete_Target'
1545: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
1546: , p_error_table => l_error_tbl
1547: , x_error_table => x_error_tbl
1548: );
1549: WHEN FND_API.G_EXC_ERROR THEN
1581: , p_is_dbimeasure IN NUMBER := 0 --added by gbhaloti #3148615
1582: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1583: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
1584: , x_return_status OUT NOCOPY VARCHAR2
1585: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
1586: )
1587: IS
1588: --
1589: l_return_status VARCHAR2(10);
1586: )
1587: IS
1588: --
1589: l_return_status VARCHAR2(10);
1590: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1591: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1592: l_error VARCHAR2(10) := FND_API.G_FALSE;
1593: --
1594: BEGIN
1587: IS
1588: --
1589: l_return_status VARCHAR2(10);
1590: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1591: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
1592: l_error VARCHAR2(10) := FND_API.G_FALSE;
1593: --
1594: BEGIN
1595: x_return_status := FND_API.G_RET_STS_SUCCESS;
2150: ( p_api_version IN NUMBER
2151: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
2152: , x_Target_Rec IN OUT NOCOPY BIS_TARGET_PUB.Target_Rec_Type
2153: , x_return_status OUT NOCOPY VARCHAR2
2154: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2155: )
2156: IS
2157: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
2158: BEGIN
2153: , x_return_status OUT NOCOPY VARCHAR2
2154: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2155: )
2156: IS
2157: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
2158: BEGIN
2159: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2160: x_Target_Rec := p_Target_Rec;
2161: --
2193: PROCEDURE Update_db_Target
2194: ( p_Target_Rec BIS_TARGET_PUB.Target_Rec_Type
2195: , x_Target_Rec IN OUT NOCOPY BIS_TARGET_PUB.Target_Rec_Type
2196: , x_return_status OUT NOCOPY VARCHAR2
2197: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2198: )
2199: IS
2200: --
2201: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
2199: IS
2200: --
2201: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
2202: l_return_status VARCHAR2(10);
2203: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
2204: --
2205: BEGIN
2206: -- retrieve record from db
2207: BIS_TARGET_PVT.Retrieve_Target
2211: , x_return_status => l_return_status
2212: , x_error_Tbl => x_error_Tbl
2213: );
2214: -- apply changes
2215: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Target_Level_ID)
2216: = FND_API.G_TRUE
2217: ) THEN
2218: l_Target_Rec.Target_Level_ID := p_Target_Rec.Target_Level_ID;
2219: END IF;
2217: ) THEN
2218: l_Target_Rec.Target_Level_ID := p_Target_Rec.Target_Level_ID;
2219: END IF;
2220: --
2221: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Plan_ID)
2222: = FND_API.G_TRUE
2223: ) THEN
2224: l_Target_Rec.Plan_ID := p_Target_Rec.Plan_ID;
2225: END IF;
2223: ) THEN
2224: l_Target_Rec.Plan_ID := p_Target_Rec.Plan_ID;
2225: END IF;
2226: --
2227: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Org_Level_Value_ID)
2228: = FND_API.G_TRUE
2229: ) THEN
2230: l_Target_Rec.Org_Level_Value_ID := p_Target_Rec.Org_Level_Value_ID;
2231: END IF;
2229: ) THEN
2230: l_Target_Rec.Org_Level_Value_ID := p_Target_Rec.Org_Level_Value_ID;
2231: END IF;
2232: --
2233: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Time_Level_Value_ID)
2234: = FND_API.G_TRUE
2235: ) THEN
2236: l_Target_Rec.Time_Level_Value_ID := p_Target_Rec.Time_Level_Value_ID;
2237: END IF;
2235: ) THEN
2236: l_Target_Rec.Time_Level_Value_ID := p_Target_Rec.Time_Level_Value_ID;
2237: END IF;
2238: --
2239: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Dim1_Level_Value_ID)
2240: = FND_API.G_TRUE
2241: ) THEN
2242: l_Target_Rec.Dim1_Level_Value_ID := p_Target_Rec.Dim1_Level_Value_ID;
2243: END IF;
2241: ) THEN
2242: l_Target_Rec.Dim1_Level_Value_ID := p_Target_Rec.Dim1_Level_Value_ID;
2243: END IF;
2244: --
2245: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Dim2_Level_Value_ID)
2246: = FND_API.G_TRUE
2247: ) THEN
2248: l_Target_Rec.Dim2_Level_Value_ID := p_Target_Rec.Dim2_Level_Value_ID;
2249: END IF;
2247: ) THEN
2248: l_Target_Rec.Dim2_Level_Value_ID := p_Target_Rec.Dim2_Level_Value_ID;
2249: END IF;
2250: --
2251: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Dim3_Level_Value_ID)
2252: = FND_API.G_TRUE
2253: ) THEN
2254: l_Target_Rec.Dim3_Level_Value_ID := p_Target_Rec.Dim3_Level_Value_ID;
2255: END IF;
2253: ) THEN
2254: l_Target_Rec.Dim3_Level_Value_ID := p_Target_Rec.Dim3_Level_Value_ID;
2255: END IF;
2256: --
2257: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Dim4_Level_Value_ID)
2258: = FND_API.G_TRUE
2259: ) THEN
2260: l_Target_Rec.Dim4_Level_Value_ID := p_Target_Rec.Dim4_Level_Value_ID;
2261: END IF;
2259: ) THEN
2260: l_Target_Rec.Dim4_Level_Value_ID := p_Target_Rec.Dim4_Level_Value_ID;
2261: END IF;
2262: --
2263: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Dim5_Level_Value_ID)
2264: = FND_API.G_TRUE
2265: ) THEN
2266: l_Target_Rec.Dim5_Level_Value_ID := p_Target_Rec.Dim5_Level_Value_ID;
2267: END IF;
2265: ) THEN
2266: l_Target_Rec.Dim5_Level_Value_ID := p_Target_Rec.Dim5_Level_Value_ID;
2267: END IF;
2268: --
2269: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Dim6_Level_Value_ID)
2270: = FND_API.G_TRUE
2271: ) THEN
2272: l_Target_Rec.Dim6_Level_Value_ID := p_Target_Rec.Dim6_Level_Value_ID;
2273: END IF;
2271: ) THEN
2272: l_Target_Rec.Dim6_Level_Value_ID := p_Target_Rec.Dim6_Level_Value_ID;
2273: END IF;
2274: --
2275: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Dim7_Level_Value_ID)
2276: = FND_API.G_TRUE
2277: ) THEN
2278: l_Target_Rec.Dim7_Level_Value_ID := p_Target_Rec.Dim7_Level_Value_ID;
2279: END IF;
2277: ) THEN
2278: l_Target_Rec.Dim7_Level_Value_ID := p_Target_Rec.Dim7_Level_Value_ID;
2279: END IF;
2280: --
2281: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Target)
2282: = FND_API.G_TRUE
2283: ) THEN
2284: l_Target_Rec.Target := p_Target_Rec.Target;
2285: END IF;
2335: ( p_api_version IN NUMBER
2336: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
2337: , x_last_update_date OUT NOCOPY DATE
2338: , x_return_status OUT NOCOPY VARCHAR2
2339: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2340: )
2341: IS
2342: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
2343:
2338: , x_return_status OUT NOCOPY VARCHAR2
2339: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2340: )
2341: IS
2342: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
2343:
2344: BEGIN
2345: x_return_status := FND_API.G_RET_STS_SUCCESS;
2346: --
2343:
2344: BEGIN
2345: x_return_status := FND_API.G_RET_STS_SUCCESS;
2346: --
2347: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Target_Rec.Target_ID)
2348: = FND_API.G_TRUE
2349: AND p_Target_Rec.Target_ID IS NOT NULL
2350: ) THEN
2351: SELECT NVL(LAST_UPDATE_DATE, CREATION_DATE)
2365: BIS_UTILITIES_PVT.Add_Error_Message
2366: ( p_error_msg_name => 'BIS_INVALID_TARGET_VALUE'
2367: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
2368: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Last_Update_Date'
2369: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
2370: , p_error_table => l_error_tbl
2371: , x_error_table => x_error_tbl
2372: );
2373: x_return_status := FND_API.G_RET_STS_ERROR;
2413: , p_Target_Rec IN BIS_TARGET_PUB.Target_Rec_Type
2414: , p_timestamp IN VARCHAR := NULL
2415: , x_result OUT NOCOPY VARCHAR2
2416: , x_return_status OUT NOCOPY VARCHAR2
2417: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2418: )
2419: IS
2420: --
2421: l_form_date DATE;
2420: --
2421: l_form_date DATE;
2422: l_last_update_date DATE;
2423: l_Target_Rec BIS_TARGET_PUB.Target_Rec_Type;
2424: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
2425: --
2426: BEGIN
2427: x_return_status := FND_API.G_RET_STS_SUCCESS;
2428: --
2489: , p_User_Name IN VARCHAR2 := NULL
2490: , p_Dim_Level_Value_Rec IN BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type
2491: , x_Dim_Level_Value_Tbl OUT NOCOPY BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type
2492: , x_return_status OUT NOCOPY VARCHAR2
2493: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
2494: )
2495: IS
2496: --
2497: l_ind2 NUMBER;
2500: l_Dimension_Level_Rec BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type;
2501: l_Measure_Security_Tbl BIS_MEASURE_SECURITY_PUB.Measure_Security_Tbl_Type;
2502: l_Responsibility_Tbl BIS_RESPONSIBILITY_PVT.Responsibility_Tbl_Type;
2503: l_Dim_Level_Value_Tbl BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type;
2504: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
2505:
2506: --
2507: BEGIN
2508: x_return_status := FND_API.G_RET_STS_SUCCESS;
2548: BIS_UTILITIES_PVT.Add_Error_Message
2549: ( p_error_msg_name => 'BIS_NO_DIMX_ACCESS'
2550: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
2551: , p_error_proc_name => 'BIS_TARGET_PVT.Retrieve_Measure_Dim_Values'
2552: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
2553: , p_error_table => l_error_tbl
2554: , x_error_table => x_error_tbl
2555: );
2556: END IF;
3163: , p_Target_Rec IN BIS_Target_PUB.Target_Rec_Type
3164: , x_Dim_Level_Value_Rec OUT NOCOPY BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type
3165: , x_dimension_level_number OUT NOCOPY NUMBER
3166: , x_return_status OUT NOCOPY VARCHAR2
3167: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
3168: )
3169: IS
3170:
3171: l_dimension_level_number NUMBER;
3172: l_target_level_rec BIS_Target_Level_PUB.Target_Level_rec_Type;
3173: l_Dimension_Level_Rec BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type;
3174: l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
3175: l_dim_level_value_tbl BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type;
3176: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
3177:
3178:
3179: CURSOR cr_tar_dim_value(p_target_id NUMBER) IS
3180: select
3189: where target_id = p_target_id;
3190:
3191: BEGIN
3192:
3193: --BIS_UTILITIES_PUB.put_line(p_text =>'in Retrieve_Time_level_value. target level: '
3194: --||p_Target_Rec.target_level_id
3195: --||', target id: '||p_Target_Rec.target_id
3196: --);
3197:
3213: x_Dim_Level_Value_Rec.Dimension_Level_name := l_Dimension_Level_Rec.Dimension_Level_name;
3214:
3215: x_dimension_level_number := l_dimension_level_number;
3216:
3217: --BIS_UTILITIES_PUB.put_line(p_text =>'retrieved time level: '||l_Dimension_Level_Rec.Dimension_Level_id
3218: --||', time level number: '||l_dimension_level_number);
3219:
3220: IF (BIS_UTILITIES_PVT.Value_Not_Missing(p_Target_Rec.target_id)
3221: = FND_API.G_TRUE)
3239: BIS_UTILITIES_PVT.Add_Error_Message
3240: ( p_error_msg_name => 'BIS_INVALID_TARGET_VALUE'
3241: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
3242: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Time_Level_Value'
3243: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
3244: , p_error_table => l_error_tbl
3245: , x_error_table => x_error_tbl
3246: );
3247: x_return_status := FND_API.G_RET_STS_ERROR;
3251:
3252: END IF;
3253:
3254: FOR i IN 1..l_dim_level_value_tbl.COUNT LOOP
3255: --BIS_UTILITIES_PUB.put_line(p_text =>'i: '||i);
3256: IF i = l_dimension_level_number THEN
3257: --BIS_UTILITIES_PUB.put_line(p_text =>'got period: '
3258: --||l_Dim_Level_Value_tbl(i).Dimension_Level_Value_id);
3259:
3253:
3254: FOR i IN 1..l_dim_level_value_tbl.COUNT LOOP
3255: --BIS_UTILITIES_PUB.put_line(p_text =>'i: '||i);
3256: IF i = l_dimension_level_number THEN
3257: --BIS_UTILITIES_PUB.put_line(p_text =>'got period: '
3258: --||l_Dim_Level_Value_tbl(i).Dimension_Level_Value_id);
3259:
3260: l_Dim_Level_Value_tbl(i).Dimension_Level_id
3261: := l_Dimension_Level_Rec.Dimension_Level_id;
3271:
3272: EXCEPTION
3273: --added this
3274: WHEN FND_API.G_EXC_ERROR THEN
3275: BIS_UTILITIES_PUB.put_line(p_text =>'Error 1 while getting time level value: '||SQLERRM);
3276: x_return_status := FND_API.G_RET_STS_ERROR;
3277: IF cr_tar_dim_value%ISOPEN THEN CLOSE cr_tar_dim_value; END IF;
3278: WHEN OTHERS THEN
3279: BIS_UTILITIES_PUB.put_line(p_text =>'Error 2 while getting time level value: '||SQLERRM);
3275: BIS_UTILITIES_PUB.put_line(p_text =>'Error 1 while getting time level value: '||SQLERRM);
3276: x_return_status := FND_API.G_RET_STS_ERROR;
3277: IF cr_tar_dim_value%ISOPEN THEN CLOSE cr_tar_dim_value; END IF;
3278: WHEN OTHERS THEN
3279: BIS_UTILITIES_PUB.put_line(p_text =>'Error 2 while getting time level value: '||SQLERRM);
3280: IF cr_tar_dim_value%ISOPEN THEN CLOSE cr_tar_dim_value; END IF;
3281: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3282: l_error_Tbl := x_error_Tbl;
3283: BIS_UTILITIES_PVT.Add_Error_Message
3302:
3303: l_Target_Rec BIS_Target_PUB.Target_Rec_Type;
3304: l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
3305: l_dimension_level_number NUMBER;
3306: l_error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
3307: l_return_status VARCHAR2(32000);
3308:
3309: BEGIN
3310:
3335: , p_Target_Rec IN BIS_Target_PUB.Target_Rec_Type
3336: , x_Dim_Level_Value_Rec OUT NOCOPY BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type
3337: , x_dimension_level_number OUT NOCOPY NUMBER
3338: , x_return_status OUT NOCOPY VARCHAR2
3339: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
3340: )
3341: IS
3342:
3343: l_dimension_level_number NUMBER;
3344: l_target_level_rec BIS_Target_Level_PUB.Target_Level_rec_Type;
3345: l_Dimension_Level_Rec BIS_DIMENSION_LEVEL_PUB.Dimension_Level_Rec_Type;
3346: l_Dim_Level_Value_Rec BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Rec_Type;
3347: l_dim_level_value_tbl BIS_DIM_LEVEL_VALUE_PUB.Dim_Level_Value_Tbl_Type;
3348: l_error_Tbl_p BIS_UTILITIES_PUB.Error_Tbl_Type;
3349:
3350:
3351: BEGIN
3352:
3352:
3353:
3354: l_target_level_rec.target_level_id := p_Target_Rec.target_level_id;
3355:
3356: -- BIS_UTILITIES_PUB.put_line(p_text =>' Target level id inside Retrieve_Org_level_value = ' || l_target_level_rec.target_level_id ) ;
3357:
3358: BIS_TARGET_LEVEL_PVT.Retrieve_Org_level
3359: ( p_api_version => 1.0
3360: , p_Target_Level_Rec => l_Target_Level_Rec
3366:
3367:
3368: -- Following change is to get the Level info if there is no value too
3369:
3370: -- BIS_UTILITIES_PUB.put_line(p_text => ' inside bisvtarb l_Dimension_Level_Rec.DIMENSION_ID = ' || l_Dimension_Level_Rec.DIMENSION_ID ) ;
3371:
3372: x_Dim_Level_Value_Rec.Dimension_Level_id := l_Dimension_Level_Rec.Dimension_Level_id;
3373: x_Dim_Level_Value_Rec.Dimension_Level_short_name := l_Dimension_Level_Rec.Dimension_Level_short_name;
3374: x_Dim_Level_Value_Rec.Dimension_Level_name := l_Dimension_Level_Rec.Dimension_Level_name;
3384: l_dim_level_value_tbl(7).dimension_level_value_id := p_target_rec.dim7_level_value_id;
3385:
3386:
3387: FOR i IN 1..7 loop -- l_dim_level_value_tbl.COUNT LOOP
3388: --BIS_UTILITIES_PUB.put_line(p_text =>'i: '||i);
3389: IF i = l_dimension_level_number THEN
3390: --BIS_UTILITIES_PUB.put_line(p_text =>'got period: '
3391: --||l_Dim_Level_Value_tbl(i).Dimension_Level_Value_id);
3392:
3386:
3387: FOR i IN 1..7 loop -- l_dim_level_value_tbl.COUNT LOOP
3388: --BIS_UTILITIES_PUB.put_line(p_text =>'i: '||i);
3389: IF i = l_dimension_level_number THEN
3390: --BIS_UTILITIES_PUB.put_line(p_text =>'got period: '
3391: --||l_Dim_Level_Value_tbl(i).Dimension_Level_Value_id);
3392:
3393: l_Dim_Level_Value_tbl(i).Dimension_Level_id
3394: := l_Dimension_Level_Rec.Dimension_Level_id;
3408:
3409: --added this
3410: WHEN FND_API.G_EXC_ERROR THEN
3411:
3412: BIS_UTILITIES_PUB.put_line(p_text =>'Error 1 while getting Org level value: '||SQLERRM);
3413: x_return_status := FND_API.G_RET_STS_ERROR;
3414:
3415:
3416: WHEN OTHERS THEN
3413: x_return_status := FND_API.G_RET_STS_ERROR;
3414:
3415:
3416: WHEN OTHERS THEN
3417: BIS_UTILITIES_PUB.put_line(p_text =>'Error 2 while getting Org level value: '||SQLERRM);
3418: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3419:
3420: l_error_Tbl_p := x_error_Tbl;
3421: BIS_UTILITIES_PVT.Add_Error_Message
3438: , p_Target_Rec IN BIS_TARGET_PUB.TARGET_REC_TYPE
3439: , x_Target_Level_Rec IN OUT NOCOPY BIS_Target_Level_PUB.Target_Level_Rec_Type
3440: , x_Target_Rec IN OUT NOCOPY BIS_TARGET_PUB.TARGET_REC_TYPE
3441: , x_return_status OUT NOCOPY VARCHAR2
3442: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
3443: )
3444: IS
3445: l_Target_Level_Rec BIS_Target_Level_PUB.Target_Level_Rec_Type;
3446: l_measure_rec BIS_MEASURE_PUB.MEASURE_REC_TYPE;
3447: l_measure_rec_p BIS_MEASURE_PUB.MEASURE_REC_TYPE;
3448: l_dim_level_rec BIS_DIMENSION_LEVEL_PUB.DIMENSION_LEVEL_REC_TYPE;
3449: l_dim_level_value_rec BIS_DIM_lEVEL_VALUE_PUB.DIM_LEVEL_VALUE_REC_TYPE;
3450: l_target_level_id NUMBER;
3451: l_error_tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
3452: l_target_rec_p BIS_TARGET_PUB.TARGET_REC_TYPE;
3453: l_dim_level_rec_p BIS_DIMENSION_LEVEL_PUB.DIMENSION_LEVEL_REC_TYPE;
3454: l_dim_level_value_rec_p BIS_DIM_lEVEL_VALUE_PUB.DIM_LEVEL_VALUE_REC_TYPE;
3455:
3498: WHERE short_name=p_dim_level_short_name;
3499:
3500: BEGIN
3501: IF (p_target_level_rec.measure_short_name IS NOT NULL
3502: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.measure_short_name) = FND_API.G_TRUE) THEN
3503: l_measure_rec.measure_short_name := p_target_level_rec.measure_short_name;
3504: END IF;
3505: IF (p_target_level_rec.measure_id IS NOT NULL
3506: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.measure_id) = FND_API.G_TRUE) THEN
3502: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.measure_short_name) = FND_API.G_TRUE) THEN
3503: l_measure_rec.measure_short_name := p_target_level_rec.measure_short_name;
3504: END IF;
3505: IF (p_target_level_rec.measure_id IS NOT NULL
3506: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.measure_id) = FND_API.G_TRUE) THEN
3507: l_measure_rec.measure_id := p_target_level_rec.measure_id;
3508: END IF;
3509: --Populate the measure record with all the relevant values
3510: l_measure_rec_p := l_measure_rec;
3516: ,x_error_tbl => x_error_tbl
3517: );
3518:
3519: IF (p_target_level_rec.dimension1_level_short_name IS NOT NULL
3520: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.dimension1_level_short_name) = FND_API.G_TRUE) THEN
3521: OPEN c_dim_lvl(p_target_level_rec.dimension1_level_short_name);
3522: FETCH c_dim_lvl INTO x_target_level_rec.dimension1_level_id,x_target_level_rec.dimension1_level_name;
3523: CLOSE c_dim_lvl;
3524: END IF;
3522: FETCH c_dim_lvl INTO x_target_level_rec.dimension1_level_id,x_target_level_rec.dimension1_level_name;
3523: CLOSE c_dim_lvl;
3524: END IF;
3525: IF (p_target_level_rec.dimension2_level_short_name IS NOT NULL
3526: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.dimension2_level_short_name)= FND_API.G_TRUE) THEN
3527: OPEN c_dim_lvl(p_target_level_rec.dimension2_level_short_name);
3528: FETCH c_dim_lvl INTO x_target_level_rec.dimension2_level_id,x_target_level_rec.dimension2_level_name;
3529: CLOSE c_dim_lvl;
3530: END IF;
3528: FETCH c_dim_lvl INTO x_target_level_rec.dimension2_level_id,x_target_level_rec.dimension2_level_name;
3529: CLOSE c_dim_lvl;
3530: END IF;
3531: IF (p_target_level_rec.dimension3_level_short_name IS NOT NULL
3532: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.dimension3_level_short_name)= FND_API.G_TRUE) THEN
3533: OPEN c_dim_lvl(p_target_level_rec.dimension3_level_short_name);
3534: FETCH c_dim_lvl INTO x_target_level_rec.dimension3_level_id,x_target_level_rec.dimension3_level_name;
3535: CLOSE c_dim_lvl;
3536: END IF;
3534: FETCH c_dim_lvl INTO x_target_level_rec.dimension3_level_id,x_target_level_rec.dimension3_level_name;
3535: CLOSE c_dim_lvl;
3536: END IF;
3537: IF (p_target_level_rec.dimension4_level_short_name IS NOT NULL
3538: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.dimension4_level_short_name)= FND_API.G_TRUE) THEN
3539: OPEN c_dim_lvl(p_target_level_rec.dimension4_level_short_name);
3540: FETCH c_dim_lvl INTO x_target_level_rec.dimension4_level_id,x_target_level_rec.dimension4_level_name;
3541: CLOSE c_dim_lvl;
3542: END IF;
3540: FETCH c_dim_lvl INTO x_target_level_rec.dimension4_level_id,x_target_level_rec.dimension4_level_name;
3541: CLOSE c_dim_lvl;
3542: END IF;
3543: IF (p_target_level_rec.dimension5_level_short_name IS NOT NULL
3544: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.dimension5_level_short_name)= FND_API.G_TRUE) THEN
3545: OPEN c_dim_lvl(p_target_level_rec.dimension5_level_short_name);
3546: FETCH c_dim_lvl INTO x_target_level_rec.dimension5_level_id,x_target_level_rec.dimension5_level_name;
3547: CLOSE c_dim_lvl;
3548: END IF;
3546: FETCH c_dim_lvl INTO x_target_level_rec.dimension5_level_id,x_target_level_rec.dimension5_level_name;
3547: CLOSE c_dim_lvl;
3548: END IF;
3549: IF (p_target_level_rec.dimension6_level_short_name IS NOT NULL
3550: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.dimension6_level_short_name)= FND_API.G_TRUE) THEN
3551: OPEN c_dim_lvl(p_target_level_rec.dimension6_level_short_name);
3552: FETCH c_dim_lvl INTO x_target_level_rec.dimension6_level_id,x_target_level_rec.dimension6_level_name;
3553: CLOSE c_dim_lvl;
3554: END IF;
3552: FETCH c_dim_lvl INTO x_target_level_rec.dimension6_level_id,x_target_level_rec.dimension6_level_name;
3553: CLOSE c_dim_lvl;
3554: END IF;
3555: IF (p_target_level_rec.dimension7_level_short_name IS NOT NULL
3556: AND BIS_UTILITIES_PUB.Value_Not_Missing(p_target_level_rec.dimension7_level_short_name)= FND_API.G_TRUE) THEN
3557: OPEN c_dim_lvl(p_target_level_rec.dimension7_level_short_name);
3558: FETCH c_dim_lvl INTO x_target_level_rec.dimension7_level_id,x_target_level_rec.dimension7_level_name;
3559: CLOSE c_dim_lvl;
3560: END IF;
3566:
3567: --Get the dimension ids for all the dimension level ids. This will be later used to
3568: --sequence the dimension levels
3569: IF (x_target_level_rec.dimension1_level_id IS NOT NULL
3570: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension1_level_id)= FND_API.G_TRUE) THEN
3571: SetNULL(l_dim_level_rec,l_dim_level_rec);
3572: l_dim_level_rec.dimension_level_id := x_target_level_rec.dimension1_level_id;
3573: l_dim_level_rec_p := l_dim_level_rec;
3574: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level( p_api_version => p_api_version
3580: l_dim1_id := BIS_UTILITIES_PVT.checkmissnum(l_dim_level_rec.dimension_id);
3581: END IF;
3582:
3583: IF (x_target_level_rec.dimension2_level_id IS NOT NULL
3584: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension2_level_id)= FND_API.G_TRUE) THEN
3585: SetNULL(l_dim_level_rec,l_dim_level_rec);
3586: l_dim_level_rec.dimension_level_id := x_target_level_rec.dimension2_level_id;
3587: l_dim_level_rec_p := l_dim_level_rec;
3588: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level( p_api_version => p_api_version
3594: l_dim2_id := BIS_UTILITIES_PVT.checkmissnum(l_dim_level_rec.dimension_id);
3595: END IF;
3596:
3597: IF (x_target_level_rec.dimension3_level_id IS NOT NULL
3598: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension3_level_id)= FND_API.G_TRUE) THEN
3599: SetNULL(l_dim_level_rec,l_dim_level_rec);
3600: l_dim_level_rec.dimension_level_id := x_target_level_rec.dimension3_level_id;
3601: l_dim_level_rec_p := l_dim_level_rec;
3602: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level( p_api_version => p_api_version
3608: l_dim3_id := BIS_UTILITIES_PVT.checkmissnum(l_dim_level_rec.dimension_id);
3609: END IF;
3610:
3611: IF (x_target_level_rec.dimension4_level_id IS NOT NULL
3612: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension4_level_id)= FND_API.G_TRUE) THEN
3613: SetNULL(l_dim_level_rec,l_dim_level_rec);
3614: l_dim_level_rec.dimension_level_id := x_target_level_rec.dimension4_level_id;
3615: l_dim_level_rec_p := l_dim_level_rec;
3616: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level( p_api_version => p_api_version
3622: l_dim4_id := BIS_UTILITIES_PVT.checkmissnum(l_dim_level_rec.dimension_id);
3623: END IF;
3624:
3625: IF (x_target_level_rec.dimension5_level_id IS NOT NULL
3626: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension5_level_id)= FND_API.G_TRUE) THEN
3627: SetNULL(l_dim_level_rec,l_dim_level_rec);
3628: l_dim_level_rec.dimension_level_id := x_target_level_rec.dimension5_level_id;
3629: l_dim_level_rec_p := l_dim_level_rec;
3630: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level( p_api_version => p_api_version
3636: l_dim5_id := BIS_UTILITIES_PVT.checkmissnum(l_dim_level_rec.dimension_id);
3637: END IF;
3638:
3639: IF (x_target_level_rec.dimension6_level_id IS NOT NULL
3640: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension6_level_id)= FND_API.G_TRUE) THEN
3641: SetNULL(l_dim_level_rec,l_dim_level_rec);
3642: l_dim_level_rec.dimension_level_id := x_target_level_rec.dimension6_level_id;
3643: l_dim_level_rec_p := l_dim_level_rec;
3644: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level( p_api_version => p_api_version
3650: l_dim6_id := BIS_UTILITIES_PVT.checkmissnum(l_dim_level_rec.dimension_id);
3651: END IF;
3652:
3653: IF (x_target_level_rec.dimension7_level_id IS NOT NULL
3654: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension7_level_id)= FND_API.G_TRUE) THEN
3655: SetNULL(l_dim_level_rec,l_dim_level_rec);
3656: l_dim_level_rec.dimension_level_id := x_target_level_rec.dimension7_level_id;
3657: l_dim_level_rec_p := l_dim_level_rec;
3658: BIS_DIMENSION_LEVEL_PUB.Retrieve_Dimension_Level( p_api_version => p_api_version
3964:
3965: --Dim Level Value Names
3966:
3967: IF (x_target_level_rec.dimension1_level_id IS NOT NULL
3968: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension1_level_id)= FND_API.G_TRUE
3969: AND
3970: x_target_rec.dim1_level_value_id IS NOT NULL
3971: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim1_level_value_id)= FND_API.G_TRUE) THEN
3972:
3967: IF (x_target_level_rec.dimension1_level_id IS NOT NULL
3968: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension1_level_id)= FND_API.G_TRUE
3969: AND
3970: x_target_rec.dim1_level_value_id IS NOT NULL
3971: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim1_level_value_id)= FND_API.G_TRUE) THEN
3972:
3973: l_dim_level_value_rec.Dimension_level_id := x_target_level_rec.dimension1_level_id;
3974: l_dim_level_value_rec.Dimension_level_value_id := x_target_rec.dim1_level_value_id;
3975: l_dim_level_value_rec_p := l_dim_level_value_rec;
3983: x_target_rec.dim1_level_value_name := l_dim_level_value_rec.Dimension_level_value_name;
3984: END IF;
3985:
3986: IF (x_target_level_rec.dimension2_level_id IS NOT NULL
3987: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension2_level_id)= FND_API.G_TRUE
3988: AND
3989: x_target_rec.dim2_level_value_id IS NOT NULL
3990: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim2_level_value_id)= FND_API.G_TRUE) THEN
3991:
3986: IF (x_target_level_rec.dimension2_level_id IS NOT NULL
3987: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension2_level_id)= FND_API.G_TRUE
3988: AND
3989: x_target_rec.dim2_level_value_id IS NOT NULL
3990: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim2_level_value_id)= FND_API.G_TRUE) THEN
3991:
3992: l_dim_level_value_rec.Dimension_level_id := x_target_level_rec.dimension2_level_id;
3993: l_dim_level_value_rec.Dimension_level_value_id := x_target_rec.dim2_level_value_id;
3994: l_dim_level_value_rec_p := l_dim_level_value_rec;
4002: x_target_rec.dim2_level_value_name := l_dim_level_value_rec.Dimension_level_value_name;
4003: END IF;
4004:
4005: IF (x_target_level_rec.dimension3_level_id IS NOT NULL
4006: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension3_level_id)= FND_API.G_TRUE
4007: AND
4008: x_target_rec.dim3_level_value_id IS NOT NULL
4009: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim3_level_value_id)= FND_API.G_TRUE) THEN
4010:
4005: IF (x_target_level_rec.dimension3_level_id IS NOT NULL
4006: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension3_level_id)= FND_API.G_TRUE
4007: AND
4008: x_target_rec.dim3_level_value_id IS NOT NULL
4009: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim3_level_value_id)= FND_API.G_TRUE) THEN
4010:
4011: l_dim_level_value_rec.Dimension_level_id := x_target_level_rec.dimension3_level_id;
4012: l_dim_level_value_rec.Dimension_level_value_id := x_target_rec.dim3_level_value_id;
4013: l_dim_level_value_rec_p := l_dim_level_value_rec;
4021: x_target_rec.dim3_level_value_name := l_dim_level_value_rec.Dimension_level_value_name;
4022: END IF;
4023:
4024: IF (x_target_level_rec.dimension4_level_id IS NOT NULL
4025: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension4_level_id)= FND_API.G_TRUE
4026: AND
4027: x_target_rec.dim4_level_value_id IS NOT NULL
4028: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim4_level_value_id)= FND_API.G_TRUE) THEN
4029:
4024: IF (x_target_level_rec.dimension4_level_id IS NOT NULL
4025: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension4_level_id)= FND_API.G_TRUE
4026: AND
4027: x_target_rec.dim4_level_value_id IS NOT NULL
4028: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim4_level_value_id)= FND_API.G_TRUE) THEN
4029:
4030: l_dim_level_value_rec.Dimension_level_id := x_target_level_rec.dimension4_level_id;
4031: l_dim_level_value_rec.Dimension_level_value_id := x_target_rec.dim4_level_value_id;
4032: l_dim_level_value_rec_p := l_dim_level_value_rec;
4040: x_target_rec.dim4_level_value_name := l_dim_level_value_rec.Dimension_level_value_name;
4041: END IF;
4042:
4043: IF (x_target_level_rec.dimension5_level_id IS NOT NULL
4044: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension5_level_id)= FND_API.G_TRUE
4045: AND
4046: x_target_rec.dim5_level_value_id IS NOT NULL
4047: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim5_level_value_id)= FND_API.G_TRUE) THEN
4048:
4043: IF (x_target_level_rec.dimension5_level_id IS NOT NULL
4044: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension5_level_id)= FND_API.G_TRUE
4045: AND
4046: x_target_rec.dim5_level_value_id IS NOT NULL
4047: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim5_level_value_id)= FND_API.G_TRUE) THEN
4048:
4049: l_dim_level_value_rec.Dimension_level_id := x_target_level_rec.dimension5_level_id;
4050: l_dim_level_value_rec.Dimension_level_value_id := x_target_rec.dim5_level_value_id;
4051: l_dim_level_value_rec_p := l_dim_level_value_rec;
4059: x_target_rec.dim5_level_value_name := l_dim_level_value_rec.Dimension_level_value_name;
4060: END IF;
4061:
4062: IF (x_target_level_rec.dimension6_level_id IS NOT NULL
4063: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension6_level_id)= FND_API.G_TRUE
4064: AND
4065: x_target_rec.dim6_level_value_id IS NOT NULL
4066: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim6_level_value_id)= FND_API.G_TRUE) THEN
4067:
4062: IF (x_target_level_rec.dimension6_level_id IS NOT NULL
4063: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension6_level_id)= FND_API.G_TRUE
4064: AND
4065: x_target_rec.dim6_level_value_id IS NOT NULL
4066: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim6_level_value_id)= FND_API.G_TRUE) THEN
4067:
4068: l_dim_level_value_rec.Dimension_level_id := x_target_level_rec.dimension6_level_id;
4069: l_dim_level_value_rec.Dimension_level_value_id := x_target_rec.dim6_level_value_id;
4070: l_dim_level_value_rec_p := l_dim_level_value_rec;
4078: x_target_rec.dim6_level_value_name := l_dim_level_value_rec.Dimension_level_value_name;
4079: END IF;
4080:
4081: IF (x_target_level_rec.dimension7_level_id IS NOT NULL
4082: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension7_level_id)= FND_API.G_TRUE
4083: AND
4084: x_target_rec.dim7_level_value_id IS NOT NULL
4085: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim7_level_value_id)= FND_API.G_TRUE) THEN
4086:
4081: IF (x_target_level_rec.dimension7_level_id IS NOT NULL
4082: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_level_rec.dimension7_level_id)= FND_API.G_TRUE
4083: AND
4084: x_target_rec.dim7_level_value_id IS NOT NULL
4085: AND BIS_UTILITIES_PUB.Value_Not_Missing(x_target_rec.dim7_level_value_id)= FND_API.G_TRUE) THEN
4086:
4087: l_dim_level_value_rec.Dimension_level_id := x_target_level_rec.dimension7_level_id;
4088: l_dim_level_value_rec.Dimension_level_value_id := x_target_rec.dim7_level_value_id;
4089: l_dim_level_value_rec_p := l_dim_level_value_rec;