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
1146: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1147: End if; -- validation error
1148: End if; -- validate before inserting
1149:
1150: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1151: l_LoginId := Fnd_Global.LOGIN_ID;
1152: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1153: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1154: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1147: End if; -- validation error
1148: End if; -- validate before inserting
1149:
1150: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1151: l_LoginId := Fnd_Global.LOGIN_ID;
1152: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1153: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1154: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1155: -- do not use decode because of implicit data type conversions
1148: End if; -- validate before inserting
1149:
1150: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1151: l_LoginId := Fnd_Global.LOGIN_ID;
1152: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1153: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1154: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1155: -- do not use decode because of implicit data type conversions
1156: If l_RequestId is null then
1149:
1150: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1151: l_LoginId := Fnd_Global.LOGIN_ID;
1152: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1153: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1154: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1155: -- do not use decode because of implicit data type conversions
1156: If l_RequestId is null then
1157: l_ProgramUpdate := null;
1150: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1151: l_LoginId := Fnd_Global.LOGIN_ID;
1152: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1153: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1154: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1155: -- do not use decode because of implicit data type conversions
1156: If l_RequestId is null then
1157: l_ProgramUpdate := null;
1158: Else
1610: End If; -- validation
1611:
1612: -- update operation
1613:
1614: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1615: l_LoginId := Fnd_Global.LOGIN_ID;
1616: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1617: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1618: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1611:
1612: -- update operation
1613:
1614: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1615: l_LoginId := Fnd_Global.LOGIN_ID;
1616: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1617: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1618: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1619: -- do not use decode because of implicit data type conversions
1612: -- update operation
1613:
1614: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1615: l_LoginId := Fnd_Global.LOGIN_ID;
1616: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1617: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1618: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1619: -- do not use decode because of implicit data type conversions
1620: If l_RequestId is null then
1613:
1614: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1615: l_LoginId := Fnd_Global.LOGIN_ID;
1616: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1617: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1618: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1619: -- do not use decode because of implicit data type conversions
1620: If l_RequestId is null then
1621: l_ProgramUpdate := null;
1614: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1615: l_LoginId := Fnd_Global.LOGIN_ID;
1616: l_RequestId := Fnd_Global.CONC_REQUEST_ID;
1617: l_ProgramId := Fnd_Global.CONC_PROGRAM_ID;
1618: l_ApplicationId := Fnd_Global.PROG_APPL_ID;
1619: -- do not use decode because of implicit data type conversions
1620: If l_RequestId is null then
1621: l_ProgramUpdate := null;
1622: Else
1833: P_OrgId => l_operation_rec.organization_id) loop
1834: l_DeleteGrpSeqId := l_DelGrp_rec.delete_group_sequence_id;
1835: End loop; -- get existing delete group
1836:
1837: l_UserId := nvl(Fnd_Global.USER_ID, -1);
1838:
1839: l_OperFound := false;
1840: For l_OldOper_rec in l_ExistingOperation_csr(
1841: P_OpSeqId => l_operation_rec.operation_sequence_id,