The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_OBJECT_VERSION_NUMBER in NUMBER,
/*X_PROGRAM_APPLICATION_ID in NUMBER,
X_PROGRAM_ID in NUMBER,
X_PROGRAM_UPDATE_DATE in DATE,*/
X_QUOTE_HEADER_ID in NUMBER,
X_PARTY_ID in NUMBER,
X_CUST_ACCOUNT_ID in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_RECORD_TYPE in VARCHAR2,
X_ORDER_HEADER_ID in NUMBER,
X_CURRENCY_CODE in VARCHAR2,
X_ORG_ID in NUMBER := MO_GLOBAL.get_current_org_id()
) is
L_ORG_ID NUMBER;
l_last_update_login NUMBER;
l_last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
select nvl(IBE_ACTIVE_QUOTES_ALL_S1.nextval,0) into l_active_quote_id
from dual;
insert into IBE_ACTIVE_QUOTES_ALL (
ACTIVE_QUOTE_ID,
/*PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,*/
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
QUOTE_HEADER_ID,
PARTY_ID,
CUST_ACCOUNT_ID,
RECORD_TYPE,
ORDER_HEADER_ID,
CURRENCY_CODE,
ORG_ID
)
VALUES(
DECODE(L_ACTIVE_QUOTE_ID ,FND_API.G_MISS_NUM,NULL,L_ACTIVE_QUOTE_ID),
/*DECODE(x_PROGRAM_APPLICATION_ID ,FND_API.G_MISS_NUM,NULL,x_PROGRAM_APPLICATION_ID),
DECODE(x_PROGRAM_ID ,FND_API.G_MISS_NUM,NULL,x_PROGRAM_ID),
DECODE(x_PROGRAM_UPDATE_DATE ,FND_API.G_MISS_DATE,NULL,x_PROGRAM_UPDATE_DATE),*/
DECODE(x_OBJECT_VERSION_NUMBER ,FND_API.G_MISS_NUM,NULL,x_OBJECT_VERSION_NUMBER),
DECODE(x_CREATED_BY ,FND_API.G_MISS_NUM,NULL,x_CREATED_BY),
DECODE(x_CREATION_DATE ,FND_API.G_MISS_DATE,NULL,x_CREATION_DATE),
DECODE(x_LAST_UPDATED_BY ,FND_API.G_MISS_NUM,NULL,x_LAST_UPDATED_BY),
DECODE(x_LAST_UPDATE_DATE ,FND_API.G_MISS_DATE,NULL,x_LAST_UPDATE_DATE),
DECODE(x_LAST_UPDATE_LOGIN ,FND_API.G_MISS_NUM,NULL,x_LAST_UPDATE_LOGIN),
DECODE(x_QUOTE_HEADER_ID ,FND_API.G_MISS_NUM,NULL,x_QUOTE_HEADER_ID),
DECODE(x_PARTY_ID ,FND_API.G_MISS_NUM,NULL,x_PARTY_ID),
DECODE(x_CUST_ACCOUNT_ID ,FND_API.G_MISS_NUM,NULL,x_CUST_ACCOUNT_ID),
DECODE(x_RECORD_TYPE ,FND_API.G_MISS_CHAR,NULL,x_RECORD_TYPE),
DECODE(x_ORDER_HEADER_ID ,FND_API.G_MISS_NUM,NULL,x_ORDER_HEADER_ID),
DECODE(x_CURRENCY_CODE ,FND_API.G_MISS_CHAR,NULL,x_CURRENCY_CODE),
DECODE(l_ORG_ID ,FND_API.G_MISS_NUM,NULL,l_ORG_ID));
end INSERT_ROW;
procedure UPDATE_ROW (
X_OBJECT_VERSION_NUMBER in NUMBER,
X_QUOTE_HEADER_ID in NUMBER,
X_PARTY_ID in NUMBER,
X_CUST_ACCOUNT_ID in NUMBER,
X_ORDER_HEADER_ID in NUMBER,
X_RECORD_TYPE in VARCHAR2,
X_CURRENCY_CODE in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
L_ORG_ID NUMBER := 204; --$$check this hard coding$$
l_last_update_login NUMBER;
l_last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
update IBE_ACTIVE_QUOTES_ALL set
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
QUOTE_HEADER_ID = DECODE(X_QUOTE_HEADER_ID,FND_API.G_MISS_NUM,NULL,X_QUOTE_HEADER_ID),
ORDER_HEADER_ID = DECODE(X_ORDER_HEADER_ID,FND_API.G_MISS_NUM,NULL,X_ORDER_HEADER_ID),
PARTY_ID = X_PARTY_ID,
CUST_ACCOUNT_ID = X_CUST_ACCOUNT_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where nvl(ORG_ID,-99) = nvl(l_org_id,-99)
AND PARTY_ID = X_PARTY_ID
AND CUST_ACCOUNT_ID = X_CUST_ACCOUNT_ID
AND RECORD_TYPE = X_RECORD_TYPE;
update IBE_ACTIVE_QUOTES_ALL set
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
QUOTE_HEADER_ID = DECODE(X_QUOTE_HEADER_ID,FND_API.G_MISS_NUM,NULL,X_QUOTE_HEADER_ID),
ORDER_HEADER_ID = DECODE(X_ORDER_HEADER_ID,FND_API.G_MISS_NUM,NULL,X_ORDER_HEADER_ID),
PARTY_ID = X_PARTY_ID,
CUST_ACCOUNT_ID = X_CUST_ACCOUNT_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where nvl(ORG_ID,-99) = nvl(l_org_id,-99)
AND PARTY_ID = X_PARTY_ID
AND CUST_ACCOUNT_ID = X_CUST_ACCOUNT_ID
AND RECORD_TYPE = X_RECORD_TYPE
AND CURRENCY_CODE = X_CURRENCY_CODE;
end UPDATE_ROW;
procedure DELETE_ROW (
X_QUOTE_HEADER_ID IN NUMBER,
X_PARTY_ID IN NUMBER,
X_ORDER_HEADER_ID IN NUMBER,
X_CURRENCY_CODE IN VARCHAR2,
X_RECORD_TYPE IN VARCHAR2,
X_CUST_ACCOUNT_ID IN NUMBER
) is
begin
IF (X_RECORD_TYPE = 'CART')
THEN
delete from IBE_ACTIVE_QUOTES
where quote_header_id = x_quote_header_id
and party_id = x_party_id
and cust_account_id = x_cust_account_id
and record_type = x_record_type;
delete from IBE_ACTIVE_QUOTES
where order_header_id = x_order_header_id
and party_id = x_party_id
and cust_account_id = x_cust_account_id
and record_type = x_record_type
and currency_code = x_currency_code;
end DELETE_ROW;