1 package iby_riskyinstr_pkg AUTHID CURRENT_USER as
2 /*$Header: ibyrkins.pls 115.3 2002/11/19 23:54:07 jleybovi ship $*/
3
4 /* Risky Instr used to update */
5 TYPE Risky_Instr is RECORD(PayeeID VARCHAR2(80), InstrType VARCHAR2(80),
6 Routing_Num VARCHAR2(80), Account_Num VARCHAR2(80),
7 CreditCard_Num VARCHAR2(80));
8
9 /* Result of each record's update */
10 TYPE Result is RECORD(success NUMBER, errmsg VARCHAR2(100));
11
12 TYPE RiskyInstr_Table IS TABLE OF Risky_Instr INDEX BY BINARY_INTEGER;
13
14 TYPE Result_Table IS TABLE OF Result INDEX BY BINARY_INTEGER;
15
16
17 /*
18 ** Procedure: add_RiskyInstr
19 ** Purpose: Appends/Adds the vector of RiskyInstr into the table. For
20 ** each risky instrument, if it matches (payeeid,instrtype,and numbers)
21 ** then does nothing, else adds it to table
22 */
23 procedure add_RiskyInstr (i_count in integer,
24 i_riskyinstr in RiskyInstr_Table,
25 o_results out nocopy Result_Table);
26
27
28 /*
29 ** Procedure: delete_RiskyInstr
30 ** Purpose: Delete the vector of RiskyInstr into the table. For
31 ** each risky instrument, if it matches (payeeid,instrtype,and numbers)
32 ** then delete the entry from table, else does nothing
33 */
34 procedure delete_RiskyInstr (i_count in integer,
35 i_riskyinstr in RiskyInstr_Table,
36 o_results out nocopy Result_Table);
37
38 procedure delete_allRiskyInstr;
39 end iby_riskyinstr_pkg;
40