R12 API Supplier site purpose shows blank after set pay_site_flag:='Y';

Question

hi,
i have set the pay_site_flag of supplier site to 'Y', but when i go to Address Book, but the purpose shows blank. Click on Update, it brings me to the detail screen, the Payment also shown as not ticked.
any idea?
below is my code.
declare
-- Local variables here
x_return_status VARCHAR2(2000); x_msg_count NUMBER; x_msg_data VARCHAR2(2000);
p_vendor_rec AP_VENDOR_PUB_PKG.r_vendor_rec_type; p_vendor_rec_null AP_VENDOR_PUB_PKG.r_vendor_rec_type;
x_vendor_id number; x_party_id number;
p_vendor_site_rec AP_VENDOR_PUB_PKG.r_vendor_site_rec_type; p_vendor_site_rec_null AP_VENDOR_PUB_PKG.r_vendor_site_rec_type;
x_vendor_site_id number; x_party_site_id number; x_location_id number;
p_vendor_contact_rec AP_VENDOR_PUB_PKG.r_vendor_contact_rec_type; p_vendor_contact_rec_null AP_VENDOR_PUB_PKG.r_vendor_contact_rec_type;
x_vendor_contact_id number;     x_per_party_id number;     x_rel_party_id number;     x_rel_id number;     x_org_contact_id number;
     x_cparty_site_id number;
begin
p_vendor_rec:=p_vendor_rec_null;
p_vendor_rec.segment1:='R0003_12'; p_vendor_rec.VENDOR_NAME:='3ED FORKLIFTS REPAIRERS_12'; p_vendor_rec.VENDOR_NAME_alt:='3ED FORKLIFTS REPAIRERS_12';
p_vendor_rec.INVOICE_CURRENCY_CODE:='SGD'; p_vendor_rec.PAYMENT_CURRENCY_CODE:='SGD';
begin
select term_id into p_vendor_rec.terms_id from AP_TERMS_TL where upper(description)=upper('30 DAYS');
exception when others then
rollback;
dbms_output.put_line('error term id not found:'||'30 DAYS');
return;
end;
p_vendor_rec.ext_payee_rec.default_pmt_method := 'CHECK';
AP_VENDOR_PUB_PKG.Create_Vendor(p_api_version=>1,
     p_init_msg_list=>'T',
     x_return_status=>x_return_status,
     x_msg_count=>x_msg_count,
     x_msg_data=>x_msg_data,
     p_vendor_rec=>p_vendor_rec,
     x_vendor_id=>x_vendor_id,
     x_party_id=>x_party_id);
DBMS_OUTPUT.put_line('creating vendor id:'||x_vendor_id||',party id:'||x_party_id);
if x_return_status!='S' then
DBMS_OUTPUT.put_line('x_msg_count = ' || TO_CHAR(x_msg_count));
DBMS_OUTPUT.put_line(SUBSTR('x_msg_data = ' || x_msg_data, 1, 255));
IF x_msg_count > 1 then
FOR i IN 1 .. x_msg_count loop
DBMS_OUTPUT.put_line(i|| '. '|| SUBSTR(fnd_msg_pub.get(p_encoded => fnd_api.g_false),1,255));
END LOOP;
END IF;
rollback;
return;
end if;
--must select from hr_operating_units to see what is the org_id!
p_vendor_site_rec:=p_vendor_site_rec_null;
p_vendor_site_rec.vendor_id:=x_vendor_id; p_vendor_site_rec.vendor_site_code:=1001; p_vendor_site_rec.country:='SG';
p_vendor_site_rec.address_line1:='NO.22 SUNGEI KADUT WAY'; p_vendor_site_rec.address_line2:='SINGAPORE 728777';
p_vendor_site_rec.terms_id:=p_vendor_rec.terms_id; p_vendor_site_rec.org_id:=121;
p_vendor_site_rec.INVOICE_CURRENCY_CODE:='SGD'; p_vendor_site_rec.PAYMENT_CURRENCY_CODE:='SGD';
begin
select code_combination_id into p_vendor_site_rec.ACCTS_PAY_CODE_COMBINATION_ID from GL_CODE_COMBINATIONS where --LIABILITY
segment1||'-'||segment2||'-'||segment3||'-'||segment4||'-'||segment5||'-'||segment6||'-'||segment7='01-000-210060-00-0000-0000-000';
select code_combination_id into p_vendor_site_rec.PREPAY_CODE_COMBINATION_ID from GL_CODE_COMBINATIONS where --PREPAYMENT
segment1||'-'||segment2||'-'||segment3||'-'||segment4||'-'||segment5||'-'||segment6||'-'||segment7='01-000-150227-00-0000-0000-000';
exception when others then
rollback;
dbms_output.put_line('error not found for comb_id');
return;
end;
--HARCODE
p_vendor_site_rec.purchasing_site_flag:='N'; p_vendor_site_rec.pay_site_flag:='Y'; p_vendor_site_rec.PRIMARY_PAY_SITE_FLAG:='Y';
p_vendor_site_rec.EXT_PAYEE_REC.Exclusive_Pay_Flag:='Y';
p_vendor_site_rec.pay_on_receipt_summary_code:='RECEIPT'; p_vendor_site_rec.create_debit_memo_flag:='N';
p_vendor_site_rec.gapless_inv_num_flag:='N';
begin
select location_id into p_vendor_site_rec.ship_to_location_id from HR_LOCATIONS_ALL where location_code='UBTS MAIN';
exception when others then
rollback;
dbms_output.put_line('error not found for location_code=UBTS_MAIN');
return;
end;
p_vendor_site_rec.BILL_TO_LOCATION_ID:=p_vendor_site_rec.ship_to_location_id;
p_vendor_site_rec.address_style:='SG';
AP_VENDOR_PUB_PKG.create_vendor_site(p_api_version=>1,
     p_init_msg_list=>'T',
     x_return_status=>x_return_status,
     x_msg_count=>x_msg_count,
     x_msg_data=>x_msg_data,
     p_vendor_site_rec=>p_vendor_site_rec,
     x_vendor_site_id=>x_vendor_site_id,
     x_party_site_id=>x_party_site_id,
     x_location_id=>x_location_id);
DBMS_OUTPUT.put_line('creating vendor site id:'||x_vendor_id||',party site id:'||x_party_id||',location_id:'||x_location_id);
if x_return_status!='S' then
DBMS_OUTPUT.put_line('x_msg_count = ' || TO_CHAR(x_msg_count));
DBMS_OUTPUT.put_line(SUBSTR('x_msg_data = ' || x_msg_data, 1, 255));
IF x_msg_count > 1 then
FOR i IN 1 .. x_msg_count loop
DBMS_OUTPUT.put_line(i|| '. '|| SUBSTR(fnd_msg_pub.get(p_encoded => fnd_api.g_false),1,255));
END LOOP;
END IF;
rollback;
return;
end if;

Answer 1

can anyone help me pls...