1: package body OKE_POOL_PARTIES_PKG as
2: /* $Header: OKEPLPTB.pls 115.5 2002/11/27 19:53:49 syho ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Pool_Party_Id NUMBER,
38: ) is
39:
40: cursor C is
41: select rowid
42: from OKE_POOL_PARTIES
43: where pool_party_id = X_Pool_Party_Id;
44:
45: begin
46:
43: where pool_party_id = X_Pool_Party_Id;
44:
45: begin
46:
47: insert into OKE_POOL_PARTIES(
48: pool_party_id,
49: funding_pool_id,
50: party_id,
51: currency_code,
183: attribute12,
184: attribute13,
185: attribute14,
186: attribute15
187: from OKE_POOL_PARTIES
188: where pool_party_id = X_Pool_Party_Id
189: for update of pool_party_id nowait;
190:
191: recinfo c%rowtype;
294: ) is
295:
296: begin
297:
298: update OKE_POOL_PARTIES
299: set
300: party_id = X_Party_Id,
301: currency_code = X_Currency_Code,
302: conversion_type = X_Conversion_Type,
335:
336: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
337: BEGIN
338:
339: DELETE FROM OKE_POOL_PARTIES
340: WHERE rowid = X_Rowid;
341:
342: if (SQL%NOTFOUND) then
343: Raise NO_DATA_FOUND;
348: raise;
349:
350: END Delete_Row;
351:
352: end OKE_POOL_PARTIES_PKG;