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,
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,
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
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
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:
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,
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,
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
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
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: