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