> >LOCAL lcTheExtendedFullRx,llRecordsSetUp,llNoError >LOCAL lcTheRxList,lcVersion,lnThePatientID,lnThePlanID,lnRxCounter >LOCAL lcTheFullRx,lnState,lcError > >LOCAL llClaimPaid,lcTheResponseStatus >LOCAL lcTheClaimNetworkHeader,lcTheTypeOfTransaction >LOCAL lnCryptError,lnTheNumberOfRxs,lnTheStringOffset >LOCAL lnThePassThru,lnTheRejectCount,lnTheOffset,lcTheRejectString >LOCAL lnRejectCounter,lcTheRejectCode,lcTheMessage,lcTheErrorMessage >LOCAL lcTheModemErrorString,lnTheIncentive,lcTheSegmentID,lcTheHdrErrorString,lcTheClaimInfoErrorString >LOCAL lcTransmissionLevelString,lcTransactionLevelString,lnFirstGroupSeparatorOffset >LOCAL lnTransactionBeginning,lnGroupSeparatorOffset,lcTheTransaction >LOCAL lnStringLength > >************************ SEND PORTION ************************************* >*TOMMY ADDED for testing > >This.Interval = 0 > >_screen.Show >SET STEP ON > >*TOMMY > >lcError = "" > >gcTheTXErrorString = "" && variable which contains the transmit error string >gcTheString = "" && variable which contains the transmit string > >llNoError = .T. > >SELECT rx_claim >* Set up the rx_claim table so records are in an order that groups them by patient_no and bin_no. >* Only look at those records that are ready to transmit and have not been transmitted or rejected before. >SET ORDER TO XMITORDER IN rx_claim >SET FILTER TO statuscode = 0 IN rx_claim >GO TOP IN rx_claim >>