2: /* $Header: PJMUEFFB.pls 120.1.12010000.2 2008/09/17 10:32:53 ybabulal ship $ */
3: -- ---------------------------------------------------------------------
4: -- Global Variables
5: -- ---------------------------------------------------------------------
6: G_Unit_Number PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE;
7: G_Enabled VARCHAR2(1) := NULL;
8: G_Org_ID NUMBER := NULL;
9: G_Item_ID NUMBER := NULL;
10: G_Unit_Eff_Item VARCHAR2(1) := NULL;
9: G_Item_ID NUMBER := NULL;
10: G_Unit_Eff_Item VARCHAR2(1) := NULL;
11: G_WIP_Entity_ID NUMBER := NULL;
12: G_WIP_Org_ID NUMBER := NULL;
13: G_WIP_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
14: G_RCV_Txn_ID NUMBER := NULL;
15: G_RCV_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
16: G_RMA_Txn_ID NUMBER := NULL;
17: G_RMA_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
11: G_WIP_Entity_ID NUMBER := NULL;
12: G_WIP_Org_ID NUMBER := NULL;
13: G_WIP_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
14: G_RCV_Txn_ID NUMBER := NULL;
15: G_RCV_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
16: G_RMA_Txn_ID NUMBER := NULL;
17: G_RMA_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
18: G_OE_Line_ID NUMBER := NULL;
19: G_OE_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
13: G_WIP_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
14: G_RCV_Txn_ID NUMBER := NULL;
15: G_RCV_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
16: G_RMA_Txn_ID NUMBER := NULL;
17: G_RMA_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
18: G_OE_Line_ID NUMBER := NULL;
19: G_OE_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
20:
21: -- ---------------------------------------------------------------------
15: G_RCV_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
16: G_RMA_Txn_ID NUMBER := NULL;
17: G_RMA_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
18: G_OE_Line_ID NUMBER := NULL;
19: G_OE_Unit_Num PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE := NULL;
20:
21: -- ---------------------------------------------------------------------
22: -- Private Functions / Procedures
23: -- ---------------------------------------------------------------------
295: L_unit_number VARCHAR2(30) := NULL;
296:
297: CURSOR c IS
298: SELECT N2.unit_number
299: FROM pjm_unit_numbers N1
300: , pjm_unit_numbers N2
301: WHERE N1.unit_number = X_unit_number
302: AND N2.end_item_id = N1.end_item_id
303: AND N2.master_organization_id = N1.master_organization_id
296:
297: CURSOR c IS
298: SELECT N2.unit_number
299: FROM pjm_unit_numbers N1
300: , pjm_unit_numbers N2
301: WHERE N1.unit_number = X_unit_number
302: AND N2.end_item_id = N1.end_item_id
303: AND N2.master_organization_id = N1.master_organization_id
304: AND N2.unit_number < N1.unit_number
334: L_unit_number VARCHAR2(30) := NULL;
335:
336: CURSOR c IS
337: SELECT N2.unit_number
338: FROM pjm_unit_numbers N1
339: , pjm_unit_numbers N2
340: WHERE N1.unit_number = X_unit_number
341: AND N2.end_item_id = N1.end_item_id
342: AND N2.master_organization_id = N1.master_organization_id
335:
336: CURSOR c IS
337: SELECT N2.unit_number
338: FROM pjm_unit_numbers N1
339: , pjm_unit_numbers N2
340: WHERE N1.unit_number = X_unit_number
341: AND N2.end_item_id = N1.end_item_id
342: AND N2.master_organization_id = N1.master_organization_id
343: AND N2.unit_number > N1.unit_number
690: , X_serial_number IN VARCHAR2
691: , X_unit_number IN VARCHAR2
692: , X_error_code OUT NOCOPY VARCHAR2
693: ) RETURN BOOLEAN IS
694: L_serial_unitnum PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE;
695: L_unit_eff_item VARCHAR2(1);
696: BEGIN
697:
698: --
871: L_trx_action_Id NUMBER;
872: L_trx_src_id NUMBER;
873: L_rcv_trx_id NUMBER;
874: L_direction NUMBER;
875: L_unit_number PJM_UNIT_NUMBERS.UNIT_NUMBER%TYPE;
876: BEGIN
877:
878: --
879: -- If Model/Unit Effectivity is not enabled, there is no need for