Generating Supplier Liability Account based on the Supplier Classification

Question

Hi ,
In R12 I have a custom requirement like follows. Need to generate the Supplier Liability Account based on the Supplier Classification. When we select supplier type then by default liabilty account value will be the value from supplier--> setup --> options --> fianancial otpions --> accounting tab (GL -accounts liability value).
so when we change the supplier type the liability account should changed based on that classification value.
I have code in 11i where custom.pll was modified to acheive this, but how to implement this in R12 as supplier form is OAF based.
the code from custom.pll for this is
procedure event(event_name varchar2)
is
lCurrBlock varchar2(30);
lVendorType varchar2(30);
lDefaultCCID number(15);
lCustomCCID number(15);
cursor customCC(x_vendor_type varchar2,x_default_cc_id number) is
               select
               cst.code_combination_id
               from
               fnd_lookup_values vty,
               gl_code_combinations dfl,
               gl_code_combinations cst
               where 1=1
               and vty.view_application_id = 201
               and vty.lookup_type = 'VENDOR TYPE'
               and vty.language = 'US'
               and vty.lookup_code = x_vendor_type
               and dfl.code_combination_id = x_default_cc_id
               and dfl.segment1 = cst.segment1
               and vty.tag = cst.segment2 --account no
               and dfl.segment3 = cst.segment3
               and dfl.segment4 = cst.segment4
               and dfl.segment5 = cst.segment5
               and (dfl.segment6 = cst.segment6 or (dfl.segment6 is null and cst.segment6 is null))
               and (dfl.segment7 = cst.segment7 or (dfl.segment7 is null and cst.segment7 is null))
               and (dfl.segment8 = cst.segment8 or (dfl.segment8 is null and cst.segment8 is null))
               and (dfl.segment9 = cst.segment9 or (dfl.segment9 is null and cst.segment9 is null))
               and (dfl.segment10 = cst.segment10 or (dfl.segment10 is null and cst.segment10 is null))
               and (dfl.segment11 = cst.segment11 or (dfl.segment11 is null and cst.segment11 is null))
               and (dfl.segment12 = cst.segment12 or (dfl.segment12 is null and cst.segment12 is null))
               and (dfl.segment13 = cst.segment13 or (dfl.segment13 is null and cst.segment13 is null))
               and (dfl.segment14 = cst.segment14 or (dfl.segment14 is null and cst.segment14 is null))
               and (dfl.segment15 = cst.segment15 or (dfl.segment15 is null and cst.segment15 is null))
               and (dfl.segment16 = cst.segment16 or (dfl.segment16 is null and cst.segment16 is null))
               and (dfl.segment17 = cst.segment17 or (dfl.segment17 is null and cst.segment17 is null))
               and (dfl.segment18 = cst.segment18 or (dfl.segment18 is null and cst.segment18 is null))
               and (dfl.segment19 = cst.segment19 or (dfl.segment19 is null and cst.segment19 is null))
               and (dfl.segment20 = cst.segment20 or (dfl.segment20 is null and cst.segment20 is null))
               and (dfl.segment21 = cst.segment21 or (dfl.segment21 is null and cst.segment21 is null))
               and (dfl.segment22 = cst.segment22 or (dfl.segment22 is null and cst.segment22 is null))
               and (dfl.segment23 = cst.segment23 or (dfl.segment23 is null and cst.segment23 is null))
               and (dfl.segment24 = cst.segment24 or (dfl.segment24 is null and cst.segment24 is null))
               and (dfl.segment25 = cst.segment25 or (dfl.segment25 is null and cst.segment25 is null))
               and (dfl.segment26 = cst.segment26 or (dfl.segment26 is null and cst.segment26 is null))
               and (dfl.segment27 = cst.segment27 or (dfl.segment27 is null and cst.segment27 is null))
               and (dfl.segment28 = cst.segment28 or (dfl.segment28 is null and cst.segment28 is null))
               and (dfl.segment29 = cst.segment29 or (dfl.segment29 is null and cst.segment29 is null))
               and (dfl.segment30 = cst.segment30 or (dfl.segment30 is null and cst.segment30 is null));
begin
     if name_in('SYSTEM.CURRENT_FORM') != 'APXVDMVD' then
          return;
     end if;
     lCurrBlock := name_in('SYSTEM.CURSOR_BLOCK');
     if event_name = 'WHEN-NEW-FORM-INSTANCE' then
     --     app_item_property.set_property('VNDR.VENDOR_TYPE_DISP_MIR',required,property_true);
          copy(name_in('WORLD.ACCTS_PAY_CODE_COMBINATION_ID'),'GLOBAL.XX_APXVDMVD_ACCTS_PAY_CC_ID');
     elsif lCurrBlock = 'VNDR' and event_name in ('WHEN-VALIDATE-RECORD','WHEN-NEW-RECORD-INSTANCE') then
     open customCC(name_in('VNDR.VENDOR_TYPE_LOOKUP_CODE'),name_in('GLOBAL.XX_APXVDMVD_ACCTS_PAY_CC_ID'));
     fetch customCC into lCustomCCID;
     close customCC;
     if lCustomCCID is null then
          copy(name_in('GLOBAL.XX_APXVDMVD_ACCTS_PAY_CC_ID'),'WORLD.ACCTS_PAY_CODE_COMBINATION_ID');
     else
     copy(lCustomCCID,'WORLD.ACCTS_PAY_CODE_COMBINATION_ID');
     end if;
     end if;
end;
end;
please help

Answer 1

Hi,
While you can refer to the SLA guide, for quick pointers what you need to do is:
1. Identify the transaction types and associated events for that transaction.
2. Build an accounting rule for the above.
An example would be AP invoice validation or application of prepayments.
The SLA guide provides step by step details on the above.
Good Luck !!!
Regards,
Udit