605: else
606: begin
607: Select Submitted_Login_ID
608: Into subloginid
609: From Fnd_Logins
610: Where Login_ID = loginid;
611:
612: exception
613: when no_data_found then
1054: if ((fcp_printer is not null) and (curr_printer <> fcp_printer)) then
1055: if (P_VALIDATE_PRINTER = 'FAIL') then
1056: raise printer_error;
1057: elsif (P_VALIDATE_PRINTER = 'SKIP') then
1058: if (FND_LOG.LEVEL_EVENT >=
1059: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1060: fnd_message.set_name('FND','CONC-Illegal printer spec');
1061: fnd_log.message(FND_LOG.LEVEL_EVENT,
1062: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1055: if (P_VALIDATE_PRINTER = 'FAIL') then
1056: raise printer_error;
1057: elsif (P_VALIDATE_PRINTER = 'SKIP') then
1058: if (FND_LOG.LEVEL_EVENT >=
1059: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1060: fnd_message.set_name('FND','CONC-Illegal printer spec');
1061: fnd_log.message(FND_LOG.LEVEL_EVENT,
1062: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1063: end if;
1057: elsif (P_VALIDATE_PRINTER = 'SKIP') then
1058: if (FND_LOG.LEVEL_EVENT >=
1059: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1060: fnd_message.set_name('FND','CONC-Illegal printer spec');
1061: fnd_log.message(FND_LOG.LEVEL_EVENT,
1062: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1063: end if;
1064: GOTO next_iteration;
1065: else -- P_VALIDATE_PRINTER = 'RESOLVE'
1062: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1063: end if;
1064: GOTO next_iteration;
1065: else -- P_VALIDATE_PRINTER = 'RESOLVE'
1066: if (FND_LOG.LEVEL_EVENT >=
1067: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1068: fnd_message.set_name ('FND',
1069: 'CONC-Illegal printer spec');
1070: fnd_log.message(FND_LOG.LEVEL_EVENT,
1063: end if;
1064: GOTO next_iteration;
1065: else -- P_VALIDATE_PRINTER = 'RESOLVE'
1066: if (FND_LOG.LEVEL_EVENT >=
1067: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1068: fnd_message.set_name ('FND',
1069: 'CONC-Illegal printer spec');
1070: fnd_log.message(FND_LOG.LEVEL_EVENT,
1071: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1066: if (FND_LOG.LEVEL_EVENT >=
1067: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1068: fnd_message.set_name ('FND',
1069: 'CONC-Illegal printer spec');
1070: fnd_log.message(FND_LOG.LEVEL_EVENT,
1071: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1072: fnd_log.string(FND_LOG.LEVEL_EVENT,
1073: 'fnd.plsql.FND_REQUEST.SUBMIT.printer',
1074: 'Invalid printer('||curr_printer||
1068: fnd_message.set_name ('FND',
1069: 'CONC-Illegal printer spec');
1070: fnd_log.message(FND_LOG.LEVEL_EVENT,
1071: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1072: fnd_log.string(FND_LOG.LEVEL_EVENT,
1073: 'fnd.plsql.FND_REQUEST.SUBMIT.printer',
1074: 'Invalid printer('||curr_printer||
1075: ') specified for program(' ||program||
1076: '). Attempting to resolve by using printer: '
1304: raise;
1305: end;
1306:
1307: -- Fetch Login ID for the request from the sequnce generator.
1308: -- Insert the record in Fnd_Logins if the request submission
1309: -- successful.
1310: begin
1311: Select Fnd_Logins_S.nextval
1312: Into loginid
1307: -- Fetch Login ID for the request from the sequnce generator.
1308: -- Insert the record in Fnd_Logins if the request submission
1309: -- successful.
1310: begin
1311: Select Fnd_Logins_S.nextval
1312: Into loginid
1313: From Sys.Dual;
1314:
1315: exception
1993:
1994: end;
1995: end if;
1996:
1997: -- Insert into Fnd_Logins
1998: if (subloginid is not null) then
1999: begin
2000: Insert
2001: into Fnd_Logins (
1997: -- Insert into Fnd_Logins
1998: if (subloginid is not null) then
1999: begin
2000: Insert
2001: into Fnd_Logins (
2002: Login_Id, User_Id,
2003: Start_Time, End_Time,
2004: Pid, Spid, Terminal_ID,
2005: Login_Name, Submitted_Login_Id)