1 PACKAGE pa_exception_engine_pkg AS
2 /* $Header: PAPEXENS.pls 120.1 2005/08/19 16:40:23 mwasowic noship $ */
3
4 TYPE
5 summary_record IS record
6 (kpa_code VARCHAR2(30),
7 indicator_code VARCHAR2(30),
8 score NUMBER,
9 thres_from NUMBER,
10 thres_to NUMBER);
11
12 TYPE summary_table IS TABLE OF summary_record INDEX BY binary_integer;
13
14
15 -- Procedure PAPFEXCP
16 -- Purpose This procedure will call logic to generate exception
17 -- transaction, KPA Scoring or Notification based on the
18 -- input parameters.
19
20 PROCEDURE PAPFEXCP ( x_errbuf OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
21 x_retcode OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
22 p_project_ou IN NUMBER DEFAULT NULL,
23 p_project_org IN NUMBER DEFAULT NULL,
24 p_project_type IN VARCHAR2 DEFAULT NULL,
25 p_project_manager IN NUMBER DEFAULT NULL,
26 p_project_from IN NUMBER DEFAULT NULL,
27 p_project_to IN NUMBER DEFAULT NULL,
28 p_generate_exceptions IN VARCHAR2 DEFAULT 'N',
29 p_generate_scoring IN VARCHAR2 DEFAULT 'N',
30 p_generate_notification IN VARCHAR2 DEFAULT 'N',
31 p_purge IN VARCHAR2 DEFAULT 'N',
32 p_daysold IN NUMBER DEFAULT NULL,
33 p_bz_event_code IN VARCHAR2 DEFAULT 'N',
34 p_perf_txn_set_id IN VARCHAR2 DEFAULT 'N');
35
36 -- Procedure generate_exception
37 -- Purpose This procedure will be called by concurrent program.
38 -- Once running, it will generate the performance transactions
39
40 PROCEDURE generate_exception( p_project_list IN PA_PLSQL_DATATYPES.IdTabTyp,
41 p_business_event_code IN VARCHAR2,
42 x_errbuf OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
43 x_retcode OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
44
45 -- Procedure generate_notification
46 -- Purpose This procedure will be called by concurrent program.
47 -- Once running, it will generate the workflow notification for each.
48
49 PROCEDURE generate_notification(p_project_list IN PA_PLSQL_DATATYPES.IdTabTyp,
50 x_errbuf OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
51 x_retcode OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
52
53 -- Procedure purge_performance
54 -- Purpose This procedure will call logic to cleanup data in the
55 -- PA_PERF_TRANSACTIONS table.
56
57 PROCEDURE purge_transaction( p_project_list IN PA_PLSQL_DATATYPES.IdTabTyp,
58 p_days_old IN NUMBER,
59 x_errbuf OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
60 x_retcode OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
61
62 -- Procedure get_thresholds_info
63 -- Purpose This procedure will return information from PA_PERF_THRESHOLDS table
64
65 PROCEDURE get_threshold (
66 p_rule_id IN NUMBER,
67 p_rule_type IN VARCHAR2,
68 p_cur_value IN NUMBER,
69 x_threshold_id out NOCOPY NUMBER, --File.Sql.39 bug 4440895
70 x_indicator_code OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
71 x_exception_flag OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
72 x_weighting OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
73 x_from_value OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
74 x_to_value OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
75 x_errbuf OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
76 x_retcode OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
77
78
79 -- Procedure get_kpa_score
80 -- Purpose This procedure will be called by concurrent program.
81 -- Once running, it will generate the Project KPA Summary.
82
83 PROCEDURE get_kpa_score ( p_project_list IN PA_PLSQL_DATATYPES.IdTabTyp,
84 x_errbuf OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
85 x_retcode OUT NOCOPY VARCHAR2) ; --File.Sql.39 bug 4440895
86
87 END pa_exception_engine_pkg;