The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_delete_flag In Varchar2 default 'N',
p_create_adj_no_validate In Boolean Default FALSE);
, x_updated_flag OUT NOCOPY VARCHAR2
, x_update_allowed OUT NOCOPY VARCHAR2
, x_applied_flag OUT NOCOPY VARCHAR2
, x_change_reason_code OUT NOCOPY VARCHAR2
, x_change_reason_text OUT NOCOPY VARCHAR2
, x_modified_from OUT NOCOPY VARCHAR2
, x_modified_to OUT NOCOPY VARCHAR2
, x_operand OUT NOCOPY NUMBER
, x_arithmetic_operator OUT NOCOPY VARCHAR2
, x_adjusted_amount OUT NOCOPY NUMBER
, x_pricing_phase_id OUT NOCOPY NUMBER
, x_list_line_no OUT NOCOPY varchar2
, x_source_system_code OUT NOCOPY varchar2
, x_benefit_qty OUT NOCOPY NUMBER
, x_benefit_uom_code OUT NOCOPY varchar2
, x_print_on_invoice_flag OUT NOCOPY varchar2
, x_expiration_date OUT NOCOPY DATE
, x_rebate_transaction_type_code OUT NOCOPY varchar2
, x_rebate_transaction_reference OUT NOCOPY varchar2
, x_rebate_payment_system_code OUT NOCOPY varchar2
, x_redeemed_date OUT NOCOPY DATE
, x_redeemed_flag OUT NOCOPY varchar2
, x_accrual_flag OUT NOCOPY varchar2
, x_invoiced_flag OUT NOCOPY varchar2
, x_estimated_flag OUT NOCOPY varchar2
, x_credit_or_charge_flag OUT NOCOPY varchar2
, x_include_on_returns_flag OUT NOCOPY varchar2
, x_charge_type_code OUT NOCOPY varchar2
, x_charge_subtype_code OUT NOCOPY varchar2
, x_ac_context OUT NOCOPY VARCHAR2
, x_ac_attribute1 OUT NOCOPY VARCHAR2
, x_ac_attribute2 OUT NOCOPY VARCHAR2
, x_ac_attribute3 OUT NOCOPY VARCHAR2
, x_ac_attribute4 OUT NOCOPY VARCHAR2
, x_ac_attribute5 OUT NOCOPY VARCHAR2
, x_ac_attribute6 OUT NOCOPY VARCHAR2
, x_ac_attribute7 OUT NOCOPY VARCHAR2
, x_ac_attribute8 OUT NOCOPY VARCHAR2
, x_ac_attribute9 OUT NOCOPY VARCHAR2
, x_ac_attribute10 OUT NOCOPY VARCHAR2
, x_ac_attribute11 OUT NOCOPY VARCHAR2
, x_ac_attribute12 OUT NOCOPY VARCHAR2
, x_ac_attribute13 OUT NOCOPY VARCHAR2
, x_ac_attribute14 OUT NOCOPY VARCHAR2
, x_ac_attribute15 OUT NOCOPY VARCHAR2
--uom begin
, x_operand_per_pqty OUT NOCOPY NUMBER
, x_adjusted_amount_per_pqty OUT NOCOPY NUMBER
--uom end
)
IS
l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
l_x_Line_Adj_rec.updated_flag :=NULL;
l_x_Line_Adj_rec.update_allowed :=NULL;
x_updated_flag := l_x_Line_Adj_rec.updated_flag;
x_update_allowed := l_x_Line_Adj_rec.update_allowed;
, x_updated_flag OUT NOCOPY VARCHAR2
, x_update_allowed OUT NOCOPY VARCHAR2
, x_applied_flag OUT NOCOPY VARCHAR2
, x_change_reason_code OUT NOCOPY VARCHAR2
, x_change_reason_text OUT NOCOPY VARCHAR2
, x_modified_from OUT NOCOPY VARCHAR2
, x_modified_to OUT NOCOPY VARCHAR2
, x_operand OUT NOCOPY NUMBER
, x_arithmetic_operator OUT NOCOPY VARCHAR2
, x_adjusted_amount OUT NOCOPY NUMBER
, x_pricing_phase_id OUT NOCOPY NUMBER
, x_list_line_no OUT NOCOPY varchar2
, x_source_system_code OUT NOCOPY varchar2
, x_benefit_qty OUT NOCOPY NUMBER
, x_benefit_uom_code OUT NOCOPY varchar2
, x_print_on_invoice_flag OUT NOCOPY varchar2
, x_expiration_date OUT NOCOPY DATE
, x_rebate_transaction_type_code OUT NOCOPY varchar2
, x_rebate_transaction_reference OUT NOCOPY varchar2
, x_rebate_payment_system_code OUT NOCOPY varchar2
, x_redeemed_date OUT NOCOPY DATE
, x_redeemed_flag OUT NOCOPY varchar2
, x_accrual_flag OUT NOCOPY varchar2
, x_invoiced_flag OUT NOCOPY varchar2
, x_estimated_flag OUT NOCOPY varchar2
, x_credit_or_charge_flag OUT NOCOPY varchar2
, x_include_on_returns_flag OUT NOCOPY varchar2
, x_charge_type_code OUT NOCOPY varchar2
, x_charge_subtype_code OUT NOCOPY varchar2
--uom begin
, x_operand_per_pqty OUT NOCOPY NUMBER
, x_adjusted_amount_per_pqty OUT NOCOPY NUMBER
--uom end
)
IS
l_request_rec OE_Order_Pub.Request_Rec_Type;
l_line_id_tbl.delete;
SELECT ldets.line_quantity
INTO l_x_Line_Adj_rec.range_break_quantity
FROM qp_preq_ldets_tmp ldets,
qp_preq_lines_tmp lin
WHERE ldets.created_from_list_line_id = l_x_Line_Adj_rec.list_line_id
AND ldets.pricing_status_code = 'N'
AND lin.line_index = ldets.line_index
AND nvl(lin.line_id,l_x_Line_Adj_rec.line_id) = l_x_Line_Adj_rec.line_id
AND rownum = 1;
ELSIF p_attr_id = OE_Line_Adj_Util.G_UPDATE_ALLOWED then
l_x_Line_Adj_rec.update_allowed := p_attr_value1 ;
ELSIF p_attr_id = OE_Line_Adj_Util.G_UPDATED_FLAG then
l_x_Line_Adj_rec.updated_flag := p_attr_value1 ;
l_x_Line_Adj_rec.update_allowed:= p_attr_value1;
l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
Select line_id
Into l_top_model_line_id
From Oe_Order_Lines_All
Where line_id = l_line_rec.service_reference_line_id
and top_model_line_id = line_id;
l_line_id_tbl.delete;
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
x_update_allowed := FND_API.G_MISS_CHAR;
x_updated_flag := FND_API.G_MISS_CHAR;
IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.update_allowed,
l_Line_Adj_rec.update_allowed)
THEN
x_update_allowed := l_x_Line_Adj_rec.update_allowed;
IF NOT OE_GLOBALS.Equal(l_x_Line_Adj_rec.updated_flag, l_Line_Adj_rec.updated_flag)
THEN
x_updated_flag := l_x_Line_Adj_rec.updated_flag;
, x_last_update_date OUT NOCOPY DATE
, x_last_updated_by OUT NOCOPY NUMBER
, x_last_update_login OUT NOCOPY NUMBER
, p_ok_flag IN VARCHAR2
, x_program_id OUT NOCOPY NUMBER
, x_program_application_id OUT NOCOPY NUMBER
, x_program_update_date OUT NOCOPY DATE
, x_request_id OUT NOCOPY NUMBER
, x_lock_control OUT NOCOPY NUMBER
)
IS
l_request_rec OE_Order_Pub.Request_Rec_Type;
l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
x_last_update_date := l_x_Line_Adj_rec.last_update_date;
x_last_updated_by := l_x_Line_Adj_rec.last_updated_by;
x_last_update_login := l_x_Line_Adj_rec.last_update_login;
x_program_update_date := l_x_Line_Adj_rec.program_update_date;
PROCEDURE Delete_Row
( x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_price_adjustment_id IN NUMBER
, p_change_reason_code IN VARCHAR2 Default Null
, p_change_comments IN VARCHAR2 Default Null
)
IS
l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_ADJ.DELETE_ROW' , 1 ) ;
l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
Select line_id
Into l_top_model_line_id
From Oe_Order_Lines_All
Where line_id = l_line_rec.service_reference_line_id
and top_model_line_id = line_id;
p_delete_flag => 'Y');
p_delete_flag => 'Y');
oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE_ADJ.DELETE_ROW' , 1 ) ;
, 'Delete_Row'
);
END Delete_Row;
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
,p_delete => FND_API.G_TRUE
,x_return_status => l_return_status
);
p_updated_flag IN VARCHAR2,
p_change_reason_code IN Varchar2 :=NULL,
p_change_reason_text IN VARCHAR2 :=NULL
)
IS
l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
l_x_line_adj_rec.updated_flag := p_updated_flag;
l_x_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
Procedure Insert_Row(p_line_adj_rec In Oe_Order_Pub.line_adj_rec_type
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,x_price_adjustment_id OUT NOCOPY NUMBER) Is
l_Control_Rec OE_GLOBALS.Control_Rec_Type;
IF l_line_adj_tbl(1).UPDATED_FLAG IS NULL THEN
l_line_adj_tbl(1).UPDATED_FLAG := 'Y';
SELECT line_quantity
INTO l_Line_Adj_tbl(1).range_break_quantity
FROM qp_preq_ldets_tmp
WHERE created_from_list_line_id = l_Line_Adj_tbl(1).list_line_id
AND pricing_status_code = 'N'
AND rownum = 1;
oe_debug_pub.add(' FLADB:l_line_adj_tbl(1).updated_flag IS:'||l_line_adj_tbl(1).updated_flag);
AND l_line_adj_tbl(1).updated_flag IS NULL THEN
l_line_adj_tbl(1).updated_flag := 'Y';
SELECT OE_PRICE_ADJUSTMENTS_S.NEXTVAL
INTO l_line_adj_tbl(1).price_adjustment_id
FROM Dual;
, 'Oe_Oe_Form_Line_Adj.Insert_Row:'||SQLERRM
);
oe_debug_pub.add( 'OE_OE_FORM_LINE_ADJ.INSERT_ROW:'||SQLERRM ) ;
Select b.line_id
From oe_order_lines_all a,
oe_order_lines_all b,
oe_order_lines_all c
Where a.top_model_line_id = p_top_model_line_id
and a.line_id <> p_top_model_line_id
and a.line_id = b.service_reference_line_id
and c.line_id = p_service_line_id
and c.inventory_item_id = b.inventory_item_id
and nvl(c.service_start_date,SYSDATE) = nvl(b.service_start_date,SYSDATE)
and nvl(c.service_end_date,SYSDATE) = nvl(b.service_end_date,SYSDATE)
and nvl(c.service_duration,0) = nvl(b.service_duration,0);
Select line_id
From oe_order_lines_all
Where top_model_line_id = p_top_model_line_id
and line_id <> p_top_model_line_id;
p_delete_flag In Varchar2 Default 'N' ,
p_create_adj_no_validate In Boolean Default FALSE) Is
Cursor adjustment_cur(p_list_line_id Number ,p_line_id Number) Is
Select price_adjustment_id,operand,change_reason_code
From oe_price_adjustments
Where line_id = p_line_id
and list_line_id = p_list_line_id;
If p_delete_flag = 'N' Then
If l_price_adjustment_id is Not Null Then
--Update required, a same adjustment exists
If l_operand <> p_parent_adj_rec.operand or
nvl(l_reason_code,'NULLreasonCode+') <> p_parent_adj_rec.change_reason_code Then
If p_parent_adj_rec.change_reason_code is Null Then
l_reason_code:='MISC';
p_updated_flag => 'Y',
p_change_reason_code => l_reason_code,
p_change_reason_text => 'Top model line adjustments has been changed');
oe_debug_pub.add( ' CS INSERTING NEW CHILDREN' ) ;
Insert_Row(l_line_adj_Rec,l_return_status,l_msg_count,l_msg_data,lx_price_adjustment_id);
Elsif p_delete_flag = 'Y' Then
If l_price_adjustment_id is not Null Then
stmt:=4;
OE_Header_Adj_Util.Delete_Row
( p_price_adjustment_id => l_price_adjustment_id
);