PACKAGE BODY: APPS.IBW_PAGE_INSTANCES_PVT

Source

1 PACKAGE BODY IBW_PAGE_INSTANCES_PVT AS
2 /* $Header: IBWPGIB.pls 120.4 2005/11/09 03:44 vekancha noship $*/
3 
4 
5   --
6   --
7   -- Start of Comments
8   --
9   -- NAME
10   --   IBW_PAGES_PVT
11   --
12   -- PURPOSE
13   --   Private API for inserting records into page instances table. Mainly used by offline engine
14   --
15   -- NOTES
16   --   Offline engine uses this API to insert into IBW_PAGE_INSTANCES table.
17 
18   -- HISTORY
19   --   05/10/2005	VEKANCHA	Created
20 
21   -- **************************************************************************
22 
23 G_PKG_NAME  CONSTANT VARCHAR2(30):= 'IBW_PAGE_INSTANCES_PVT';
24 G_FILE_NAME CONSTANT VARCHAR2(12):= 'IBWPGIB.pls';
25 
26 
27 -- ****************************************************************************
28 -- ****************************************************************************
29 --    TABLE HANDLERS
30 --      1. insert_row
31 -- ****************************************************************************
32 -- ****************************************************************************
33 
34 
35 -- ****************************************************************************
36 -- insert row into page instances table
37 -- ****************************************************************************
38 
39 PROCEDURE insert_row (
40 	page_id  OUT NOCOPY NUMBER,
41 	x_page_id IN NUMBER,
42 	x_bus_context IN VARCHAR2,
43 	x_bus_context_value IN VARCHAR2,
44 	error_messages OUT NOCOPY VARCHAR2
45 )
46 
47 IS
48 
49 	x_page_inst_id	NUMBER;
50 	created_by		NUMBER;
51 	creation_date	DATE;
52 	last_updated_by	NUMBER;
53 	last_update_date	DATE;
54 	last_update_login	NUMBER;
55 	obj_ver_number	NUMBER := 1;
56 	program_id		NUMBER;
57 	program_login_id	NUMBER;
58 	program_app_id	NUMBER;
59 	request_id		NUMBER;
60 
61 	CURSOR c IS SELECT ibw_page_instances_s1.nextval FROM dual;
62 
63 	CURSOR c1 IS SELECT page_instance_id  FROM ibw_page_instances
64 	    WHERE page_instance_id = x_page_inst_id;
65 
66 
67 BEGIN
68 
69 	OPEN c;
70 	FETCH c INTO x_page_inst_id;
71 	CLOSE c;
72 
73 
74 	FND_PROFILE.GET('USER_ID', created_by);
75 
76 	creation_date := SYSDATE;
77 
78 	last_updated_by := created_by;
79 
80 	last_update_date := SYSDATE;
81 
82 	FND_PROFILE.GET('LOGIN_ID', last_update_login);
83 
84 	FND_PROFILE.GET('CONC_PROGRAM_ID', program_id);
85 
86 	FND_PROFILE.GET('CONC_LOGIN_ID', program_login_id);
87 
88 	FND_PROFILE.GET('CONC_PROGRAM_APPLICATION_ID', program_app_id);
89 
90 	FND_PROFILE.GET('CONC_REQUEST_ID', request_id);
91 
92 	INSERT INTO ibw_page_instances (page_instance_id, page_id, business_context, business_context_value, created_by, creation_date,
93 							last_updated_by, last_update_date, last_update_login, object_version_number,
94 							program_id, program_login_id, program_application_id, request_id)
95 			VALUES (x_page_inst_id, x_page_id, x_bus_context, x_bus_context_value, created_by, creation_date,
96 						last_updated_by, last_update_date, last_update_login, obj_ver_number,
97 						program_id, program_login_id, program_app_id, request_id);
98 
99 	OPEN c1;
100 	FETCH c1 INTO page_id;
101 	IF (c1%NOTFOUND) THEN
102 		CLOSE c1;
103 		RAISE NO_DATA_FOUND;
104 	END IF;
105 	CLOSE c1;
106 
107 --	COMMIT;
108 
109 END insert_row;
110 
111 END IBW_PAGE_INSTANCES_PVT;