APPS.IGW_STUDY_TITLES_TBH dependencies on IGW_STUDY_TITLES

Line 1: package body IGW_STUDY_TITLES_TBH as

1: package body IGW_STUDY_TITLES_TBH as
2: /* $Header: igwtsttb.pls 115.5 2002/11/15 00:50:01 ashkumar ship $ */
3: procedure INSERT_ROW (
4: X_ROWID out NOCOPY rowid,
5: X_STUDY_TITLE_ID in NUMBER,

Line 12: cursor C is select ROWID from IGW_STUDY_TITLES

8: X_PROTOCOL_NUMBER in VARCHAR2,
9: X_PROPOSAL_ID in NUMBER,
10: X_RETURN_STATUS OUT NOCOPY VARCHAR2
11: ) is
12: cursor C is select ROWID from IGW_STUDY_TITLES
13: where STUDY_TITLE_ID = X_STUDY_TITLE_ID;
14: begin
15: x_return_status := FND_API.G_RET_STS_SUCCESS;
16: insert into IGW_STUDY_TITLES (

Line 16: insert into IGW_STUDY_TITLES (

12: cursor C is select ROWID from IGW_STUDY_TITLES
13: where STUDY_TITLE_ID = X_STUDY_TITLE_ID;
14: begin
15: x_return_status := FND_API.G_RET_STS_SUCCESS;
16: insert into IGW_STUDY_TITLES (
17: STUDY_TITLE_ID,
18: STUDY_TITLE,
19: ENROLLMENT_STATUS,
20: PROTOCOL_NUMBER,

Line 42: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_STUDY_TITLES_TBH'

38: close c;
39:
40: EXCEPTION
41: WHEN OTHERS THEN
42: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_STUDY_TITLES_TBH'
43: ,p_procedure_name => 'INSERT_ROW' );
44: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
45: RAISE;
46:

Line 67: FROM igw_study_titles

63: l_record_version_number NUMBER;
64:
65: CURSOR get_row_id IS
66: SELECT rowid
67: FROM igw_study_titles
68: WHERE study_title_id = x_study_title_id;
69:
70: begin
71:

Line 80: update igw_study_titles set

76: FETCH get_row_id INTO l_row_id;
77: CLOSE get_row_id;
78: END IF;
79:
80: update igw_study_titles set
81: study_title_id = x_study_title_id,
82: study_title = x_study_title,
83: enrollment_status = x_enrollment_status,
84: protocol_number = x_protocol_number,

Line 98: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_STUDY_TITLES_TBH'

94: end if;
95:
96: EXCEPTION
97: WHEN OTHERS THEN
98: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_STUDY_TITLES_TBH'
99: ,p_procedure_name => 'UPDATE_ROW' );
100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
101: RAISE;
102:

Line 119: FROM igw_study_titles

115: l_record_version_number NUMBER;
116:
117: CURSOR get_row_id IS
118: SELECT rowid
119: FROM igw_study_titles
120: WHERE study_title_id = x_study_title_id;
121:
122: begin
123:

Line 132: delete from igw_study_titles

128: FETCH get_row_id INTO l_row_id;
129: CLOSE get_row_id;
130: END IF;
131:
132: delete from igw_study_titles
133: where rowid = l_row_id
134: and record_version_number = x_record_version_number;
135:
136: if (sql%notfound) then

Line 142: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_STUDY_TITLES_TBH'

138: FND_MSG_PUB.Add;
139: end if;
140: EXCEPTION
141: WHEN OTHERS THEN
142: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_STUDY_TITLES_TBH'
143: ,p_procedure_name => 'DELETE_ROW' );
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145: RAISE;
146: end DELETE_ROW;

Line 148: end IGW_STUDY_TITLES_TBH;

144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145: RAISE;
146: end DELETE_ROW;
147:
148: end IGW_STUDY_TITLES_TBH;