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,
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,
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,
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)
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:
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;
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
67:
68: EXCEPTION WHEN others THEN
69: raise;
70: END get_currency;
71: END PA_PARALLEL;