The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_DOCUMENT_TYPE_CODE in VARCHAR2,
X_DOCUMENT_SUBTYPE in VARCHAR2,
X_WF_CREATEDOC_ITEMTYPE in VARCHAR2,
X_ARCHIVE_EXTERNAL_REVISION_CO in VARCHAR2,
X_CAN_PREPARER_APPROVE_FLAG in VARCHAR2,
X_FORWARDING_MODE_CODE in VARCHAR2,
X_CAN_CHANGE_FORWARD_FROM_FLAG in VARCHAR2,
X_CAN_APPROVER_MODIFY_DOC_FLAG in VARCHAR2,
X_CAN_CHANGE_APPROVAL_PATH_FLA in VARCHAR2,
X_CAN_CHANGE_FORWARD_TO_FLAG in VARCHAR2,
X_QUOTATION_CLASS_CODE in VARCHAR2,
X_DEFAULT_APPROVAL_PATH_ID in NUMBER,
X_ATTRIBUTE_CATEGORY in VARCHAR2,
X_ATTRIBUTE1 in VARCHAR2,
X_ATTRIBUTE2 in VARCHAR2,
X_ATTRIBUTE3 in VARCHAR2,
X_ATTRIBUTE4 in VARCHAR2,
X_ATTRIBUTE5 in VARCHAR2,
X_ATTRIBUTE6 in VARCHAR2,
X_ATTRIBUTE7 in VARCHAR2,
X_ATTRIBUTE8 in VARCHAR2,
X_ATTRIBUTE9 in VARCHAR2,
X_ATTRIBUTE10 in VARCHAR2,
X_ATTRIBUTE11 in VARCHAR2,
X_ATTRIBUTE12 in VARCHAR2,
X_ATTRIBUTE13 in VARCHAR2,
X_ATTRIBUTE14 in VARCHAR2,
X_ATTRIBUTE15 in VARCHAR2,
X_SECURITY_LEVEL_CODE in VARCHAR2,
X_ACCESS_LEVEL_CODE in VARCHAR2,
X_DISABLED_FLAG in VARCHAR2,
X_REQUEST_ID in NUMBER,
X_WF_APPROVAL_ITEMTYPE in VARCHAR2,
X_WF_APPROVAL_PROCESS in VARCHAR2,
X_WF_CREATEDOC_PROCESS in VARCHAR2,
p_ame_transaction_type IN VARCHAR2, -- Bug 3028744 New column
X_TYPE_NAME in VARCHAR2,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
P_DOCUMENT_TEMPLATE_CODE in VARCHAR2, --POC FPJ
P_CONTRACT_TEMPLATE_CODE in VARCHAR2, --POC FPJ
p_use_contract_for_sourcing IN VARCHAR2,--
p_include_noncatalog_flag IN VARCHAR2 , --
p_org_id IN NUMBER
)
is
X_ORG_ID NUMBER;
cursor C is select ROWID from PO_DOCUMENT_TYPES_ALL_B
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
;
insert into PO_DOCUMENT_TYPES_ALL_B (
ORG_ID,
WF_CREATEDOC_ITEMTYPE,
DOCUMENT_TYPE_CODE,
DOCUMENT_SUBTYPE,
ARCHIVE_EXTERNAL_REVISION_CODE,
CAN_PREPARER_APPROVE_FLAG,
FORWARDING_MODE_CODE,
CAN_CHANGE_FORWARD_FROM_FLAG,
CAN_APPROVER_MODIFY_DOC_FLAG,
CAN_CHANGE_APPROVAL_PATH_FLAG,
CAN_CHANGE_FORWARD_TO_FLAG,
QUOTATION_CLASS_CODE,
DEFAULT_APPROVAL_PATH_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
SECURITY_LEVEL_CODE,
ACCESS_LEVEL_CODE,
DISABLED_FLAG,
REQUEST_ID,
WF_APPROVAL_ITEMTYPE,
WF_APPROVAL_PROCESS,
WF_CREATEDOC_PROCESS,
AME_TRANSACTION_TYPE, -- Bug 3028744 New column
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
DOCUMENT_TEMPLATE_CODE,
CONTRACT_TEMPLATE_CODE,
USE_CONTRACT_FOR_SOURCING_FLAG, --
INCLUDE_NONCATALOG_FLAG --
) values (
X_ORG_ID,
X_WF_CREATEDOC_ITEMTYPE,
X_DOCUMENT_TYPE_CODE,
X_DOCUMENT_SUBTYPE,
X_ARCHIVE_EXTERNAL_REVISION_CO,
X_CAN_PREPARER_APPROVE_FLAG,
X_FORWARDING_MODE_CODE,
X_CAN_CHANGE_FORWARD_FROM_FLAG,
X_CAN_APPROVER_MODIFY_DOC_FLAG,
X_CAN_CHANGE_APPROVAL_PATH_FLA,
X_CAN_CHANGE_FORWARD_TO_FLAG,
X_QUOTATION_CLASS_CODE,
X_DEFAULT_APPROVAL_PATH_ID,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
X_SECURITY_LEVEL_CODE,
X_ACCESS_LEVEL_CODE,
X_DISABLED_FLAG,
X_REQUEST_ID,
X_WF_APPROVAL_ITEMTYPE,
X_WF_APPROVAL_PROCESS,
X_WF_CREATEDOC_PROCESS,
p_ame_transaction_type, -- Bug 3028744 New column
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
P_DOCUMENT_TEMPLATE_CODE , -- POC FPJ
P_CONTRACT_TEMPLATE_CODE , -- POC FPJ
p_use_contract_for_sourcing, --
p_include_noncatalog_flag); --
insert into PO_DOCUMENT_TYPES_ALL_TL (
ORG_ID,
DOCUMENT_TYPE_CODE,
DOCUMENT_SUBTYPE,
TYPE_NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
X_ORG_ID,
X_DOCUMENT_TYPE_CODE,
X_DOCUMENT_SUBTYPE,
X_TYPE_NAME,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_CREATED_BY,
X_CREATION_DATE,
X_LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from PO_DOCUMENT_TYPES_ALL_TL T
where T.DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and T.DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and T.LANGUAGE = L.LANGUAGE_CODE
and T.ORG_ID = X_ORG_ID) ; -- added
end INSERT_ROW;
cursor c is select
WF_CREATEDOC_ITEMTYPE,
ARCHIVE_EXTERNAL_REVISION_CODE,
CAN_PREPARER_APPROVE_FLAG,
FORWARDING_MODE_CODE,
CAN_CHANGE_FORWARD_FROM_FLAG,
CAN_APPROVER_MODIFY_DOC_FLAG,
CAN_CHANGE_APPROVAL_PATH_FLAG,
CAN_CHANGE_FORWARD_TO_FLAG,
QUOTATION_CLASS_CODE,
DEFAULT_APPROVAL_PATH_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
SECURITY_LEVEL_CODE,
ACCESS_LEVEL_CODE,
DISABLED_FLAG,
REQUEST_ID,
WF_APPROVAL_ITEMTYPE,
WF_APPROVAL_PROCESS,
WF_CREATEDOC_PROCESS,
AME_TRANSACTION_TYPE, -- Bug 3028744 New column
DOCUMENT_TEMPLATE_CODE, -- Bug # 3274065
CONTRACT_TEMPLATE_CODE, -- Bug # 3274065
USE_CONTRACT_FOR_SOURCING_FLAG, --
INCLUDE_NONCATALOG_FLAG --
from PO_DOCUMENT_TYPES_ALL_B
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and org_id = X_ORG_ID --
for update of DOCUMENT_TYPE_CODE nowait;
cursor c1 is select
TYPE_NAME,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from PO_DOCUMENT_TYPES_ALL_TL
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
and ORG_ID = X_ORG_ID --
for update of DOCUMENT_TYPE_CODE nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_DOCUMENT_TYPE_CODE in VARCHAR2,
X_DOCUMENT_SUBTYPE in VARCHAR2,
X_WF_CREATEDOC_ITEMTYPE in VARCHAR2,
X_ARCHIVE_EXTERNAL_REVISION_CO in VARCHAR2,
X_CAN_PREPARER_APPROVE_FLAG in VARCHAR2,
X_FORWARDING_MODE_CODE in VARCHAR2,
X_CAN_CHANGE_FORWARD_FROM_FLAG in VARCHAR2,
X_CAN_APPROVER_MODIFY_DOC_FLAG in VARCHAR2,
X_CAN_CHANGE_APPROVAL_PATH_FLA in VARCHAR2,
X_CAN_CHANGE_FORWARD_TO_FLAG in VARCHAR2,
X_QUOTATION_CLASS_CODE in VARCHAR2,
X_DEFAULT_APPROVAL_PATH_ID in NUMBER,
X_ATTRIBUTE_CATEGORY in VARCHAR2,
X_ATTRIBUTE1 in VARCHAR2,
X_ATTRIBUTE2 in VARCHAR2,
X_ATTRIBUTE3 in VARCHAR2,
X_ATTRIBUTE4 in VARCHAR2,
X_ATTRIBUTE5 in VARCHAR2,
X_ATTRIBUTE6 in VARCHAR2,
X_ATTRIBUTE7 in VARCHAR2,
X_ATTRIBUTE8 in VARCHAR2,
X_ATTRIBUTE9 in VARCHAR2,
X_ATTRIBUTE10 in VARCHAR2,
X_ATTRIBUTE11 in VARCHAR2,
X_ATTRIBUTE12 in VARCHAR2,
X_ATTRIBUTE13 in VARCHAR2,
X_ATTRIBUTE14 in VARCHAR2,
X_ATTRIBUTE15 in VARCHAR2,
X_SECURITY_LEVEL_CODE in VARCHAR2,
X_ACCESS_LEVEL_CODE in VARCHAR2,
X_DISABLED_FLAG in VARCHAR2,
X_REQUEST_ID in NUMBER,
X_WF_APPROVAL_ITEMTYPE in VARCHAR2,
X_WF_APPROVAL_PROCESS in VARCHAR2,
X_WF_CREATEDOC_PROCESS in VARCHAR2,
p_ame_transaction_type IN VARCHAR2, -- Bug 3028744 New column
X_TYPE_NAME in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
P_DOCUMENT_TEMPLATE_CODE in VARCHAR2, --POC FPJ
P_CONTRACT_TEMPLATE_CODE in VARCHAR2, --POC FPJ
p_use_contract_for_sourcing IN VARCHAR2,--
p_include_noncatalog_flag IN VARCHAR2, --
p_org_id IN NUMBER
)
is
X_ORG_ID NUMBER; --
update PO_DOCUMENT_TYPES_ALL_B set
WF_CREATEDOC_ITEMTYPE = X_WF_CREATEDOC_ITEMTYPE,
ARCHIVE_EXTERNAL_REVISION_CODE = X_ARCHIVE_EXTERNAL_REVISION_CO,
CAN_PREPARER_APPROVE_FLAG = X_CAN_PREPARER_APPROVE_FLAG,
FORWARDING_MODE_CODE = X_FORWARDING_MODE_CODE,
CAN_CHANGE_FORWARD_FROM_FLAG = X_CAN_CHANGE_FORWARD_FROM_FLAG,
CAN_APPROVER_MODIFY_DOC_FLAG = X_CAN_APPROVER_MODIFY_DOC_FLAG,
CAN_CHANGE_APPROVAL_PATH_FLAG = X_CAN_CHANGE_APPROVAL_PATH_FLA,
CAN_CHANGE_FORWARD_TO_FLAG = X_CAN_CHANGE_FORWARD_TO_FLAG,
QUOTATION_CLASS_CODE = X_QUOTATION_CLASS_CODE,
DEFAULT_APPROVAL_PATH_ID = X_DEFAULT_APPROVAL_PATH_ID,
ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
ATTRIBUTE1 = X_ATTRIBUTE1,
ATTRIBUTE2 = X_ATTRIBUTE2,
ATTRIBUTE3 = X_ATTRIBUTE3,
ATTRIBUTE4 = X_ATTRIBUTE4,
ATTRIBUTE5 = X_ATTRIBUTE5,
ATTRIBUTE6 = X_ATTRIBUTE6,
ATTRIBUTE7 = X_ATTRIBUTE7,
ATTRIBUTE8 = X_ATTRIBUTE8,
ATTRIBUTE9 = X_ATTRIBUTE9,
ATTRIBUTE10 = X_ATTRIBUTE10,
ATTRIBUTE11 = X_ATTRIBUTE11,
ATTRIBUTE12 = X_ATTRIBUTE12,
ATTRIBUTE13 = X_ATTRIBUTE13,
ATTRIBUTE14 = X_ATTRIBUTE14,
ATTRIBUTE15 = X_ATTRIBUTE15,
SECURITY_LEVEL_CODE = X_SECURITY_LEVEL_CODE,
ACCESS_LEVEL_CODE = X_ACCESS_LEVEL_CODE,
DISABLED_FLAG = X_DISABLED_FLAG,
REQUEST_ID = X_REQUEST_ID,
WF_APPROVAL_ITEMTYPE = X_WF_APPROVAL_ITEMTYPE,
WF_APPROVAL_PROCESS = X_WF_APPROVAL_PROCESS,
WF_CREATEDOC_PROCESS = X_WF_CREATEDOC_PROCESS,
ame_transaction_type = p_ame_transaction_type, -- Bug 3028744 New column
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
DOCUMENT_TEMPLATE_CODE = P_DOCUMENT_TEMPLATE_CODE, -- POC FPJ
CONTRACT_TEMPLATE_CODE = P_CONTRACT_TEMPLATE_CODE, -- POC FPJ
--
USE_CONTRACT_FOR_SOURCING_FLAG = p_use_contract_for_sourcing,
INCLUDE_NONCATALOG_FLAG = p_include_noncatalog_flag
--
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and ORG_ID= X_ORG_ID ; --
update PO_DOCUMENT_TYPES_ALL_TL set
TYPE_NAME = X_TYPE_NAME,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
and ORG_ID = X_ORG_ID ; --
end UPDATE_ROW;
procedure DELETE_ROW (
X_DOCUMENT_TYPE_CODE in VARCHAR2,
X_DOCUMENT_SUBTYPE in VARCHAR2
)
is
X_ORG_ID NUMBER; --
delete from PO_DOCUMENT_TYPES_ALL_TL
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and ORG_ID = X_ORG_ID ; --
delete from PO_DOCUMENT_TYPES_ALL_B
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and ORG_ID = X_ORG_ID ; --
end DELETE_ROW;
delete from PO_DOCUMENT_TYPES_ALL_TL T
where not exists
(select NULL
from PO_DOCUMENT_TYPES_ALL_B B
where B.DOCUMENT_TYPE_CODE = T.DOCUMENT_TYPE_CODE
and B.DOCUMENT_SUBTYPE = T.DOCUMENT_SUBTYPE
and B.ORG_ID = T.ORG_ID -- Bug# 4899490: Retaining 11.5.10 behavior
);
update PO_DOCUMENT_TYPES_ALL_TL T set (
TYPE_NAME
) = (select
B.TYPE_NAME
from PO_DOCUMENT_TYPES_ALL_TL B
where B.DOCUMENT_TYPE_CODE = T.DOCUMENT_TYPE_CODE
and B.DOCUMENT_SUBTYPE = T.DOCUMENT_SUBTYPE
and B.LANGUAGE = T.SOURCE_LANG
and B.ORG_ID = T.ORG_ID -- Bug# 4899490: Retaining 11.5.10 behavior
)
where (
T.DOCUMENT_TYPE_CODE,
T.DOCUMENT_SUBTYPE,
T.LANGUAGE
) in (select
SUBT.DOCUMENT_TYPE_CODE,
SUBT.DOCUMENT_SUBTYPE,
SUBT.LANGUAGE
from PO_DOCUMENT_TYPES_ALL_TL SUBB, PO_DOCUMENT_TYPES_ALL_TL SUBT
where SUBB.DOCUMENT_TYPE_CODE = SUBT.DOCUMENT_TYPE_CODE
and SUBB.DOCUMENT_SUBTYPE = SUBT.DOCUMENT_SUBTYPE
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and SUBB.ORG_ID = SUBT.ORG_ID -- Bug# 4899490: Retaining 11.5.10 behavior
and (SUBB.TYPE_NAME <> SUBT.TYPE_NAME
or (SUBB.TYPE_NAME is null and SUBT.TYPE_NAME is not null)
or (SUBB.TYPE_NAME is not null and SUBT.TYPE_NAME is null)
));
insert into PO_DOCUMENT_TYPES_ALL_TL (
ORG_ID,
DOCUMENT_TYPE_CODE,
DOCUMENT_SUBTYPE,
TYPE_NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
B.ORG_ID,
B.DOCUMENT_TYPE_CODE,
B.DOCUMENT_SUBTYPE,
B.TYPE_NAME,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from PO_DOCUMENT_TYPES_ALL_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from PO_DOCUMENT_TYPES_ALL_TL T
where T.DOCUMENT_TYPE_CODE = B.DOCUMENT_TYPE_CODE
and T.DOCUMENT_SUBTYPE = B.DOCUMENT_SUBTYPE
and T.LANGUAGE = L.LANGUAGE_CODE
and T.ORG_ID = B.ORG_ID -- Bug# 4899490: Retaining 11.5.10 behavior
);
X_LAST_UPDATE_DATE in VARCHAR2,
X_CUSTOM_MODE in VARCHAR2) IS
f_luby number; -- entity owner in file
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'DD/MM/YYYY'), sysdate);
select DECODE(LAST_UPDATED_BY, -1, 1, LAST_UPDATED_BY), LAST_UPDATE_DATE
into db_luby, db_ludate
from PO_DOCUMENT_TYPES_ALL_TL
where document_type_code = X_DOCUMENT_TYPE_CODE
and document_subtype = X_DOCUMENT_SUBTYPE
and ( (X_ORG_ID is null and org_id = -3113 )
or (X_ORG_ID is not null and org_id = X_ORG_ID))
and language = userenv('LANG') ;
update PO_DOCUMENT_TYPES_ALL_TL set
type_name = X_TYPE_NAME ,
last_update_date = f_ludate,
last_updated_by = f_luby,
last_update_login = 0,
source_lang = userenv('LANG')
where document_type_code = X_DOCUMENT_TYPE_CODE
and document_subtype = X_DOCUMENT_SUBTYPE
and userenv('LANG') in (language, source_lang);
X_LAST_UPDATE_DATE in VARCHAR2,
X_CUSTOM_MODE in VARCHAR2,
P_DOCUMENT_TEMPLATE_CODE in VARCHAR2, -- POC FPJ
P_CONTRACT_TEMPLATE_CODE in VARCHAR2) IS
l_row_id varchar2(64);
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
-- Bug6910423 Moved these statements before Select statement.
f_luby := fnd_load_util.owner_id(X_OWNER);
f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'DD/MM/YYYY'), sysdate);
SELECT * into rec FROM PO_DOCUMENT_TYPES_ALL_VL
where DOCUMENT_TYPE_CODE = X_DOCUMENT_TYPE_CODE
and DOCUMENT_SUBTYPE = X_DOCUMENT_SUBTYPE
and NVL(X_ORG_ID, -99) = NVL(ORG_ID, -99) ;
select DECODE(LAST_UPDATED_BY, -1, 1, LAST_UPDATED_BY), LAST_UPDATE_DATE
into db_luby, db_ludate
from PO_DOCUMENT_TYPES_ALL_TL
where document_type_code = X_DOCUMENT_TYPE_CODE
and document_subtype = X_DOCUMENT_SUBTYPE
and ( (X_ORG_ID is null and org_id = -3113 )
or (X_ORG_ID is not null and org_id = X_ORG_ID))
and language = userenv('LANG');
Modified the parameters in call to UPDATE_ROW to prioritise the
existing values, using NVL, over the seed values. */
/* UPDATE_ROW (X_DOCUMENT_TYPE_CODE ,
X_DOCUMENT_SUBTYPE ,
X_WF_CREATEDOC_ITEMTYPE ,
X_ARCHIVE_EXTERNAL_REVISION_CO ,
X_CAN_PREPARER_APPROVE_FLAG ,
X_FORWARDING_MODE_CODE ,
X_CAN_CHANGE_FORWARD_FROM_FLAG ,
X_CAN_APPROVER_MODIFY_DOC_FLAG ,
X_CAN_CHANGE_APPROVAL_PATH_FLA ,
X_CAN_CHANGE_FORWARD_TO_FLAG ,
X_QUOTATION_CLASS_CODE ,
X_DEFAULT_APPROVAL_PATH_ID ,
X_ATTRIBUTE_CATEGORY ,
X_ATTRIBUTE1 ,
X_ATTRIBUTE2 ,
X_ATTRIBUTE3 ,
X_ATTRIBUTE4 ,
X_ATTRIBUTE5 ,
X_ATTRIBUTE6 ,
X_ATTRIBUTE7 ,
X_ATTRIBUTE8 ,
X_ATTRIBUTE9 ,
X_ATTRIBUTE10 ,
X_ATTRIBUTE11 ,
X_ATTRIBUTE12 ,
X_ATTRIBUTE13 ,
X_ATTRIBUTE14 ,
X_ATTRIBUTE15 ,
X_SECURITY_LEVEL_CODE ,
X_ACCESS_LEVEL_CODE ,
X_DISABLED_FLAG ,
X_REQUEST_ID ,
X_WF_APPROVAL_ITEMTYPE ,
X_WF_APPROVAL_PROCESS ,
X_WF_CREATEDOC_PROCESS ,
p_ame_transaction_type, -- Bug 3028744 New column
X_TYPE_NAME ,
f_ludate ,
f_luby,
0,
P_DOCUMENT_TEMPLATE_CODE , --POC FPJ
P_CONTRACT_TEMPLATE_CODE , --POC FPJ
--
-- Pass NULL to use_contract_for_sourcing_flag and include_noncatalog_flag
-- so that they do not need to be defaulted from Seed data
NULL,
NULL ,
--
X_ORG_ID
);*/
UPDATE_ROW (X_DOCUMENT_TYPE_CODE ,
X_DOCUMENT_SUBTYPE ,
NVL( rec.WF_CREATEDOC_ITEMTYPE , X_WF_CREATEDOC_ITEMTYPE ) ,
NVL( rec.ARCHIVE_EXTERNAL_REVISION_CODE ,X_ARCHIVE_EXTERNAL_REVISION_CO ) ,
NVL( rec.CAN_PREPARER_APPROVE_FLAG ,X_CAN_PREPARER_APPROVE_FLAG ) ,
NVL( rec.FORWARDING_MODE_CODE , X_FORWARDING_MODE_CODE ) ,
NVL( rec.CAN_CHANGE_FORWARD_FROM_FLAG ,X_CAN_CHANGE_FORWARD_FROM_FLAG ) ,
NVL( rec.CAN_APPROVER_MODIFY_DOC_FLAG ,X_CAN_APPROVER_MODIFY_DOC_FLAG ) ,
NVL( rec.CAN_CHANGE_APPROVAL_PATH_FLAG ,X_CAN_CHANGE_APPROVAL_PATH_FLA ) ,
NVL( rec.CAN_CHANGE_FORWARD_TO_FLAG ,X_CAN_CHANGE_FORWARD_TO_FLAG ) ,
NVL( rec.QUOTATION_CLASS_CODE , X_QUOTATION_CLASS_CODE ) ,
NVL( rec.DEFAULT_APPROVAL_PATH_ID , X_DEFAULT_APPROVAL_PATH_ID) ,
NVL( rec.ATTRIBUTE_CATEGORY , X_ATTRIBUTE_CATEGORY ) ,
NVL( rec.ATTRIBUTE1 , X_ATTRIBUTE1 ) ,
NVL( rec.ATTRIBUTE2 , X_ATTRIBUTE2 ) ,
NVL( rec.ATTRIBUTE3 , X_ATTRIBUTE3 ) ,
NVL( rec.ATTRIBUTE4 , X_ATTRIBUTE4 ) ,
NVL( rec.ATTRIBUTE5 , X_ATTRIBUTE5 ) ,
NVL( rec.ATTRIBUTE6 , X_ATTRIBUTE6 ) ,
NVL( rec.ATTRIBUTE7 , X_ATTRIBUTE7 ) ,
NVL( rec.ATTRIBUTE8 , X_ATTRIBUTE8 ) ,
NVL( rec.ATTRIBUTE9 , X_ATTRIBUTE9 ) ,
NVL( rec.ATTRIBUTE10 , X_ATTRIBUTE10 ) ,
NVL( rec.ATTRIBUTE11 , X_ATTRIBUTE11 ) ,
NVL( rec.ATTRIBUTE12 , X_ATTRIBUTE12 ) ,
NVL( rec.ATTRIBUTE13 , X_ATTRIBUTE13 ) ,
NVL( rec.ATTRIBUTE14 , X_ATTRIBUTE14 ) ,
NVL( rec.ATTRIBUTE15 , X_ATTRIBUTE15 ) ,
NVL( rec.SECURITY_LEVEL_CODE , X_SECURITY_LEVEL_CODE ) ,
NVL( rec.ACCESS_LEVEL_CODE , X_ACCESS_LEVEL_CODE ) ,
NVL( rec.DISABLED_FLAG , X_DISABLED_FLAG ) ,
NVL( rec.REQUEST_ID , X_REQUEST_ID ) ,
NVL( rec.WF_APPROVAL_ITEMTYPE , X_WF_APPROVAL_ITEMTYPE ) ,
NVL( rec.WF_APPROVAL_PROCESS , X_WF_APPROVAL_PROCESS ) ,
NVL( rec.WF_CREATEDOC_PROCESS , X_WF_CREATEDOC_PROCESS ) ,
NVL( rec.ame_transaction_type , p_ame_transaction_type ) , --Bug 3028744 New column
NVL( rec.TYPE_NAME , X_TYPE_NAME ) ,
f_ludate ,
f_luby,
0,
NVL( rec.DOCUMENT_TEMPLATE_CODE , P_DOCUMENT_TEMPLATE_CODE ) ,--POC FPJ
NVL( rec.CONTRACT_TEMPLATE_CODE , P_CONTRACT_TEMPLATE_CODE ) ,--POC FPJ
--
-- Pass NULL to use_contract_for_sourcing_flag and include_noncatalog_flag
-- so that they do not need to be defaulted from Seed data
NULL,
NULL,
--
X_ORG_ID
);
INSERT_ROW (l_row_id ,
X_DOCUMENT_TYPE_CODE ,
X_DOCUMENT_SUBTYPE ,
X_WF_CREATEDOC_ITEMTYPE ,
X_ARCHIVE_EXTERNAL_REVISION_CO ,
X_CAN_PREPARER_APPROVE_FLAG ,
X_FORWARDING_MODE_CODE ,
X_CAN_CHANGE_FORWARD_FROM_FLAG ,
X_CAN_APPROVER_MODIFY_DOC_FLAG ,
X_CAN_CHANGE_APPROVAL_PATH_FLA ,
X_CAN_CHANGE_FORWARD_TO_FLAG ,
X_QUOTATION_CLASS_CODE ,
X_DEFAULT_APPROVAL_PATH_ID ,
X_ATTRIBUTE_CATEGORY ,
X_ATTRIBUTE1 ,
X_ATTRIBUTE2 ,
X_ATTRIBUTE3 ,
X_ATTRIBUTE4 ,
X_ATTRIBUTE5 ,
X_ATTRIBUTE6 ,
X_ATTRIBUTE7 ,
X_ATTRIBUTE8 ,
X_ATTRIBUTE9 ,
X_ATTRIBUTE10 ,
X_ATTRIBUTE11 ,
X_ATTRIBUTE12 ,
X_ATTRIBUTE13 ,
X_ATTRIBUTE14 ,
X_ATTRIBUTE15 ,
X_SECURITY_LEVEL_CODE ,
X_ACCESS_LEVEL_CODE ,
X_DISABLED_FLAG ,
X_REQUEST_ID ,
X_WF_APPROVAL_ITEMTYPE ,
X_WF_APPROVAL_PROCESS ,
X_WF_CREATEDOC_PROCESS ,
p_ame_transaction_type, -- Bug 3028744 New column
X_TYPE_NAME ,
f_ludate ,
f_luby ,
f_ludate ,
f_luby ,
0,
P_DOCUMENT_TEMPLATE_CODE , --POC FPJ
P_CONTRACT_TEMPLATE_CODE , --POC FPJ
--
-- Pass NULL to use_contract_for_sourcing_flag and include_noncatalog_flag
-- so that they do not need to be defaulted from Seed data
NULL,
NULL,
--
X_ORG_ID
);
procedure INSERT_LOOKUP_ROW (P_LOOKUP_TYPE in VARCHAR2,
P_LOOKUP_CODE in VARCHAR2,
P_CREATION_DATE in DATE,
P_CREATED_BY in NUMBER,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER) IS
l_rowid varchar2(64);
FND_LOOKUP_VALUES_PKG.INSERT_ROW(l_rowid,
P_LOOKUP_TYPE,
0, --security group id
201, --view application id
P_LOOKUP_CODE,
null, --tag
null, --attribute_category
null, --attribute1
null, --attribute2
null, --attribute3
null, --attribute4
'Y', --enabled_flag
null, --start_date_active
null, --end_date_active
null, --territory_code
null, --attribute5
null, --attribute6
null, --attribute7
null, --attribute8
null, --attribute9
null, --attribute10
null, --attribute11
null, --attribute12
null, --attribute13
null, --attribute14
null, --attribute15
P_LOOKUP_CODE, --meaning
P_LOOKUP_CODE, --description
P_CREATION_DATE,
P_CREATED_BY,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN);
end INSERT_LOOKUP_ROW;
procedure DELETE_LOOKUP_ROW (P_LOOKUP_TYPE in VARCHAR2,
P_LOOKUP_CODE in VARCHAR2) IS
begin
FND_LOOKUP_VALUES_PKG.DELETE_ROW(P_LOOKUP_TYPE,
0, --security group id
201, --view application id
P_LOOKUP_CODE);
end DELETE_LOOKUP_ROW;