[Home] [Help]
72: WHERE error_type = p_error_type and nvl(error_code,p_error_code) = p_error_code
73: ORDER BY error_code;
74:
75: BEGIN
76: oe_debug_pub.add('***Inside the procedure ONT_RESPONSE_ANALYSER***');
77: result_status.status_code := SUCCESS_ERROR;
78: result_status.dp_flag := 'N';
79: result_status.em_flag := 'N';
80: result_status.ld_flag := 'N';
83:
84: FETCH Get_Response_Header INTO response_hdr_id, fetch_error_code, fetch_interpreted_code;
85:
86: IF Get_Response_Header%NOTFOUND THEN
87: oe_debug_pub.Add('Trans Control Id is not Found');
88: --Invalid trans control
89: result_status.status_code := SYSTEM_ERROR;
90: return;
91: END IF;
91: END IF;
92:
93: CLOSE Get_Response_Header;
94: IF (fetch_error_code is not NULL) AND (fetch_interpreted_code is NULL) THEN --Rule not found
95: oe_debug_pub.Add('Error in the Trans Control and There Is no Rule Defined');
96: fetch_interpreted_code := DATA_ERROR; --Default is DATA ERR
97: END IF;
98: IF fetch_interpreted_code is not NULL THEN
99: oe_debug_pub.Add('Interpreted Error in the Trans Control - ' || fetch_interpreted_code );
95: oe_debug_pub.Add('Error in the Trans Control and There Is no Rule Defined');
96: fetch_interpreted_code := DATA_ERROR; --Default is DATA ERR
97: END IF;
98: IF fetch_interpreted_code is not NULL THEN
99: oe_debug_pub.Add('Interpreted Error in the Trans Control - ' || fetch_interpreted_code );
100: interpret_error(fetch_interpreted_code, result_status.status_code ) ;
101: IF(result_status.status_code = SYSTEM_ERROR) THEN
102: return;
103: END IF;
108: OPEN Get_Interpreted_code(resp.error_code, resp.error_type);
109: FETCH Get_Interpreted_code INTO fetch_interpreted_code;
110: IF Get_Interpreted_code%NOTFOUND THEN --Rule not found
111: fetch_interpreted_code := DATA_ERROR; --Default is DATA ERR
112: oe_debug_pub.Add('Reponse Line Error, Rule Nof Found for Code ' || resp.error_code || ' Type ' || resp.error_type );
113: END IF;
114: oe_debug_pub.Add('Reponse Line Error, Interpreted Code - ' || fetch_interpreted_code );
115: interpret_error(fetch_interpreted_code, result_status.status_code ) ;
116: END IF;
110: IF Get_Interpreted_code%NOTFOUND THEN --Rule not found
111: fetch_interpreted_code := DATA_ERROR; --Default is DATA ERR
112: oe_debug_pub.Add('Reponse Line Error, Rule Nof Found for Code ' || resp.error_code || ' Type ' || resp.error_type );
113: END IF;
114: oe_debug_pub.Add('Reponse Line Error, Interpreted Code - ' || fetch_interpreted_code );
115: interpret_error(fetch_interpreted_code, result_status.status_code ) ;
116: END IF;
117:
118: IF resp.denied_party_flag = 'Y' THEN
115: interpret_error(fetch_interpreted_code, result_status.status_code ) ;
116: END IF;
117:
118: IF resp.denied_party_flag = 'Y' THEN
119: oe_debug_pub.Add('Denied Party is found' );
120: result_status.dp_flag := 'Y';
121: END IF;
122: IF resp.embargo_flag = 'Y' THEN
123: oe_debug_pub.Add('Embargo is found' );
119: oe_debug_pub.Add('Denied Party is found' );
120: result_status.dp_flag := 'Y';
121: END IF;
122: IF resp.embargo_flag = 'Y' THEN
123: oe_debug_pub.Add('Embargo is found' );
124: result_status.em_flag := 'Y';
125: END IF;
126: IF resp.license_required = 'Y' THEN
127: oe_debug_pub.Add('License Required' );
123: oe_debug_pub.Add('Embargo is found' );
124: result_status.em_flag := 'Y';
125: END IF;
126: IF resp.license_required = 'Y' THEN
127: oe_debug_pub.Add('License Required' );
128: result_status.ld_flag := 'Y';
129: END IF;
130: IF(result_status.status_code = SYSTEM_ERROR) THEN
131: return;
132: END IF;
133: END LOOP;
134: EXCEPTION
135: WHEN OTHERS THEN
136: oe_debug_pub.Add('Unknown Exception has occoured' );
137: result_status.status_code := SYSTEM_ERROR;
138: END ONT_RESPONSE_ANALYSER;
139:
140: