The following lines contain the word 'select', 'insert', 'update' or 'delete':
** INTERNAL ONLY: This procedure is used in Update_Row and Delete_Row to make
** sure the record isn't being used by a different user.
*****************************************************************************/
( p_address_id IN NUMBER
, p_object_version_number IN NUMBER
)AS
CURSOR c_lock
/***************************************************************************
** Cursor to lock the record
***************************************************************************/
( b_address_id IN NUMBER
)IS SELECT object_version_number
FROM jtf_cal_addresses
WHERE address_id = b_address_id
FOR UPDATE OF object_version_number NOWAIT;
fnd_message.set_name ('JTF', 'JTF_CAL_RECORD_DELETED');
PROCEDURE Insert_Row
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
, p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
, p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
, x_return_status OUT VARCHAR2
, x_msg_count OUT NUMBER
, x_msg_data OUT VARCHAR2
, p_adr_rec IN AddrRec
, x_address_id OUT NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Create_Row';
)IS SELECT ROWID
FROM JTF_CAL_ADDRESSES
WHERE address_id = b_address_id;
INSERT INTO JTF_CAL_ADDRESSES
( ADDRESS_ID
, RESOURCE_ID
, CREATED_BY
, CREATION_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATE_LOGIN
, LAST_NAME
, FIRST_NAME
, JOB_TITLE
, COMPANY
, PRIMARY_CONTACT
, CONTACT1_TYPE
, CONTACT1
, CONTACT2_TYPE
, CONTACT2
, CONTACT3_TYPE
, CONTACT3
, CONTACT4_TYPE
, CONTACT4
, CONTACT5_TYPE
, CONTACT5
, WWW_ADDRESS
, ASSISTANT_NAME
, ASSISTANT_PHONE
, CATEGORY
, ADDRESS1
, ADDRESS2
, ADDRESS3
, ADDRESS4
, CITY
, STATE
, COUNTY
, ZIP
, COUNTRY
, NOTE
, PRIVATE_FLAG
, DELETED_AS_OF
, APPLICATION_ID
, SECURITY_GROUP_ID
, OBJECT_VERSION_NUMBER
) VALUES
( JTF_CAL_ADDRESSES_S.NEXTVAL -- returning into l_adress_id
, p_adr_rec.RESOURCE_ID
, p_adr_rec.CREATED_BY
, p_adr_rec.CREATION_DATE
, p_adr_rec.LAST_UPDATED_BY
, p_adr_rec.LAST_UPDATE_DATE
, p_adr_rec.LAST_UPDATE_LOGIN
, p_adr_rec.LAST_NAME
, p_adr_rec.FIRST_NAME
, p_adr_rec.JOB_TITLE
, p_adr_rec.COMPANY
, p_adr_rec.PRIMARY_CONTACT
, p_adr_rec.CONTACT1_TYPE
, p_adr_rec.CONTACT1
, p_adr_rec.CONTACT2_TYPE
, p_adr_rec.CONTACT2
, p_adr_rec.CONTACT3_TYPE
, p_adr_rec.CONTACT3
, p_adr_rec.CONTACT4_TYPE
, p_adr_rec.CONTACT4
, p_adr_rec.CONTACT5_TYPE
, p_adr_rec.CONTACT5
, p_adr_rec.WWW_ADDRESS
, p_adr_rec.ASSISTANT_NAME
, p_adr_rec.ASSISTANT_PHONE
, p_adr_rec.CATEGORY
, p_adr_rec.ADDRESS1
, p_adr_rec.ADDRESS2
, p_adr_rec.ADDRESS3
, p_adr_rec.ADDRESS4
, p_adr_rec.CITY
, p_adr_rec.COUNTY
, p_adr_rec.STATE
, p_adr_rec.ZIP
, p_adr_rec.COUNTRY
, p_adr_rec.NOTE
, p_adr_rec.PRIVATE_FLAG
, p_adr_rec.DELETED_AS_OF
, p_adr_rec.APPLICATION_ID
, p_adr_rec.SECURITY_GROUP_ID
, l_object_version_number -- always 1 for a new object
)RETURNING ADDRESS_ID INTO l_address_id;
END Insert_Row;
PROCEDURE Update_Row
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
, p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
, p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
, x_return_status OUT VARCHAR2
, x_msg_count OUT NUMBER
, x_msg_data OUT VARCHAR2
, p_adr_rec IN AddrRec
, x_object_version_number OUT NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
SAVEPOINT Update_Address_PVT;
UPDATE JTF_CAL_ADDRESSES
SET RESOURCE_ID = p_adr_rec.RESOURCE_ID
, LAST_UPDATED_BY = p_adr_rec.LAST_UPDATED_BY -- Needs to be set by caller
, LAST_UPDATE_DATE = p_adr_rec.LAST_UPDATE_DATE -- Needs to be set by caller
, LAST_UPDATE_LOGIN = p_adr_rec.LAST_UPDATE_LOGIN -- Needs to be set by caller
, LAST_NAME = p_adr_rec.LAST_NAME
, FIRST_NAME = p_adr_rec.FIRST_NAME
, JOB_TITLE = p_adr_rec.JOB_TITLE
, COMPANY = p_adr_rec.COMPANY
, PRIMARY_CONTACT = p_adr_rec.PRIMARY_CONTACT
, CONTACT1_TYPE = p_adr_rec.CONTACT1_TYPE
, CONTACT1 = p_adr_rec.CONTACT1
, CONTACT2_TYPE = p_adr_rec.CONTACT2_TYPE
, CONTACT2 = p_adr_rec.CONTACT2
, CONTACT3_TYPE = p_adr_rec.CONTACT3_TYPE
, CONTACT3 = p_adr_rec.CONTACT3
, CONTACT4_TYPE = p_adr_rec.CONTACT4_TYPE
, CONTACT4 = p_adr_rec.CONTACT4
, CONTACT5_TYPE = p_adr_rec.CONTACT5_TYPE
, CONTACT5 = p_adr_rec.CONTACT5
, WWW_ADDRESS = p_adr_rec.WWW_ADDRESS
, ASSISTANT_NAME = p_adr_rec.ASSISTANT_NAME
, ASSISTANT_PHONE = p_adr_rec.ASSISTANT_PHONE
, CATEGORY = p_adr_rec.CATEGORY
, ADDRESS1 = p_adr_rec.ADDRESS1
, ADDRESS2 = p_adr_rec.ADDRESS2
, ADDRESS3 = p_adr_rec.ADDRESS3
, ADDRESS4 = p_adr_rec.ADDRESS4
, CITY = p_adr_rec.CITY
, COUNTY = p_adr_rec.COUNTY
, STATE = p_adr_rec.STATE
, ZIP = p_adr_rec.ZIP
, COUNTRY = p_adr_rec.COUNTRY
, NOTE = p_adr_rec.NOTE
, PRIVATE_FLAG = p_adr_rec.PRIVATE_FLAG
, DELETED_AS_OF = p_adr_rec.DELETED_AS_OF
, APPLICATION_ID = p_adr_rec.APPLICATION_ID
, SECURITY_GROUP_ID = p_adr_rec.SECURITY_GROUP_ID
, OBJECT_VERSION_NUMBER = jtf_cal_object_version_s.NEXTVAL
WHERE ADDRESS_ID = p_adr_rec.ADDRESS_ID
RETURNING OBJECT_VERSION_NUMBER INTO l_object_version_number; -- return new object version number
ROLLBACK TO Update_Address_PVT;
ROLLBACK TO Update_Address_PVT;
ROLLBACK TO Update_Address_PVT;
END Update_Row;
PROCEDURE Delete_Row
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
, p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
, p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full
, x_return_status OUT VARCHAR2
, x_msg_count OUT NUMBER
, x_msg_data OUT VARCHAR2
, p_address_id IN NUMBER
, p_object_version_number IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_ExpressionLine';
SAVEPOINT Delete_ExpressionLine_PVT;
UPDATE JTF_CAL_ADDRESSES
SET deleted_as_of = SYSDATE
WHERE address_id = p_address_id;
ROLLBACK TO Delete_ExpressionLine_PVT;
ROLLBACK TO Delete_ExpressionLine_PVT;
ROLLBACK TO Delete_ExpressionLine_PVT;
END Delete_Row;