*-- Procedure QCALLREC
*	Aliases of databases used
*		CHECKER
*			Contains the qc routines baseed on the corrosponding clicom 
*			element number
*		LISTR
*			List of the record elements that will be QCed, viking name
*			clicom name, clicom element no
*		FRECORDS
*			flag storage for the data records
*
*	Arrays Used
*		LaData
*			Data records of the current form are stored here
*	
*SETUP
PRIVATE lnR,lnRS,lnRE,lnC,lnCS,lnCE,lcQC,temp1, temp2
PRIVATE lcCurField, lcFormNo, lcWhat, lcWhatF
lcFormNo = FORMTYPE()
SELECT RECORDS
INDEX ON VRECPOS + SHIPCC TAG QCOR ADDITIVE
SET ORDER TO TAG QCOR OF gcDrvLoc + gcAQCVIK + "RR" + lcFormNo + ".CDX"
SELECT FRECORDS
INDEX ON VRECPOS + SHIPCC TAG QCOFR ADDITIVE
SET ORDER TO TAG QCOFR OF gcDrvLoc + gcAQCVIK + "FR" + lcFormNo + ".CDX"
SELECT RECORDS
SET RELATION TO records.vrecpos + records.shipcc INTO FRECORDS ADDITIVE
SELECT RECORDS
GO TOP
SELECT CHECKER
GO TOP
SELECT LISTR
GO TOP



SCAN && Start of loop FOR DBA LISTR
=Therm("The batch is being QCed")
SCATTER MEMVAR
	* Start of loop for DBA CHECKER
	SELECT CHECKER
	SCAN FOR LISTR.ELENO = CHECKER.ELEM1
	SCATTER MEMVAR
		SELECT RECORDS
		SCAN
		SCATTER MEMVAR
		gcShipId = RECORDS.SHIPCC
		lcCurField = FIELD(LISTR.VIKNO)			
DO QCARCODE
		SELECT RECORDS
		ENDSCAN
	SELECT CHECKER	
	ENDSCAN
	* Start of loop for DBA CHECKER
SELECT LISTR
ENDSCAN &&End of loop FOR DBA LISTR
RETURN