[Home] [Help]
PACKAGE BODY: APPS.CN_COMP_PLANS_PVT
Source
1 PACKAGE BODY CN_COMP_PLANS_PVT as
2 /* $Header: cnxvcmpb.pls 115.1 2001/10/29 17:32:01 pkm ship $ */
3
4 PROCEDURE create_comp_plan_client
5 (
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2,
8 p_commit IN VARCHAR2,
9 p_validation_level IN NUMBER,
10 x_return_status OUT VARCHAR2,
11 x_msg_count OUT NUMBER,
12 x_msg_data OUT VARCHAR2,
13 p_comp_plan_name IN VARCHAR2,
14 p_description IN VARCHAR2,
15 p_start_date IN DATE,
16 p_end_date IN DATE,
17 p_status IN VARCHAR2,
18 p_rc_overlap IN VARCHAR2,
19 p_attribute1 IN VARCHAR2,
20 p_attribute2 IN VARCHAR2,
21 p_attribute3 IN VARCHAR2,
22 p_attribute4 IN VARCHAR2,
23 p_attribute5 IN VARCHAR2,
24 p_attribute6 IN VARCHAR2,
25 p_attribute7 IN VARCHAR2,
26 p_attribute8 IN VARCHAR2,
27 p_attribute9 IN VARCHAR2,
28 p_attribute10 IN VARCHAR2,
29 p_attribute11 IN VARCHAR2,
30 p_attribute12 IN VARCHAR2,
31 p_attribute13 IN VARCHAR2,
32 p_attribute14 IN VARCHAR2,
33 p_attribute15 IN VARCHAR2,
34 p_plan_element_name IN VARCHAR2,
35 x_comp_plan_id OUT NUMBER,
36 x_loading_status OUT VARCHAR2
37 ) IS
38
39 l_comp_rec cn_comp_plan_pub.comp_plan_rec_type;
40 BEGIN
41
42 l_comp_rec.name := p_comp_plan_name;
43 l_comp_rec.description := p_description;
44 l_comp_rec.start_date := p_Start_date;
45 l_comp_rec.end_date := p_end_date;
46 l_comp_rec.status := p_status;
47 l_comp_rec.rc_overlap := p_rc_overlap;
48 l_comp_rec.plan_element_name := p_plan_element_name;
49 l_comp_rec.attribute1 := p_attribute1;
50 l_comp_rec.attribute2 := p_attribute2;
51 l_comp_rec.attribute3 := p_attribute3;
52 l_comp_rec.attribute4 := p_attribute4;
53 l_comp_rec.attribute5 := p_attribute5;
54 l_comp_rec.attribute6 := p_attribute6;
55 l_comp_rec.attribute7 := p_attribute7;
56 l_comp_rec.attribute8 := p_attribute8;
57 l_comp_rec.attribute9 := p_attribute9;
58 l_comp_rec.attribute10 := p_attribute10;
59 l_comp_rec.attribute11 := p_attribute11;
60 l_comp_rec.attribute12 := p_attribute12;
61 l_comp_rec.attribute13 := p_attribute13;
62 l_comp_rec.attribute14 := p_attribute14;
63 l_comp_rec.attribute15 := p_attribute15;
64
65
66 cn_comp_plan_pub.Create_comp_plan
67 (
68 p_api_version => p_api_version,
69 p_init_msg_list => p_init_msg_list,
70 p_commit => p_commit,
71 p_validation_level => p_validation_level,
72 x_return_status => x_return_status,
73 x_msg_count => x_msg_count,
74 x_msg_data => x_msg_data,
75 p_comp_plan_rec => l_comp_rec,
76 x_comp_plan_id => x_comp_plan_id,
77 x_loading_status => x_loading_status );
78
79 END create_comp_plan_client;
80
81 END CN_COMP_PLANS_PVT;