PACKAGE BODY: APPS.AMS_ADI_PRETTY_URL_PVT

Source

1 PACKAGE BODY AMS_ADI_PRETTY_URL_PVT AS
2 /* $Header: amsvadpb.pls 120.1 2005/07/04 04:30:36 appldev noship $ */
3 
4 
5 -- ===============================================================
6 -- Start of Comments
7 -- Package name
8 --        AMS_ADI_PRETTY_URL_PVT
9 -- Purpose
10 --
11 -- This package contains all the program units for Click Through Destinations
12 --
13 -- History
14 --
15 -- NOTE
16 --
17 -- End of Comments
18 -- ===============================================================
19 G_PACKAGE_NAME CONSTANT VARCHAR2(30) := 'AMS_ADI_PRETTY_URL_PVT';
20 
21 -- Start of Comments
22 -- Name
23 -- CREATE_PRETTY_URL
24 --
25 Procedure   CREATE_PRETTY_URL(
26               p_pretty_url varchar2,
27               p_add_url_param varchar2,
28               p_ctd_id number,
29               p_schedule_id number,
30               p_activity_id number,
31               p_schedule_src_code varchar2,
32               x_msg_count number,
33               x_msg_data varchar2,
34               x_return_status out nocopy varchar2
35             )
36 IS
37    l_pretty_url_rec AMS_PRETTY_URL_PVT.pretty_url_rec_type;
38    l_system_url_rec AMS_System_Pretty_Url_PVT.system_pretty_url_rec_type;
39    l_pretty_url_assoc AMS_Prty_Url_Assoc_PVT.prty_url_assoc_rec_type;
40 
41    l_pretty_url_id number;
42    l_return_status varchar2(30);
43    l_msg_count number;
44    l_msg_data varchar2(4000);
45    l_tracking_url varchar2(2000);
46    l_system_url_id number;
47    l_assoc_id number;
48 
49 BEGIN
50    -- Create Pretty URL
51    l_pretty_url_rec.landing_page_url := p_pretty_url;
52    AMS_PRETTY_URL_PVT.Create_Pretty_Url(
53      p_api_version_number => 1.0,
54      x_return_status => l_return_status,
55      x_msg_count => l_msg_count,
56      x_msg_data => l_msg_data,
57      p_pretty_url_rec => l_pretty_url_rec,
58      x_pretty_url_id => l_pretty_url_id
59      );
60 
61     -- Get Track URL
62     AMS_CTD_UTIL_PKG.GET_TRACKING_URL(
63               p_ctd_id => p_ctd_id,
64               p_schedule_id => p_schedule_id,
65               p_schedule_src_code => p_schedule_src_code,
66               p_track_flag => 'N',
67               x_tracking_url => l_tracking_url
68             );
69   --dbms_output.put_line('Pretty URL Id ='||l_pretty_url_id);
70 
71    -- Create System Pretty URL
72   l_system_url_rec.pretty_url_id := l_pretty_url_id;
73   l_system_url_rec.track_url := l_tracking_url;
74   l_system_url_rec.ctd_id := p_ctd_id;
75   l_system_url_rec.additional_url_param:= p_add_url_param;
76   l_system_url_rec.system_url := p_pretty_url|| '/' || p_add_url_param;
77 
78    AMS_System_Pretty_Url_PVT.Create_System_Pretty_Url
79    (
80          p_api_version_number => 1.0,
81          x_return_status => l_return_status,
82          x_msg_count => l_msg_count,
83          x_msg_data => l_msg_data,
84          p_system_pretty_url_rec => l_system_url_rec,
85          x_system_url_id => l_system_url_id
86    );
87 
88   --dbms_output.put_line('Pretty URL Id ='||l_system_url_id);
89 
90    -- Create Association
91   l_pretty_url_assoc.system_url_id := l_system_url_id;
92   l_pretty_url_assoc.used_by_obj_type := 'CSCH';
93   l_pretty_url_assoc.used_by_obj_id := p_schedule_id;
94 
95   AMS_Prty_Url_Assoc_PVT.Create_Prty_Url_Assoc
96          (
97          p_api_version_number => 1.0,
98          x_return_status => l_return_status,
99          x_msg_count => l_msg_count,
100          x_msg_data => l_msg_data,
101          p_prty_url_assoc_rec => l_pretty_url_assoc,
102          x_assoc_id => l_assoc_id
103          );
104 
105   x_return_status := l_return_status;
106 
107 END CREATE_PRETTY_URL;
108 
109 
110 END AMS_ADI_PRETTY_URL_PVT;