3:
4: g_logLevel NUMBER := FND_LOG.g_current_runtime_level;
5: g_user_id NUMBER := FND_GLOBAL.user_id;
6: g_login_id NUMBER := FND_GLOBAL.login_id;
7: g_prog_appid NUMBER := FND_PROFILE.value('RESP_APPL_ID');
8: g_prog_id NUMBER := FND_PROFILE.value('PROGRAM_ID');
9: g_prog_run_date DATE := sysdate;
10: g_request_id NUMBER := FND_PROFILE.value('REQUEST_ID');
11: g_init_obj_ver NUMBER := 1;
4: g_logLevel NUMBER := FND_LOG.g_current_runtime_level;
5: g_user_id NUMBER := FND_GLOBAL.user_id;
6: g_login_id NUMBER := FND_GLOBAL.login_id;
7: g_prog_appid NUMBER := FND_PROFILE.value('RESP_APPL_ID');
8: g_prog_id NUMBER := FND_PROFILE.value('PROGRAM_ID');
9: g_prog_run_date DATE := sysdate;
10: g_request_id NUMBER := FND_PROFILE.value('REQUEST_ID');
11: g_init_obj_ver NUMBER := 1;
12:
6: g_login_id NUMBER := FND_GLOBAL.login_id;
7: g_prog_appid NUMBER := FND_PROFILE.value('RESP_APPL_ID');
8: g_prog_id NUMBER := FND_PROFILE.value('PROGRAM_ID');
9: g_prog_run_date DATE := sysdate;
10: g_request_id NUMBER := FND_PROFILE.value('REQUEST_ID');
11: g_init_obj_ver NUMBER := 1;
12:
13:
14: PROCEDURE calc_shortage (errbuf OUT NOCOPY VARCHAR2,