569: FND_MSG_PUB.Add;
570: Raise FND_API.G_EXC_ERROR;
571: End if; -- invalid op code
572: -- copy op resources
573: l_UserId := nvl(Fnd_Global.USER_ID, -1);
574: l_LoginId := Fnd_Global.LOGIN_ID;
575: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
576: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
577: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
570: Raise FND_API.G_EXC_ERROR;
571: End if; -- invalid op code
572: -- copy op resources
573: l_UserId := nvl(Fnd_Global.USER_ID, -1);
574: l_LoginId := Fnd_Global.LOGIN_ID;
575: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
576: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
577: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
578: -- do not use decode because of implicit data type conversions
571: End if; -- invalid op code
572: -- copy op resources
573: l_UserId := nvl(Fnd_Global.USER_ID, -1);
574: l_LoginId := Fnd_Global.LOGIN_ID;
575: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
576: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
577: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
578: -- do not use decode because of implicit data type conversions
579: If l_RequestId is null then
572: -- copy op resources
573: l_UserId := nvl(Fnd_Global.USER_ID, -1);
574: l_LoginId := Fnd_Global.LOGIN_ID;
575: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
576: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
577: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
578: -- do not use decode because of implicit data type conversions
579: If l_RequestId is null then
580: l_ProgramUpdate := null;
573: l_UserId := nvl(Fnd_Global.USER_ID, -1);
574: l_LoginId := Fnd_Global.LOGIN_ID;
575: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
576: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
577: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
578: -- do not use decode because of implicit data type conversions
579: If l_RequestId is null then
580: l_ProgramUpdate := null;
581: Else
1150: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1151: End if; -- validation error
1152: End if; -- validate before inserting
1153:
1154: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1155: l_LoginId := Fnd_Global.LOGIN_ID;
1156: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1157: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1158: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1151: End if; -- validation error
1152: End if; -- validate before inserting
1153:
1154: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1155: l_LoginId := Fnd_Global.LOGIN_ID;
1156: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1157: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1158: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1159: -- do not use decode because of implicit data type conversions
1152: End if; -- validate before inserting
1153:
1154: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1155: l_LoginId := Fnd_Global.LOGIN_ID;
1156: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1157: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1158: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1159: -- do not use decode because of implicit data type conversions
1160: If l_RequestId is null then
1153:
1154: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1155: l_LoginId := Fnd_Global.LOGIN_ID;
1156: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1157: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1158: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1159: -- do not use decode because of implicit data type conversions
1160: If l_RequestId is null then
1161: l_ProgramUpdate := null;
1154: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1155: l_LoginId := Fnd_Global.LOGIN_ID;
1156: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1157: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1158: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1159: -- do not use decode because of implicit data type conversions
1160: If l_RequestId is null then
1161: l_ProgramUpdate := null;
1162: Else
1614: End If; -- validation
1615:
1616: -- update operation
1617:
1618: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1619: l_LoginId := Fnd_Global.LOGIN_ID;
1620: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1621: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1622: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1615:
1616: -- update operation
1617:
1618: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1619: l_LoginId := Fnd_Global.LOGIN_ID;
1620: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1621: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1622: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1623: -- do not use decode because of implicit data type conversions
1616: -- update operation
1617:
1618: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1619: l_LoginId := Fnd_Global.LOGIN_ID;
1620: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1621: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1622: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1623: -- do not use decode because of implicit data type conversions
1624: If l_RequestId is null then
1617:
1618: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1619: l_LoginId := Fnd_Global.LOGIN_ID;
1620: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1621: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1622: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1623: -- do not use decode because of implicit data type conversions
1624: If l_RequestId is null then
1625: l_ProgramUpdate := null;
1618: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1619: l_LoginId := Fnd_Global.LOGIN_ID;
1620: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1621: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1622: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1623: -- do not use decode because of implicit data type conversions
1624: If l_RequestId is null then
1625: l_ProgramUpdate := null;
1626: Else
1837: P_OrgId => l_operation_rec.organization_id) loop
1838: l_DeleteGrpSeqId := l_DelGrp_rec.delete_group_sequence_id;
1839: End loop; -- get existing delete group
1840:
1841: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1842:
1843: l_OperFound := false;
1844: For l_OldOper_rec in l_ExistingOperation_csr(
1845: P_OpSeqId => l_operation_rec.operation_sequence_id,