82: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
83: END IF;
84:
85: IF FND_API.to_Boolean( p_init_msg_list ) THEN
86: FND_MSG_PUB.initialize;
87: END IF;
88:
89: x_return_status := FND_API.G_RET_STS_SUCCESS;
90: -- Start here
301: x_msg_count := 1;
302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
303: ROLLBACK TO Create_Visa_PUB;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
305: FND_MSG_PUB.Count_And_Get
306: ( p_count => x_msg_count ,
307: p_data => x_msg_data
308: );
309: WHEN OTHERS THEN
313: x_msg_count := 1;
314:
315: IF l_message_name IN('IGS_PE_VIS_ASOC_PASS_EXP','IGS_FOREIGN_KEY_REFERENCE','IGS_PE_VISA_DATE_OVERLAP','IGS_EN_INV','IGS_PS_LGCY_MANDATORY', 'IGS_PE_VIPS_UPD_ERR') THEN
316: x_return_status := FND_API.G_RET_STS_ERROR ;
317: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
318: ELSIF l_message_name = 'FORM_RECORD_DELETED' THEN
319: x_return_status := FND_API.G_RET_STS_ERROR ;
320: fnd_message.set_name ('IGS', 'IGS_EN_INV');
321: fnd_message.set_token('PARAM','PERSON_ID');
319: x_return_status := FND_API.G_RET_STS_ERROR ;
320: fnd_message.set_name ('IGS', 'IGS_EN_INV');
321: fnd_message.set_token('PARAM','PERSON_ID');
322: igs_ge_msg_stack.add;
323: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F');
324: ELSIF l_message_name = 'IGS_PE_VISA_DUP_EXISTS' THEN
325: x_return_status := FND_API.G_RET_STS_ERROR ;
326: fnd_message.set_name ('IGS', 'IGS_PE_UNIQUE_FAILED');
327: fnd_message.set_token('COLUMN','PERSON_ID,VISA_TYPE,VISA_ISSUE_DATE');
325: x_return_status := FND_API.G_RET_STS_ERROR ;
326: fnd_message.set_name ('IGS', 'IGS_PE_UNIQUE_FAILED');
327: fnd_message.set_token('COLUMN','PERSON_ID,VISA_TYPE,VISA_ISSUE_DATE');
328: igs_ge_msg_stack.add;
329: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F');
330: ELSE
331: x_msg_data := SQLERRM;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: END IF;
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
419: IF FND_API.to_Boolean( p_init_msg_list ) THEN
420: FND_MSG_PUB.initialize;
421: END IF;
422:
423: x_return_status := FND_API.G_RET_STS_SUCCESS;
424:
728: ROLLBACK TO Update_Visa_PUB;
729: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_LOCKED');
730: igs_ge_msg_stack.add;
731: x_return_status := FND_API.G_RET_STS_ERROR ;
732: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
733: x_msg_count := 1;
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO Update_Visa_PUB;
736: x_return_status := FND_API.G_RET_STS_ERROR ;
738: x_msg_count := 1;
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740: ROLLBACK TO Update_Visa_PUB;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: FND_MSG_PUB.Count_And_Get
743: ( p_count => x_msg_count ,
744: p_data => x_msg_data
745: );
746: WHEN OTHERS THEN
749:
750: x_msg_count := 1;
751: IF l_message_name IN('IGS_PE_VIS_ASOC_PASS_EXP','IGS_PE_VISA_DUP_EXISTS','IGS_PE_VISA_DATE_OVERLAP','IGS_EN_INV','IGS_PS_LGCY_MANDATORY', 'IGS_PE_VIPS_UPD_ERR','IGS_PE_VIPS_COL_NONUPD','FORM_RECORD_DELETED') THEN
752: x_return_status := FND_API.G_RET_STS_ERROR ;
753: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
754: ELSE
755: x_msg_data := SQLERRM;
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
757: END IF;
828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
829: END IF;
830:
831: IF FND_API.to_Boolean( p_init_msg_list ) THEN
832: FND_MSG_PUB.initialize;
833: END IF;
834:
835: x_return_status := FND_API.G_RET_STS_SUCCESS;
836:
922: x_msg_count := 1;
923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
924: ROLLBACK TO Create_VisitHistry_PUB;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
926: FND_MSG_PUB.Count_And_Get
927: ( p_count => x_msg_count ,
928: p_data => x_msg_data
929: );
930: WHEN OTHERS THEN
935: x_msg_count := 1;
936:
937: IF l_message_name IN('IGS_PE_PORT_DATE_OVERLAP','IGS_EN_INV','IGS_PS_LGCY_MANDATORY', 'IGS_PE_VIPS_UPD_ERR','IGS_PE_VIPS_COL_NONUPD') THEN
938: x_return_status := FND_API.G_RET_STS_ERROR ;
939: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
940: ELSIF l_message_name = 'IGS_PE_PORT_DUP_EXISTS' THEN
941: x_return_status := FND_API.G_RET_STS_ERROR ;
942: fnd_message.set_name ('IGS', 'IGS_PE_UNIQUE_FAILED');
943: fnd_message.set_token('COLUMN','PORT_OF_ENTRY,CNTRY_ENTRY_FORM_NUM');
941: x_return_status := FND_API.G_RET_STS_ERROR ;
942: fnd_message.set_name ('IGS', 'IGS_PE_UNIQUE_FAILED');
943: fnd_message.set_token('COLUMN','PORT_OF_ENTRY,CNTRY_ENTRY_FORM_NUM');
944: igs_ge_msg_stack.add;
945: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F');
946: ELSE
947: x_msg_data := ' ' || SQLERRM;
948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
949: END IF;
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1033:
1034: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1035: FND_MSG_PUB.initialize;
1036: END IF;
1037:
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039:
1141: ROLLBACK TO Update_VisitHistry_PUB;
1142: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_LOCKED');
1143: igs_ge_msg_stack.add;
1144: x_return_status := FND_API.G_RET_STS_ERROR ;
1145: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
1146: x_msg_count := 1;
1147: WHEN FND_API.G_EXC_ERROR THEN
1148: ROLLBACK TO Update_VisitHistry_PUB;
1149: x_return_status := FND_API.G_RET_STS_ERROR ;
1151: x_msg_count := 1;
1152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1153: ROLLBACK TO Update_VisitHistry_PUB;
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1155: FND_MSG_PUB.Count_And_Get
1156: ( p_count => x_msg_count ,
1157: p_data => x_msg_data
1158: );
1159: WHEN OTHERS THEN
1164: x_msg_count := 1;
1165:
1166: IF l_message_name IN('IGS_PE_PORT_DUP_EXISTS','IGS_PE_PORT_DATE_OVERLAP','IGS_EN_INV','IGS_PS_LGCY_MANDATORY', 'IGS_PE_VIPS_UPD_ERR','IGS_PE_VIPS_COL_NONUPD') THEN
1167: x_return_status := FND_API.G_RET_STS_ERROR ;
1168: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
1169: ELSE
1170: x_msg_data := SQLERRM;
1171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1172: END IF;
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244:
1245: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1246: FND_MSG_PUB.initialize;
1247: END IF;
1248:
1249: x_return_status := FND_API.G_RET_STS_SUCCESS;
1250: -- Start here
1331: x_msg_count := 1;
1332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1333: ROLLBACK TO Create_Passport_PUB;
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1335: FND_MSG_PUB.Count_And_Get
1336: ( p_count => x_msg_count ,
1337: p_data => x_msg_data
1338: );
1339: WHEN OTHERS THEN
1343: x_msg_count := 1;
1344:
1345: IF l_message_name IN('IGS_PE_VIS_ASOC_PASS_EXP','IGS_EN_INV','IGS_PS_LGCY_MANDATORY', 'IGS_PE_VIPS_UPD_ERR','IGS_PE_VIPS_COL_NONUPD') THEN
1346: x_return_status := FND_API.G_RET_STS_ERROR ;
1347: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
1348: ELSIF l_message_name = 'FORM_RECORD_DELETED' THEN
1349: x_return_status := FND_API.G_RET_STS_ERROR ;
1350: fnd_message.set_name ('IGS', 'IGS_EN_INV');
1351: fnd_message.set_token('PARAM','PERSON_ID');
1349: x_return_status := FND_API.G_RET_STS_ERROR ;
1350: fnd_message.set_name ('IGS', 'IGS_EN_INV');
1351: fnd_message.set_token('PARAM','PERSON_ID');
1352: igs_ge_msg_stack.add;
1353: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F');
1354: ELSIF l_message_name = 'IGS_PE_PASSPORT_DUP_EXISTS' THEN
1355: x_return_status := FND_API.G_RET_STS_ERROR ;
1356: fnd_message.set_name ('IGS', 'IGS_PE_UNIQUE_FAILED');
1357: fnd_message.set_token('COLUMN','PERSON_ID,PASSPORT_CNTRY_CODE,PASSPORT_NUMBER');
1355: x_return_status := FND_API.G_RET_STS_ERROR ;
1356: fnd_message.set_name ('IGS', 'IGS_PE_UNIQUE_FAILED');
1357: fnd_message.set_token('COLUMN','PERSON_ID,PASSPORT_CNTRY_CODE,PASSPORT_NUMBER');
1358: igs_ge_msg_stack.add;
1359: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST, p_encoded => 'F');
1360: ELSE
1361: x_msg_data := ' ' || SQLERRM;
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1363: END IF;
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: END IF;
1445:
1446: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1447: FND_MSG_PUB.initialize;
1448: END IF;
1449:
1450: x_return_status := FND_API.G_RET_STS_SUCCESS;
1451:
1568: ROLLBACK TO Update_Passport_PUB;
1569: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_LOCKED');
1570: igs_ge_msg_stack.add;
1571: x_return_status := FND_API.G_RET_STS_ERROR ;
1572: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
1573: x_msg_count := 1;
1574: WHEN FND_API.G_EXC_ERROR THEN
1575: ROLLBACK TO Update_Passport_PUB;
1576: x_return_status := FND_API.G_RET_STS_ERROR ;
1578: x_msg_count := 1;
1579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1580: ROLLBACK TO Update_Passport_PUB;
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: FND_MSG_PUB.Count_And_Get
1583: ( p_count => x_msg_count ,
1584: p_data => x_msg_data
1585: );
1586: WHEN OTHERS THEN
1590:
1591: x_msg_count := 1;
1592: IF l_message_name IN('IGS_PE_VIS_ASOC_PASS_EXP','IGS_PE_PASSPORT_DUP_EXISTS','IGS_EN_INV','IGS_PS_LGCY_MANDATORY', 'IGS_PE_VIPS_UPD_ERR','IGS_PE_VIPS_COL_NONUPD') THEN
1593: x_return_status := FND_API.G_RET_STS_ERROR ;
1594: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_FIRST, p_encoded => 'F');
1595: ELSE
1596: x_msg_data := ' ' || SQLERRM;
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1598: END IF;