Add a item into price list using API

Hi,

I want to create a list price for a given item using API. I followed the instruction in the note ID 753089.1 but didn't work. After I ran that script and checked the item in the price list, it was not there. Can you please help?

Here is what I have....

Declare
  gpr_return_status           varchar2(1) := NULL;
  gpr_msg_count               number := 0;
  gpr_msg_data                varchar2(2000);
  gpr_price_list_rec          QP_PRICE_LIST_PUB.Price_List_Rec_Type;
  gpr_price_list_val_rec      QP_PRICE_LIST_PUB.Price_List_Val_Rec_Type;
  gpr_price_list_line_tbl     QP_PRICE_LIST_PUB.Price_List_Line_Tbl_Type;