55: -- Initialize API return status to SUCCESS
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
57:
58: -- Debug Message
59: iex_dunning_pvt.WriteLog('iexvffmb.pls:Validate Media Type');
60:
61: l_Cnt := l_content_tbl.count;
62: iex_dunning_pvt.WriteLog('iexvffmb.pls:l_cnt='||l_cnt);
63: for i in 1..l_cnt loop
58: -- Debug Message
59: iex_dunning_pvt.WriteLog('iexvffmb.pls:Validate Media Type');
60:
61: l_Cnt := l_content_tbl.count;
62: iex_dunning_pvt.WriteLog('iexvffmb.pls:l_cnt='||l_cnt);
63: for i in 1..l_cnt loop
64: iex_dunning_pvt.WriteLog('Validate_Media_Type: i:'||i );
65: l_media_type := l_content_tbl(i).media_type;
66: l_email := l_content_tbl(i).email;
60:
61: l_Cnt := l_content_tbl.count;
62: iex_dunning_pvt.WriteLog('iexvffmb.pls:l_cnt='||l_cnt);
63: for i in 1..l_cnt loop
64: iex_dunning_pvt.WriteLog('Validate_Media_Type: i:'||i );
65: l_media_type := l_content_tbl(i).media_type;
66: l_email := l_content_tbl(i).email;
67: l_printer := l_content_tbl(i).printer;
68: l_file_path := l_content_tbl(i).file_path;
66: l_email := l_content_tbl(i).email;
67: l_printer := l_content_tbl(i).printer;
68: l_file_path := l_content_tbl(i).file_path;
69: l_fax := l_content_tbl(i).fax;
70: iex_dunning_pvt.WriteLog('Validate_Media_Type: media_type:'||l_media_type );
71: iex_dunning_pvt.WriteLog('Validate_Media_Type: email:'||l_email );
72: iex_dunning_pvt.WriteLog('Validate_Media_Type: printer:'||l_printer );
73: iex_dunning_pvt.WriteLog('Validate_Media_Type: fax:'||l_fax );
74: --
67: l_printer := l_content_tbl(i).printer;
68: l_file_path := l_content_tbl(i).file_path;
69: l_fax := l_content_tbl(i).fax;
70: iex_dunning_pvt.WriteLog('Validate_Media_Type: media_type:'||l_media_type );
71: iex_dunning_pvt.WriteLog('Validate_Media_Type: email:'||l_email );
72: iex_dunning_pvt.WriteLog('Validate_Media_Type: printer:'||l_printer );
73: iex_dunning_pvt.WriteLog('Validate_Media_Type: fax:'||l_fax );
74: --
75: if (l_media_type = 'EMAIL' and l_email is null) OR
68: l_file_path := l_content_tbl(i).file_path;
69: l_fax := l_content_tbl(i).fax;
70: iex_dunning_pvt.WriteLog('Validate_Media_Type: media_type:'||l_media_type );
71: iex_dunning_pvt.WriteLog('Validate_Media_Type: email:'||l_email );
72: iex_dunning_pvt.WriteLog('Validate_Media_Type: printer:'||l_printer );
73: iex_dunning_pvt.WriteLog('Validate_Media_Type: fax:'||l_fax );
74: --
75: if (l_media_type = 'EMAIL' and l_email is null) OR
76: (l_media_type = 'PRINTER' and l_printer is null) OR
69: l_fax := l_content_tbl(i).fax;
70: iex_dunning_pvt.WriteLog('Validate_Media_Type: media_type:'||l_media_type );
71: iex_dunning_pvt.WriteLog('Validate_Media_Type: email:'||l_email );
72: iex_dunning_pvt.WriteLog('Validate_Media_Type: printer:'||l_printer );
73: iex_dunning_pvt.WriteLog('Validate_Media_Type: fax:'||l_fax );
74: --
75: if (l_media_type = 'EMAIL' and l_email is null) OR
76: (l_media_type = 'PRINTER' and l_printer is null) OR
77: (l_media_type = 'FAX' and l_fax is null) OR
77: (l_media_type = 'FAX' and l_fax is null) OR
78: (l_media_type = 'FILE' and l_file_path is null)
79: then
80: --dbms_output.put_line('found!');
81: iex_dunning_pvt.WriteLog('Validate_Media_Type: no media type');
82: -- IF PG_DEBUG < 10 THEN
83: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
84: IEX_DEBUG_PUB.LogMessage('Validate_Media_Type: ' || 'iexvffmb.pls:missing media_type');
85: END IF;
107: FND_MSG_PUB.Count_And_Get
108: ( p_count => x_msg_count,
109: p_data => x_msg_data
110: );
111: iex_dunning_pvt.WriteLog('iexvffmb:Validate:Exc Exception');
112: errmsg := SQLERRM;
113: iex_dunning_pvt.WriteLog('iexvffmb:Validate:error='||errmsg);
114:
115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
109: p_data => x_msg_data
110: );
111: iex_dunning_pvt.WriteLog('iexvffmb:Validate:Exc Exception');
112: errmsg := SQLERRM;
113: iex_dunning_pvt.WriteLog('iexvffmb:Validate:error='||errmsg);
114:
115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get
117: FND_MSG_PUB.Count_And_Get
118: ( p_count => x_msg_count,
119: p_data => x_msg_data
120: );
121: iex_dunning_pvt.WriteLog('iexvffmb:Validate:UnExc Exception');
122: errmsg := SQLERRM;
123: iex_dunning_pvt.WriteLog('iexvffmb:Validate:error='||errmsg);
124:
125: WHEN OTHERS THEN
119: p_data => x_msg_data
120: );
121: iex_dunning_pvt.WriteLog('iexvffmb:Validate:UnExc Exception');
122: errmsg := SQLERRM;
123: iex_dunning_pvt.WriteLog('iexvffmb:Validate:error='||errmsg);
124:
125: WHEN OTHERS THEN
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: FND_MSG_PUB.Count_And_Get
127: FND_MSG_PUB.Count_And_Get
128: ( p_count => x_msg_count,
129: p_data => x_msg_data
130: );
131: iex_dunning_pvt.WriteLog('iexvffmb:Validate:Other Exception');
132: errmsg := SQLERRM;
133: iex_dunning_pvt.WriteLog('iexvffmb:Validate:error='||errmsg);
134:
135:
129: p_data => x_msg_data
130: );
131: iex_dunning_pvt.WriteLog('iexvffmb:Validate:Other Exception');
132: errmsg := SQLERRM;
133: iex_dunning_pvt.WriteLog('iexvffmb:Validate:error='||errmsg);
134:
135:
136: END Validate_MEDIA_TYPE;
137: