>> >>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 >>>>