[Home] [Help]
PACKAGE BODY: APPS.CUG_VALIDATE_ADDRESS_PVT
Source
1 Package Body CUG_VALIDATE_ADDRESS_PVT AS
2 /* $Header: CUGVADPB.pls 120.0 2006/04/25 14:24:43 spusegao 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_PUB.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
31 IF (p_incident_address_rec(l_incident_address_index).validation_status is null) OR
32 (p_incident_address_rec(l_incident_address_index).validation_status = 'S') THEN
33
34 x_return_status := FND_API.G_RET_STS_SUCCESS ;
35 p_incident_address_rec := p_incident_address_rec;
36 END IF;
37
38 IF (p_incident_address_rec(l_incident_address_index).validation_status = 'N') THEN
39
40 x_return_status := FND_API.G_RET_STS_ERROR ;
41 p_incident_address_rec := p_incident_address_rec;
42 END IF;
43
44
45 END Validate_Incident_Address;
46
47
48 PROCEDURE Validate_Incident_Type (
49 p_api_version IN NUMBER,
50 p_init_msg_list IN VARCHAR2 default fnd_api.g_false,
51 p_commit IN VARCHAR2 default fnd_api.g_false,
52 p_incident_type_id IN NUMBER,
53 p_incident_address_rec IN OUT NOCOPY CUG_VALIDATE_ADDRESS_PUB.INCIDENT_ADDRESS_TBL,
54 x_msg_count OUT NOCOPY NUMBER,
55 x_msg_data OUT NOCOPY VARCHAR2,
56 x_return_status OUT NOCOPY VARCHAR2,
57 p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL)
58 IS
59 l_incident_address_index BINARY_INTEGER;
60
61 BEGIN
62
63 l_incident_address_index := p_incident_address_rec.FIRST;
64
65 IF (p_incident_address_rec(l_incident_address_index).jurisdiction_status is null) OR
66 (p_incident_address_rec(l_incident_address_index).jurisdiction_status = 'S') THEN
67 x_return_status := FND_API.G_RET_STS_SUCCESS ;
68 p_incident_address_rec := p_incident_address_rec;
69 END IF;
70
71 IF (p_incident_address_rec(l_incident_address_index).jurisdiction_status = 'N') THEN
72 x_return_status := FND_API.G_RET_STS_ERROR ;
73 p_incident_address_rec := p_incident_address_rec;
74 END IF;
75
76
77 END Validate_Incident_Type;
78
79 END; -- Package Body CUG_VALIDATE_ADDRESS_PVT