10: SELECT
11: CR.CONCURRENT_PROGRAM_ID
12: INTO L_CONC_PROGRAM_ID
13: FROM
14: FND_CONCURRENT_REQUESTS CR
15: WHERE CR.PROGRAM_APPLICATION_ID = 140
16: AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
17: SELECT
18: CP.USER_CONCURRENT_PROGRAM_NAME
35: BEGIN
36: P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
37: SELECT SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=',1,1)+1)
38: into P_MASS_RETIREMENT_ID1
39: FROM FND_CONCURRENT_REQUESTS
40: WHERE REQUEST_ID =P_CONC_REQUEST_ID;
41: RETURN (TRUE);
42: END BEFOREREPORT;
43: FUNCTION AFTERREPORT RETURN BOOLEAN IS