11: ) is
12: cursor C is select ROWID from IGW_SUBJECT_INFORMATION
13: where STUDY_TITLE_ID = X_STUDY_TITLE_ID and SUBJECT_TYPE_CODE = X_SUBJECT_TYPE_CODE;
14: begin
15: x_return_status := FND_API.G_RET_STS_SUCCESS;
16: insert into IGW_SUBJECT_INFORMATION (
17: STUDY_TITLE_ID,
18: SUBJECT_TYPE_CODE,
19: SUBJECT_RACE_CODE,
39: EXCEPTION
40: WHEN OTHERS THEN
41: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'
42: ,p_procedure_name => 'INSERT_ROW' );
43: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
44: RAISE Fnd_Api.G_Exc_Unexpected_Error;
45:
46: end INSERT_ROW;
47:
40: WHEN OTHERS THEN
41: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'
42: ,p_procedure_name => 'INSERT_ROW' );
43: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
44: RAISE Fnd_Api.G_Exc_Unexpected_Error;
45:
46: end INSERT_ROW;
47:
48: -----------------------------------------------------------------------
59: ) is
60:
61: begin
62:
63: x_return_status := FND_API.G_RET_STS_SUCCESS;
64:
65: IF x_rowid IS NULL THEN
66: RAISE NO_DATA_FOUND;
67: END IF;
78:
79: if (sql%notfound) then
80: FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
81: FND_MSG_PUB.Add;
82: x_return_status := FND_API.G_RET_STS_ERROR;
83: end if;
84:
85: EXCEPTION
86: WHEN OTHERS THEN
85: EXCEPTION
86: WHEN OTHERS THEN
87: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'
88: ,p_procedure_name => 'UPDATE_ROW' );
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90: RAISE Fnd_Api.G_Exc_Unexpected_Error;
91:
92: end UPDATE_ROW;
93:
86: WHEN OTHERS THEN
87: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'
88: ,p_procedure_name => 'UPDATE_ROW' );
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90: RAISE Fnd_Api.G_Exc_Unexpected_Error;
91:
92: end UPDATE_ROW;
93:
94: ---------------------------------------------------------------------------------
102: l_record_version_number NUMBER;
103:
104: begin
105:
106: x_return_status := FND_API.G_RET_STS_SUCCESS;
107:
108: delete from igw_subject_information
109: where rowid = x_rowid
110: and record_version_number = x_record_version_number;
116: EXCEPTION
117: WHEN OTHERS THEN
118: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'
119: ,p_procedure_name => 'DELETE_ROW' );
120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
121: RAISE Fnd_Api.G_Exc_Unexpected_Error;
122: end DELETE_ROW;
123:
124: end IGW_SUBJECT_INFORMATION_TBH;
117: WHEN OTHERS THEN
118: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'
119: ,p_procedure_name => 'DELETE_ROW' );
120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
121: RAISE Fnd_Api.G_Exc_Unexpected_Error;
122: end DELETE_ROW;
123:
124: end IGW_SUBJECT_INFORMATION_TBH;