[Home] [Help]
PACKAGE BODY: APPS.PO_ASL_THS1
Source
1 PACKAGE BODY PO_ASL_THS1 as
2 /* $Header: POXA3LSB.pls 120.1 2005/06/29 18:28:09 shsiung noship $ */
3 -- <INBOUND LOGISTICS FPJ START>
4 g_pkg_name CONSTANT VARCHAR2(30) := 'PO_ASL_THS1';
5 c_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| g_pkg_name || '.';
6 g_fnd_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
7 -- <INBOUND LOGISTICS FPJ END>
8
9 /*=============================================================================
10
11 PROCEDURE NAME: update_row()
12
13 ===============================================================================*/
14 procedure update_row(
15 x_row_id VARCHAR2,
16 x_asl_id NUMBER,
17 x_using_organization_id NUMBER,
18 x_owning_organization_id NUMBER,
19 x_vendor_business_type VARCHAR2,
20 x_asl_status_id NUMBER,
21 x_last_update_date DATE,
22 x_last_updated_by NUMBER,
23 x_creation_date DATE,
24 x_created_by NUMBER,
25 x_manufacturer_id NUMBER,
26 x_vendor_id NUMBER,
27 x_item_id NUMBER,
28 x_category_id NUMBER,
29 x_vendor_site_id NUMBER,
30 x_primary_vendor_item VARCHAR2,
31 x_manufacturer_asl_id NUMBER,
32 x_comments VARCHAR2,
33 x_review_by_date DATE,
34 x_attribute_category VARCHAR2,
35 x_attribute1 VARCHAR2,
36 x_attribute2 VARCHAR2,
37 x_attribute3 VARCHAR2,
38 x_attribute4 VARCHAR2,
39 x_attribute5 VARCHAR2,
40 x_attribute6 VARCHAR2,
41 x_attribute7 VARCHAR2,
42 x_attribute8 VARCHAR2,
43 x_attribute9 VARCHAR2,
44 x_attribute10 VARCHAR2,
45 x_attribute11 VARCHAR2,
46 x_attribute12 VARCHAR2,
47 x_attribute13 VARCHAR2,
48 x_attribute14 VARCHAR2,
49 x_attribute15 VARCHAR2,
50 x_last_update_login NUMBER,
51 x_disable_flag VARCHAR2) is
52 -- <INBOUND LOGISTICS FPJ START>
53 l_api_version CONSTANT NUMBER := 1.0;
54 l_return_status VARCHAR2(1);
55 l_msg_count NUMBER;
56 l_msg_data FND_NEW_MESSAGES.message_text%TYPE;
57 l_msg_buf VARCHAR2(2000);
58 l_api_name CONSTANT VARCHAR2(40) := 'update_row';
59 l_progress VARCHAR2(3) := '001';
60 -- <INBOUND LOGISTICS FPJ END>
61 begin
62
63 UPDATE PO_APPROVED_SUPPLIER_LIST
64 SET
65 asl_id = x_asl_id,
66 using_organization_id = x_using_organization_id,
67 owning_organization_id = x_owning_organization_id,
68 vendor_business_type = x_vendor_business_type,
69 asl_status_id = x_asl_status_id,
70 last_update_date = x_last_update_date,
71 last_updated_by = x_last_updated_by,
72 creation_date = x_creation_date,
73 created_by = x_created_by,
74 manufacturer_id = x_manufacturer_id,
75 vendor_id = x_vendor_id,
76 item_id = x_item_id,
77 category_id = x_category_id,
78 vendor_site_id = x_vendor_site_id,
79 primary_vendor_item = x_primary_vendor_item,
80 manufacturer_asl_id = x_manufacturer_asl_id,
81 comments = x_comments,
82 review_by_date = x_review_by_date,
83 attribute_category = x_attribute_category,
84 attribute1 = x_attribute1,
85 attribute2 = x_attribute2,
86 attribute3 = x_attribute3,
87 attribute4 = x_attribute4,
88 attribute5 = x_attribute5,
89 attribute6 = x_attribute6,
90 attribute7 = x_attribute7,
91 attribute8 = x_attribute8,
92 attribute9 = x_attribute9,
93 attribute10 = x_attribute10,
94 attribute11 = x_attribute11,
95 attribute12 = x_attribute12,
96 attribute13 = x_attribute13,
97 attribute14 = x_attribute14,
98 attribute15 = x_attribute15,
99 last_update_login = x_last_update_login,
100 disable_flag = x_disable_flag
101 WHERE rowid = x_row_id;
102
103 if (sql%notfound) then
104 raise no_data_found;
105 end if;
106
107 -- <INBOUND LOGISTICS FPJ START>
108 l_progress := '020';
109 l_return_status := FND_API.G_RET_STS_SUCCESS;
110 IF (g_fnd_debug = 'Y') THEN
111 IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
112 FND_LOG.string( LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
113 MODULE => c_log_head || '.'||l_api_name||'.' || l_progress,
114 MESSAGE => 'Call PO_BUSINESSEVENT_PVT.raise_event'
115 );
116 END IF;
117 END IF;
118
119 PO_BUSINESSEVENT_PVT.raise_event
120 (
121 p_api_version => l_api_version,
122 x_return_status => l_return_status,
123 x_msg_count => l_msg_count,
124 x_msg_data => l_msg_data,
125 p_event_name => 'oracle.apps.po.event.update_asl',
126 p_entity_name => 'ASL',
127 p_entity_id => x_asl_id
128 );
129
130 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
131 IF (g_fnd_debug = 'Y') THEN
132 l_msg_buf := NULL;
133 l_msg_buf := FND_MSG_PUB.Get( p_msg_index => 1,
134 p_encoded => 'F');
135 l_msg_buf := SUBSTR('ASL' || x_asl_id || 'errors out at' || l_progress || l_msg_buf, 1, 2000);
136 IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
137 FND_LOG.string( LOG_LEVEL => FND_LOG.level_unexpected,
138 MODULE => c_log_head || '.'||l_api_name||'.error_exception',
139 MESSAGE => l_msg_buf
140 );
141 END IF;
142 END IF;
143 ELSE
144 IF (g_fnd_debug = 'Y') THEN
145 l_msg_buf := NULL;
146 l_msg_buf := SUBSTR('ASL' || x_asl_id||'raised business event successfully', 1, 2000);
147 IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
148 FND_LOG.string( LOG_LEVEL => FND_LOG.level_statement,
149 MODULE => c_log_head || '.'||l_api_name,
150 MESSAGE => l_msg_buf
151 );
152 END IF;
153 END IF;
154 END IF; -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
155
156 EXCEPTION
157 WHEN OTHERS THEN
158 IF (g_fnd_debug = 'Y') THEN
159 IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
160 FND_LOG.string( LOG_LEVEL => FND_LOG.LEVEL_EXCEPTION,
161 MODULE => c_log_head || '.'||l_api_name,
162 MESSAGE => SQLERRM(SQLCODE)
163 );
164 END IF;
165 END IF;
166
167 APP_EXCEPTION.raise_exception; -- <ASL ERECORD FPJ>
168 -- <INBOUND LOGISTICS FPJ END>
169
170 end update_row;
171
172 END PO_ASL_THS1;