Declare
G_price_list_id number;
P_New_Sc_Header_Id number;
P_List_Line_Id number;
BEGIN
L_Source_Price_List_Id := G_Price_List_Id; --source price_list_id
P_Orig_System_Header_Ref := P_New_Sc_Header_Id; -- Contract_ID
P_Source_List_Line_Id := P_List_Line_Id; --Source list line id
P_List_Source_Code := 'OKS'; --source code OKS or QP
P_Org_Id := 81; -- organization_id
Debug_p('calling Qp_Lock_Pricelist_Pvt.Lock_Price api to create locked price list header and line id');
Qp_Lock_Pricelist_Pvt.Lock_Price(
P_Source_Price_List_Id => L_Source_Price_List_Id,
P_Source_List_Line_Id => P_Source_List_Line_Id,
P_Startup_Mode => P_List_Source_Code,
P_Orig_System_Header_Ref => P_Orig_System_Header_Ref,
P_Org_Id => P_Org_Id,
P_Commit => 'T',
X_Locked_Price_List_Id => X_Locked_Price_List_Id, X_Locked_List_Line_Id => X_Locked_List_Line_Id, X_Return_Status => X_Return_Status, X_Msg_Count => X_Msg_Count, X_Msg_Data => X_Msg_Data);
IF X_Return_Status <> Fnd_Api.G_Ret_Sts_Success
THEN
RAISE
Fnd_Api.G_Exc_Unexpected_Error;
ELSE
Debug_p('Locked price list created successfully');
Debug_p('X_Locked_Price_List_Id' || X_Locked_Price_List_Id); Debug_p('X_Locked_List_Line_Id' || X_Locked_List_Line_Id);
Debug_p('Created Locked Price list and price list line id: ' || X_Locked_Price_List_Id || ' and ' || X_Locked_List_Line_Id);
UPDATE Oks_k_Lines_b Oklb
SET Locked_Price_List_Id = X_Locked_Price_List_Id,
Locked_Price_List_Line_Id = X_Locked_List_Line_Id
WHERE Oklb.Cle_Id = Line_Id ---contract line id
AND Oklb.Dnz_Chr_Id = Id; -- contract id
End;
------------------------------------------------------------------------------------------------------------------
Api to update Service contract header
Declare
Khrv_Rec_In Oks_Khr_Pvt.Khrv_Rec_Type;
Khrv_Rec_Out Oks_Khr_Pvt.Khrv_Rec_Type;
L_contract number;
l_Conversion_Type varchar2(50);
l_Conversion_Rate_Date date;
l_Object_Version_Number number;
x_Msg_Count number;
x_Return_Status varchar2(50);
x_Msg_Data varchar2(50);
Begin
--Assigning the record first
l_Khrv_Rec_In.Id :=1234 ;-- l_Contract_Id;
l_Khrv_Rec_In.Sts_Code := 'ACTIVE';
l_Khrv_Rec_In.Conversion_Type := 'Corporate'; --l_Conversion_Type;
l_Khrv_Rec_In.Conversion_Rate_Date :=l_Conversion_Rate_Date; -- SC startdate
l_Khrv_Rec_In.Object_Version_Number := 1;--l_Object_Version_Number;
--calling api to update contract header :
Okc_Contract_Pub.Update_Contract_Header(p_Api_Version => 1.0,
p_Init_Msg_List => 'T',
x_Return_Status => x_Return_Status,
x_Msg_Count => x_Msg_Count,
x_Msg_Data => x_Msg_Data,
p_Restricted_Update => 'T',
p_Chrv_Rec => l_Khrv_Rec_In,
x_Chrv_Rec => x_Khrv_Rec_Out);
COMMIT;
End;
