531: -----------------------------------------------------------------------------
532:
533: IF (l_ae_err_rec.l_err_num IS NULL OR l_ae_err_rec.l_err_num = 0) THEN
534: IF (l_ae_line_rec_tbl.EXISTS(1)) THEN
535: CSTPALBR.insert_ae_lines(
536: l_ae_txn_rec,
537: l_ae_line_rec_tbl,
538: l_ae_err_rec);
539: END IF;
606: || ' transaction_id: ' || i_ae_txn_rec.transaction_id);
607: END IF;
608:
609: l_ae_line_tbl := CSTPALTY.cst_ae_line_tbl_type();
610: --l_ae_line_tbl := CSTPALBR.cst_ae_line_tbl_type();
611:
612: -- Initialize local variables.
613: -- ---------------------------
614: l_err_rec.l_err_num := 0;
991: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
992: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
993: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
994: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
995: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
996: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
997: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
998: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
999: ) IS
992: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
993: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
994: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
995: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
996: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
997: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
998: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
999: ) IS
1000: l_exp_sub NUMBER;
993: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
994: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
995: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
996: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
997: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
998: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
999: ) IS
1000: l_exp_sub NUMBER;
1001: l_exp_acct NUMBER;
994: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
995: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
996: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
997: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
998: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
999: ) IS
1000: l_exp_sub NUMBER;
1001: l_exp_acct NUMBER;
1002: l_exp_job NUMBER;
1005: l_rep_sched_id NUMBER;
1006: l_cost NUMBER;
1007: l_err_rec CSTPALTY.cst_ae_err_rec_type;
1008: l_acct_rec CSTPALTY.cst_ae_acct_rec_type;
1009: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
1010: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
1011: l_acct_class VARCHAR2(10);
1012: l_acct_line_type NUMBER;
1013: l_elemental NUMBER;
1006: l_cost NUMBER;
1007: l_err_rec CSTPALTY.cst_ae_err_rec_type;
1008: l_acct_rec CSTPALTY.cst_ae_acct_rec_type;
1009: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
1010: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
1011: l_acct_class VARCHAR2(10);
1012: l_acct_line_type NUMBER;
1013: l_elemental NUMBER;
1014: l_dr_flag BOOLEAN;
5703: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
5704: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
5705: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
5706: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
5707: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
5708: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
5709: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
5710: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
5711: ) IS
5704: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
5705: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
5706: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
5707: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
5708: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
5709: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
5710: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
5711: ) IS
5712: l_cost NUMBER;
5705: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
5706: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
5707: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
5708: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
5709: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
5710: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
5711: ) IS
5712: l_cost NUMBER;
5713: l_var NUMBER;
5706: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
5707: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
5708: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
5709: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
5710: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
5711: ) IS
5712: l_cost NUMBER;
5713: l_var NUMBER;
5714: l_var_total NUMBER;
5718: l_loop_count NUMBER := 0;
5719: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
5720: l_acct_rec CSTPALTY.cst_ae_acct_rec_type;
5721: l_err_rec CSTPALTY.cst_ae_err_rec_type;
5722: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
5723: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
5724: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
5725: l_txn_ce_bal_account NUMBER; -- Bug 4586534
5726: l_stmt_num NUMBER;
5719: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
5720: l_acct_rec CSTPALTY.cst_ae_acct_rec_type;
5721: l_err_rec CSTPALTY.cst_ae_err_rec_type;
5722: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
5723: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
5724: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
5725: l_txn_ce_bal_account NUMBER; -- Bug 4586534
5726: l_stmt_num NUMBER;
5727: l_value_change_flag NUMBER;
5720: l_acct_rec CSTPALTY.cst_ae_acct_rec_type;
5721: l_err_rec CSTPALTY.cst_ae_err_rec_type;
5722: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
5723: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
5724: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
5725: l_txn_ce_bal_account NUMBER; -- Bug 4586534
5726: l_stmt_num NUMBER;
5727: l_value_change_flag NUMBER;
5728: l_onhand_var NUMBER;
7344: -- ===================================================================
7345: procedure offset_accounts(
7346: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
7347: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
7348: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
7349: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
7350: i_acct_line_type IN NUMBER,
7351: i_elemental IN NUMBER,
7352: i_ovhd_absp IN NUMBER,
7345: procedure offset_accounts(
7346: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
7347: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
7348: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
7349: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
7350: i_acct_line_type IN NUMBER,
7351: i_elemental IN NUMBER,
7352: i_ovhd_absp IN NUMBER,
7353: i_dr_flag IN BOOLEAN,
7353: i_dr_flag IN BOOLEAN,
7354: i_ae_acct_rec IN CSTPALTY.cst_ae_acct_rec_type,
7355: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7356: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
7357: --i_ae_acct_rec IN CSTPALBR.cst_ae_acct_rec_type,
7358: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7359: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
7360: )IS
7361: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
7354: i_ae_acct_rec IN CSTPALTY.cst_ae_acct_rec_type,
7355: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7356: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
7357: --i_ae_acct_rec IN CSTPALBR.cst_ae_acct_rec_type,
7358: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7359: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
7360: )IS
7361: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
7362: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
7355: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7356: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
7357: --i_ae_acct_rec IN CSTPALBR.cst_ae_acct_rec_type,
7358: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7359: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
7360: )IS
7361: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
7362: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
7363: l_ele_exist NUMBER;
7358: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7359: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
7360: )IS
7361: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
7362: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
7363: l_ele_exist NUMBER;
7364: l_cost NUMBER;
7365: l_stmt_num NUMBER := 0;
7366: l_err_rec CSTPALTY.cst_ae_err_rec_type;
7364: l_cost NUMBER;
7365: l_stmt_num NUMBER := 0;
7366: l_err_rec CSTPALTY.cst_ae_err_rec_type;
7367: l_acct_rec CSTPALTY.cst_ae_acct_rec_type;
7368: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
7369: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
7370: process_error EXCEPTION;
7371: no_txn_det_error EXCEPTION;
7372: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.offset_accounts';
7365: l_stmt_num NUMBER := 0;
7366: l_err_rec CSTPALTY.cst_ae_err_rec_type;
7367: l_acct_rec CSTPALTY.cst_ae_acct_rec_type;
7368: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
7369: --l_acct_rec CSTPALBR.cst_ae_acct_rec_type;
7370: process_error EXCEPTION;
7371: no_txn_det_error EXCEPTION;
7372: l_api_name CONSTANT VARCHAR2(30) := 'CSTPAPBR.offset_accounts';
7373: BEGIN
7717: -- ===================================================================
7718: PROCEDURE insert_account(
7719: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
7720: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
7721: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
7722: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
7723: i_dr_flag IN BOOLEAN,
7724: i_ae_line_rec IN CSTPALTY.cst_ae_line_rec_type,
7725: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7718: PROCEDURE insert_account(
7719: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
7720: i_ae_curr_rec IN CSTPALTY.cst_ae_curr_rec_type,
7721: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
7722: --i_ae_curr_rec IN CSTPALBR.cst_ae_curr_rec_type,
7723: i_dr_flag IN BOOLEAN,
7724: i_ae_line_rec IN CSTPALTY.cst_ae_line_rec_type,
7725: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7726: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type)
7723: i_dr_flag IN BOOLEAN,
7724: i_ae_line_rec IN CSTPALTY.cst_ae_line_rec_type,
7725: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7726: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type)
7727: --i_ae_line_rec IN CSTPALBR.cst_ae_line_rec_type,
7728: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7729: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type)
7730: IS
7731: l_err_rec CSTPALTY.cst_ae_err_rec_type;
7724: i_ae_line_rec IN CSTPALTY.cst_ae_line_rec_type,
7725: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7726: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type)
7727: --i_ae_line_rec IN CSTPALBR.cst_ae_line_rec_type,
7728: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7729: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type)
7730: IS
7731: l_err_rec CSTPALTY.cst_ae_err_rec_type;
7732: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
7725: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7726: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type)
7727: --i_ae_line_rec IN CSTPALBR.cst_ae_line_rec_type,
7728: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7729: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type)
7730: IS
7731: l_err_rec CSTPALTY.cst_ae_err_rec_type;
7732: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
7733: l_entered_value NUMBER;
7728: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7729: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type)
7730: IS
7731: l_err_rec CSTPALTY.cst_ae_err_rec_type;
7732: --l_err_rec CSTPALBR.cst_ae_err_rec_type;
7733: l_entered_value NUMBER;
7734: l_accounted_value NUMBER;
7735: l_exp_sub1 NUMBER;
7736: l_stmt_num NUMBER := 0;
7960: -- ===================================================================
7961: procedure balance_account (
7962: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7963: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type)
7964: --(l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7965: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type)
7966: IS
7967: l_ent_value NUMBER := 0;
7968: l_acc_value NUMBER := 0;
7961: procedure balance_account (
7962: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
7963: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type)
7964: --(l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
7965: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type)
7966: IS
7967: l_ent_value NUMBER := 0;
7968: l_acc_value NUMBER := 0;
7969: l_last_rec NUMBER;
8029: -- ===================================================================
8030: -- Controls line creation for WIP transactions.
8031: -- ===================================================================
8032: procedure create_wip_ae_lines(
8033: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
8034: --o_ae_line_rec_tbl OUT CSTPALBR.cst_ae_line_tbl_type,
8035: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
8036: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
8037: o_ae_line_rec_tbl OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
8030: -- Controls line creation for WIP transactions.
8031: -- ===================================================================
8032: procedure create_wip_ae_lines(
8033: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
8034: --o_ae_line_rec_tbl OUT CSTPALBR.cst_ae_line_tbl_type,
8035: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
8036: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
8037: o_ae_line_rec_tbl OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
8038: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
8031: -- ===================================================================
8032: procedure create_wip_ae_lines(
8033: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
8034: --o_ae_line_rec_tbl OUT CSTPALBR.cst_ae_line_tbl_type,
8035: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
8036: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
8037: o_ae_line_rec_tbl OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
8038: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
8039: ) IS
8040: l_ae_line_tbl CSTPALTY.cst_ae_line_tbl_type := CSTPALTY.cst_ae_line_tbl_type();
8041: l_ae_curr_rec CSTPALTY.cst_ae_curr_rec_type;
8042: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
8043: l_ae_err_rec CSTPALTY.cst_ae_err_rec_type;
8044: --l_ae_line_tbl CSTPALBR.cst_ae_line_tbl_type := CSTPALBR.cst_ae_line_tbl_type();
8045: --l_ae_curr_rec CSTPALBR.cst_ae_curr_rec_type;
8046: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
8047: --l_ae_err_rec CSTPALBR.cst_ae_err_rec_type;
8048: l_acct_id1 NUMBER;
8041: l_ae_curr_rec CSTPALTY.cst_ae_curr_rec_type;
8042: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
8043: l_ae_err_rec CSTPALTY.cst_ae_err_rec_type;
8044: --l_ae_line_tbl CSTPALBR.cst_ae_line_tbl_type := CSTPALBR.cst_ae_line_tbl_type();
8045: --l_ae_curr_rec CSTPALBR.cst_ae_curr_rec_type;
8046: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
8047: --l_ae_err_rec CSTPALBR.cst_ae_err_rec_type;
8048: l_acct_id1 NUMBER;
8049: l_acct_id2 NUMBER;
8042: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
8043: l_ae_err_rec CSTPALTY.cst_ae_err_rec_type;
8044: --l_ae_line_tbl CSTPALBR.cst_ae_line_tbl_type := CSTPALBR.cst_ae_line_tbl_type();
8045: --l_ae_curr_rec CSTPALBR.cst_ae_curr_rec_type;
8046: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
8047: --l_ae_err_rec CSTPALBR.cst_ae_err_rec_type;
8048: l_acct_id1 NUMBER;
8049: l_acct_id2 NUMBER;
8050: l_dr_flag BOOLEAN;
8043: l_ae_err_rec CSTPALTY.cst_ae_err_rec_type;
8044: --l_ae_line_tbl CSTPALBR.cst_ae_line_tbl_type := CSTPALBR.cst_ae_line_tbl_type();
8045: --l_ae_curr_rec CSTPALBR.cst_ae_curr_rec_type;
8046: --l_ae_line_rec CSTPALBR.cst_ae_line_rec_type;
8047: --l_ae_err_rec CSTPALBR.cst_ae_err_rec_type;
8048: l_acct_id1 NUMBER;
8049: l_acct_id2 NUMBER;
8050: l_dr_flag BOOLEAN;
8051: l_stmt_num NUMBER;
8474: procedure get_accts(
8475: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
8476: i_ae_line_rec IN CSTPALTY.cst_ae_line_rec_type,
8477: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
8478: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
8479: --i_ae_line_rec IN CSTPALBR.cst_ae_line_rec_type,
8480: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
8481: o_acct_id1 OUT NOCOPY NUMBER,
8482: o_acct_id2 OUT NOCOPY NUMBER,
8475: i_ae_txn_rec IN CSTPALTY.cst_ae_txn_rec_type,
8476: i_ae_line_rec IN CSTPALTY.cst_ae_line_rec_type,
8477: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
8478: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
8479: --i_ae_line_rec IN CSTPALBR.cst_ae_line_rec_type,
8480: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
8481: o_acct_id1 OUT NOCOPY NUMBER,
8482: o_acct_id2 OUT NOCOPY NUMBER,
8483: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
8476: i_ae_line_rec IN CSTPALTY.cst_ae_line_rec_type,
8477: l_ae_line_tbl IN OUT NOCOPY CSTPALTY.cst_ae_line_tbl_type,
8478: --i_ae_txn_rec IN CSTPALBR.cst_ae_txn_rec_type,
8479: --i_ae_line_rec IN CSTPALBR.cst_ae_line_rec_type,
8480: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
8481: o_acct_id1 OUT NOCOPY NUMBER,
8482: o_acct_id2 OUT NOCOPY NUMBER,
8483: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
8484: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
8480: --l_ae_line_tbl IN OUT CSTPALBR.cst_ae_line_tbl_type,
8481: o_acct_id1 OUT NOCOPY NUMBER,
8482: o_acct_id2 OUT NOCOPY NUMBER,
8483: o_ae_err_rec OUT NOCOPY CSTPALTY.cst_ae_err_rec_type
8484: --o_ae_err_rec OUT CSTPALBR.cst_ae_err_rec_type
8485: ) IS
8486: l_stmt_num NUMBER;
8487: l_entity_type NUMBER;
8488: l_wip_entity_id NUMBER;
8489: l_line_id NUMBER;
8490: l_res_id NUMBER;
8491: l_acct_exist NUMBER;
8492: l_ae_err_rec CSTPALTY.cst_ae_err_rec_type;
8493: --l_ae_err_rec CSTPALBR.cst_ae_err_rec_type;
8494: no_dj_acct_error EXCEPTION;
8495: no_abs_acct_error EXCEPTION;
8496: no_wrs_acct_error EXCEPTION;
8497: no_wfs_acct_error EXCEPTION;