The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT GMF_LOT_COST_ADJS_ID_S.NEXTVAL
INTO l_adjustment_id
FROM dual;
log_msg ('Inserting Lot Cost Adjustments for Item ' || p_header_rec.item_id ||
' Legal Entity' || p_header_rec.legal_entity_id ||
' Organization ' || p_header_rec.organization_id ||
' Cost Type Id ' || p_header_rec.cost_type_id ||
' Lot Number ' || p_header_Rec.lot_number ||
'Adjustment Date ' || p_header_rec.adjustment_date
) ;
INSERT INTO gmf_lot_cost_adjustments
(
ADJUSTMENT_ID
, legal_entity_id
, cost_type_id
, inventory_item_id
, organization_id
, lot_number
, ADJUSTMENT_DATE
, REASON_CODE
, DELETE_MARK
, APPLIED_IND
, CREATED_BY
, CREATION_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
, LAST_UPDATE_DATE
, ATTRIBUTE1
, ATTRIBUTE2
, ATTRIBUTE3
, ATTRIBUTE4
, ATTRIBUTE5
, ATTRIBUTE6
, ATTRIBUTE7
, ATTRIBUTE8
, ATTRIBUTE9
, ATTRIBUTE10
, ATTRIBUTE11
, ATTRIBUTE12
, ATTRIBUTE13
, ATTRIBUTE14
, ATTRIBUTE15
, ATTRIBUTE16
, ATTRIBUTE17
, ATTRIBUTE18
, ATTRIBUTE19
, ATTRIBUTE20
, ATTRIBUTE21
, ATTRIBUTE22
, ATTRIBUTE23
, ATTRIBUTE24
, ATTRIBUTE25
, ATTRIBUTE26
, ATTRIBUTE27
, ATTRIBUTE28
, ATTRIBUTE29
, ATTRIBUTE30
, ATTRIBUTE_CATEGORY
)
VALUES
(
l_adjustment_id
, p_header_rec.legal_entity_id
, p_header_rec.cost_type_id
, p_header_rec.ITEM_ID
, p_header_rec.organization_id
, p_header_rec.lot_number
, p_header_rec.ADJUSTMENT_DATE
, p_header_rec.REASON_CODE
, 0
, 'N'
, p_user_id
, SYSDATE
, p_user_id
, FND_GLOBAL.LOGIN_ID
, SYSDATE
, p_header_rec.ATTRIBUTE1
, p_header_rec.ATTRIBUTE2
, p_header_rec.ATTRIBUTE3
, p_header_rec.ATTRIBUTE4
, p_header_rec.ATTRIBUTE5
, p_header_rec.ATTRIBUTE6
, p_header_rec.ATTRIBUTE7
, p_header_rec.ATTRIBUTE8
, p_header_rec.ATTRIBUTE9
, p_header_rec.ATTRIBUTE10
, p_header_rec.ATTRIBUTE11
, p_header_rec.ATTRIBUTE12
, p_header_rec.ATTRIBUTE13
, p_header_rec.ATTRIBUTE14
, p_header_rec.ATTRIBUTE15
, p_header_rec.ATTRIBUTE16
, p_header_rec.ATTRIBUTE17
, p_header_rec.ATTRIBUTE18
, p_header_rec.ATTRIBUTE19
, p_header_rec.ATTRIBUTE20
, p_header_rec.ATTRIBUTE21
, p_header_rec.ATTRIBUTE22
, p_header_rec.ATTRIBUTE23
, p_header_rec.ATTRIBUTE24
, p_header_rec.ATTRIBUTE25
, p_header_rec.ATTRIBUTE26
, p_header_rec.ATTRIBUTE27
, p_header_rec.ATTRIBUTE28
, p_header_rec.ATTRIBUTE29
, p_header_rec.ATTRIBUTE30
, p_header_rec.ATTRIBUTE_CATEGORY
) RETURNING adjustment_id INTO p_header_rec.adjustment_id;
log_msg ( SQL%ROWCOUNT || 'Header Record Inserted for Lot Cost Adjustments for Item ' || p_header_rec.item_id ||
' Legal Entity' || p_header_rec.legal_entity_id ||
' Organization ' || p_header_rec.organization_id ||
' Cost Type Id ' || p_header_rec.cost_type_id ||
' Lot Number ' || p_header_Rec.lot_number ||
' Adjustment Date ' || p_header_rec.adjustment_date
);
SELECT GMF_LOT_COST_ADJS_DTL_ID_S.NEXTVAL
INTO l_adjustment_dtl_id
FROM dual;
log_msg ( 'Inserting Detail Record for Cost Component Class Id ' || p_dtl_tbl(i).cost_cmpntcls_id ||
' Cost Analysis Code ' || p_dtl_tbl(i).cost_analysis_code
);
INSERT INTO gmf_lot_cost_adjustment_dtls
(
ADJUSTMENT_DTL_ID
, ADJUSTMENT_ID
, COST_CMPNTCLS_ID
, COST_ANALYSIS_CODE
, ADJUSTMENT_COST
, TEXT_CODE -- Bug # 3755374 ANTHIYAG 12-Jul-2004
, DELETE_MARK
, CREATED_BY
, CREATION_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
, LAST_UPDATE_DATE
)
VALUES
(
l_adjustment_dtl_id
, p_header_rec.adjustment_id
, p_dtl_tbl(i).COST_CMPNTCLS_ID
, p_dtl_tbl(i).COST_ANALYSIS_CODE
, p_dtl_tbl(i).ADJUSTMENT_COST
, p_dtl_tbl(i).TEXT_CODE -- Bug # 3755374 ANTHIYAG 12-Jul-2004
, 0
, p_user_id
, SYSDATE
, p_user_id
, FND_GLOBAL.LOGIN_ID
, SYSDATE
) RETURNING adjustment_dtl_id INTO p_dtl_tbl(i).adjustment_dtl_id;
log_msg ( SQL%ROWCOUNT || 'Detail Record inserted for Cost Component Class Id ' || p_dtl_tbl(i).cost_cmpntcls_id ||
' Cost Analysis Code ' || p_dtl_tbl(i).cost_analysis_code
);
PROCEDURE Update_LotCost_Adjustment
(
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_header_rec IN OUT NOCOPY GMF_LotCostAdjustment_PUB.Lc_Adjustment_Header_Rec_Type
, p_dtl_Tbl IN OUT NOCOPY GMF_LotCostAdjustment_PUB.Lc_adjustment_dtls_Tbl_Type
, p_user_id IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_LotCost_Adjustment' ;
SAVEPOINT Update_LotCost_Adjustment_PVT ;
log_msg('Beginning Private Update Lot Cost Adjustment API');
UPDATE gmf_lot_cost_adjustment_dtls
SET ADJUSTMENT_COST = p_dtl_tbl(i).ADJUSTMENT_COST
, TEXT_CODE = decode( p_dtl_tbl(i).TEXT_CODE, FND_API.G_MISS_NUM, NULL, NULL, TEXT_CODE, p_dtl_tbl(i).TEXT_CODE )
, LAST_UPDATED_BY = p_user_id
, LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
, LAST_UPDATE_DATE = SYSDATE
WHERE adjustment_dtl_id = p_dtl_tbl(i).adjustment_dtl_id
AND delete_mark = 0;
log_msg ( SQL%ROWCOUNT || 'Detail Record Updated for Adjustment Detail Id ' || p_dtl_tbl(i).adjustment_dtl_id );
ROLLBACK TO Update_LotCost_Adjustment_PVT;
ROLLBACK TO Update_LotCost_Adjustment_PVT;
ROLLBACK TO Update_LotCost_Adjustment_PVT;
END Update_LotCost_Adjustment;
PROCEDURE Delete_LotCost_Adjustment
(
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_header_rec IN OUT NOCOPY GMF_LotCostAdjustment_PUB.Lc_Adjustment_Header_Rec_Type
, p_dtl_Tbl IN OUT NOCOPY GMF_LotCostAdjustment_PUB.Lc_adjustment_dtls_Tbl_Type
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_LotCost_Adjustment' ;
SAVEPOINT Delete_LotCost_Adjustment_PVT ;
log_msg('Beginning Private Delete Lot Cost Adjustment API');
DELETE gmf_lot_cost_adjustment_dtls
WHERE adjustment_dtl_id = p_dtl_tbl(i).adjustment_dtl_id;
log_msg ( SQL%ROWCOUNT || ' Detail Record(s) deleted for Adjustment Detail Id ' || p_dtl_tbl(i).adjustment_dtl_id);
SELECT count(1)
INTO l_adjustment_dtl_cnt
FROM gmf_lot_cost_adjustment_dtls
WHERE adjustment_id = p_header_Rec.adjustment_id;
DELETE gmf_lot_cost_adjustments
WHERE adjustment_id = p_header_Rec.adjustment_id
AND nvl(applied_ind,'N') <> 'Y';
log_msg( SQL%ROWCOUNT || ' Record Deleted for Adjustment Id ' || p_header_rec.adjustment_id);
log_msg(p_dtl_tbl.COUNT || ' Lot Cost Adjustment Detail row(s) Deleted');
ROLLBACK TO Delete_LotCost_Adjustment_PVT;
ROLLBACK TO Delete_LotCost_Adjustment_PVT;
ROLLBACK TO Delete_LotCost_Adjustment_PVT;
END Delete_LotCost_Adjustment;
SELECT
a.ADJUSTMENT_ID
, a.legal_entity_id
, a.cost_type_id
, a.inventory_item_id
, a.organization_id
, a.lot_number
, a.ADJUSTMENT_DATE
, a.REASON_CODE
, a.DELETE_MARK
, a.ATTRIBUTE1
, a.ATTRIBUTE2
, a.ATTRIBUTE3
, a.ATTRIBUTE4
, a.ATTRIBUTE5
, a.ATTRIBUTE6
, a.ATTRIBUTE7
, a.ATTRIBUTE8
, a.ATTRIBUTE9
, a.ATTRIBUTE10
, a.ATTRIBUTE11
, a.ATTRIBUTE12
, a.ATTRIBUTE13
, a.ATTRIBUTE14
, a.ATTRIBUTE15
, a.ATTRIBUTE16
, a.ATTRIBUTE17
, a.ATTRIBUTE18
, a.ATTRIBUTE19
, a.ATTRIBUTE20
, a.ATTRIBUTE21
, a.ATTRIBUTE22
, a.ATTRIBUTE23
, a.ATTRIBUTE24
, a.ATTRIBUTE25
, a.ATTRIBUTE26
, a.ATTRIBUTE27
, a.ATTRIBUTE28
, a.ATTRIBUTE29
, a.ATTRIBUTE30
, a.ATTRIBUTE_CATEGORY
FROM gmf_lot_cost_adjustments a
, mtl_system_items_b b
, mtl_lot_numbers c
WHERE a.adjustment_id = nvl(p_header_rec.adjustment_id, a.adjustment_id)
AND a.legal_entity_id = decode(p_header_rec.adjustment_id, NULL, p_header_rec.legal_entity_id, a.legal_entity_id)
AND a.cost_type_id = decode(p_header_rec.adjustment_id, NULL, p_header_rec.cost_type_id, a.cost_type_id)
AND a.organization_id = decode(p_header_rec.adjustment_id, NULL, p_header_rec.organization_id, a.organization_id)
AND a.inventory_item_id = decode(p_header_rec.adjustment_id, NULL, p_header_rec.item_id, a.inventory_item_id)
AND a.lot_number = decode(p_header_rec.adjustment_id, NULL, p_header_rec.lot_number, a.lot_number)
AND a.adjustment_date = decode(p_header_rec.adjustment_id, NULL, p_header_rec.adjustment_date, a.adjustment_date)
AND b.inventory_item_id = a.inventory_item_id
AND b.organization_id = a.organization_id
AND c.lot_number = a.lot_number
AND c.inventory_item_id = a.inventory_item_id
AND c.organization_id = a.organization_id;
SELECT
a.ADJUSTMENT_DTL_ID
, a.ADJUSTMENT_ID
, a.COST_CMPNTCLS_ID
, a.COST_ANALYSIS_CODE
, a.ADJUSTMENT_COST
, a.TEXT_CODE
FROM gmf_lot_cost_adjustment_dtls a
WHERE a.adjustment_id = NVL(p_adjustment_id, a.adjustment_id);
p_header_Rec.DELETE_MARK := i.DELETE_MARK;