COMPILE FUNCTION obj_CUST_EPI_PART(Method,Parms)
/*
	Methods for the CUST_EPI_PART table
    
	05/23/2011 JCH - Initial Coding
     
    Properties:
     
    Methods:
    
    Convert()						;* Creates and overwrites CUST_EPI_PART RECORDS records based on PROD_SPEC record
	
*/


DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey
DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, RList, ErrMsg, Btree.Extract

$INSERT MSG_EQUATES
$INSERT CUST_EPI_PART_EQUATES
$INSERT PROD_SPEC_EQUATES
$INSERT QUOTE_SPEC_EQU
 

ErrTitle = 'Error in Stored Procedure "obj_CUST_EPI_PART"'
ErrorMsg = ''

IF NOT(ASSIGNED(Method))	THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
IF NOT(ASSIGNED(Parms))		THEN Parms = ''

IF ErrorMsg NE '' THEN
	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
	RETURN ''
END

Result = ''

BEGIN CASE
	CASE Method = 'Convert'		; GOSUB Convert
	CASE 1
		ErrorMsg = 'Unknown Method ':QUOTE(Method):' passed to object.'

END CASE

IF ErrorMsg NE '' THEN
	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
	RETURN ''
END

RETURN Result


* * * * * * *
Convert:
* * * * * * *

RETURN





