44: End;
45: If v_exists = 'N' then
46: Select Xtr_Settlement_Summary_S.Nextval
47: Into v_settlement_ID
48: From Dual;
49:
50: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,
51: Settlement_Amount, Settlement_Date, Company_Acct_No, Cparty_Acct_No, Net_ID, Status,
52: Created_By, Creation_Date, Last_Updated_By, Last_Update_Date, Last_Update_Login, cparty_code,
235: Set Status = 'A',
236: Net_ID = null
237: Where Settlement_Number = C2_Rec.Settlement_Number;
238: If SQL%FOUND then
239: /* individual records contributing the resultant figure are updated as AVAILABLE */
240: v_upd_single := 'Y';
241: End if;
242:
243: End Loop;
352: Where settlement_number = p_settlement_number;
353: Else
354: Select Xtr_Settlement_Summary_S.Nextval
355: Into v_settlement_ID
356: From Dual;
357:
358: Insert into Xtr_Settlement_Summary(Settlement_Summary_Id, Settlement_Number, Company, Currency,
359: Settlement_Amount, Settlement_Date, Company_Acct_No, Cparty_Acct_No, Net_ID, Status,
360: Created_By, Creation_Date, Last_Updated_By, Last_Update_Date, Last_Update_Login, cparty_code)