PACKAGE BODY: APPS.AKAPLT

Source

1 PACKAGE BODY AKAPLT AS
2 /* $Header: akapltb.pls 115.2 99/07/17 15:17:34 porting s $ */
3 
4 	procedure setAppletCreated (	p_created	in boolean,
5 									p_instance	in number) is
6 	begin
7 		g_applet_created(p_instance) := p_created;
8 	end setAppletCreated;
9 
10 	function getInstanceCount	return number is
11 	begin
12 		return g_applet_created.COUNT;
13 	end getInstanceCount;
14 
15 	function getFirstInstance	return number is
16 		instance_count	number;
17 		instance		number;
18 	begin
19 		instance_count := g_applet_created.COUNT;
20 		if (instance_count >= 1) then
21 			for i in g_applet_created.FIRST .. g_applet_created.LAST loop
22 				if g_applet_created(i) then
23 					g_current_instance := i;
24 					return i;
25 				end if;
26 			end loop;
27 		end if;
28 		return -99;
29 	end getFirstInstance;
30 
31 	function getNextInstance	return number is
32 	begin
33 		if (g_current_instance = -99) then
34 			return g_current_instance;
35 		end if;
36 
37 		for i in (g_current_instance+1) .. g_applet_created.LAST loop
38 			if g_applet_created(i) then
39 				g_current_instance := i;
40 				return i;
41 			end if;
42 		end loop;
43 
44 		return -99;
45 
46 	end getNextInstance;
47 
48 END AKAPLT;