103:
104: program_exception EXCEPTION;
105: CONC_STATUS BOOLEAN; -- variable for concurrent request completion status
106:
107: l_request_id NUMBER; -- FND global settings
108: l_user_id NUMBER;
109: l_login_id NUMBER;
110: l_pgm_app_id NUMBER;
111: l_pgm_id NUMBER;
158:
159: -- API Body
160:
161: -- Populate WHO column variables
162: l_request_id := FND_GLOBAL.conc_request_id;
163: l_user_id := FND_GLOBAL.user_id;
164: l_login_id := FND_GLOBAL.login_id;
165: l_pgm_app_id := FND_GLOBAL.PROG_APPL_ID;
166: l_pgm_id := FND_GLOBAL.CONC_PROGRAM_ID;
159: -- API Body
160:
161: -- Populate WHO column variables
162: l_request_id := FND_GLOBAL.conc_request_id;
163: l_user_id := FND_GLOBAL.user_id;
164: l_login_id := FND_GLOBAL.login_id;
165: l_pgm_app_id := FND_GLOBAL.PROG_APPL_ID;
166: l_pgm_id := FND_GLOBAL.CONC_PROGRAM_ID;
167:
160:
161: -- Populate WHO column variables
162: l_request_id := FND_GLOBAL.conc_request_id;
163: l_user_id := FND_GLOBAL.user_id;
164: l_login_id := FND_GLOBAL.login_id;
165: l_pgm_app_id := FND_GLOBAL.PROG_APPL_ID;
166: l_pgm_id := FND_GLOBAL.CONC_PROGRAM_ID;
167:
168: /********************************************************************************
161: -- Populate WHO column variables
162: l_request_id := FND_GLOBAL.conc_request_id;
163: l_user_id := FND_GLOBAL.user_id;
164: l_login_id := FND_GLOBAL.login_id;
165: l_pgm_app_id := FND_GLOBAL.PROG_APPL_ID;
166: l_pgm_id := FND_GLOBAL.CONC_PROGRAM_ID;
167:
168: /********************************************************************************
169: * Phase 1 - Record any sales order issues and RMA receipts that have not yet *
162: l_request_id := FND_GLOBAL.conc_request_id;
163: l_user_id := FND_GLOBAL.user_id;
164: l_login_id := FND_GLOBAL.login_id;
165: l_pgm_app_id := FND_GLOBAL.PROG_APPL_ID;
166: l_pgm_id := FND_GLOBAL.CONC_PROGRAM_ID;
167:
168: /********************************************************************************
169: * Phase 1 - Record any sales order issues and RMA receipts that have not yet *
170: * been inserted into the Revenue/COGS matching data model (CRCML and *