Loans API

DECLARE
l_return_status varchar2(1);
l_msg_count number;
l_msg_data varchar2(2000);
l_loan_id NUMBER;
l_loan_number VARCHAR2(60);
l_index number := 0;
l_indexNo number := 1;
l_msg varchar2(4000) := null;
L_RESOURCE_ID  NUMBER:=NULL;
l_LOAN_DTL_REC LNS_LOAN_PUB.Loan_Details_Rec_Type;
L_LOAN_LINE_LIST   LNS_LOAN_PUB.Loan_Lines_List_Type;
BEGIN
Fnd_global.apps_initialize(1011864, 25323, 206);
MO_GLOBAL.INIT('LNS');
MO_GLOBAL.set_policy_context('S',204);
l_LOAN_DTL_REC.product_id:=10011;
l_LOAN_DTL_REC.LOAN_NUMBER :='api001';
l_LOAN_DTL_REC.LOAN_DESCRIPTION :='API Created direct ';
-- set LOAN_ASSIGNED_TO
select resource_id into L_RESOURCE_ID
--l_LOAN_DTL_REC.LOAN_ASSIGNED_TO
from jtf_rs_resource_extns
where UPPER(SOURCE_FIRST_NAME) = upper('tunde')
and category = 'EMPLOYEE'
and rownum <2;
l_LOAN_DTL_REC.LOAN_ASSIGNED_TO:=L_RESOURCE_ID ;
l_LOAN_DTL_REC.legal_entity_id := null;
l_LOAN_DTL_REC.primary_borrower_party_id := 1006;
l_LOAN_DTL_REC.CUST_ACCOUNT_ID := 1006;
l_LOAN_DTL_REC.BILL_TO_ACCT_SITE_ID := 1826;
l_LOAN_DTL_REC.contact_rel_party_id := null;
l_LOAN_DTL_REC.requested_amount :=10000;
l_LOAN_DTL_REC.LOAN_PURPOSE_CODE :=NULL;
l_LOAN_DTL_REC.credit_review_flag := null;
l_LOAN_DTL_REC.EXCHANGE_RATE_TYPE := null;
l_LOAN_DTL_REC.EXCHANGE_RATE := null;
l_LOAN_DTL_REC.EXCHANGE_DATE := sysdate;
l_LOAN_DTL_REC.LOAN_APPLICATION_DATE := sysdate;
l_LOAN_DTL_REC.loan_start_date := to_date('01-01-2009','dd-mm-yyyy');
l_LOAN_DTL_REC.open_loan_start_date := null;
l_LOAN_DTL_REC.open_to_term_event := null;
-- set trx_type_id
select unique cust_trx_type_id
into l_LOAN_DTL_REC.trx_type_id
from ra_cust_trx_types_all
--where name = 'Loan Principal' and org_id = 204;\
where name ='Invoice'; --and org_id =82;
l_LOAN_DTL_REC.LOAN_TERM := null;
--l_LOAN_DTL_REC.COLLATERAL_PERCENT := null;
l_LOAN_DTL_REC.LOAN_TERM_PERIOD := null;
l_LOAN_DTL_REC.balloon_payment_type := null;
l_LOAN_DTL_REC.balloon_payment_amount := null;
l_LOAN_DTL_REC.balloon_term := null;
l_LOAN_DTL_REC.LOAN_SUBTYPE := null;
--l_LOAN_DTL_REC.CUSTOM_PAYMENTS_FLAG := null;
--l_LOAN_DTL_REC.FORGIVENESS_FLAG := null;
l_LOAN_DTL_REC.INDEX_RATE_ID := null;
--l_LOAN_DTL_REC.DAY_COUNT_METHOD := null;
l_LOAN_DTL_REC.LOAN_PAYMENT_FREQUENCY := null;
l_LOAN_DTL_REC.open_loan_term_period := null;
l_LOAN_DTL_REC.term_index_date:=sysdate;
l_LOAN_DTL_REC.open_index_date:=sysdate;
l_LOAN_DTL_REC.term_index_rate:=null;
l_LOAN_DTL_REC.term_spread:=null;
l_LOAN_DTL_REC.open_index_rate:=null;
l_LOAN_DTL_REC.open_spread:=null;
LNS_LOAN_PUB.CREATE_LOAN(
P_API_VERSION => 1.0,
P_COMMIT => 'F',
P_Loan_Details_Rec => l_LOAN_DTL_REC,
P_Loan_Lines_Rec   => L_LOAN_LINE_LIST,--LNS_LOAN_PUB.Loan_Lines_List_Type,
P_Application_id => 206,
P_Created_by_module => 'API',
X_LOAN_ID => l_loan_id,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count
--X_MSG_DATA => l_msg_data
);
dbms_output.put_line ( 'l_return_status ' || l_return_status);
dbms_output.put_line ( 'l_msg_count ' || l_msg_count);
IF l_return_status <> 'S' THEN
dbms_output.put_line('Errors:');
while (l_indexNo <= l_msg_Count ) loop
fnd_msg_pub.get(l_indexNo, 'F', l_msg, l_index);
dbms_output.put_line(l_msg);
l_indexNo := l_indexNo + 1;
End Loop;
ELSE
commit;
dbms_output.put_line('Success!') ;
dbms_output.put_line('New loan_id: ' || l_loan_id);
dbms_output.put_line('New loan number: ' ||
l_LOAN_DTL_REC.loan_number);
END IF;
END;