COMPILE ROUTINE LOAD_PART(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Send_Dyn,Send_Info, Send_Dyn, Set_Status, RList, ErrMsg, obj_Part
DECLARE FUNCTION Get_Status, Set_Printer

$INSERT RDS_EQU
$INSERT QUOTE_DET_EQU
$INSERT ORDER_DET_EQU
$INSERT QUOTE_EQU
$INSERT PROD_SPEC_EQU
$INSERT PART_EQUATES

$INSERT PART_WORK_EQUATES

EQU TARGET_ACTIVELIST$ to 5

OPEN 'ORDER_DET' TO OrdDetTable ELSE
	ErrMsg('Unable to open PART')
	GOTO Bail
END	

OPEN 'PART' TO PartTable ELSE
	ErrMsg('Unable to open PART')
	GOTO Bail
END	


OPEN 'PART_WORK' TO PartWorkTable ELSE
	ErrMsg('Unable to open PART_WORK')
	GOTO Bail
END


SelectSent = 'SELECT ORDER_DET'

RList(SelectSent,TARGET_ACTIVELIST$, "", "", "")

IF Get_Status(errCode) THEN
	ErrMsg(errCode)
	GOTO Bail
END

DEBUG

RecCnt	= 0
Done	= 0

LOOP
	READNEXT OrdDetKey ELSE Done = 1
UNTIL Done
	READ OrdDetRec FROM OrdDetTable,OrdDetKey THEN
		
		Set_Status(0)
		obj_Part('Convert',OrdDetKey:@RM:OrdDetRec)
		IF Get_Status(errCode) THEN DEBUG
		RecCnt += 1
		Send_Info(RecCnt)
	END	;* End of OrderDetRec Read
REPEAT






* * * * * * *
Bail:
* * * * * * *

END
