[Home] [Help]
PACKAGE: APPS.PA_XC_PROJECT_PUB
Source
1 package PA_XC_PROJECT_PUB AUTHID DEFINER as
2 /*$Header: PAXCPR1S.pls 120.2 2006/06/01 22:48:43 sliburd noship $*/
3
4 --Package constant used for package version validation
5
6 G_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
7
8 --Locking exception
9 ROW_ALREADY_LOCKED EXCEPTION;
10 PRAGMA EXCEPTION_INIT(ROW_ALREADY_LOCKED, -54);
11
12 --Counters
13 G_tasks_tbl_count NUMBER:=0;
14
15 -- Procedure Import Project.
16
17 -- Task Record structure
18
19 TYPE task_in_rec_type IS RECORD
20 (task_id NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
21 task_reference NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
22 task_name VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
23 task_start_date DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
24 task_end_date DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
25 task_number VARCHAR2(25) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
26 wbs_level NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
27 task_description VARCHAR2(250) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
28 parent_task_reference NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
29 early_start_date DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
30 early_finish_date DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
31 late_start_date DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
32 late_finish_date DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
33 attribute1 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
34 attribute2 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
35 attribute3 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
36 attribute5 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
37 -- AJL
38 login_user_name VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
39 attribute4 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
40 attribute6 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
41 attribute7 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
42 attribute8 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
43 attribute9 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
44 attribute10 VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
45 progress_report VARCHAR2(4000) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
46 progress_status VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
47 progress_comments VARCHAR2(150) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
48 progress_asof_date VARCHAR2(10) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
49 predecessors VARCHAR2(2000) := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR );
50 -- AJL
51
52 -- Creating plsql table task.
53
54 TYPE task_in_tbl_type IS TABLE OF task_in_rec_type INDEX BY BINARY_INTEGER;
55
56 -- Global plsql task.
57
58 G_tasks_in_tbl task_in_tbl_type;
59
60 -- Procedure Import Task.
61
62 PROCEDURE import_task
63 ( p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
64 ,p_task_reference IN PA_VC_1000_25
65 ,p_task_name IN PA_VC_1000_150
66 ,p_task_start_date IN PA_VC_1000_10
67 ,p_task_end_date IN PA_VC_1000_10
68 ,p_parent_task_reference IN PA_VC_1000_25
69 ,p_task_number IN PA_VC_1000_25
70 ,p_wbs_level IN PA_NUM_1000_NUM
71 ,p_milestone IN PA_VC_1000_150
72 ,p_duration IN PA_VC_1000_150
73 ,p_duration_unit IN PA_VC_1000_150
74 ,p_early_start_date IN PA_VC_1000_10
75 ,p_early_finish_date IN PA_VC_1000_10
76 ,p_late_start_date IN PA_VC_1000_10
77 ,p_late_finish_date IN PA_VC_1000_10
78 ,p_display_seq IN PA_VC_1000_150
79 -- AJL
80 ,p_login_user_name IN PA_VC_1000_150 := PA_VC_1000_150(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
81 ,p_critical_path IN PA_VC_1000_150
82 ,p_sub_project_id IN PA_VC_1000_150
83 ,p_attribute7 IN PA_VC_1000_150
84 ,p_attribute8 IN PA_VC_1000_150
85 ,p_attribute9 IN PA_VC_1000_150
86 ,p_attribute10 IN PA_VC_1000_150
87 ,p_progress_report IN PA_VC_1000_4000
88 ,p_progress_status IN PA_VC_1000_150
89 ,p_progress_comments IN PA_VC_1000_150
90 ,p_progress_asof_date IN PA_VC_1000_10
91 ,p_predecessors IN PA_VC_1000_2000
92 ,p_language IN VARCHAR2 default 'US'
93 ,p_delimiter IN VARCHAR2 default ','
94
95 -- Structure sync up
96 ,p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
97 ,p_calling_mode IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
98 -- Structure sync up
99 );
100 -- AJL
101
102 PROCEDURE import_project
103 ( p_user_id IN NUMBER
104 ,p_commit IN VARCHAR2 default 'N'
105 ,p_debug_mode IN VARCHAR2 default 'N'
106 ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
107 ,p_project_mpx_start_date IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
108 ,p_project_mpx_end_date IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
109 -- AJL
110 ,p_task_mgr_override IN VARCHAR2 default 'N'
111 ,p_task_pgs_override IN VARCHAR2 default 'N'
112 -- AJL
113 ,p_process_id IN NUMBER default -1
114 ,p_language IN VARCHAR2 default 'US'
115 ,p_delimiter IN VARCHAR2 default ','
116 ,p_responsibility_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
117 ,p_structure_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
118 ,p_structure_version_id IN NUMBER
119 ,p_calling_mode IN VARCHAR2
120 ,p_resp_appl_id IN NUMBER default 275 -- 5233777
121 ,x_msg_count IN OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
122 ,x_msg_data IN OUT NOCOPY PA_VC_1000_2000 --File.Sql.39 bug 4440895
123 ,x_return_status IN OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
124
125 FUNCTION is_number
126 ( value_in IN VARCHAR2)
127 RETURN BOOLEAN;
128
129 PROCEDURE fetch_task_id
130 ( p_task_index IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR --Bug 3302732
131 ,p_project_id IN NUMBER
132 ,p_pm_task_reference IN VARCHAR2
133 ,x_task_id OUT NOCOPY NUMBER); --File.Sql.39 bug 4440895
134
135 -- Bug 3302732
136 FUNCTION generate_new_task_reference
137 (p_project_id IN NUMBER,
138 p_proj_element_id IN NUMBER)
139 RETURN VARCHAR2;
140
141 -- Bug 3302732
142 FUNCTION check_ref_unique
143 (p_project_id IN NUMBER,
144 p_new_task_reference IN VARCHAR2)
145 RETURN VARCHAR2;
146
147 end PA_XC_PROJECT_PUB;