13: procedure GENERIC_ERROR(routine in varchar2,
14: errcode in number,
15: errmsg in varchar2) is
16: begin
17: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
18: fnd_message.set_token('ROUTINE', routine);
19: fnd_message.set_token('ERRNO', errcode);
20: fnd_message.set_token('REASON', errmsg);
21: end;
14: errcode in number,
15: errmsg in varchar2) is
16: begin
17: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
18: fnd_message.set_token('ROUTINE', routine);
19: fnd_message.set_token('ERRNO', errcode);
20: fnd_message.set_token('REASON', errmsg);
21: end;
22:
15: errmsg in varchar2) is
16: begin
17: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
18: fnd_message.set_token('ROUTINE', routine);
19: fnd_message.set_token('ERRNO', errcode);
20: fnd_message.set_token('REASON', errmsg);
21: end;
22:
23: /* returns TRUE if FND_DATABASES table exists else FALSE */
16: begin
17: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
18: fnd_message.set_token('ROUTINE', routine);
19: fnd_message.set_token('ERRNO', errcode);
20: fnd_message.set_token('REASON', errmsg);
21: end;
22:
23: /* returns TRUE if FND_DATABASES table exists else FALSE */
24: function db_model_exists return boolean is
70: retcode := 0;
71:
72: exception
73: when others then
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.APPEND_CTX_FRAGMENT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', SQLERRM);
78: message := fnd_message.get;
71:
72: exception
73: when others then
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.APPEND_CTX_FRAGMENT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', SQLERRM);
78: message := fnd_message.get;
79: retcode := 1;
72: exception
73: when others then
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.APPEND_CTX_FRAGMENT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', SQLERRM);
78: message := fnd_message.get;
79: retcode := 1;
80:
73: when others then
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.APPEND_CTX_FRAGMENT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', SQLERRM);
78: message := fnd_message.get;
79: retcode := 1;
80:
81: end append_ctx_fragment;
74: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
75: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.APPEND_CTX_FRAGMENT');
76: fnd_message.set_token('ERRNO', SQLCODE);
77: fnd_message.set_token('REASON', SQLERRM);
78: message := fnd_message.get;
79: retcode := 1;
80:
81: end append_ctx_fragment;
82:
983:
984: when no_data_found then
985: /* The service is not registered with GSM */
986: /* Do the registration now. */
987: fnd_message.set_name('FND', message_name);
988: fnd_message.set_token('NODE', primary_node);
989: fnd_message.set_token('PORT', port);
990: service_name := substrb(fnd_message.get, 1, 240);
991:
984: when no_data_found then
985: /* The service is not registered with GSM */
986: /* Do the registration now. */
987: fnd_message.set_name('FND', message_name);
988: fnd_message.set_token('NODE', primary_node);
989: fnd_message.set_token('PORT', port);
990: service_name := substrb(fnd_message.get, 1, 240);
991:
992: begin
985: /* The service is not registered with GSM */
986: /* Do the registration now. */
987: fnd_message.set_name('FND', message_name);
988: fnd_message.set_token('NODE', primary_node);
989: fnd_message.set_token('PORT', port);
990: service_name := substrb(fnd_message.get, 1, 240);
991:
992: begin
993: fnd_manager.register_si(manager => service_name,
986: /* Do the registration now. */
987: fnd_message.set_name('FND', message_name);
988: fnd_message.set_token('NODE', primary_node);
989: fnd_message.set_token('PORT', port);
990: service_name := substrb(fnd_message.get, 1, 240);
991:
992: begin
993: fnd_manager.register_si(manager => service_name,
994: application => 'FND',
1030: retcode := 1;
1031: return;
1032:
1033: when others then
1034: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1035: fnd_message.set_token('ROUTINE',
1036: 'FND_GSM_UTIL.upload_context_file');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', SQLERRM);
1031: return;
1032:
1033: when others then
1034: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1035: fnd_message.set_token('ROUTINE',
1036: 'FND_GSM_UTIL.upload_context_file');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', SQLERRM);
1039: message := fnd_message.get;
1033: when others then
1034: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1035: fnd_message.set_token('ROUTINE',
1036: 'FND_GSM_UTIL.upload_context_file');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', SQLERRM);
1039: message := fnd_message.get;
1040:
1041: if (not xmldom.isNull(my_doc)) then
1034: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1035: fnd_message.set_token('ROUTINE',
1036: 'FND_GSM_UTIL.upload_context_file');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', SQLERRM);
1039: message := fnd_message.get;
1040:
1041: if (not xmldom.isNull(my_doc)) then
1042: xmldom.freeDocument (my_doc);
1035: fnd_message.set_token('ROUTINE',
1036: 'FND_GSM_UTIL.upload_context_file');
1037: fnd_message.set_token('ERRNO', SQLCODE);
1038: fnd_message.set_token('REASON', SQLERRM);
1039: message := fnd_message.get;
1040:
1041: if (not xmldom.isNull(my_doc)) then
1042: xmldom.freeDocument (my_doc);
1043: end if;
1078:
1079: retcode := 0;
1080:
1081: when null_context_name then
1082: fnd_message.set_name('FND', 'GSM-CTX NULL CONTEXT');
1083: fnd_message.set_token('FILE', filepath);
1084: message := fnd_message.get;
1085:
1086: if (not xmldom.isNull(my_doc)) then
1079: retcode := 0;
1080:
1081: when null_context_name then
1082: fnd_message.set_name('FND', 'GSM-CTX NULL CONTEXT');
1083: fnd_message.set_token('FILE', filepath);
1084: message := fnd_message.get;
1085:
1086: if (not xmldom.isNull(my_doc)) then
1087: xmldom.freeDocument (my_doc);
1080:
1081: when null_context_name then
1082: fnd_message.set_name('FND', 'GSM-CTX NULL CONTEXT');
1083: fnd_message.set_token('FILE', filepath);
1084: message := fnd_message.get;
1085:
1086: if (not xmldom.isNull(my_doc)) then
1087: xmldom.freeDocument (my_doc);
1088: end if;
1090:
1091: retcode := 1;
1092:
1093: when filesys_low_ver then
1094: fnd_message.set_name('FND', 'GSM-CTX FILE SYS COPY LOW');
1095: fnd_message.set_token('FILE', filepath);
1096: message := fnd_message.get;
1097:
1098: if (not xmldom.isNull(my_doc)) then
1091: retcode := 1;
1092:
1093: when filesys_low_ver then
1094: fnd_message.set_name('FND', 'GSM-CTX FILE SYS COPY LOW');
1095: fnd_message.set_token('FILE', filepath);
1096: message := fnd_message.get;
1097:
1098: if (not xmldom.isNull(my_doc)) then
1099: xmldom.freeDocument (my_doc);
1092:
1093: when filesys_low_ver then
1094: fnd_message.set_name('FND', 'GSM-CTX FILE SYS COPY LOW');
1095: fnd_message.set_token('FILE', filepath);
1096: message := fnd_message.get;
1097:
1098: if (not xmldom.isNull(my_doc)) then
1099: xmldom.freeDocument (my_doc);
1100: end if;
1102:
1103: retcode := 1;
1104:
1105: when missing_elem then
1106: fnd_message.set_name('FND', 'GSM-CTX ELEMENT MISSING');
1107: fnd_message.set_token('ELEMENT', element_name);
1108: fnd_message.set_token('FILE', filepath);
1109: message := fnd_message.get;
1110:
1103: retcode := 1;
1104:
1105: when missing_elem then
1106: fnd_message.set_name('FND', 'GSM-CTX ELEMENT MISSING');
1107: fnd_message.set_token('ELEMENT', element_name);
1108: fnd_message.set_token('FILE', filepath);
1109: message := fnd_message.get;
1110:
1111: if (not xmldom.isNull(my_doc)) then
1104:
1105: when missing_elem then
1106: fnd_message.set_name('FND', 'GSM-CTX ELEMENT MISSING');
1107: fnd_message.set_token('ELEMENT', element_name);
1108: fnd_message.set_token('FILE', filepath);
1109: message := fnd_message.get;
1110:
1111: if (not xmldom.isNull(my_doc)) then
1112: xmldom.freeDocument (my_doc);
1105: when missing_elem then
1106: fnd_message.set_name('FND', 'GSM-CTX ELEMENT MISSING');
1107: fnd_message.set_token('ELEMENT', element_name);
1108: fnd_message.set_token('FILE', filepath);
1109: message := fnd_message.get;
1110:
1111: if (not xmldom.isNull(my_doc)) then
1112: xmldom.freeDocument (my_doc);
1113: end if;
1115:
1116: retcode := 1;
1117:
1118: when exceeded_length then
1119: fnd_message.set_name('FND', 'GSM-CTX NODE NAME TOO LONG');
1120: fnd_message.set_token('NODE_NAME', tmp_node_name);
1121: message := fnd_message.get;
1122:
1123: if (not xmldom.isNull(my_doc)) then
1116: retcode := 1;
1117:
1118: when exceeded_length then
1119: fnd_message.set_name('FND', 'GSM-CTX NODE NAME TOO LONG');
1120: fnd_message.set_token('NODE_NAME', tmp_node_name);
1121: message := fnd_message.get;
1122:
1123: if (not xmldom.isNull(my_doc)) then
1124: xmldom.freeDocument (my_doc);
1117:
1118: when exceeded_length then
1119: fnd_message.set_name('FND', 'GSM-CTX NODE NAME TOO LONG');
1120: fnd_message.set_token('NODE_NAME', tmp_node_name);
1121: message := fnd_message.get;
1122:
1123: if (not xmldom.isNull(my_doc)) then
1124: xmldom.freeDocument (my_doc);
1125: end if;
1127:
1128: retcode := 1;
1129:
1130: when others then
1131: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1132: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.upload_context_file');
1133: fnd_message.set_token('ERRNO', SQLCODE);
1134: fnd_message.set_token('REASON', SQLERRM);
1135: message := fnd_message.get;
1128: retcode := 1;
1129:
1130: when others then
1131: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1132: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.upload_context_file');
1133: fnd_message.set_token('ERRNO', SQLCODE);
1134: fnd_message.set_token('REASON', SQLERRM);
1135: message := fnd_message.get;
1136:
1129:
1130: when others then
1131: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1132: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.upload_context_file');
1133: fnd_message.set_token('ERRNO', SQLCODE);
1134: fnd_message.set_token('REASON', SQLERRM);
1135: message := fnd_message.get;
1136:
1137: if (not xmldom.isNull(my_doc)) then
1130: when others then
1131: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1132: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.upload_context_file');
1133: fnd_message.set_token('ERRNO', SQLCODE);
1134: fnd_message.set_token('REASON', SQLERRM);
1135: message := fnd_message.get;
1136:
1137: if (not xmldom.isNull(my_doc)) then
1138: xmldom.freeDocument (my_doc);
1131: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1132: fnd_message.set_token('ROUTINE', 'FND_GSM_UTIL.upload_context_file');
1133: fnd_message.set_token('ERRNO', SQLCODE);
1134: fnd_message.set_token('REASON', SQLERRM);
1135: message := fnd_message.get;
1136:
1137: if (not xmldom.isNull(my_doc)) then
1138: xmldom.freeDocument (my_doc);
1139: end if;