The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 1 INTO l_count FROM HR_OPERATING_UNITS
WHERE ORGANIZATION_ID=P_ORG_ID
AND NVL(DATE_TO,SYSDATE) >= SYSDATE;
SELECT 1 INTO l_count FROM ORG_ORGANIZATION_DEFINITIONS
WHERE ORGANIZATION_ID=P_ORGANIZATION_ID
AND OPERATING_UNIT=P_ORG_ID
AND NVL(DISABLE_DATE,SYSDATE) >= SYSDATE;
SELECT 1 INTO l_count FROM MFG_LOOKUPS
WHERE LOOKUP_TYPE='INV_TRANSACTION_FLOW_QUALIFIER'
AND LOOKUP_CODE=p_qualifier_code;
SELECT 1 INTO l_count FROM DUAL
WHERE P_QUALIFIER_VALUE_ID IN(
SELECT mcv.category_id
FROM
mtl_categories_v mcv,
MTL_CATEGORY_SET_VALID_CATS MCSVC,
MTL_CATEGORY_SETS_b mcs
WHERE
mcs.category_set_id = decode(p_flow_type,1,1,2)
and mcs.structure_id = mcv.structure_id
and mcs.category_set_id = MCSVC.category_set_id
and MCSVC.category_id = mcv.category_id
UNION
SELECT mcv.category_id
FROM mtl_categories_v mcv,
MTL_CATEGORY_SETS_b mcs
WHERE
mcs.category_set_id = decode(p_flow_type,1,1,2)
and mcs.structure_id = mcv.structure_id
and mcs.default_category_id = mcv.category_id
);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
--AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE=P_START_DATE
AND NVL(END_DATE,SYSDATE)=NVL(P_END_DATE,SYSDATE));
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE<=P_START_DATE);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE<=P_START_DATE
AND END_DATE IS NULL);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE<=P_START_DATE
AND END_DATE>=P_START_DATE );
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE<=P_START_DATE
AND NVL(END_DATE,g_miss_date)>=P_START_DATE );
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND HEADER_ID <> NVL(P_HEADER_ID,-999)
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND END_DATE>=P_START_DATE);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE<=P_END_DATE
AND END_DATE IS NULL);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE<=P_END_DATE
AND START_DATE>=P_START_DATE
AND END_DATE IS NOT NULL);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID <> NVL(P_HEADER_ID,-999)
AND START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE>=P_START_DATE
AND START_DATE<=NVL(P_END_DATE,G_MISS_DATE)
);
SELECT START_DATE,END_DATE
FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND ( END_DATE>=p_sysdate OR END_DATE IS NULL )
ORDER BY START_DATE;
SELECT MIN(START_DATE)
INTO l_start_date
FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND (END_DATE > l_sysdate OR END_DATE IS NULL);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND START_DATE<=SYSDATE
AND END_DATE IS NULL);
SELECT 1 INTO l_count FROM DUAL
WHERE EXISTS (SELECT HEADER_ID FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND (END_DATE > SYSDATE OR END_DATE IS NULL));
SELECT MAX(END_DATE) INTO L_START_DATE FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND END_DATE>SYSDATE;
SELECT 1 INTO l_count FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND END_DATE=P_START_DATE-(1/(24*60*60));
ELSE -- only possible with update
RETURN FALSE;
SELECT 1 INTO l_count FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-999)
AND END_DATE=P_START_DATE-(1/(24*60*60));
SELECT 1 INTO l_count FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-9)
AND START_DATE>P_END_DATE+(1/(24*60*60))
AND ROWNUM=1; -- multiple records are possible
SELECT 1 INTO l_count FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE START_ORG_ID=P_START_ORG_ID
AND END_ORG_ID=P_END_ORG_ID
AND FLOW_TYPE=P_FLOW_TYPE
AND NVL(ORGANIZATION_ID,-999)=NVL(P_ORGANIZATION_ID,-999)
AND NVL(QUALIFIER_CODE,-999)=NVL(P_QUALIFIER_CODE,-999)
AND NVL(QUALIFIER_VALUE_ID,-999)=NVL(P_QUALIFIER_VALUE_ID,-9)
AND START_DATE=P_END_DATE+(1/(24*60*60));
SELECT 1 INTO l_count FROM MTL_PARAMETERS
WHERE ORGANIZATION_ID=P_ORGANIZATION_IDS(l_index)
AND PROCESS_ENABLED_FLAG='Y';
SELECT 1 INTO l_count FROM MTL_PARAMETERS
WHERE ORGANIZATION_ID=P_ORGANIZATION_IDS(l_index)
AND PROCESS_ENABLED_FLAG='Y';
SELECT 1 INTO l_count_disc FROM MTL_PARAMETERS
WHERE ORGANIZATION_ID=P_ORGANIZATION_IDS(l_index)
AND PROCESS_ENABLED_FLAG<>'Y';
SELECT 1 INTO l_count FROM MTL_PARAMETERS
WHERE ORGANIZATION_ID=P_ORGANIZATION_IDS(l_index)
AND PROCESS_ENABLED_FLAG='Y';
l_out_table.delete;
l_from_orgs_tab.delete;
l_to_orgs_tab.delete;
select name into from_org_name from hr_operating_units
where Organization_id=l_lines_table(l_index).from_org_id;
select name into to_org_name from hr_operating_units
where Organization_id=l_lines_table(l_index).to_org_id;
l_org_ids.delete;
SELECT 1 INTO l_count FROM MTL_INTERCOMPANY_PARAMETERS
WHERE SHIP_ORGANIZATION_ID=l_lines_table(l_index).from_org_id
AND SELL_ORGANIZATION_ID=l_lines_table(l_index).to_org_id
AND FLOW_TYPE=p_flow_type;
select 1 into l_count1 from dual where exists
(
select ship_organization_id from mtl_intercompany_parameters
where ship_organization_id=l_lines_table(l_index).from_org_id
and sell_organization_id=l_lines_table(l_index).to_org_id
and flow_type=p_flow_type
and
(
intercompany_cogs_account_id is null
or inventory_accrual_account_id is null
or expense_accrual_account_id is null
)
);
l_enabled_segs.delete;
INV_TRANSACTION_FLOW_PVT.INSERT_TRX_FLOW_HEADER(
P_HEADER_ID => p_header_id,
P_START_ORG_ID => P_START_ORG_ID,
P_END_ORG_ID => P_END_ORG_ID,
P_FLOW_TYPE => P_FLOW_TYPE,
P_ORGANIZATION_ID => P_ORGANIZATION_ID,
P_QUALIFIER_CODE => P_QUALIFIER_CODE,
P_QUALIFIER_VALUE_ID => P_QUALIFIER_VALUE_ID,
P_ASSET_ITEM_PRICING_OPTION => P_ASSET_ITEM_PRICING_OPTION,
P_EXPENSE_ITEM_PRICING_OPTION => P_EXPENSE_ITEM_PRICING_OPTION,
P_START_DATE => P_START_DATE,
P_END_DATE => P_END_DATE,
P_NEW_ACCOUNTING_FLAG => P_NEW_ACCOUNTING_FLAG,
P_CREATION_DATE => SYSDATE,
P_CREATED_BY => FND_GLOBAL.USER_ID,
P_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
P_LAST_UPDATE_DATE => SYSDATE,
P_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
P_ATTRIBUTE_CATEGORY => P_ATTRIBUTE_CATEGORY,
P_ATTRIBUTE1 => P_ATTRIBUTE1,
P_ATTRIBUTE2 => P_ATTRIBUTE2,
P_ATTRIBUTE3 => P_ATTRIBUTE3,
P_ATTRIBUTE4 => P_ATTRIBUTE4,
P_ATTRIBUTE5 => P_ATTRIBUTE5,
P_ATTRIBUTE6 => P_ATTRIBUTE6,
P_ATTRIBUTE7 => P_ATTRIBUTE7,
P_ATTRIBUTE8 => P_ATTRIBUTE8,
P_ATTRIBUTE9 => P_ATTRIBUTE9,
P_ATTRIBUTE10 => P_ATTRIBUTE10,
P_ATTRIBUTE11 => P_ATTRIBUTE11,
P_ATTRIBUTE12 => P_ATTRIBUTE12,
P_ATTRIBUTE13 => P_ATTRIBUTE13,
P_ATTRIBUTE14 => P_ATTRIBUTE14,
P_ATTRIBUTE15 => P_ATTRIBUTE15
);
debug('Header inserted','Create_IC_Transaction_Flow');
-- insert all the lines
FOR l_index IN 1..p_lines_tab.count
LOOP
INV_TRANSACTION_FLOW_PVT.INSERT_TRX_FLOW_LINES(
P_Header_Id => p_header_id,
P_Line_Number => p_lines_tab(l_index).line_number,
P_From_Org_Id => p_lines_tab(l_index).from_org_id,
P_From_Organization_Id => p_lines_tab(l_index).from_organization_id,
P_To_Org_Id => p_lines_tab(l_index).to_org_id,
P_To_Organization_Id => p_lines_tab(l_index).to_organization_id,
P_Last_Updated_By => FND_GLOBAL.USER_ID,
P_Last_Update_Date => SYSDATE,
P_Creation_Date => SYSDATE,
P_Created_By => FND_GLOBAL.USER_ID,
P_Last_Update_Login => FND_GLOBAL.LOGIN_ID,
P_Attribute_Category => p_lines_tab(l_index).Attribute_Category,
P_Attribute1 => p_lines_tab(l_index).Attribute1,
P_Attribute2 => p_lines_tab(l_index).Attribute2,
P_Attribute3 => p_lines_tab(l_index).Attribute3,
P_Attribute4 => p_lines_tab(l_index).Attribute4,
P_Attribute5 => p_lines_tab(l_index).Attribute5,
P_Attribute6 => p_lines_tab(l_index).Attribute6,
P_Attribute7 => p_lines_tab(l_index).Attribute7,
P_Attribute8 => p_lines_tab(l_index).Attribute8,
P_Attribute9 => p_lines_tab(l_index).Attribute9,
P_Attribute10 => p_lines_tab(l_index).Attribute10,
P_Attribute11 => p_lines_tab(l_index).Attribute11,
P_Attribute12 => p_lines_tab(l_index).Attribute12,
P_Attribute13 => p_lines_tab(l_index).Attribute13,
P_Attribute14 => p_lines_tab(l_index).Attribute14,
P_Attribute15 => p_lines_tab(l_index).Attribute15
);
debug('All lines inserted','Create_IC_Transaction_Flow');
PROCEDURE Update_IC_Transaction_Flow(
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_COMMIT IN BOOLEAN DEFAULT FALSE,
P_HEADER_ID IN NUMBER,
P_START_DATE IN DATE,
P_END_DATE IN DATE,
P_REF_DATE IN DATE,
P_ATTRIBUTE_CATEGORY IN VARCHAR2,
P_ATTRIBUTE1 IN VARCHAR2,
P_ATTRIBUTE2 IN VARCHAR2,
P_ATTRIBUTE3 IN VARCHAR2,
P_ATTRIBUTE4 IN VARCHAR2,
P_ATTRIBUTE5 IN VARCHAR2,
P_ATTRIBUTE6 IN VARCHAR2,
P_ATTRIBUTE7 IN VARCHAR2,
P_ATTRIBUTE8 IN VARCHAR2,
P_ATTRIBUTE9 IN VARCHAR2,
P_ATTRIBUTE10 IN VARCHAR2,
P_ATTRIBUTE11 IN VARCHAR2,
P_ATTRIBUTE12 IN VARCHAR2,
P_ATTRIBUTE13 IN VARCHAR2,
P_ATTRIBUTE14 IN VARCHAR2,
P_ATTRIBUTE15 IN VARCHAR2,
P_LINES_TAB IN INV_TRANSACTION_FLOW_PVT.TRX_FLOW_LINES_TAB
) IS
l_start_org_id NUMBER;
l_updated_start_date DATE;
l_updated_end_date DATE;
debug('Starting Update_IC_Transaction_Flow','Update_IC_Transaction_Flow');
debug('p_start_date='||p_start_date,'Update_IC_Transaction_Flow');
debug('p_end_date='||p_end_date,'Update_IC_Transaction_Flow');
debug('p_ref_date='||p_ref_date,'Update_IC_Transaction_Flow');
SAVEPOINT UPDATE_IC_TRX_FLOW_SP;
SELECT START_ORG_ID,END_ORG_ID,FLOW_TYPE,ORGANIZATION_ID,
QUALIFIER_CODE,QUALIFIER_VALUE_ID,START_DATE,END_DATE
INTO l_start_org_id,l_end_org_id,l_flow_type,l_organization_id,
l_qualifier_code,l_qualifier_value_id,l_start_date,l_end_date
FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID=P_HEADER_ID
FOR UPDATE OF START_DATE,END_DATE NOWAIT;
debug('Lock accuired for header','Update_IC_Transaction_Flow');
-- unable to accuire lock for update
-- ACTION
if g_debug=1 then
debug('Failed to accuire lock for header','Update_IC_Transaction_Flow');
SELECT FROM_ORG_ID,FROM_ORGANIZATION_ID,TO_ORG_ID,TO_ORGANIZATION_ID
INTO l_from_org_id,l_from_organization_id,l_to_org_id,l_to_organization_id
FROM MTL_TRANSACTION_FLOW_LINES
WHERE HEADER_ID=P_HEADER_ID
FOR UPDATE NOWAIT;
debug('Lock accuired for lines','Update_IC_Transaction_Flow');
-- unable to accuire lock for update
-- ACTION
if g_debug=1 then
debug('Failed to accuire lock for lines','Update_IC_Transaction_Flow');
debug('attribute columns for header validated','Update_IC_Transaction_Flow');
debug('attribute columns for lines validated','Update_IC_Transaction_Flow');
INV_TRANSACTION_FLOW_PVT.UPDATE_TRX_FLOW_HEADER(
P_HEADER_ID => p_header_id,
P_START_DATE => P_START_DATE,
P_END_DATE => P_END_DATE,
P_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
P_LAST_UPDATE_DATE => SYSDATE,
P_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
P_ATTRIBUTE_CATEGORY => P_ATTRIBUTE_CATEGORY,
P_ATTRIBUTE1 => P_ATTRIBUTE1,
P_ATTRIBUTE2 => P_ATTRIBUTE2,
P_ATTRIBUTE3 => P_ATTRIBUTE3,
P_ATTRIBUTE4 => P_ATTRIBUTE4,
P_ATTRIBUTE5 => P_ATTRIBUTE5,
P_ATTRIBUTE6 => P_ATTRIBUTE6,
P_ATTRIBUTE7 => P_ATTRIBUTE7,
P_ATTRIBUTE8 => P_ATTRIBUTE8,
P_ATTRIBUTE9 => P_ATTRIBUTE9,
P_ATTRIBUTE10 => P_ATTRIBUTE10,
P_ATTRIBUTE11 => P_ATTRIBUTE11,
P_ATTRIBUTE12 => P_ATTRIBUTE12,
P_ATTRIBUTE13 => P_ATTRIBUTE13,
P_ATTRIBUTE14 => P_ATTRIBUTE14,
P_ATTRIBUTE15 => P_ATTRIBUTE15
);
debug('Header updated','Update_IC_Transaction_Flow');
-- update all the lines
FOR l_index IN 1..p_lines_tab.count
LOOP
INV_TRANSACTION_FLOW_PVT.UPDATE_TRX_FLOW_LINES(
P_Header_Id => p_header_id,
P_Line_Number => p_lines_tab(l_index).line_number,
P_Last_Updated_By => FND_GLOBAL.USER_ID,
P_Last_Update_Date => SYSDATE,
P_Last_Update_Login => FND_GLOBAL.LOGIN_ID,
P_Attribute_Category => p_lines_tab(l_index).Attribute_Category,
P_Attribute1 => p_lines_tab(l_index).Attribute1,
P_Attribute2 => p_lines_tab(l_index).Attribute2,
P_Attribute3 => p_lines_tab(l_index).Attribute3,
P_Attribute4 => p_lines_tab(l_index).Attribute4,
P_Attribute5 => p_lines_tab(l_index).Attribute5,
P_Attribute6 => p_lines_tab(l_index).Attribute6,
P_Attribute7 => p_lines_tab(l_index).Attribute7,
P_Attribute8 => p_lines_tab(l_index).Attribute8,
P_Attribute9 => p_lines_tab(l_index).Attribute9,
P_Attribute10 => p_lines_tab(l_index).Attribute10,
P_Attribute11 => p_lines_tab(l_index).Attribute11,
P_Attribute12 => p_lines_tab(l_index).Attribute12,
P_Attribute13 => p_lines_tab(l_index).Attribute13,
P_Attribute14 => p_lines_tab(l_index).Attribute14,
P_Attribute15 => p_lines_tab(l_index).Attribute15
);
debug('All lines updated','Update_IC_Transaction_Flow');
ROLLBACK TO UPDATE_IC_TRX_FLOW_SP;
ROLLBACK TO UPDATE_IC_TRX_FLOW_SP;
PROCEDURE update_ic_txn_flow_hdr
(X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_COMMIT IN BOOLEAN DEFAULT FALSE,
P_HEADER_ID IN NUMBER,
P_START_DATE IN DATE,
P_END_DATE IN DATE,
P_REF_DATE IN DATE,
P_ATTRIBUTE_CATEGORY IN VARCHAR2,
P_ATTRIBUTE1 IN VARCHAR2,
P_ATTRIBUTE2 IN VARCHAR2,
P_ATTRIBUTE3 IN VARCHAR2,
P_ATTRIBUTE4 IN VARCHAR2,
P_ATTRIBUTE5 IN VARCHAR2,
P_ATTRIBUTE6 IN VARCHAR2,
P_ATTRIBUTE7 IN VARCHAR2,
P_ATTRIBUTE8 IN VARCHAR2,
P_ATTRIBUTE9 IN VARCHAR2,
P_ATTRIBUTE10 IN VARCHAR2,
P_ATTRIBUTE11 IN VARCHAR2,
P_ATTRIBUTE12 IN VARCHAR2,
P_ATTRIBUTE13 IN VARCHAR2,
P_ATTRIBUTE14 IN VARCHAR2,
P_ATTRIBUTE15 IN VARCHAR2
) IS
l_start_org_id NUMBER;
l_updated_start_date DATE;
l_updated_end_date DATE;
debug('Starting Update_IC_Transaction_Flow','Update_IC_Txn_Flow_hdr');
debug('p_start_date='||p_start_date,'Update_IC_Txn_Flow_hdr');
debug('p_end_date='||p_end_date,'Update_IC_Txn_Flow_hdr');
debug('p_ref_date='||p_ref_date,'Update_IC_Txn_Flow_hdr');
SAVEPOINT UPDATE_IC_TRX_FLOW_HDR_SP;
SELECT START_ORG_ID,END_ORG_ID,FLOW_TYPE,ORGANIZATION_ID,
QUALIFIER_CODE,QUALIFIER_VALUE_ID,START_DATE,END_DATE
INTO l_start_org_id,l_end_org_id,l_flow_type,l_organization_id,
l_qualifier_code,l_qualifier_value_id,l_start_date,l_end_date
FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE HEADER_ID=P_HEADER_ID
FOR UPDATE OF START_DATE,END_DATE NOWAIT;
debug('Lock accuired for header','Update_IC_Txn_Flow_hdr');
-- unable to accuire lock for update
-- ACTION
if g_debug=1 then
debug('Failed to accuire lock for header','Update_IC_Txn_Flow_hdr');
debug('attribute columns for header validated','Update_IC_Txn_Flow_hdr');
INV_TRANSACTION_FLOW_PVT.update_trx_flow_header
(P_HEADER_ID => p_header_id,
P_START_DATE => P_START_DATE,
P_END_DATE => P_END_DATE,
P_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
P_LAST_UPDATE_DATE => SYSDATE,
P_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
P_ATTRIBUTE_CATEGORY => P_ATTRIBUTE_CATEGORY,
P_ATTRIBUTE1 => P_ATTRIBUTE1,
P_ATTRIBUTE2 => P_ATTRIBUTE2,
P_ATTRIBUTE3 => P_ATTRIBUTE3,
P_ATTRIBUTE4 => P_ATTRIBUTE4,
P_ATTRIBUTE5 => P_ATTRIBUTE5,
P_ATTRIBUTE6 => P_ATTRIBUTE6,
P_ATTRIBUTE7 => P_ATTRIBUTE7,
P_ATTRIBUTE8 => P_ATTRIBUTE8,
P_ATTRIBUTE9 => P_ATTRIBUTE9,
P_ATTRIBUTE10 => P_ATTRIBUTE10,
P_ATTRIBUTE11 => P_ATTRIBUTE11,
P_ATTRIBUTE12 => P_ATTRIBUTE12,
P_ATTRIBUTE13 => P_ATTRIBUTE13,
P_ATTRIBUTE14 => P_ATTRIBUTE14,
P_ATTRIBUTE15 => P_ATTRIBUTE15
);
debug('Header updated','Update_IC_Txn_Flow_hdr');
ROLLBACK TO UPDATE_IC_TRX_FLOW_HDR_SP;
ROLLBACK TO UPDATE_IC_TRX_FLOW_HDR_SP;
PROCEDURE Update_IC_Txn_Flow_line(
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_COMMIT IN BOOLEAN DEFAULT FALSE,
P_HEADER_ID IN NUMBER,
P_LINE_NUMBER IN NUMBER,
P_ATTRIBUTE_CATEGORY IN VARCHAR2,
P_ATTRIBUTE1 IN VARCHAR2,
P_ATTRIBUTE2 IN VARCHAR2,
P_ATTRIBUTE3 IN VARCHAR2,
P_ATTRIBUTE4 IN VARCHAR2,
P_ATTRIBUTE5 IN VARCHAR2,
P_ATTRIBUTE6 IN VARCHAR2,
P_ATTRIBUTE7 IN VARCHAR2,
P_ATTRIBUTE8 IN VARCHAR2,
P_ATTRIBUTE9 IN VARCHAR2,
P_ATTRIBUTE10 IN VARCHAR2,
P_ATTRIBUTE11 IN VARCHAR2,
P_ATTRIBUTE12 IN VARCHAR2,
P_ATTRIBUTE13 IN VARCHAR2,
P_ATTRIBUTE14 IN VARCHAR2,
P_ATTRIBUTE15 IN VARCHAR2
) IS
l_from_org_id NUMBER;
debug('Starting Update_IC_Txn_Flow_line','Update_IC_Transaction_Flow');
SAVEPOINT UPDATE_IC_TRX_FLOW_LINE_SP;
SELECT FROM_ORG_ID
INTO l_from_org_id
FROM MTL_TRANSACTION_FLOW_LINES
WHERE HEADER_ID=p_header_id
AND line_number=p_line_number
FOR UPDATE NOWAIT;
debug('Lock accuired for lines','Update_IC_Txn_Flow_line');
-- unable to accuire lock for update
-- ACTION
if g_debug=1 then
debug('Failed to accuire lock for lines','Update_IC_Txn_Flow_line');
debug('attribute columns for lines validated','Update_IC_Txn_Flow_line');
INV_TRANSACTION_FLOW_PVT.UPDATE_TRX_FLOW_LINES(
P_Header_Id => p_header_id,
P_Line_Number => p_line_number,
P_Last_Updated_By => FND_GLOBAL.USER_ID,
P_Last_Update_Date => SYSDATE,
P_Last_Update_Login => FND_GLOBAL.LOGIN_ID,
P_Attribute_Category => p_Attribute_Category,
P_Attribute1 => p_Attribute1,
P_Attribute2 => p_Attribute2,
P_Attribute3 => p_Attribute3,
P_Attribute4 => p_Attribute4,
P_Attribute5 => p_Attribute5,
P_Attribute6 => p_Attribute6,
P_Attribute7 => p_Attribute7,
P_Attribute8 => p_Attribute8,
P_Attribute9 => p_Attribute9,
P_Attribute10 => p_Attribute10,
P_Attribute11 => p_Attribute11,
P_Attribute12 => p_Attribute12,
P_Attribute13 => p_Attribute13,
P_Attribute14 => p_Attribute14,
P_Attribute15 => p_Attribute15
);
debug('All lines updated','Update_IC_Txn_Flow_line');
ROLLBACK TO UPDATE_IC_TRX_FLOW_LINE_SP;
ROLLBACK TO UPDATE_IC_TRX_FLOW_LINE_SP;
PROCEDURE Insert_Trx_Flow_Header (
P_Header_Id IN NUMBER,
P_Start_Org_Id IN NUMBER,
P_End_Org_Id IN NUMBER,
P_Last_Update_Date IN DATE,
P_Last_Updated_By IN NUMBER,
P_Creation_Date IN DATE,
P_Created_By IN NUMBER,
P_Last_Update_Login IN NUMBER,
P_Flow_Type IN NUMBER,
P_Organization_Id IN NUMBER,
P_Qualifier_Code IN NUMBER,
P_Qualifier_Value_Id IN NUMBER,
P_Asset_Item_Pricing_Option IN NUMBER,
P_Expense_Item_Pricing_Option IN NUMBER,
P_Start_Date IN DATE,
P_End_Date IN DATE,
P_New_Accounting_Flag IN VARCHAR2,
P_Attribute_Category IN VARCHAR2,
P_Attribute1 IN VARCHAR2,
P_Attribute2 IN VARCHAR2,
P_Attribute3 IN VARCHAR2,
P_Attribute4 IN VARCHAR2,
P_Attribute5 IN VARCHAR2,
P_Attribute6 IN VARCHAR2,
P_Attribute7 IN VARCHAR2,
P_Attribute8 IN VARCHAR2,
P_Attribute9 IN VARCHAR2,
P_Attribute10 IN VARCHAR2,
P_Attribute11 IN VARCHAR2,
P_Attribute12 IN VARCHAR2,
P_Attribute13 IN VARCHAR2,
P_Attribute14 IN VARCHAR2,
P_Attribute15 IN VARCHAR2
) IS
BEGIN
insert into mtl_transaction_flow_headers
(
header_id,
start_org_id,
end_org_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
flow_type,
organization_id,
qualifier_code,
qualifier_value_id,
asset_item_pricing_option,
expense_item_pricing_option,
start_date,
end_date,
new_accounting_flag,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
)
VALUES (
P_Header_Id,
P_Start_Org_Id,
P_End_Org_Id,
P_Last_Update_Date,
P_Last_Updated_By,
P_Creation_Date,
P_Created_By,
P_Last_Update_Login,
P_Flow_Type,
P_Organization_Id,
P_Qualifier_Code,
P_Qualifier_Value_Id,
P_Asset_Item_Pricing_Option,
P_Expense_Item_Pricing_Option,
P_Start_Date,
P_End_Date,
P_New_Accounting_Flag,
P_Attribute_Category,
P_Attribute1,
P_Attribute2,
P_Attribute3,
P_Attribute4,
P_Attribute5,
P_Attribute6,
P_Attribute7,
P_Attribute8,
P_Attribute9,
P_Attribute10,
P_Attribute11,
P_Attribute12,
P_Attribute13,
P_Attribute14,
P_Attribute15
);
END Insert_Trx_Flow_Header;
PROCEDURE Update_Trx_Flow_Header(
P_Header_Id IN NUMBER,
P_Last_Update_Date IN DATE,
P_Last_Updated_By IN NUMBER,
P_Last_Update_Login IN NUMBER,
P_Start_Date IN DATE,
P_End_Date IN DATE,
P_Attribute_Category IN VARCHAR2,
P_Attribute1 IN VARCHAR2,
P_Attribute2 IN VARCHAR2,
P_Attribute3 IN VARCHAR2,
P_Attribute4 IN VARCHAR2,
P_Attribute5 IN VARCHAR2,
P_Attribute6 IN VARCHAR2,
P_Attribute7 IN VARCHAR2,
P_Attribute8 IN VARCHAR2,
P_Attribute9 IN VARCHAR2,
P_Attribute10 IN VARCHAR2,
P_Attribute11 IN VARCHAR2,
P_Attribute12 IN VARCHAR2,
P_Attribute13 IN VARCHAR2,
P_Attribute14 IN VARCHAR2,
P_Attribute15 IN VARCHAR2
) IS
BEGIN
if (g_debug=1) then
debug('Inside UPDATE trx flow header','Update_Trx_Flow_Header');
Update MTL_TRANSACTION_FLOW_HEADERS
SET
START_DATE = P_Start_Date,
END_DATE = P_End_Date,
LAST_UPDATED_BY = P_Last_Updated_By,
LAST_UPDATE_LOGIN = P_Last_Update_Login,
LAST_UPDATE_DATE = P_Last_Update_Date,
ATTRIBUTE_CATEGORY = P_Attribute_Category ,
ATTRIBUTE1 = P_Attribute1,
ATTRIBUTE2 = P_Attribute2,
ATTRIBUTE3 = P_Attribute3,
ATTRIBUTE4 = P_Attribute4,
ATTRIBUTE5 = P_Attribute5,
ATTRIBUTE6 = P_Attribute6,
ATTRIBUTE7 = P_Attribute7,
ATTRIBUTE8 = P_Attribute8,
ATTRIBUTE9 = P_Attribute9,
ATTRIBUTE10 = P_Attribute10,
ATTRIBUTE11 = P_Attribute11,
ATTRIBUTE12 = P_Attribute12,
ATTRIBUTE13 = P_Attribute13,
ATTRIBUTE14 = P_Attribute14,
ATTRIBUTE15 = P_Attribute15
WHERE HEADER_ID = P_HEADER_ID;
END Update_Trx_Flow_Header;
P_Last_Update_Date IN DATE,
P_Last_Updated_By IN NUMBER,
P_Creation_Date IN DATE,
P_Created_By IN NUMBER,
P_Last_Update_Login IN NUMBER,
P_Flow_Type IN NUMBER,
P_Organization_Id IN NUMBER,
P_Qualifier_Code IN NUMBER,
P_Qualifier_Value_Id IN NUMBER,
P_Asset_Item_Pricing_Option IN NUMBER,
P_Expense_Item_Pricing_Option IN NUMBER,
P_Start_Date IN DATE,
P_End_Date IN DATE,
P_New_Accounting_Flag IN VARCHAR2,
P_Attribute_Category IN VARCHAR2,
P_Attribute1 IN VARCHAR2,
P_Attribute2 IN VARCHAR2,
P_Attribute3 IN VARCHAR2,
P_Attribute4 IN VARCHAR2,
P_Attribute5 IN VARCHAR2,
P_Attribute6 IN VARCHAR2,
P_Attribute7 IN VARCHAR2,
P_Attribute8 IN VARCHAR2,
P_Attribute9 IN VARCHAR2,
P_Attribute10 IN VARCHAR2,
P_Attribute11 IN VARCHAR2,
P_Attribute12 IN VARCHAR2,
P_Attribute13 IN VARCHAR2,
P_Attribute14 IN VARCHAR2,
P_Attribute15 IN VARCHAR2
) IS
CURSOR C IS
SELECT *
FROM MTL_TRANSACTION_FLOW_HEADERS
WHERE header_id=p_header_id
FOR UPDATE of Header_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Insert_Trx_Flow_Lines (
P_Header_Id IN NUMBER,
P_Line_Number IN NUMBER,
P_From_Org_Id IN NUMBER,
P_From_Organization_Id IN NUMBER,
P_To_Org_Id IN NUMBER,
P_To_Organization_Id IN NUMBER,
P_Last_Updated_By IN NUMBER,
P_Last_Update_Date IN DATE,
P_Creation_Date IN DATE,
P_Created_By IN NUMBER,
P_Last_Update_Login IN NUMBER,
P_Attribute_Category IN VARCHAR2,
P_Attribute1 IN VARCHAR2,
P_Attribute2 IN VARCHAR2,
P_Attribute3 IN VARCHAR2,
P_Attribute4 IN VARCHAR2,
P_Attribute5 IN VARCHAR2,
P_Attribute6 IN VARCHAR2,
P_Attribute7 IN VARCHAR2,
P_Attribute8 IN VARCHAR2,
P_Attribute9 IN VARCHAR2,
P_Attribute10 IN VARCHAR2,
P_Attribute11 IN VARCHAR2,
P_Attribute12 IN VARCHAR2,
P_Attribute13 IN VARCHAR2,
P_Attribute14 IN VARCHAR2,
P_Attribute15 IN VARCHAR2
) IS
BEGIN
insert into mtl_transaction_flow_lines
(
header_id,
line_number,
from_org_id,
from_organization_id,
to_org_id,
to_organization_id,
last_updated_by,
last_update_date,
creation_date,
created_by,
last_update_login,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
)
VALUES (
P_Header_Id,
P_Line_Number,
P_From_Org_Id,
P_From_Organization_Id,
P_To_Org_Id,
P_To_Organization_Id,
P_Last_Updated_By,
P_Last_Update_Date,
P_Creation_Date,
P_Created_By,
P_Last_Update_Login,
P_Attribute_Category,
P_Attribute1,
P_Attribute2,
P_Attribute3,
P_Attribute4,
P_Attribute5,
P_Attribute6,
P_Attribute7,
P_Attribute8,
P_Attribute9,
P_Attribute10,
P_Attribute11,
P_Attribute12,
P_Attribute13,
P_Attribute14,
P_Attribute15
);
END Insert_Trx_Flow_Lines;
PROCEDURE Update_Trx_Flow_Lines (
P_Header_Id IN NUMBER,
P_Line_Number IN NUMBER,
P_Last_Update_Date IN DATE,
P_Last_Updated_By IN NUMBER,
P_Last_Update_Login IN NUMBER,
P_Attribute_Category IN VARCHAR2,
P_Attribute1 IN VARCHAR2,
P_Attribute2 IN VARCHAR2,
P_Attribute3 IN VARCHAR2,
P_Attribute4 IN VARCHAR2,
P_Attribute5 IN VARCHAR2,
P_Attribute6 IN VARCHAR2,
P_Attribute7 IN VARCHAR2,
P_Attribute8 IN VARCHAR2,
P_Attribute9 IN VARCHAR2,
P_Attribute10 IN VARCHAR2,
P_Attribute11 IN VARCHAR2,
P_Attribute12 IN VARCHAR2,
P_Attribute13 IN VARCHAR2,
P_Attribute14 IN VARCHAR2,
P_Attribute15 IN VARCHAR2
) IS
BEGIN
if (g_debug=1) then
debug('Inside UPDATE trx flow lines','Update_Trx_Flow_Lines');
Update MTL_TRANSACTION_FLOW_LINES
SET
LAST_UPDATED_BY = P_Last_Updated_By,
LAST_UPDATE_LOGIN = P_Last_Update_Login,
LAST_UPDATE_DATE = P_Last_Update_Date,
ATTRIBUTE_CATEGORY = P_Attribute_Category ,
ATTRIBUTE1 = P_Attribute1,
ATTRIBUTE2 = P_Attribute2,
ATTRIBUTE3 = P_Attribute3,
ATTRIBUTE4 = P_Attribute4,
ATTRIBUTE5 = P_Attribute5,
ATTRIBUTE6 = P_Attribute6,
ATTRIBUTE7 = P_Attribute7,
ATTRIBUTE8 = P_Attribute8,
ATTRIBUTE9 = P_Attribute9,
ATTRIBUTE10 = P_Attribute10,
ATTRIBUTE11 = P_Attribute11,
ATTRIBUTE12 = P_Attribute12,
ATTRIBUTE13 = P_Attribute13,
ATTRIBUTE14 = P_Attribute14,
ATTRIBUTE15 = P_Attribute15
WHERE HEADER_ID = P_HEADER_ID
AND LINE_NUMBER= P_LINE_NUMBER;
END Update_Trx_Flow_Lines;
P_Last_Updated_By IN NUMBER,
P_Last_Update_Date IN DATE,
P_Creation_Date IN DATE,
P_Created_By IN NUMBER,
P_Last_Update_Login IN NUMBER,
P_Attribute_Category IN VARCHAR2,
P_Attribute1 IN VARCHAR2,
P_Attribute2 IN VARCHAR2,
P_Attribute3 IN VARCHAR2,
P_Attribute4 IN VARCHAR2,
P_Attribute5 IN VARCHAR2,
P_Attribute6 IN VARCHAR2,
P_Attribute7 IN VARCHAR2,
P_Attribute8 IN VARCHAR2,
P_Attribute9 IN VARCHAR2,
P_Attribute10 IN VARCHAR2,
P_Attribute11 IN VARCHAR2,
P_Attribute12 IN VARCHAR2,
P_Attribute13 IN VARCHAR2,
P_Attribute14 IN VARCHAR2,
P_Attribute15 IN VARCHAR2
) IS
CURSOR C IS
SELECT *
FROM MTL_TRANSACTION_FLOW_LINES
WHERE header_id = P_Header_Id
and Line_Number=P_Line_Number
FOR UPDATE of Header_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');