[Home] [Help]
PACKAGE: APPS.WIP_WS_SHORTAGE
Source
1 PACKAGE WIP_WS_SHORTAGE AUTHID CURRENT_USER AS
2 /* $Header: wipwsshs.pls 120.4 2007/12/31 00:18:31 ksuleman noship $ */
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;
12
13
14 PROCEDURE calc_shortage (errbuf OUT NOCOPY VARCHAR2,
15 retcode OUT NOCOPY NUMBER,
16 p_org_id IN NUMBER,
17 p_calc_type IN NUMBER DEFAULT 1);
18
19
20 Type org_comp_calc_rec_type is record(
21 org_id NUMBER,
22 shortage_calc_level NUMBER,
23 inc_expected_rcpts NUMBER,
24 inc_released_jobs NUMBER,
25 inc_unreleased_jobs NUMBER,
26 inc_onhold_jobs NUMBER,
27 supply_cutoff_hr NUMBER,
28 supply_cutoff_min NUMBER,
29 supply_cutoff_time_in_sec NUMBER,
30 category_set_id NUMBER
31 );
32 g_org_comp_calc_rec org_comp_calc_rec_type;
33
34 g_pref_id_comp_short NUMBER := 33;
35 g_pref_id_res_short NUMBER := 23;
36 g_pref_level_id_site NUMBER := 1;
37 g_pref_val_mast_org_att VARCHAR2(30) := 'masterorg';
38 g_pref_val_dtl_org_att VARCHAR2(30) := 'detailorg';
39 g_pref_val_calclevel_att VARCHAR2(30) := 'calclevel';
40 g_pref_val_inc_release_att VARCHAR2(30) := 'released';
41 g_pref_val_inc_unreleased_att VARCHAR2(30) := 'unreleased';
42 g_pref_val_inc_onhold_att VARCHAR2(30) := 'onhold';
43 g_pref_val_inc_rcpts_att VARCHAR2(30) := 'expectedrecipt';
44 g_pref_val_cutoff_hr_att VARCHAR2(30) := 'hr';
45 g_pref_val_cutoff_min_att VARCHAR2(30) := 'min';
46 g_pref_val_comp_type_att VARCHAR2(30) := 'type';
47 g_pref_val_comp_type_item_att VARCHAR2(30) := 'item';
48 g_pref_val_comp_type_cat_att VARCHAR2(30) := 'category';
49 g_pref_val_comp_type_cset_att VARCHAR2(30) := 'categoryset';
50 g_pref_val_comp_type_all NUMBER := 3;
51 g_pref_val_comp_type_item NUMBER := 1;
52 g_pref_val_comp_type_cat NUMBER := 2;
53 g_pref_val_calclevel_org NUMBER := 1;
54 g_pref_val_calclevel_sub NUMBER := 2;
55 g_period_end_time DATE;
56
57
58 TYPE wip_job_op_rec_type is record(
59 ORGANIZATION_ID NUMBER,
60 WIP_ENTITY_ID NUMBER,
61 OPERATION_SEQ_NUM NUMBER,
62 DEPARTMENT_ID NUMBER,
63 FIRST_UNIT_START_DATE DATE,
64 START_QTY NUMBER,
65 OPEN_QTY NUMBER,
66 SCHEDULED_QTY NUMBER
67 );
68 TYPE wip_job_op_tbl_type is table of wip_job_op_rec_type index by BINARY_INTEGER;
69 g_wip_job_op_tbl wip_job_op_tbl_type;
70
71
72 TYPE wip_job_critical_comp_rec_type is record(
73 ORGANIZATION_ID NUMBER,
74 WIP_ENTITY_ID NUMBER,
75 OPERATION_SEQ_NUM NUMBER,
76 INVENTORY_ITEM_ID NUMBER,
77 DEPARTMENT_ID NUMBER,
78 PRIMARY_UOM_CODE VARCHAR2(3),
79 DATE_REQUIRED DATE,
80 QTY_PER_ASSEMBLY NUMBER,
81 REQUIRED_QTY NUMBER,
82 QUANTITY_ISSUED NUMBER,
83 QUANTITY_OPEN NUMBER,
84 WIP_SUPPLY_TYPE NUMBER,
85 BASIS_TYPE NUMBER,
86 SUPPLY_SUBINVENOTRY VARCHAR2(10),
87 SUPPLY_LOCATOR_ID NUMBER,
88 ONHAND_QTY NUMBER,
89 PROJ_AVAIL_QTY NUMBER,
90 SHORTAGE_QTY NUMBER
91 );
92 TYPE wip_job_critical_comp_tbl_type is table of wip_job_critical_comp_rec_type index by BINARY_INTEGER;
93 g_wip_job_critical_comp_tbl wip_job_critical_comp_tbl_type;
94
95
96 TYPE wip_job_critical_res_rec_type is record(
97 ORGANIZATION_ID NUMBER,
98 WIP_ENTITY_ID NUMBER,
99 OPERATION_SEQ_NUM NUMBER,
100 RESOURCE_ID NUMBER,
101 DEPARTMENT_ID NUMBER,
102 DATE_REQUIRED DATE,
103 REQUIRED_QTY NUMBER,
104 QUANTITY_ISSUED NUMBER,
105 QUANTITY_OPEN NUMBER,
106 RESOURCE_AVAIL NUMBER,
107 RESOURCE_PROJ_AVAIL NUMBER,
108 RESOURCE_SHORTAGE NUMBER,
109 PRIMARY_UOM_CODE VARCHAR2(3),
110 SHIFT_NUM NUMBER,
111 SHIFT_SEQ NUMBER
112 );
113 TYPE wip_job_critical_res_tbl_type is table of wip_job_critical_res_rec_type index by BINARY_INTEGER;
114 g_wip_job_critical_res_tbl wip_job_critical_res_tbl_type;
115
116
117
118 END WIP_WS_SHORTAGE;