[Home] [Help]
278: loop
279: fetch c_limit_control into v_limit_check_type;
280: exit when c_limit_control%NOTFOUND;
281: v_err_code :='NO_LIMIT';
282: INSERT into XTR_limit_excess_log
283: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
284: COMPANY_CODE,LIMIT_CODE,
285: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
286: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
313: END IF;
314: if v_err_code is null then
315: v_util_amt := v_util_amt + v_new_hce_util;
316: if v_util_amt > v_limit_amt then
317: INSERT into XTR_limit_excess_log
318: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
319: COMPANY_CODE,LIMIT_CODE,
320: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
321: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
328: 'GLOBAL','EXCEEDED',sysdate);
329: v_logged_yn := TRUE;
330: end if;
331: else
332: INSERT into XTR_limit_excess_log
333: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
334: COMPANY_CODE,LIMIT_CODE,
335: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
336: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
354: v_limit_amt,v_util_amt,v_err_code);
355: if v_err_code is null then
356: v_util_amt := v_util_amt + v_new_hce_util;
357: if v_util_amt > v_limit_amt then
358: INSERT into XTR_limit_excess_log
359: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
360: COMPANY_CODE,LIMIT_CODE,
361: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
362: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
369: 'SOVRN','EXCEEDED',sysdate);
370: v_logged_yn := TRUE;
371: end if;
372: else
373: INSERT into XTR_limit_excess_log
374: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
375: COMPANY_CODE,LIMIT_CODE,
376: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
377: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
397: v_limit_amt,v_err_code);
398: if v_err_code is null then
399: v_util_amt := v_hce_amount;
400: if v_gross_amt > v_limit_amt then
401: INSERT into XTR_limit_excess_log
402: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
403: COMPANY_CODE,LIMIT_CODE,
404: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
405: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
412: 'DLR_DEAL','EXCEEDED',sysdate);
413: v_logged_yn := TRUE;
414: end if;
415: elsif v_err_code = 'NO_LIMIT' then
416: INSERT into XTR_limit_excess_log
417: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
418: COMPANY_CODE,LIMIT_CODE,
419: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
420: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
426: NULL, NULL, p_dealer_code,
427: 'DLR_DEAL',v_err_code,sysdate);
428: v_logged_yn := TRUE;
429: else
430: INSERT into XTR_limit_excess_log
431: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
432: COMPANY_CODE,LIMIT_CODE,
433: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
434: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
454: v_limit_amt,v_util_amt,v_err_code);
455: if v_err_code is null then
456: v_util_amt := v_util_amt + v_new_hce_util;
457: if v_util_amt > v_limit_amt then
458: INSERT into XTR_limit_excess_log
459: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
460: COMPANY_CODE,LIMIT_CODE,
461: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
462: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
469: 'CPARTY','EXCEEDED',sysdate);
470: v_logged_yn := TRUE;
471: end if;
472: else
473: INSERT into XTR_limit_excess_log
474: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
475: COMPANY_CODE,LIMIT_CODE,
476: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
477: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
514: end if;
515: if v_err_code is null then
516: v_util_amt := v_util_amt + v_hce_amount;
517: if v_util_amt > v_limit_amt then
518: INSERT into XTR_limit_excess_log
519: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
520: COMPANY_CODE,LIMIT_CODE,
521: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
522: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
529: 'SETTLE',v_settle_warn,sysdate);
530: v_logged_yn := TRUE;
531: end if;
532: else
533: INSERT into XTR_limit_excess_log
534: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
535: COMPANY_CODE,LIMIT_CODE,
536: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
537: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
563: XTR_LIMITS_P.GET_LIM_CCY(p_DEAL_NUMBER,p_currency,v_limit_amt,v_util_amt,v_err_code);
564: if v_err_code is null then
565: v_util_amt := v_util_amt + v_hce_amount;
566: if v_util_amt > v_limit_amt then
567: INSERT into XTR_limit_excess_log
568: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
569: COMPANY_CODE,LIMIT_CODE,
570: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
571: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
578: 'CCY','EXCEEDED',sysdate, p_currency); -- bug 1289530
579: v_logged_yn := TRUE;
580: end if;
581: else
582: INSERT into XTR_limit_excess_log
583: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
584: COMPANY_CODE,LIMIT_CODE,
585: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
586: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
605: XTR_LIMITS_P.GET_LIM_CCY(p_DEAL_NUMBER,p_currency_second,v_limit_amt,v_util_amt,v_err_code);
606: if v_err_code is null then
607: v_util_amt := v_util_amt + v_hce_amount;
608: if v_util_amt > v_limit_amt then
609: INSERT into XTR_limit_excess_log
610: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
611: COMPANY_CODE,LIMIT_CODE,
612: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
613: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
620: 'CCY','EXCEEDED',sysdate, p_currency_second); -- bug 1289530
621: v_logged_yn := TRUE;
622: end if;
623: else
624: INSERT into XTR_limit_excess_log
625: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
626: COMPANY_CODE,LIMIT_CODE,
627: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
628: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
653: v_limit_amt,v_util_amt,v_err_code);
654: if v_err_code is null then
655: v_util_amt := v_util_amt + v_new_hce_util;
656: if v_util_amt > v_limit_amt then
657: INSERT into XTR_limit_excess_log
658: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
659: COMPANY_CODE,LIMIT_CODE,
660: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
661: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
668: 'GROUP','EXCEEDED',sysdate);
669: v_logged_yn := TRUE;
670: end if;
671: else
672: INSERT into XTR_limit_excess_log
673: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
674: COMPANY_CODE,LIMIT_CODE,
675: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
676: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
705: open c_date_restr;
706: fetch c_date_restr into v_time_limit;
707: if c_date_restr%FOUND then
708: if (trunc(p_amount_date) - trunc(sysdate)) > v_time_limit then
709: INSERT into XTR_limit_excess_log
710: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
711: COMPANY_CODE,LIMIT_CODE,
712: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
713: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
737: v_limit_amt,v_util_amt,v_err_code);
738: if v_err_code is null then
739: v_util_amt := v_util_amt + v_hce_amount;
740: if v_util_amt > v_limit_amt then
741: INSERT into XTR_limit_excess_log
742: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
743: COMPANY_CODE,LIMIT_CODE,
744: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
745: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
752: 'INTRA_DY','EXCEEDED',sysdate);
753: v_logged_yn := TRUE;
754: end if;
755: else
756: INSERT into XTR_limit_excess_log
757: (LOG_ID,DEAL_NUMBER,TRANSACTION_NUMBER,
758: COMPANY_CODE,LIMIT_CODE,
759: LIMIT_PARTY,AMOUNT_DATE,HCE_AMOUNT,LIMITING_AMOUNT,
760: EXCEEDED_BY_AMOUNT,AUTHORISED_BY,DEALER_CODE,
793: p_log_id IN NUMBER) is
794:
795: BEGIN
796:
797: update XTR_LIMIT_EXCESS_LOG_V
798: set deal_number = p_deal_no,
799: transaction_number = p_trans_no,
800: authorised_by = p_user
801: where log_id = p_log_id;
1804: p_user VARCHAR2 ) is
1805: --
1806: begin
1807: if p_action = 'D' then
1808: delete from XTR_LIMIT_EXCESS_LOG
1809: where LOG_ID = p_log_id;
1810: elsif p_action = 'A' then
1811: update XTR_LIMIT_EXCESS_LOG
1812: set AUTHORISED_BY = p_user
1807: if p_action = 'D' then
1808: delete from XTR_LIMIT_EXCESS_LOG
1809: where LOG_ID = p_log_id;
1810: elsif p_action = 'A' then
1811: update XTR_LIMIT_EXCESS_LOG
1812: set AUTHORISED_BY = p_user
1813: where LOG_ID = p_log_id;
1814: end if;
1815: ---commit;