[Home] [Help]
38:
39: PROCEDURE Get_Doc_Entitity_Data (
40: p_level IN VARCHAR2 ,
41: p_adj_rec OUT NOCOPY ar_adjustments%ROWTYPE ,
42: p_cust_inv_rec OUT NOCOPY ra_customer_trx%ROWTYPE ,
43: p_ctlgd_inv_rec OUT NOCOPY ra_cust_trx_line_gl_dist%ROWTYPE ,
44: p_rule_rec OUT NOCOPY ae_rule_rec_type ,
45: p_ard_rec OUT NOCOPY ar_distributions%ROWTYPE );
46:
51: p_gt_id IN NUMBER DEFAULT NULL);
52: -- Added parameter for Line Level Adjustment
53: PROCEDURE Create_Ae_Lines_ADJ(
54: p_adj_rec IN ar_adjustments%ROWTYPE ,
55: p_cust_inv_rec IN ra_customer_trx%ROWTYPE ,
56: p_ctlgd_inv_rec IN ra_cust_trx_line_gl_dist%ROWTYPE ,
57: p_rule_rec IN ae_rule_rec_type ,
58: p_ard_rec IN ar_distributions%ROWTYPE ,
59: p_from_llca_call IN VARCHAR2 DEFAULT 'N' ,
659: ctinv.bill_to_site_use_id bill_to_site_use_id,
660: ctinv.drawee_id drawee_id,
661: ctinv.drawee_site_use_id drawee_site_use_id
662: from ar_adjustments adj,
663: ra_customer_trx ctinv
664: where adj.adjustment_id = g_ae_doc_rec.source_id_old
665: and adj.status = 'A'
666: and g_ae_doc_rec.source_table = 'ADJ'
667: and adj.customer_trx_id = ctinv.customer_trx_id;
668:
669: l_ael_line_rec ae_line_rec_type;
670: l_ael_empty_line_rec ae_line_rec_type;
671: i BINARY_INTEGER := 1;
672: l_cust_inv_rec ra_customer_trx%ROWTYPE;
673: l_customer_trx_id NUMBER;
674: l_amount NUMBER;
675: l_acctd_amount NUMBER;
676: --{3377004
799:
800: --{3377004
801: IF l_index <> 0 THEN
802: FORALL m IN l_ctl_rem_amt.customer_trx_line_id.FIRST .. l_ctl_rem_amt.customer_trx_line_id.LAST
803: UPDATE ra_customer_trx_lines
804: SET AMOUNT_DUE_REMAINING = AMOUNT_DUE_REMAINING + l_ctl_rem_amt.amount_due_remaining(m),
805: ACCTD_AMOUNT_DUE_REMAINING = ACCTD_AMOUNT_DUE_REMAINING + l_ctl_rem_amt.acctd_amount_due_remaining(m),
806: CHRG_AMOUNT_REMAINING = CHRG_AMOUNT_REMAINING + l_ctl_rem_amt.chrg_amount_remaining(m),
807: CHRG_ACCTD_AMOUNT_REMAINING = CHRG_ACCTD_AMOUNT_REMAINING + l_ctl_rem_amt.chrg_acctd_amount_remaining(m)
890: * ======================================================================*/
891: PROCEDURE Get_Doc_Entitity_Data (
892: p_level IN VARCHAR2 ,
893: p_adj_rec OUT NOCOPY ar_adjustments%ROWTYPE ,
894: p_cust_inv_rec OUT NOCOPY ra_customer_trx%ROWTYPE ,
895: p_ctlgd_inv_rec OUT NOCOPY ra_cust_trx_line_gl_dist%ROWTYPE ,
896: p_rule_rec OUT NOCOPY ae_rule_rec_type ,
897: p_ard_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
898:
1021: p_rule_rec.act_vat_tax_id2
1022: from ar_adjustments adj ,
1023: ar_receivables_trx rt ,
1024: ar_rec_trx_le_details rtd ,
1025: ra_customer_trx ctinv ,
1026: ra_cust_trx_line_gl_dist ctlgdinv
1027: where adj.adjustment_id = g_ae_doc_rec.source_id
1028: and adj.status = 'A' --only approved adjustments
1029: and adj.receivables_trx_id = rt.receivables_trx_id
1138: p_rule_rec.act_tax_non_rec_ccid2 ,
1139: p_rule_rec.act_vat_tax_id2
1140: from ar_adjustments adj ,
1141: ar_receivables_trx rt ,
1142: ra_customer_trx ctinv ,
1143: ra_cust_trx_line_gl_dist ctlgdinv
1144: where adj.adjustment_id = g_ae_doc_rec.source_id
1145: and adj.status = 'A' --only approved adjustments
1146: and adj.receivables_trx_id = rt.receivables_trx_id
1372: p_from_llca_call IN VARCHAR2 DEFAULT 'N',
1373: p_gt_id IN NUMBER DEFAULT NULL) IS
1374:
1375: l_adj_rec ar_adjustments%ROWTYPE ;
1376: l_cust_inv_rec ra_customer_trx%ROWTYPE ;
1377: l_ctlgd_inv_rec ra_cust_trx_line_gl_dist%ROWTYPE ;
1378: l_rule_rec ae_rule_rec_type ;
1379: l_ard_rec ar_distributions%ROWTYPE ;
1380:
1445: | p_ard_rec Distributions record used by Bills Receivable
1446: * ======================================================================*/
1447: PROCEDURE Create_Ae_Lines_ADJ(
1448: p_adj_rec IN ar_adjustments%ROWTYPE ,
1449: p_cust_inv_rec IN ra_customer_trx%ROWTYPE ,
1450: p_ctlgd_inv_rec IN ra_cust_trx_line_gl_dist%ROWTYPE ,
1451: p_rule_rec IN ae_rule_rec_type ,
1452: p_ard_rec IN ar_distributions%ROWTYPE ,
1453: p_from_llca_call IN VARCHAR2 DEFAULT 'N' ,