829: message_name => 'ENG_ENUBRT_ERROR',
830: token => SQLERRM);
831: END;
832:
833: IF (PJM_UNIT_EFF.Enabled = 'Y' AND
834: PJM_UNIT_EFF.Unit_Effective_Item(
835: X_Item_ID => X_item_id,
836: X_Organization_ID => X_org_id) = 'Y')
837: THEN
830: token => SQLERRM);
831: END;
832:
833: IF (PJM_UNIT_EFF.Enabled = 'Y' AND
834: PJM_UNIT_EFF.Unit_Effective_Item(
835: X_Item_ID => X_item_id,
836: X_Organization_ID => X_org_id) = 'Y')
837: THEN
838: X_unit_assembly := 'Y';
925: -- date, then transfer will fail
926:
927: X_stmt_num := 301;
928:
929: IF (PJM_UNIT_EFF.Enabled = 'Y' AND
930: PJM_UNIT_EFF.Unit_Effective_Item(
931: X_Item_ID => X_item_id,
932: X_Organization_ID => X_org_id) = 'Y')
933: THEN
926:
927: X_stmt_num := 301;
928:
929: IF (PJM_UNIT_EFF.Enabled = 'Y' AND
930: PJM_UNIT_EFF.Unit_Effective_Item(
931: X_Item_ID => X_item_id,
932: X_Organization_ID => X_org_id) = 'Y')
933: THEN
934: X_unit_assembly := 'Y';