21: --
22: --
23: PROCEDURE Validate_Target_Level_ID
24: ( p_api_version IN NUMBER
25: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
26: , p_MEASURE_SEC_Rec IN BIS_MEASURE_SECURITY_PUB.MEASURE_Security_Rec_Type
27: , x_return_status OUT VARCHAR2
28: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
29: )
37: where target_level_id = p_MEASURE_SEC_Rec.Target_Level_Id;
38:
39: begin
40:
41: x_return_status := FND_API.G_RET_STS_SUCCESS;
42: if(BIS_UTILITIES_PUB.Value_Not_Missing(p_MEASURE_SEC_Rec.Target_Level_Id)
43: = FND_API.G_TRUE
44: AND BIS_UTILITIES_PUB.Value_Not_NULL(p_MEASURE_SEC_Rec.Target_Level_Id)
45: = FND_API.G_TRUE) then
39: begin
40:
41: x_return_status := FND_API.G_RET_STS_SUCCESS;
42: if(BIS_UTILITIES_PUB.Value_Not_Missing(p_MEASURE_SEC_Rec.Target_Level_Id)
43: = FND_API.G_TRUE
44: AND BIS_UTILITIES_PUB.Value_Not_NULL(p_MEASURE_SEC_Rec.Target_Level_Id)
45: = FND_API.G_TRUE) then
46: open chk_target_level;
47: fetch chk_target_level into l_dummy;
41: x_return_status := FND_API.G_RET_STS_SUCCESS;
42: if(BIS_UTILITIES_PUB.Value_Not_Missing(p_MEASURE_SEC_Rec.Target_Level_Id)
43: = FND_API.G_TRUE
44: AND BIS_UTILITIES_PUB.Value_Not_NULL(p_MEASURE_SEC_Rec.Target_Level_Id)
45: = FND_API.G_TRUE) then
46: open chk_target_level;
47: fetch chk_target_level into l_dummy;
48: if (chk_target_level%NOTFOUND) then
49: close chk_target_level;
52: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
53: , p_error_proc_name => G_PKG_NAME||'.Validate_Target_Level_ID'
54: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
55: );
56: RAISE FND_API.G_EXC_ERROR;
57: end if;
58: close chk_target_level;
59: end if;
60:
59: end if;
60:
61: EXCEPTION
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
60:
61: EXCEPTION
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
61: EXCEPTION
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
62: WHEN NO_DATA_FOUND THEN
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: x_return_status := FND_API.G_RET_STS_ERROR ;
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
64: RAISE FND_API.G_EXC_ERROR;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
65: when FND_API.G_EXC_ERROR then
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73: BIS_UTILITIES_PVT.Add_Error_Message
66: x_return_status := FND_API.G_RET_STS_ERROR ;
67: RAISE FND_API.G_EXC_ERROR;
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73: BIS_UTILITIES_PVT.Add_Error_Message
74: ( p_error_msg_id => SQLCODE
68: when FND_API.G_EXC_UNEXPECTED_ERROR then
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: when others then
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73: BIS_UTILITIES_PVT.Add_Error_Message
74: ( p_error_msg_id => SQLCODE
75: , p_error_description => SQLERRM
76: , p_error_proc_name => G_PKG_NAME||'.Validate_Target_Level_ID'
74: ( p_error_msg_id => SQLCODE
75: , p_error_description => SQLERRM
76: , p_error_proc_name => G_PKG_NAME||'.Validate_Target_Level_ID'
77: );
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79:
80: END Validate_Target_Level_ID;
81: --
82: PROCEDURE Validate_Responsibility_Id
80: END Validate_Target_Level_ID;
81: --
82: PROCEDURE Validate_Responsibility_Id
83: ( p_api_version IN NUMBER
84: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
85: , p_MEASURE_SEC_Rec IN BIS_MEASURE_SECURITY_PUB.MEASURE_Security_Rec_Type
86: , x_return_status OUT VARCHAR2
87: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
88: )
88: )
89: IS
90: BEGIN
91: -- needs to be filled in
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93: NULL;
94:
95: EXCEPTION
96: WHEN NO_DATA_FOUND THEN
93: NULL;
94:
95: EXCEPTION
96: WHEN NO_DATA_FOUND THEN
97: x_return_status := FND_API.G_RET_STS_ERROR ;
98: RAISE FND_API.G_EXC_ERROR;
99: when FND_API.G_EXC_ERROR then
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
94:
95: EXCEPTION
96: WHEN NO_DATA_FOUND THEN
97: x_return_status := FND_API.G_RET_STS_ERROR ;
98: RAISE FND_API.G_EXC_ERROR;
99: when FND_API.G_EXC_ERROR then
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
95: EXCEPTION
96: WHEN NO_DATA_FOUND THEN
97: x_return_status := FND_API.G_RET_STS_ERROR ;
98: RAISE FND_API.G_EXC_ERROR;
99: when FND_API.G_EXC_ERROR then
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
96: WHEN NO_DATA_FOUND THEN
97: x_return_status := FND_API.G_RET_STS_ERROR ;
98: RAISE FND_API.G_EXC_ERROR;
99: when FND_API.G_EXC_ERROR then
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
97: x_return_status := FND_API.G_RET_STS_ERROR ;
98: RAISE FND_API.G_EXC_ERROR;
99: when FND_API.G_EXC_ERROR then
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: when others then
98: RAISE FND_API.G_EXC_ERROR;
99: when FND_API.G_EXC_ERROR then
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
99: when FND_API.G_EXC_ERROR then
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
107: BIS_UTILITIES_PVT.Add_Error_Message
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: RAISE FND_API.G_EXC_ERROR;
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
107: BIS_UTILITIES_PVT.Add_Error_Message
108: ( p_error_msg_id => SQLCODE
102: when FND_API.G_EXC_UNEXPECTED_ERROR then
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
107: BIS_UTILITIES_PVT.Add_Error_Message
108: ( p_error_msg_id => SQLCODE
109: , p_error_description => SQLERRM
110: , p_error_proc_name => G_PKG_NAME||'.Validate_Responsibility_Id'
108: ( p_error_msg_id => SQLCODE
109: , p_error_description => SQLERRM
110: , p_error_proc_name => G_PKG_NAME||'.Validate_Responsibility_Id'
111: );
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113:
114: END Validate_Responsibility_Id;
115: --
116: PROCEDURE Validate_Record
114: END Validate_Responsibility_Id;
115: --
116: PROCEDURE Validate_Record
117: ( p_api_version IN NUMBER
118: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
119: , p_MEASURE_SEC_Rec IN BIS_MEASURE_SECURITY_PUB.MEASURE_Security_Rec_Type
120: , x_return_status OUT VARCHAR2
121: , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
122: )
122: )
123: IS
124: BEGIN
125: -- Do not need to do anything
126: x_return_status := FND_API.G_RET_STS_SUCCESS;
127: NULL;
128:
129: EXCEPTION
130: WHEN NO_DATA_FOUND THEN
127: NULL;
128:
129: EXCEPTION
130: WHEN NO_DATA_FOUND THEN
131: x_return_status := FND_API.G_RET_STS_ERROR ;
132: RAISE FND_API.G_EXC_ERROR;
133: when FND_API.G_EXC_ERROR then
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
128:
129: EXCEPTION
130: WHEN NO_DATA_FOUND THEN
131: x_return_status := FND_API.G_RET_STS_ERROR ;
132: RAISE FND_API.G_EXC_ERROR;
133: when FND_API.G_EXC_ERROR then
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
129: EXCEPTION
130: WHEN NO_DATA_FOUND THEN
131: x_return_status := FND_API.G_RET_STS_ERROR ;
132: RAISE FND_API.G_EXC_ERROR;
133: when FND_API.G_EXC_ERROR then
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
130: WHEN NO_DATA_FOUND THEN
131: x_return_status := FND_API.G_RET_STS_ERROR ;
132: RAISE FND_API.G_EXC_ERROR;
133: when FND_API.G_EXC_ERROR then
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: x_return_status := FND_API.G_RET_STS_ERROR ;
132: RAISE FND_API.G_EXC_ERROR;
133: when FND_API.G_EXC_ERROR then
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: when others then
132: RAISE FND_API.G_EXC_ERROR;
133: when FND_API.G_EXC_ERROR then
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: when others then
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
133: when FND_API.G_EXC_ERROR then
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: when others then
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
141: BIS_UTILITIES_PVT.Add_Error_Message
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: RAISE FND_API.G_EXC_ERROR;
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: when others then
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
141: BIS_UTILITIES_PVT.Add_Error_Message
142: ( p_error_msg_id => SQLCODE
136: when FND_API.G_EXC_UNEXPECTED_ERROR then
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: when others then
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
141: BIS_UTILITIES_PVT.Add_Error_Message
142: ( p_error_msg_id => SQLCODE
143: , p_error_description => SQLERRM
144: , p_error_proc_name => G_PKG_NAME||'.Validate_Record'
142: ( p_error_msg_id => SQLCODE
143: , p_error_description => SQLERRM
144: , p_error_proc_name => G_PKG_NAME||'.Validate_Record'
145: );
146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
147:
148: END Validate_Record;
149: --
150: --