323: x_msg_count OUT NOCOPY NUMBER,
324: x_msg_data OUT NOCOPY VARCHAR2
325: ) IS
326:
327: l_conc_request_id CONSTANT Number := Fnd_Global.Conc_Request_Id;
328:
329: TYPE circ_rec IS REF CURSOR;
330: insert_cursor circ_rec;
331: -- cursor to retrieve rule name
2975:
2976: CURSOR csr_wf_role_user IS
2977: SELECT name
2978: FROM wf_roles
2979: WHERE name = FND_GLOBAL.USER_NAME;
2980:
2981: l_conc_pgm VARCHAR2(100);
2982: l_okc_rules_engine VARCHAR2(1);
2983:
3019: OPEN csr_wf_role_user;
3020: FETCH csr_wf_role_user INTO l_user_name;
3021: IF csr_wf_role_user%FOUND THEN
3022: -- set Notify user
3023: l_notify := fnd_submit.add_notification(FND_GLOBAL.USER_NAME);
3024: END IF; --
3025: CLOSE csr_wf_role_user;
3026:
3027: -- Submit the Concurrent Program