COMPILE ROUTINE TEST_LINK_WO_STEP_RDS(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_RDS, Send_Dyn, Btree.Extract, ErrMsg
DECLARE FUNCTION Get_Status,obj_RDS, Send_Dyn, 

debug
RDSNo = 201318


RDSRec = XLATE('RDS',RDSNo,'','X')

QuoteNo	= RDSRec<1>
WONo	= RDSRec<6>
OrdNo	= RDSRec<7>
PSN		= RDSRec<114>

QuoteRec = XLATE('QUOTE',QuoteNo,'','X')
QuoteDetKeys = QuoteRec<35>

IF NOT(INDEX(QuoteDetKeys,@VM,1)) THEN

	* Single quote item
	
	QuoteDetRec = XLATE('QUOTE_DET',QuoteNo:'*1','','X')
	QuoteSteps		= QuoteDetRec<8>
	QuotePSNs		= QuoteDetRec<9>
	QuoteProcDescs	= QuoteDetRec<10>
	
	IF INDEX(QuoteDetRec<9>,@VM,1) THEN
		* Multi Step Process
		
		
	END ELSE
		* Single Step Process
		
		
	END
	



END


GOTO Bail

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

END
