...
 
      SELECT csRFQ_B
      SCAN
         Harness = ALLTRIM(csRfq_b.part_no)
         *pulls revision data from Intelex first AND fill IN any others from VFP Document Tables. (DES) 9/26/08
         DO Intelex_Multi_Rev WITH gcRevMemo, gcRevMemo5Col, gcRevMemo6Col, gcPlacardRevMemo
 
         IF USED("csPart_Li") Then
            SELECT csPart_li

* This program looks up all the Rev data from Document and populates a table called REV which is stored in SYS(2023)
* 
* It also populates the prior used Rev Var's in case a program requires them.
*
* Date: 5/28/2008 
* By: Doug Symes
*
LPARAMETERS lcRevMemo AS Character, lcRevMemo5Col AS Character, lcRevMemo6Col AS Character, lcPlacardRevMemo AS Character
 
PUBLIC cSeek, nCount, lIntelex, cSQL, nIntelexMultRevConn