The following lines contain the word 'select', 'insert', 'update' or 'delete':
avenkatr 08-OCT-2001 Added column 'Contact' to Insert_row and Update_row procedures
ssawhney 7 may 2002 Bug 2338473 -- allow for more than one HZ error to appear.
gmaheswa 6 Nov 2003 HZ.K Impact Changes.
pkpatel 14 Jul 2005 Bug 4327807 (Person SS Enhancement)
Called the igs_ad_hz_emp_dtl_pkg.add_row instead of update_row as per value in
Occupitional Title Code
*/
l_rowid VARCHAR2(25);
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
x_employment_history_id OUT NOCOPY NUMBER,
x_PERSON_ID IN NUMBER ,
x_START_DT IN DATE,
x_END_DT IN DATE,
x_TYPE_OF_EMPLOYMENT IN VARCHAR2,
x_FRACTION_OF_EMPLOYMENT IN NUMBER,
x_TENURE_OF_EMPLOYMENT IN VARCHAR2,
x_POSITION IN VARCHAR2,
x_OCCUPATIONAL_TITLE_CODE IN VARCHAR2,
x_OCCUPATIONAL_TITLE IN VARCHAR2,
x_WEEKLY_WORK_HOURS IN NUMBER,
x_COMMENTS IN VARCHAR2,
x_EMPLOYER IN VARCHAR2,
x_EMPLOYED_BY_DIVISION_NAME IN VARCHAR2,
x_BRANCH IN VARCHAR2,
x_MILITARY_RANK IN VARCHAR2,
x_SERVED IN VARCHAR2,
x_STATION IN VARCHAR2,
x_CONTACT IN VARCHAR2, --Bug : 2037512
x_msg_data OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_object_version_number IN OUT NOCOPY NUMBER,
x_employed_by_party_id IN NUMBER,
x_reason_for_leaving IN VARCHAR2,
X_MODE in VARCHAR2 default 'R'
) AS
CURSOR c2 IS
SELECT ROWID
FROM hz_employment_history
WHERE party_id = x_person_id;
X_PROGRAM_UPDATE_DATE DATE;
X_LAST_UPDATE_DATE DATE ;
X_LAST_UPDATED_BY NUMBER ;
X_LAST_UPDATE_LOGIN NUMBER ;
CURSOR c_birth_date_val is SELECT date_of_birth FROM HZ_PERSON_PROFILES
WHERE party_id = x_person_id AND effective_end_Date is null;
x_PROGRAM_UPDATE_DATE := SYSDATE;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
IF (X_LAST_UPDATED_BY is NULL) THEN
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (X_LAST_UPDATE_LOGIN is NULL) THEN
X_LAST_UPDATE_LOGIN := -1;
igs_ad_hz_emp_dtl_pkg.insert_row(
X_ROWID => lrow_id,
X_HZ_EMP_DTL_ID => x_hz_emp_dtl_id,
X_EMPLOYMENT_HISTORY_ID => x_employment_history_id,
X_TYPE_OF_EMPLOYMENT => null,
X_FRACION_OF_EMPLOYMENT => null,
X_TENURE_OF_EMPLOYMENT => null,
X_OCCUPATIONAL_TITLE_CODE => x_occupational_title_code,
X_WEEKLY_WORK_HOURS => null,
X_COMMENTS => null,
X_MODE => x_mode
);
END INSERT_ROW;
procedure UPDATE_ROW (
X_ROWID in VARCHAR2,
x_employment_history_id IN NUMBER,
x_PERSON_ID IN NUMBER,
x_START_DT IN DATE,
x_END_DT IN DATE,
x_TYPE_OF_EMPLOYMENT IN VARCHAR2,
x_FRACTION_OF_EMPLOYMENT IN NUMBER,
x_TENURE_OF_EMPLOYMENT IN VARCHAR2,
x_POSITION IN VARCHAR2,
x_OCCUPATIONAL_TITLE_CODE IN VARCHAR2,
x_OCCUPATIONAL_TITLE IN VARCHAR2,
x_WEEKLY_WORK_HOURS IN NUMBER,
x_COMMENTS IN VARCHAR2,
x_EMPLOYER IN VARCHAR2,
x_EMPLOYED_BY_DIVISION_NAME IN VARCHAR2,
x_BRANCH IN VARCHAR2,
x_MILITARY_RANK IN VARCHAR2,
x_SERVED IN VARCHAR2,
x_STATION IN VARCHAR2,
x_CONTACT IN VARCHAR2, -- Bug : 2037512
x_msg_data OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_object_version_number IN OUT NOCOPY NUMBER,
x_employed_by_party_id IN NUMBER,
x_reason_for_leaving IN VARCHAR2,
X_MODE in VARCHAR2 default 'R'
) AS
l_hz_emp_dtl_id igs_ad_hz_emp_dtl.hz_emp_dtl_id%TYPE;
l_LAST_UPDATED_BY NUMBER ;
l_LAST_UPDATE_LOGIN NUMBER ;
SELECT rowid,hz_emp_dtl_id, occupational_title_code
FROM igs_ad_hz_emp_dtl
WHERE employment_history_id = x_employment_history_id;
CURSOR c_birth_date_val is SELECT date_of_birth FROM HZ_PERSON_PROFILES
WHERE party_id = x_person_id AND effective_end_Date is null;
l_LAST_UPDATED_BY := 1;
l_LAST_UPDATE_LOGIN := 0;
l_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
IF (l_LAST_UPDATED_BY is NULL) THEN
l_LAST_UPDATED_BY := -1;
l_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
IF (l_LAST_UPDATE_LOGIN is NULL) THEN
l_LAST_UPDATE_LOGIN := -1;
HZ_PERSON_INFO_V2PUB.update_employment_history(
P_INIT_MSG_LIST => FND_API.G_TRUE,
P_EMPLOYMENT_HISTORY_REC => l_EMP_HISTORY_REC,
P_OBJECT_VERSION_NUMBER => x_object_version_number,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => x_msg_data
);
END UPDATE_ROW;
procedure DELETE_ROW (
X_ROWID in VARCHAR2
) AS
Begin
igs_ad_hz_emp_dtl_pkg.delete_row(x_rowid);
end DELETE_ROW;