PACKAGE BODY: APPS.PA_PARALLEL

Source

1 PACKAGE BODY PA_PARALLEL AS
2 -- $Header: PACPAIUB.pls 115.1 99/08/19 17:41:36 porting ship  $
3 
4 PROCEDURE PA_PARALLEL_AI_RESTART
5 (script_name	IN	VARCHAR2,
6  worker_number  IN      NUMBER,
7  total_workers  IN	NUMBER,
8  action		IN      VARCHAR2,
9  min_id		IN OUT  NUMBER,
10  max_id         IN      NUMBER)
11 IS
12 
13 BEGIN
14 
15 IF ACTION = 'INSERT' THEN
16 
17 	INSERT INTO PA_PARALLEL_AUTOINSTALL
18 	(	TABLE_NAME,
19 		TABLE_MIN_ID,
20 		TABLE_MAX_ID,
21 		CREATION_DATE,
22 		LAST_UPDATE_DATE
23 	)
24 	SELECT script_name||'.'||worker_number||'.'||total_workers,
25 	       min_id,
26 	       max_id,
27 	       sysdate,
28 	       sysdate
29 	FROM   DUAL
30 	WHERE  NOT EXISTS
31 		(SELECT 'row already exists'
32 		 FROM  PA_PARALLEL_AUTOINSTALL
33    		 WHERE TABLE_NAME =
34 			script_name||'.'||worker_number||'.'||total_workers);
35 
36 	SELECT 	NVL(TABLE_MIN_ID , 0)
37 	INTO	min_id
38 	FROM	PA_PARALLEL_AUTOINSTALL
39 	WHERE	TABLE_NAME =
40 			script_name||'.'||worker_number||'.'||total_workers;
41 
42 
43 ELSIF ACTION = 'UPDATE' THEN
44 
45 	UPDATE PA_PARALLEL_AUTOINSTALL
46 	SET
47 		last_update_date = sysdate,
48 		TABLE_MIN_ID = least(min_id,max_id)
49 	WHERE TABLE_NAME =
50 		script_name||'.'||worker_number||'.'||total_workers;
51 
52 ELSE
53 	RAISE_APPLICATION_ERROR (-20000,'Incorrect ACTION argument to
54 		procedure PA_PARALLEL_AUTOINSTALL_RESTART');
55 
56 END IF;
57 
58 END PA_PARALLEL_AI_RESTART;
59 
60 FUNCTION get_currency( P_org_id IN pa_implementations_all.org_id%TYPE)
61    RETURN VARCHAR2
62 IS
63 
64 BEGIN
65 
66    return( G_Curr_Tab(P_org_id));
67 
68 EXCEPTION WHEN others THEN
69    raise;
70 END get_currency;
71 END PA_PARALLEL;