PACKAGE BODY: APPS.IGI_FA_PRICE_INDEXES_PKG

Source

1 PACKAGE BODY IGI_FA_PRICE_INDEXES_PKG as
2 -- $Header: igimhcbb.pls 115.5 2003/02/26 13:30:22 klakshmi ship $
3 
4 PROCEDURE Insert_Row  ( X_Rowid          IN OUT NOCOPY VARCHAR2,
5 			X_price_index_id        NUMBER ,
6 			X_price_index_name      VARCHAR2 ,
7 			X_created_by            NUMBER ,
8 			X_creation_date         DATE ,
9 			X_last_updated_by       NUMBER ,
10 			X_last_update_date      DATE ,
11 			X_last_update_login     NUMBER
12 	) IS
13 	CURSOR C IS     SELECT rowid
14 			FROM   fa_price_indexes
15 			WHERE price_index_id  = X_price_index_id ;
16 BEGIN
17 
18 	INSERT INTO   fa_price_indexes   (
19 			price_index_id      ,
20 			price_index_name    ,
21 			created_by          ,
22 			creation_date       ,
23 			last_updated_by     ,
24 			last_update_date    ,
25 			last_update_login
26 	)
27 	VALUES (
28 			X_price_index_id      ,
29 			X_price_index_name    ,
30 			X_created_by          ,
31 			X_creation_date       ,
32 			X_last_updated_by     ,
33 			X_last_update_date    ,
34 			X_last_update_login
35 	);
36 
37 	OPEN C;
38 	FETCH C INTO X_Rowid;
39 	if (C%NOTFOUND) then
40 		CLOSE C;
41 		Raise NO_DATA_FOUND;
42 	end if;
43 	CLOSE C;
44 END Insert_Row;
45 
46 END;