2340: CURSOR l_trx_total_cursor(p_reversed_batch_id NUMBER) IS
2341: SELECT trx_id,
2342: sum(init_amount_cr),
2343: sum(init_amount_dr)
2344: FROM fun_trx_headers
2345: WHERE batch_id = p_reversed_batch_id
2346: GROUP by trx_id;
2347:
2348: BEGIN
2387: AND original_batch_id IS NULL
2388: AND reversed_batch_id IS NULL
2389: AND status = 'COMPLETE'
2390: AND NOT EXISTS (SELECT 'Transaction already reversed'
2391: FROM fun_trx_headers hdrs
2392: WHERE hdrs.batch_id = p_batch_id
2393: AND (hdrs.original_trx_id IS NOT NULL
2394: OR
2395: hdrs.reversed_trx_id IS NOT NULL));*/
2400: AND reversed_batch_id IS NULL
2401: AND(
2402: (status in ('COMPLETE')
2403: AND NOT EXISTS (SELECT 'Transaction already reversed'
2404: FROM fun_trx_headers hdrs
2405: WHERE hdrs.batch_id = p_batch_id
2406: AND (hdrs.original_trx_id IS NOT NULL
2407: OR
2408: hdrs.reversed_trx_id IS NOT NULL))
2408: hdrs.reversed_trx_id IS NOT NULL))
2409: ) OR
2410: (
2411: NOT EXISTS (SELECT 'Transaction not reversed'
2412: FROM fun_trx_headers hdrs
2413: WHERE hdrs.batch_id = p_batch_id
2414: AND (hdrs.original_trx_id IS NOT NULL
2415: OR hdrs.reversed_trx_id IS NOT NULL)
2416: AND hdrs.status in ('COMPLETE', 'APPROVED'))
2573: auto_proration_flag
2574: FROM fun_trx_batches
2575: WHERE batch_id = p_batch_id;
2576: -- Insert into transaction with status sent, ignore the rejected ones
2577: INSERT INTO fun_trx_headers(TRX_ID,
2578: TRX_NUMBER,
2579: INITIATOR_ID,
2580: RECIPIENT_ID,
2581: TO_LE_ID,
2619: CREATION_DATE,
2620: LAST_UPDATED_BY,
2621: LAST_UPDATE_DATE,
2622: LAST_UPDATE_LOGIN)
2623: SELECT fun_trx_headers_s.nextval,
2624: TRX_NUMBER, -- Problem: what to use
2625: INITIATOR_ID,
2626: RECIPIENT_ID,
2627: TO_LE_ID,
2669: sysdate,
2670: fnd_global.user_id,
2671: sysdate,
2672: fnd_global.user_id
2673: FROM fun_trx_headers
2674: WHERE batch_id = p_batch_id
2675: AND STATUS in ('COMPLETE', 'APPROVED'); -- Bug: 6625360. AND STATUS = 'COMPLETE';
2676:
2677: -- Update reversed_trx_id with fun_trx_headers
2673: FROM fun_trx_headers
2674: WHERE batch_id = p_batch_id
2675: AND STATUS in ('COMPLETE', 'APPROVED'); -- Bug: 6625360. AND STATUS = 'COMPLETE';
2676:
2677: -- Update reversed_trx_id with fun_trx_headers
2678: UPDATE fun_trx_headers hdrs1
2679: SET (reversed_trx_id) = (SELECT trx_id
2680: FROM fun_trx_headers hdrs2
2681: WHERE hdrs2.original_trx_id = hdrs1.trx_id)
2674: WHERE batch_id = p_batch_id
2675: AND STATUS in ('COMPLETE', 'APPROVED'); -- Bug: 6625360. AND STATUS = 'COMPLETE';
2676:
2677: -- Update reversed_trx_id with fun_trx_headers
2678: UPDATE fun_trx_headers hdrs1
2679: SET (reversed_trx_id) = (SELECT trx_id
2680: FROM fun_trx_headers hdrs2
2681: WHERE hdrs2.original_trx_id = hdrs1.trx_id)
2682: WHERE hdrs1.batch_id = p_batch_id;
2676:
2677: -- Update reversed_trx_id with fun_trx_headers
2678: UPDATE fun_trx_headers hdrs1
2679: SET (reversed_trx_id) = (SELECT trx_id
2680: FROM fun_trx_headers hdrs2
2681: WHERE hdrs2.original_trx_id = hdrs1.trx_id)
2682: WHERE hdrs1.batch_id = p_batch_id;
2683:
2684: -- Insert into init_dist
2744: sysdate,
2745: fnd_global.user_id,
2746: sysdate,
2747: fnd_global.user_id
2748: FROM fun_trx_headers headers, fun_trx_lines lines
2749: WHERE headers.batch_id = l_reversed_batch_id
2750: AND headers.original_trx_id = lines.trx_id;
2751:
2752: -- Insert into dist_lines
2819: fnd_global.user_id,
2820: sysdate,
2821: fnd_global.user_id,
2822: reversed_hdrs.trx_id
2823: FROM fun_trx_headers reversed_hdrs,
2824: fun_trx_lines reversed_lines,
2825: --fun_batch_dists reversed_b_dists,
2826: fun_trx_lines orig_lines,
2827: fun_dist_lines orig_dists
2891: CURSOR l_trx_total_cursor(p_reversed_batch_id NUMBER) IS
2892: SELECT trx_id,
2893: sum(init_amount_cr),
2894: sum(init_amount_dr)
2895: FROM fun_trx_headers
2896: WHERE batch_id = p_reversed_batch_id
2897: GROUP by trx_id;
2898:
2899: BEGIN
2908:
2909: --Bug: 15962294. Validate period status for GL date.
2910: SELECT from_le_id, trx_type_id
2911: INTO l_from_le_id, l_trx_type_id
2912: FROM fun_trx_batches txb, fun_trx_headers txh
2913: WHERE txb.batch_id = txh.batch_id
2914: AND txh.trx_id = p_trx_tbl_id(1);
2915:
2916: Is_Init_GL_Date_Valid(x_return_status => l_return_status,
2934: -- Insert into transaction
2935: -- Insert into init_dist
2936: -- Insert into dist_lines
2937: SELECT initiator_id INTO l_initiator_id
2938: FROM fun_trx_headers headers
2939: WHERE headers.trx_id = p_trx_tbl_id(1)
2940: AND headers.reversed_trx_id IS NULL
2941: AND headers.original_trx_id IS NULL
2942: AND headers.status in ('COMPLETE', 'APPROVED');--Bug: 6625360. AND headers.status = 'COMPLETE';
2990: FOR i IN 1..p_trx_tbl_id.COUNT LOOP
2991:
2992: SELECT nvl(h.INIT_AMOUNT_CR,0), nvl(h.INIT_AMOUNT_DR,0)
2993: INTO l_batch_cr, l_batch_dr
2994: FROM fun_trx_headers h
2995: WHERE h.trx_id=p_trx_tbl_id(i);
2996:
2997: l_total_batch_cr:=l_total_batch_cr + l_batch_cr ;
2998: l_total_batch_dr:=l_total_batch_dr + l_batch_dr ;
3090: fnd_global.user_id,
3091: sysdate,
3092: fnd_global.user_id,
3093: batches.auto_proration_flag
3094: FROM fun_trx_batches batches, fun_trx_headers headers
3095: WHERE batches.batch_id = headers.batch_id
3096: AND headers.trx_id = p_trx_tbl_id(1);
3097:
3098: -- Loop the trx_id table and insert reversed txns
3098: -- Loop the trx_id table and insert reversed txns
3099: FOR i IN 1..p_trx_tbl_id.COUNT LOOP
3100:
3101: -- Insert into transaction with status sent
3102: INSERT INTO fun_trx_headers(TRX_ID,
3103: TRX_NUMBER,
3104: INITIATOR_ID,
3105: RECIPIENT_ID,
3106: TO_LE_ID,
3144: CREATION_DATE,
3145: LAST_UPDATED_BY,
3146: LAST_UPDATE_DATE,
3147: LAST_UPDATE_LOGIN)
3148: SELECT fun_trx_headers_s.nextval,
3149: TRX_NUMBER, -- Problem: what to use
3150: INITIATOR_ID,
3151: RECIPIENT_ID,
3152: TO_LE_ID,
3194: sysdate,
3195: fnd_global.user_id,
3196: sysdate,
3197: fnd_global.user_id
3198: FROM fun_trx_headers
3199: WHERE trx_id = p_trx_tbl_id(i)
3200: AND STATUS in ('COMPLETE', 'APPROVED'); --Bug: 6625360. AND STATUS = 'COMPLETE';
3201: -- Update reversed_trx_id with fun_trx_headers
3202: UPDATE fun_trx_headers hdrs1
3197: fnd_global.user_id
3198: FROM fun_trx_headers
3199: WHERE trx_id = p_trx_tbl_id(i)
3200: AND STATUS in ('COMPLETE', 'APPROVED'); --Bug: 6625360. AND STATUS = 'COMPLETE';
3201: -- Update reversed_trx_id with fun_trx_headers
3202: UPDATE fun_trx_headers hdrs1
3203: SET (reversed_trx_id) = (SELECT trx_id
3204: FROM fun_trx_headers hdrs2
3205: WHERE hdrs2.original_trx_id = hdrs1.trx_id)
3198: FROM fun_trx_headers
3199: WHERE trx_id = p_trx_tbl_id(i)
3200: AND STATUS in ('COMPLETE', 'APPROVED'); --Bug: 6625360. AND STATUS = 'COMPLETE';
3201: -- Update reversed_trx_id with fun_trx_headers
3202: UPDATE fun_trx_headers hdrs1
3203: SET (reversed_trx_id) = (SELECT trx_id
3204: FROM fun_trx_headers hdrs2
3205: WHERE hdrs2.original_trx_id = hdrs1.trx_id)
3206: WHERE hdrs1.trx_id = p_trx_tbl_id(i);
3200: AND STATUS in ('COMPLETE', 'APPROVED'); --Bug: 6625360. AND STATUS = 'COMPLETE';
3201: -- Update reversed_trx_id with fun_trx_headers
3202: UPDATE fun_trx_headers hdrs1
3203: SET (reversed_trx_id) = (SELECT trx_id
3204: FROM fun_trx_headers hdrs2
3205: WHERE hdrs2.original_trx_id = hdrs1.trx_id)
3206: WHERE hdrs1.trx_id = p_trx_tbl_id(i);
3207:
3208: END LOOP;
3209: --End loop; which is looping trx_id table and inserting reversed txns
3210:
3211: UPDATE fun_trx_batches
3212: SET RUNNING_TOTAL_CR=(Select SUM(nvl(INIT_AMOUNT_CR,0))
3213: from fun_trx_headers
3214: where batch_id=l_reversed_batch_id
3215: ),
3216: RUNNING_TOTAL_DR=(Select SUM(nvl(INIT_AMOUNT_DR,0))
3217: from fun_trx_headers
3213: from fun_trx_headers
3214: where batch_id=l_reversed_batch_id
3215: ),
3216: RUNNING_TOTAL_DR=(Select SUM(nvl(INIT_AMOUNT_DR,0))
3217: from fun_trx_headers
3218: where batch_id=l_reversed_batch_id
3219: )
3220: where batch_id=l_reversed_batch_id;
3221:
3252: sysdate,
3253: fnd_global.user_id,
3254: sysdate,
3255: fnd_global.user_id
3256: FROM fun_trx_headers headers, fun_trx_lines lines
3257: WHERE headers.batch_id = l_reversed_batch_id
3258: AND headers.original_trx_id = lines.trx_id;
3259:
3260: -- Insert into dist_lines
3327: fnd_global.user_id,
3328: sysdate,
3329: fnd_global.user_id,
3330: reversed_hdrs.trx_id
3331: FROM fun_trx_headers reversed_hdrs,
3332: fun_trx_lines reversed_lines,
3333: --fun_batch_dists reversed_b_dists,
3334: fun_trx_lines orig_lines,
3335: fun_dist_lines orig_dists
3378: l_batch_id NUMBER;
3379: l_count NUMBER;
3380: CURSOR trx_status_csr IS
3381: SELECT status
3382: FROM fun_trx_headers
3383: WHERE trx_id = p_trx_id FOR UPDATE;
3384: BEGIN
3385: -- Standard Start of API savepoint
3386: SAVEPOINT Update_Trx_Status;
3431: (l_status = 'XFER_AR' AND p_update_status_to = 'COMPLETE') OR
3432: (l_status = 'XFER_INI_GL' AND p_update_status_to = 'COMPLETE') OR
3433: (l_status = 'XFER_RECI_GL' AND p_update_status_to = 'COMPLETE')
3434: THEN
3435: UPDATE fun_trx_headers
3436: SET status = p_update_status_to,last_updated_by = fnd_global.user_id
3437: WHERE trx_id = p_trx_id;
3438:
3439: SELECT batch_id
3437: WHERE trx_id = p_trx_id;
3438:
3439: SELECT batch_id
3440: INTO l_batch_id
3441: FROM fun_trx_headers
3442: WHERE trx_id = p_trx_id;
3443:
3444: IF (p_update_status_to = 'ERROR')
3445: THEN
3448: UPDATE fun_trx_batches
3449: SET status = 'ERROR'
3450: WHERE batch_id = l_batch_id
3451: AND NOT EXISTS (SELECT 'X'
3452: FROM fun_trx_headers
3453: WHERE batch_id = l_batch_id
3454: AND status <> 'ERROR');
3455:
3456: ELSIF (p_update_status_to IN ('COMPLETE', 'REJECTED'))
3460: UPDATE fun_trx_batches
3461: SET status = 'COMPLETE'
3462: WHERE batch_id = l_batch_id
3463: AND NOT EXISTS (SELECT 'X'
3464: FROM fun_trx_headers
3465: WHERE batch_id = l_batch_id
3466: AND status NOT IN ('COMPLETE','REJECTED'));
3467:
3468:
4239: initiator_instance_flag,
4240: recipient_instance_flag,
4241: NULL,
4242: trx_number
4243: FROM fun_trx_headers
4244: WHERE batch_id = p_batch_id;
4245:
4246: l_init_dist_tbl INIT_DIST_TBL_TYPE;
4247: CURSOR l_init_dist_cursor IS SELECT batch_dist_id,
4266: dists.amount_cr,
4267: dists.amount_dr,
4268: dists.ccid,
4269: hdrs.trx_number
4270: FROM fun_trx_headers hdrs,
4271: fun_trx_lines lines,
4272: fun_dist_lines dists
4273: WHERE hdrs.batch_id = p_batch_id
4274: AND hdrs.trx_id = lines.trx_id
4697: WHERE batch_id = p_batch_id;
4698:
4699: SELECT recipient_id, to_le_id, init_amount_dr, init_amount_cr
4700: INTO l_recipient_id, l_to_le_id, l_init_amount_dr, l_init_amount_cr
4701: FROM fun_trx_headers
4702: WHERE trx_id = p_trx_id;
4703:
4704: -- Retrieve Operating unit
4705: l_from_ou_id := Fun_Tca_Pkg.Get_OU_Id(l_initiator_id, l_trx_date);