9: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
10:
11: PROCEDURE INSERT_PRB(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15:
16: p_policy_id IN jtf_prefab_prbs.policy_id%TYPE,
17: p_uri IN jtf_prefab_prbs.uri%TYPE,
10:
11: PROCEDURE INSERT_PRB(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15:
16: p_policy_id IN jtf_prefab_prbs.policy_id%TYPE,
17: p_uri IN jtf_prefab_prbs.uri%TYPE,
18: p_user_id IN jtf_prefab_prbs.user_id%TYPE,
34: -- Standard Start of API savepoint
35: SAVEPOINT INSERT_PRB;
36:
37: -- Standard call to check for call compatibility.
38: IF NOT FND_API.Compatible_API_Call (
39: l_api_version,
40: p_api_version,
41: l_api_name,
42: G_PKG_NAME)
40: p_api_version,
41: l_api_name,
42: G_PKG_NAME)
43: THEN
44: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
45: END IF;
46:
47: -- Initialize message list if p_init_msg_list is set to TRUE.
48: IF FND_API.To_Boolean( p_init_msg_list ) THEN
44: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
45: END IF;
46:
47: -- Initialize message list if p_init_msg_list is set to TRUE.
48: IF FND_API.To_Boolean( p_init_msg_list ) THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51:
52: -- Initialize API return status to success
49: FND_MSG_PUB.initialize;
50: END IF;
51:
52: -- Initialize API return status to success
53: x_return_status := FND_API.G_RET_STS_SUCCESS;
54:
55: -- real logic --
56: ----------------
57:
89: -----------------------
90: -- end of real logic --
91:
92: -- Standard check of p_commit.
93: IF (FND_API.To_Boolean(p_commit)) THEN
94: COMMIT WORK;
95: END IF;
96:
97: -- Standard call to get message count and if count is 1, get message info.
99: p_count => x_msg_count,
100: p_data => x_msg_data );
101:
102: EXCEPTION
103: WHEN FND_API.G_EXC_ERROR THEN
104: ROLLBACK TO INSERT_PRB;
105: x_return_status := FND_API.G_RET_STS_ERROR ;
106:
107: FND_MSG_PUB.Count_And_Get(
101:
102: EXCEPTION
103: WHEN FND_API.G_EXC_ERROR THEN
104: ROLLBACK TO INSERT_PRB;
105: x_return_status := FND_API.G_RET_STS_ERROR ;
106:
107: FND_MSG_PUB.Count_And_Get(
108: p_count => x_msg_count,
109: p_data => x_msg_data );
107: FND_MSG_PUB.Count_And_Get(
108: p_count => x_msg_count,
109: p_data => x_msg_data );
110:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112: ROLLBACK TO INSERT_PRB;
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
114:
115: FND_MSG_PUB.Count_And_Get(
109: p_data => x_msg_data );
110:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112: ROLLBACK TO INSERT_PRB;
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
114:
115: FND_MSG_PUB.Count_And_Get(
116: p_count => x_msg_count,
117: p_data => x_msg_data );
117: p_data => x_msg_data );
118:
119: WHEN OTHERS THEN
120: ROLLBACK TO INSERT_PRB;
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
122:
123: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
125: END IF;