>>>SELECT InsCarr.CarName, Seq, Rec FROM InsCarr JOIN (SELECT PADL( Seq_Num, 4, '0' ) AS Seq, RECNO() AS Rec FROM covr WITH (BUFFERING=.T.) ; >>>WHERE Pat_No=Patient.PtPn AND CvPS=InsuranceLevel AND ! DELETED() ) ; >>>Covr ON InsCarr.InsCarr=Covr.cvCarr ; >>>ORDER BY 1 INTO CURSOR CarrierList>>
SELECT Seq,CarName,Rec ; FROM InsCarr ; JOIN (SELECT PADL(Seq_Num,4,'0') AS Seq,RECNO() AS Rec,cvCarr ; FROM covr WITH (BUFFERING=.T.) ; WHERE Pat_No=Patient.PtPn AND CvPS=THISFORMInsuranceLevel AND ! DELETED() ) Covr ; ON InsCarr=cvCarr ; ORDER BY 1 ; INTO CURSOR SequenceList