[Home] [Help]
PACKAGE BODY: APPS.CUG_VALIDATE_ADDRESS_PKG
Source
1 Package Body CUG_VALIDATE_ADDRESS_PKG AS
2 /* $Header: CUGVADIB.pls 115.2 2002/12/04 20:31:15 pkesani noship $ */
3 --
4 -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
5 -- directory of SQL Navigator
6 --
7 -- Purpose: Briefly explain the functionality of the package body
8 --
9 -- MODIFICATION HISTORY
10 -- Person Date Comments
11 -- --------- ------ ------------------------------------------
12 -- Enter procedure, function bodies as shown below
13
14 PROCEDURE Validate_Incident_Address (
15 p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2 default fnd_api.g_false,
17 p_commit IN VARCHAR2 default fnd_api.g_false,
18 p_incident_type_id IN NUMBER,
19 p_incident_address_rec IN OUT NOCOPY CUG_VALIDATE_ADDRESS_TYPE.INCIDENT_ADDRESS_TBL,
20 x_msg_count OUT NOCOPY NUMBER,
21 x_msg_data OUT NOCOPY VARCHAR2,
22 x_return_status OUT NOCOPY VARCHAR2,
23 p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL)
24 IS
25 l_incident_address_index BINARY_INTEGER;
26
27 BEGIN
28
29 l_incident_address_index := p_incident_address_rec.FIRST;
30 p_incident_address_rec(l_incident_address_index).validation_status := 'S';
31 p_incident_address_rec(l_incident_address_index).jurisdiction_status := 'S';
32
33 IF (p_incident_address_rec(l_incident_address_index).validation_status is null) OR
34 (p_incident_address_rec(l_incident_address_index).validation_status = 'S') THEN
35 x_return_status := FND_API.G_RET_STS_SUCCESS ;
36 ELSE
37 p_incident_address_rec(l_incident_address_index).validation_status := 'F';
38 p_incident_address_rec(l_incident_address_index).jurisdiction_status := 'F';
39 x_return_status := FND_API.G_RET_STS_ERROR ;
40 END IF;
41 p_incident_address_rec := p_incident_address_rec;
42 END Validate_Incident_Address;
43
44
45 -- Enter further code below as specified in the Package spec.
46 END; -- Package Body CUG_VALIDATE_ADDRESS_PKG