[Home] [Help]
379: close ig_jrnl;
380:
381: if l_jrnl is null then
382:
383: select xtr_ig_journal_structures_s.nextval into l_jrnl_struc_id from dual;
384:
385: open party_dtls(p_party_code,p_party_acct);
386: fetch party_dtls into l_currency;
387: close party_dtls;
1712: if ARec_Interface.mirror_limit_code_fund is not null or
1713: ARec_Interface.mirror_limit_code_invest is not null then
1714:
1715: --------------------------------
1716: -- Check individual limit code
1717: --------------------------------
1718: if ARec_Interface.mirror_limit_code_fund is not null and
1719: not valid_limit_code(ARec_Interface.cparty_code,ARec_Interface.company_code,
1720: ARec_Interface.mirror_limit_code_fund,'FUND') then
1799: IF ARec_Interface.limit_code is not null OR
1800: ARec_Interface.limit_code_b is not null THEN
1801:
1802: --------------------------------
1803: -- Check individual limit code
1804: --------------------------------
1805: if ARec_Interface.limit_code is not null and
1806: not valid_limit_code(ARec_Interface.company_code, ARec_Interface.cparty_code,
1807: ARec_Interface.limit_code,'FUND') then
1863: order by transaction_number desc;
1864:
1865: cursor new_deal_num is
1866: select XTR_DEALS_S.nextval
1867: from dual;
1868:
1869: begin
1870:
1871: p_deal_no := null;
2066:
2067:
2068: if nvl(p_settle_flag,'N') = 'Y' then -- NOTE : Current IG form does not pass in value but it calls this for mirror deal.
2069:
2070: select XTR_SETTLEMENT_NUMBER_S.NEXTVAL into p_settle_no from DUAL;
2071:
2072: p_settle := 'Y';
2073: p_settle_auth := G_Ig_user;
2074: p_settle_date := p_actual_settle;
2125: CASHFLOW_AMOUNT,COMPANY_CODE,ACCOUNT_NO,ACTION_CODE,CPARTY_ACCOUNT_NO,
2126: STATUS_CODE,CPARTY_CODE,
2127: SETTLE,SETTLEMENT_NUMBER,SETTLEMENT_AUTHORISED_BY,ACTUAL_SETTLEMENT_DATE,TRANS_MTS,AUDIT_INDICATOR, -- 3800146 ******************
2128: DEAL_SUBTYPE,PRODUCT_TYPE, PORTFOLIO_CODE,
2129: dual_authorisation_by, dual_authorisation_on)
2130: ---,LIMIT_CODE)
2131: values
2132: ('IG','PRINFLW','COMENCE',G_Ig_Main_Rec.DEAL_NUMBER,G_Ig_Main_Rec.TRANSACTION_NUMBER,
2133: G_Ig_curr_date,G_Ig_Main_Rec.CURRENCY,abs(G_Ig_Main_Rec.PRINCIPAL_ADJUST),
2206: TRANSACTION_DATE,CURRENCY,AMOUNT,HCE_AMOUNT,AMOUNT_DATE,
2207: CASHFLOW_AMOUNT,COMPANY_CODE,ACCOUNT_NO,ACTION_CODE,CPARTY_ACCOUNT_NO,
2208: STATUS_CODE,CPARTY_CODE,SETTLE,DEAL_SUBTYPE,PRODUCT_TYPE,
2209: PORTFOLIO_CODE,
2210: dual_authorisation_by, dual_authorisation_on) ---- ,LIMIT_CODE)
2211: values
2212: ('IG','INTSET','SETTLE',G_Ig_Main_Rec.DEAL_NUMBER,G_Ig_Main_Rec.TRANSACTION_NUMBER,G_Ig_curr_date,
2213: G_Ig_Main_Rec.CURRENCY,abs(G_Ig_Main_Rec.INTEREST_SETTLED),abs(G_Ig_Main_Rec.INTEREST_SETTLED_HCE),
2214: nvl(G_Ig_Main_Rec.SETTLE_DATE,G_Ig_Main_Rec.TRANSFER_DATE),
2263: CASHFLOW_AMOUNT,COMPANY_CODE,ACCOUNT_NO,ACTION_CODE,CPARTY_ACCOUNT_NO,
2264: STATUS_CODE,CPARTY_CODE,
2265: SETTLE,SETTLEMENT_NUMBER,SETTLEMENT_AUTHORISED_BY,ACTUAL_SETTLEMENT_DATE,TRANS_MTS,AUDIT_INDICATOR, -- 3800146 ****************
2266: DEAL_SUBTYPE,PRODUCT_TYPE, PORTFOLIO_CODE,
2267: dual_authorisation_by, dual_authorisation_on)
2268: ---,LIMIT_CODE)
2269: values
2270: ('IG','PRINFLW','COMENCE',G_Ig_Mirror_Rec.DEAL_NUMBER,G_Ig_Mirror_Rec.TRANSACTION_NUMBER,
2271: G_Ig_curr_date,G_Ig_Mirror_Rec.CURRENCY,abs(G_Ig_Mirror_Rec.PRINCIPAL_ADJUST),
2648: AMOUNT, HCE_AMOUNT,
2649: ACTION_CODE,
2650: DEAL_SUBTYPE,
2651: PRODUCT_TYPE,
2652: DUAL_AUTHORISATION_BY, DUAL_AUTHORISATION_ON)
2653: values ('IG', 'BAL',
2654: 'BALANCE', l_deal_num,
2655: l_trans_num, l_date,
2656: l_date, p_company_code,
2824: open FIND_USER(G_Ig_User_Id);
2825: fetch FIND_USER into G_Ig_user;
2826: close FIND_USER;
2827:
2828: Select sysdate Into G_Ig_SysDate From Dual;
2829: G_Ig_curr_date := Trunc(G_Ig_SysDate);
2830:
2831: --******************************************************************************************************
2832: --* Perform the following to purge all the related data in the error table before processing the record