API to create new price adjustment record

Here is sample code for creating new price adjustment record for a Service Contract in R12

okc_price_adjustment_pub.create_price_adjustment 

Fetch the line details for a given Service Contract.

DECLARE

   l_p_patv_rec      apps.okc_price_adjustment_pvt.patv_rec_type;

   l_x_patv_rec      apps.okc_price_adjustment_pvt.patv_rec_type;

   l_init_msg_list   VARCHAR2 (1000);

   l_x_retn_status   VARCHAR2 (10);

   l_x_msg_count     NUMBER;

   l_x_msg_data      VARCHAR2 (1000);

BEGIN

   l_p_patv_rec.cle_id := 100;   --OKC line id, for a given Service Contract.

   l_p_patv_rec.modifier_mechanism_type_code := 'DLT';

   l_p_patv_rec.operand := 4.5;                       --Header Discount,Rate;

   l_p_patv_rec.arithmetic_operator := '%';

   l_p_patv_rec.automatic_flag := 'N';

   l_p_patv_rec.update_allowed := 'Y';

   l_p_patv_rec.updated_flag := 'Y';

   l_p_patv_rec.applied_flag := 'Y';

   l_p_patv_rec.pricing_phase_id := 2;

   l_p_patv_rec.list_line_type_code := 'DIS';

   l_p_patv_rec.list_header_id := 6016;                --Price List Header ID

   l_p_patv_rec.list_line_id := 6019;                   ---Price List Line ID

   l_p_patv_rec.pricing_group_sequence := 1;

   l_p_patv_rec.accrual_flag := 'N';

   l_p_patv_rec.list_line_no := l_p_patv_rec.list_line_id;

   l_p_patv_rec.modifier_level_code := 'LINE';

   l_p_patv_rec.proration_type_code := NULL;

   apps.okc_price_adjustment_pub.create_price_adjustment

                                         (p_api_version        => 1.0,

                                          p_init_msg_list      => l_init_msg_list,

                                          x_return_status      => l_x_retn_status,

                                          x_msg_count          => l_x_msg_count,

                                          x_msg_data           => l_x_msg_data,

                                          p_patv_rec           => l_p_patv_rec,

                                          x_patv_rec           => l_x_patv_rec

                                         );

   IF (l_x_return_status <> 'S')

   THEN

      DBMS_OUTPUT.put_line ('API Error' || l_x_return_status);

   ELSE

      DBMS_OUTPUT.put_line ('API Success' || l_x_return_status);

   END IF;

END;

/

Here is the output created for the Service contracts -> Price Adjustments