APPS.IGW_SUBJECT_INFORMATION_TBH dependencies on IGW_SUBJECT_INFORMATION

Line 1: package body IGW_SUBJECT_INFORMATION_TBH as

1: package body IGW_SUBJECT_INFORMATION_TBH as
2: /* $Header: igwtsuib.pls 115.5 2002/11/15 00:50:58 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_SUBJECT_INFORMATION

8: X_SUBJECT_ETHNICITY_CODE IN VARCHAR2,
9: X_NO_OF_SUBJECTS IN NUMBER,
10: X_RETURN_STATUS OUT NOCOPY VARCHAR2
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 (

Line 16: insert into IGW_SUBJECT_INFORMATION (

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,
20: SUBJECT_ETHNICITY_CODE,

Line 41: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'

37: close c;
38:
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:

Line 69: update igw_subject_information set

65: IF x_rowid IS NULL THEN
66: RAISE NO_DATA_FOUND;
67: END IF;
68:
69: update igw_subject_information set
70: study_title_id = x_study_title_id,
71: subject_type_code = x_subject_type_code,
72: subject_race_code = x_subject_race_code,
73: subject_ethnicity_code = x_subject_ethnicity_code,

Line 87: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'

83: end if;
84:
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:

Line 108: delete from igw_subject_information

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;
111:
112: if (sql%notfound) then

Line 118: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'IGW_SUBJECT_INFORMATION_TBH'

114: FND_MSG_PUB.Add;
115: end if;
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;

Line 124: end IGW_SUBJECT_INFORMATION_TBH;

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;