1: PACKAGE BODY jl_br_ar_generate_debit_memo AS
2: /*$Header: jlbrrdmb.pls 120.18.12010000.7 2010/04/27 13:22:57 mkandula ship $*/
3:
4: /************************************************************************/
5: /* Function get_account */
415: INTO X_new_cust_trx_id
416: FROM sys.dual;
417: */
418:
419: X_trx_number := jl_br_ar_generate_debit_memo.generate_interest_DM_number(X_inv_cust_trx_id,
420: X_payment_schedule_id);
421:
422: SELECT to_number(global_attribute20)
423: INTO X_termid
781: SELECT chart_of_accounts_id into x_struct_num FROM gl_sets_of_books
782: WHERE set_of_books_id = x_set_of_books_id;
783:
784: /*
785: X_code_id := jl_br_ar_generate_debit_memo.get_account(X_account_type,X_cust_trx_type_id, X_salesrep_id,x_int_revenue_ccid,x_struct_num,x_error_code, x_error_msg,x_token); */
786:
787: -- Bug#7718063 Start
788:
789: X_code_id := jl_br_ar_generate_debit_memo.get_account(X_account_type,X_cust_trx_type_id, X_salesrep_id,x_int_revenue_ccid,x_billto_site_use_id,x_struct_num,x_error_code, x_error_msg,x_token);
785: X_code_id := jl_br_ar_generate_debit_memo.get_account(X_account_type,X_cust_trx_type_id, X_salesrep_id,x_int_revenue_ccid,x_struct_num,x_error_code, x_error_msg,x_token); */
786:
787: -- Bug#7718063 Start
788:
789: X_code_id := jl_br_ar_generate_debit_memo.get_account(X_account_type,X_cust_trx_type_id, X_salesrep_id,x_int_revenue_ccid,x_billto_site_use_id,x_struct_num,x_error_code, x_error_msg,x_token);
790:
791: -- Bug#7718063 End
792:
793: IF X_code_id is NULL THEN
1093: FROM ra_customer_trx, fnd_currencies_vl
1094: WHERE customer_trx_id = X_original_customer_trx_id
1095: AND invoice_currency_code = currency_code;
1096:
1097: jl_br_ar_generate_debit_memo.ins_ra_batches ( X_batch_source_id,
1098: X_invoice_amount,
1099: X_invoice_currency_code,
1100: X_user_id,
1101: X_batch_id );
1100: X_user_id,
1101: X_batch_id );
1102:
1103:
1104: jl_br_ar_generate_debit_memo.ins_ra_customer_trx (
1105: X_original_customer_trx_id,
1106: X_new_customer_trx_id,
1107: X_set_of_books_id,
1108: X_last_login,
1121: X_batch_id,
1122: X_interest_DM_date
1123: );
1124:
1125: jl_br_ar_generate_debit_memo.ins_ra_customer_trx_lines (
1126: X_new_customer_trx_id,
1127: X_invoice_amount,
1128: X_set_of_books_id,
1129: X_user_id,
1130: X_last_login,
1131: X_new_customer_trx_line_id
1132: );
1133: IF X_salesrep_id IS NOT NULL THEN
1134: jl_br_ar_generate_debit_memo.ins_ra_cust_trx_line_salesreps (
1135: X_new_customer_trx_id,
1136: X_new_customer_trx_line_id,
1137: X_salesrep_id,
1138: X_user_id,
1140: X_invoice_amount
1141: );
1142: END IF;
1143:
1144: jl_br_ar_generate_debit_memo.ins_ra_cust_trx_line_gl_dist (
1145: X_new_customer_trx_id,
1146: X_new_customer_trx_line_id,
1147: X_invoice_amount,
1148: X_set_of_books_id,
1162: x_error_msg,
1163: x_token
1164: );
1165:
1166: jl_br_ar_generate_debit_memo.ins_ra_cust_trx_line_gl_dist (
1167: X_new_customer_trx_id,
1168: X_new_customer_trx_line_id,
1169: X_invoice_amount,
1170: X_set_of_books_id,
1184: x_error_msg,
1185: x_token
1186: );
1187:
1188: jl_br_ar_generate_debit_memo.ins_ar_payment_schedules (
1189: X_user_id,
1190: X_last_login,
1191: X_invoice_amount,
1192: X_invoice_currency_code,
1199: X_interest_DM_date
1200: );
1201:
1202: /* SLA KI - bug 4301543 */
1203: jl_br_ar_generate_debit_memo.sla_create_event (
1204: X_new_customer_trx_id
1205: );
1206:
1207: X_exit := '0';
1319:
1320: END validate_and_default_gl_date;
1321:
1322:
1323: END jl_br_ar_generate_debit_memo;