Compile subroutine Jonathan_Test(VOID)

#pragma precomp SRP_PreCompiler

Declare Function Database_Services, Location_Services, Nextkey, Obj_Rds	,obj_WO_Mat
Declare subroutine Copy_Record_To_SQL, Delete_Record_From_SQL, Msg, Btree.Extract, POPUP, Database_Services, SRP_Run_Command, Msg, Psn_Services, Errmsg, Scrape_Services
Declare function GetTickCount, Dialog_Box, Obj_Override_Log, Btree.Extract, POPUP, GetCommandLine, Error_Services, Database_Services, Get_Repos_Entities, SRP_DATETIME, DateTime

$Insert OVERRIDE_LOG_EQUATES
$Insert POPUP_EQUATES
$INSERT LOGICAL
$Insert MSG_EQUATES
$Insert REACT_STATUS_EQUATES
$insert APP_INSERTS
$Insert REACTOR_EQUATES
Debug

KeyList = Xlate('SYSLISTS', 'TEST_JONATHAN_REACT_EVENT', '', 'X')
    Counter          = 0
    Def              = ""
    Def<MCAPTION$>   = "Pushing REACT_EVENT data..."
    Def<MTYPE$   >   = "GC"
    Def<MEXTENT$ >   = DCount(KeyList, @FM)
    Def<MTEXTWIDTH$> = 800
    MsgUp            = Msg(@window, Def)
    
    For each Key in KeyList using @FM
    	Counter      += 1
        Msg(@window, MsgUp, Counter, MSGINSTUPDATE$)
        Copy_Record_To_Sql('REACT_EVENT', Key, 1)
    Next Key
Msg(@window, MsgUp) 

Debug
Scrape_Services('CopyRecordsToScrapeDB')


Debug

Copy_Record_To_SQL('REACT_MODE_NG', '32*20123.2284722222', 1)
Debug
RDSNo = 571843
RDSRec      = Database_Services('ReadDataRow', 'RDS', RDSNo)
PSNo = RDSRec<114>
SpecialInst = XLATE('PROD_SPEC', PSNo, 10, 'X')

RDSRec<31>  = SpecialInst
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec)




Debug
sqlErrorLog = Database_Services('ReadDataRow', 'SQL_ERROR', '2023-01-26')
Def = ""
Def<MCAPTION$> = "Exporting Records..."
Def<MTYPE$ > = "GC"
Def<MEXTENT$> = DCount(sqlErrorLog, @FM)
Def<MTEXTWIDTH$> = 400

MsgUp = Msg(@WINDOW, Def)					;* Put up the gas gauge
for each error in sqlErrorLog using @FM setting ePos
	table = error<1,1>
	recordID = error<1,2>
	Copy_Record_To_SQL(table, recordID, 1)
	Void = Msg(@WINDOW, MsgUp, ePos, MSGINSTUPDATE$)
	
Next error
Msg(@WINDOW, MsgUp) 		;* take down the gauge
Debug
Copy_Record_To_SQL('RDS', 501323, 1)
Debug
test = Nextkey('REACTOR_LOG')
debug
currKey = Nextkey('REACTOR_LOG')
for i = currKey to 100000
	Database_Services('DeleteDataRow', 'REACTOR_LOG', i)
Next i

* for i = 41436 to 60000
* 	Database_Services('DeleteDataRow', 'REACTOR_LOG', i)
* Next i

Debug
misLoadedReacts = ''
for i = 0 to 99
	loadedReactCass = Xlate('REACT_STATUS', i, 6, 'X')
	locate '1' in loadedReactCass using @VM setting iPos then
		misLoadedReacts<-1> = i
	end
Next i


Debug
WOMatRecord = XLATE('WO_MAT', '171663*72', '', 'X')
curWfrCt = obj_WO_Mat('CurrWaferCnt','171663*72':@RM:WOMatRecord)


Debug
RDSRecord = XLATE('RDS', 563192, '', 'X')
curWfrCt = obj_rds('WafersOut',563192:@RM:RDSRecord)

debug
reactorRec = Database_Services('ReadDataRow', 'REACTOR', 28)
reactLLDis = reactorRec<REACTOR_ACTIVE_LL_DISABLED$>


Debug
woNo = 171524
for i = 9 to 39
	woMatKey = woNo : '*' : i
	WoMatRec = Database_Services('ReadDataRow', 'WO_MAT', woMatKey)
	WoMatRec<47> = 1
	Database_Services('WriteDataRow', 'WO_MAT', woMatKey, WoMatRec)
Next i

Debug

Date = SRP_DateTime("Date", DateTime())
Time = SRP_DateTime("Time", Datetime())
19721

iDate = OConv(Date, 'D4/H')
iTime = OConv(Time, 'MTS')

Debug

for i = 41436 to 60000
	Database_Services('DeleteDataRow', 'REACTOR_LOG', i)
Next i


Debug
RDSNo = '544261'
WOMatKey = '171461*4'

PSN_Services('UpdateRDSMetrologyLimits', RDSNo)
PSN_Services('UpdateAllQAMetrologyLimits', WOMatKey)


    debug
    RDSNo = NextKey('RDS')
    
    // Delete old instance of this RDS if it exists ------------------------------------------------------------------------
    If RowExists('RDS', RDSNo) then
        Database_Services('DeleteDataRow', 'RDS', RDSNo, True$, False$)
        If Error_Services('NoError') then
            Results = 'RDS ' : RDSNo : ' deleted'
        end else
            Results = 'RDS ' : RDSNo : ' not deleted. Error : ' : Error_Services('GetMessage')
        end
    end
    // ---------------------------------------------------------------------------------------------------------------------


    // Delete related RDS_LAYER records ------------------------------------------------------------------------------------
    Layers = 'L1,L2,2'
    For each Layer in Layers using ','
        RDSLayerKey = RDSNo:'*':Layer
        If RowExists('RDS_LAYER', RDSLayerKey) then
            // Look for related RDS_TEST records and delete them first
            RDSTestKeys = Xlate('RDS_LAYER', RDSLayerKey, 'RDS_TEST_KEYS', 'X')
            If RDSTestKeys NE '' then
                For each RDSTestKey in RDSTestKeys using @VM setting vPos
                    // Look for related TW_USE records and delete them first
                    TWKeys = Xlate('RDS_TEST', RDSTestKey, 'TW_USE_ID', 'X')
                    If TWKeys NE '' then
                        For each TWKey in TWKeys using @VM setting vPos
                            Database_Services('DeleteDataRow', 'TW_USE', TWKey, True$, True$)
                        Next TWKey
                    end
                    Database_Services('DeleteDataRow', 'RDS_TEST', RDSTestKey, True$, True$)
                Next RDSTestKey
            end
            Database_Services('DeleteDataRow', 'RDS_LAYER', RDSLayerKey, True$, False$)
            If Error_Services('NoError') then
                Results = 'RDS_LAYER ' : RDSLayerKey : ' deleted'
            end else
                Results = 'RDS_LAYER ' : RDSLayerKey : ' not deleted. Error : ' : Error_Services('GetMessage')
            end
        end
    Next Layer
    // ---------------------------------------------------------------------------------------------------------------------


    // Delete old REACT_RUN record if it exists ----------------------------------------------------------------------------
    If RowExists('REACT_RUN', RDSNo) then
        // Delete old CLEAN_INSP record(s) if they exist
        CIKeys = Xlate('REACT_RUN', RDSNo, 'CI_NO', 'X')
        For each CIKey in CIKeys using @VM setting vPos
            If RowExists('CLEAN_INSP', CIKey) then
                Database_Services('DeleteDataRow', 'CLEAN_INSP', CIKey, True$, False$)
                If Error_Services('NoError') then
                    Results = 'CLEAN_INSP ' : CIKey : ' deleted'
                end else
                    Results = 'CLEAN_INSP ' : CIKey : ' not deleted. Error : ' : Error_Services('GetMessage')
                end          
            end
        Next CIKey
        Database_Services('DeleteDataRow', 'REACT_RUN', RDSNo, True$, False$)
        If Error_Services('NoError') then
            Results = 'REACT_RUN ' : RDSNo : ' deleted'
        end else
            Results = 'REACT_RUN ' : RDSNo : ' not deleted. Error : ' : Error_Services('GetMessage')
        end
    end
    // ---------------------------------------------------------------------------------------------------------------------

    
    
return


debug
    
    WONo = 171295
    
    For CassNo = 8 to 38
       WOMatQAKey = WONo:'*':CassNo
        //PSN_Services('UpdateQAMetrologyLimits', WOMatQAKey, 'QA', '1ADE', 'L')
        PSN_Services('UpdateAllQAMetrologyLimits', WOMatQAKey)
        If Error_Services('HasError') then ErrMsg(Error_Services('GetMessage'))
    Next CassNo

 return

    
*    ReportList = ''
*    List       = Get_Repos_Entities('LSL2', 'OIWIN', '', False$)
*    For each Row in List using @FM setting fPos
*        ReportList<fPos> = Field(Row, '*', 4)
*    Next Row
*    
*    LastLaunch = 0
*    FormCounts = ''
*    EOF        = False$
*    Open 'FORM_METRICS' to hTable then
*        Select hTable
*        Loop
*            Readnext Key else EOF = True$
*        Until EOF
*            FormName = Field(Key, '*', 1)
*            Locate FormName in ReportList using @FM setting fPos then
*                FormCounts<fPos>    = FormCounts<fPos> + 1
*            end
*        Repeat
*    end
* 
*    NumForms   = DCount(ReportList, @FM)
*    For FormIndex = 1 to NumForms
*        FormCount                = FormCounts<FormIndex>
*        If FormCount EQ '' then FormCount = 0
*        ReportList<FormIndex, 2> = FormCount
*    Next FormIndex
*    
*    ReportList = Insert(ReportList, 1, 0, 0, 'Form Name':@VM:'Launch Count')
*    Swap @VM with ',' in ReportList
*    Swap @FM with CRLF$ in ReportList
*    OSWrite ReportList on 'D:\FITemp\FormCounts.csv'
*    
* 
* 
* 
* Debug
* 	WONo = '171151'
* 	
* 	CRLocs        = ''
* 	CRLocs<0, -1> = 'CR*PLACE'
*    CRLocs<0, -1> = 'CR*BE'
*    CRLocs<0, -1> = 'CR*BO'
*    CRLocs<0, -1> = 'CR*TUN'
*    CRLocs<0, -1> = 'CR*EPR'
*    CRLocs<0, -1> = 'CR*FE'
*    CRLocs<0, -1> = 'CR*FEH'
*    CRLocs<0, -1> = 'CR*FO'
*    CRLocs<0, -1> = 'CR*FOH'
* LoadedData     = Location_Services('GetLocationCassInfoRlist', WONo, CRLocs)
* 
* 
* Debug
* problemreactors = ''
* for i = 1 to 80
* 	childkeys = XLATE('REACTOR_CHILD_KEY_IDS_NG', i, 1,'X')
* 	if DCOUNT(childkeys, @VM) GT 1 then
*		problemreactors<i, 1> = i
*		problemreactors<i, 2> = DCOUNT(childkeys, @VM)
* 	end
* Next i
* debug
* 
* maintenanceMembers = XLATE('SEC_GROUPS', 'MAINTENANCE', 4, 'X')
* memberList = ''
* for each member in maintenanceMembers using @VM
*    lslUserRecord = XLATE('LSL_USERS', member, '','X')
*    memberName = lslUserRecord<1> : ' ' : lslUserRecord<2>
*    memberActive = lslUserRecord<10>
*    memberList<-1> = member : @VM : memberName : @VM : memberActive : @VM
* Next member
* 
* Database_Services('WriteDataRow', 'SYSLISTS', 'JONATHAN_MEMBER_LIST', memberList)
* 
* activeUsers = ''
* 
* for each user in memberList using @FM
*    if user<1,3> EQ 1 then
*        activeUsers<-1> = user
*    end
*    
* Next user
* //EQU CRLF$ TO \0D0A\
* 
* swap @FM with CRLF$ in activeUsers
* swap @VM with ',' in activeUsers
* 
* filename = 'C:\users\ecouellette\activeusers.csv'
* OSWrite activeUsers To filename
* 
* 
* debug
* Debug
* TEST = @USER4
* 
* Debug
* OutOfProdDTM     = Xlate('REACT_STATUS','57',REACT_STATUS_OUT_OF_PROD_DTM$,'X')
* 	CurrModeKey      = XLATE('REACTOR','57','CURR_MODE_KEY','X')<1,1>					;* This should never be an MV but during implementation it is having some issues
* 	CurrModeStartDTM = FIELD(CurrModeKey,'*',2)
* 
* debug
* test = Xlate('RDS', '402211', 'PARAM_OUT_OF_SPEC', 'X')
* Locate True$ in test using @VM setting kpos then
* 	null
* end
* Debug
* SchedTool = Xlate('RDS', '463935', 'SCHED_REACTOR', 'X')
* 
* debug
* Table = 'WO_MAT'
* ID = '169858*87'
* Copy_Record_To_SQL(Table, ID, 1)   
*    debug
*    WOMatKeyList = Database_Services('ReadDataRow', 'SYSLISTS', 'JONATHAN_FT_PUSH')
*    NumWOMatKeys = DCount(WOMatKeyList, @FM)
*    
*    Def               = ""
*    Def<MCAPTION$>    = "Updating WO_MAT..."
*    Def<MTYPE$>       = "GC"
*    Def<MEXTENT$>     = NumWOMatKeys
*    Def<MTEXTWIDTH$>  = 600
*    MsgUp             = Msg(@WINDOW, Def) ;* Start gas guage message
*    Table             = 'WO_MAT'
*    WOMatKeyListIndex = 1
*    NewWOMatKeyList   = WOMatKeyList
*    Loop
*        ID                 = WOMatKeyList<WOMatKeyListIndex>
*        Copy_Record_To_SQL(Table, ID, 1)
*        NewWOMatKeyList    = Delete(NewWOMatKeyList, 1, 0, 0)
*        WOMatKeyListIndex += 1
*        Database_Services('WriteDataRow', 'SYSLISTS', 'JONATHAN_FT_PUSH', NewWOMatKeyList)
*        Running            = Msg(@WINDOW, MsgUp, WOMatKeyListIndex, MSGINSTUPDATE$) ;* Update message
*    Until WOMatKeyListIndex GE NumWOMatKeys
*    Repeat
*    debug
*    Msg(@WINDOW,MsgUp)      ;* Take message down
*        
* 
* 
* Debug
* Table = 'WO_MAT'
* ID = '169277*4'
* Copy_Record_To_SQL(Table, ID, 1)
* Debug
* 
* RecordList = Xlate('SYSLISTS', 'JONATHAN_HOLDS', '', 'X')
* Table = 'WO_MAT'
* for i = 13300 to DCount(RecordList, @FM)
* 	ID = RecordList<i>
* 	HoldDTM = Xlate('WO_MAT', ID, 35, 'X')
* 
* 	IF HoldDTM GE 19302 then
* 		Copy_Record_To_SQL(Table, ID, 1)
* 	end
* NEXT i
* 
* Debug
*		Table = 'WO_MAT'
*        ID = '167691*32'
* 
*    	Copy_Record_To_SQL(Table, ID, 1)
* 
* 		
* 	end
*		
*		Table = 'WO_MAT'
*        ID = RecordList<i>
*		CountToCopy += 1
*    	
* 	end
* 
* 
*        
* Next i
* debug
* 
* 
* //Command = ('explorer "https://google.com"')
* 
* //SRP_Run_Command(Command)
* 
* midnight = 00000;//
* one = 03600;//1am
* two = 07200;//2am
* three = 10800;//3am
* four = 14400;//4am
* five = 18000;//5am
* six = 21600;//6am
* seven = 25200;//7am
* eight = 28800;//8am
* nine = 32400;//9am
* ten = 36000;//10am
* eleven = 39600;//11am
* twelve = 43200;//12pm
* thirteen = 46800;//1pm
* fourteen = 50400;//2pm
* fifteen = 54000;//3pm
* sixteen = 57600;//4pm
* seventeen = 61200;//5pm
* eightteen = 64800;//6pm
* nineteen = 68400;//7pm
* twenty = 72000;//8pm
* twentyOne = 75600;//9pm
* twentyTwo = 79200;//10pm
* twentyThree = 82800;//11pm
* twentyFour = 86399;//11:59PM
* debug
* hourlyOuts = ''
* hourlyOuts<1> = 0
* hourlyOuts<2> = 0
* hourlyOuts<3> = 0
* hourlyOuts<4> = 0
* hourlyOuts<5> = 0
* hourlyOuts<6> = 0
* hourlyOuts<7> = 0
* hourlyOuts<8> = 0
* hourlyOuts<9> = 0
* hourlyOuts<10> = 0
* hourlyOuts<11> = 0
* hourlyOuts<12> = 0
* hourlyOuts<13> = 0
* hourlyOuts<14> = 0
* hourlyOuts<15> = 0
* hourlyOuts<16> = 0
* hourlyOuts<17> = 0
* hourlyOuts<18> = 0
* hourlyOuts<19> = 0
* hourlyOuts<20> = 0
* hourlyOuts<21> = 0
* hourlyOuts<22> = 0
* hourlyOuts<23> = 0
* hourlyOuts<24> = 0
* 
* RDSOuts = ''
* 
* 
* oneOuts = 0
* twoOuts = 0
* threeOuts = 0
* fourOuts = 0
* fiveOuts = 0
* sixOuts = 0
* sevenOuts = 0
* eightOuts = 0
* nineOuts = 0
* tenOuts = 0
* elevenOuts = 0
* twelveOuts = 0
* thirteenOuts = 0
* fourteenOuts = 0
* fifteenOuts = 0
* sixteenOuts = 0
* seventeenOuts = 0
* eightteenOuts = 0
* nineteenOuts = 0
* twentyOuts = 0
* twentyOneOuts = 0
* twentyTwoOuts = 0
* twentyThreeOuts = 0
* 
* Outs = 0
* OutsList = XLATE('SYSLISTS', 'TEST_JONATHAN', '', 'X')
* TotalOuts = 0
* for i = 2 to DCOUNT(OutsList, @FM)
* 	RDSRec = OutsList<i,1>
* 	WafersOut = XLATE('RDS',RDSRec, 'WAFERS_IN', 'X')
* 	TimeOut = XLATE('RDS',RDSRec,38,'X')
* 	
* 	if TimeOut GE midnight AND TimeOut LT one then
*		hourlyOuts<1,1> = hourlyOuts<1> + WafersOut
*		RDSOuts<1,-1> = RDSRec
* 	end
* 	if TimeOut GE one AND TimeOut LT two then
*		hourlyOuts<2> = hourlyOuts<2> + WafersOut
*		RDSOuts<2,-1> = RDSRec
* 	end
* 	if TimeOut GE two AND TimeOut LT three then
*		hourlyOuts<3> = hourlyOuts<3> + WafersOut
*		RDSOuts<3,-1> = RDSRec
* 	end
* 	if TimeOut GE three AND TimeOut LT four then
*		hourlyOuts<4> = hourlyOuts<4> + WafersOut
*		RDSOuts<4,-1> = RDSRec
* 	end
* 	if TimeOut GE four AND TimeOut LT five then
*		hourlyOuts<5> = hourlyOuts<5> + WafersOut
*		RDSOuts<5,-1> = RDSRec
* 	end
* 	if TimeOut GE five AND TimeOut LT six then
*		hourlyOuts<6> = hourlyOuts<6> + WafersOut
*		RDSOuts<6,-1> = RDSRec
* 	end
* 	if TimeOut GE six AND TimeOut LT seven then
*		hourlyOuts<7> = hourlyOuts<7> + WafersOut
*		RDSOuts<7,-1> = RDSRec
* 	end
* 	if TimeOut GE seven AND TimeOut LT eight then
*		hourlyOuts<8> = hourlyOuts<8> + WafersOut
*		RDSOuts<8,-1> = RDSRec
* 	end
* 	if TimeOut GE eight AND TimeOut LT nine then
*		hourlyOuts<9> = hourlyOuts<9> + WafersOut
*		RDSOuts<9,-1> = RDSRec
* 	end
* 	if TimeOut GE nine AND TimeOut LT ten then
*		hourlyOuts<10> = hourlyOuts<10> + WafersOut
*		RDSOuts<10,-1> = RDSRec
* 	end
* 	if TimeOut GE ten AND TimeOut LT eleven then
*		hourlyOuts<11> = hourlyOuts<11> + WafersOut
*		RDSOuts<11,-1> = RDSRec
* 	end
* 	if TimeOut GE eleven AND TimeOut LT twelve then
*		hourlyOuts<12> = hourlyOuts<12> + WafersOut
*		RDSOuts<12,-1> = RDSRec
* 	end
* 	if TimeOut GE twelve AND TimeOut LT thirteen then
*		hourlyOuts<13> = hourlyOuts<13> + WafersOut
*		RDSOuts<13,-1> = RDSRec
* 	end
* 	if TimeOut GE thirteen AND TimeOut LT fourteen then
*		hourlyOuts<14> = hourlyOuts<14> + WafersOut
*		RDSOuts<14,-1> = RDSRec
* 	end
* 	if TimeOut GE fourteen AND TimeOut LT fifteen then
*		hourlyOuts<15> = hourlyOuts<15> + WafersOut
*		RDSOuts<15,-1> = RDSRec
* 	end
* 	if TimeOut GE fifteen AND TimeOut LT sixteen then
*		hourlyOuts<16> = hourlyOuts<16> + WafersOut
*		RDSOuts<16,-1> = RDSRec
* 	end
* 	if TimeOut GE sixteen AND TimeOut LT seventeen then
*		hourlyOuts<17> = hourlyOuts<17> + WafersOut
*		RDSOuts<17,-1> = RDSRec
* 	end
* 	if TimeOut GE seventeen AND TimeOut LT eightteen then
*		hourlyOuts<18> = hourlyOuts<18> + WafersOut
*		RDSOuts<18,-1> = RDSRec
* 	end
* 	if TimeOut GE eightteen AND TimeOut LT nineteen then
*		hourlyOuts<19> = hourlyOuts<19> + WafersOut
*		RDSOuts<19,-1> = RDSRec
* 	end
* 	if TimeOut GE nineteen AND TimeOut LT twenty then
*		hourlyOuts<20> = hourlyOuts<20> + WafersOut
*		RDSOuts<20,-1> = RDSRec
* 	end
* 	if TimeOut GE twenty AND TimeOut LT twentyOne then
*		hourlyOuts<21> = hourlyOuts<21> + WafersOut
*		RDSOuts<21,-1> = RDSRec
* 	end
* 	if TimeOut GE twentyOne AND TimeOut LT twentyTwo then
*		hourlyOuts<22> = hourlyOuts<22> + WafersOut
*		RDSOuts<22,-1> = RDSRec
* 	end
* 	if TimeOut GE twentyTwo AND TimeOut LT twentyThree then
*		hourlyOuts<23> = hourlyOuts<23> + WafersOut
*		RDSOuts<23,-1> = RDSRec
* 	end
* 	if TimeOut GE twentyThree AND TimeOut LE twentyFour then
*		hourlyOuts<24> = hourlyOuts<24> + WafersOut
*		RDSOuts<24,-1> = RDSRec
* 	end
* 	
* 	
* 	TotalOuts = TotalOuts + WafersOut
* 	
* Next i
* 
* 
* 
* equ crlf$ to \0D0A\
* equ tab$ to char(09)
* equ comma$ to char(44)
* equ space$ to char(32)
* equ record$ to char(00)
* equ scolon$ to char(59)
*		
*		
*		hourlyOutsFile = 'C:\Users\ECOUELLETTE\DESKTOP\HourlyOuts.csv'
*		
*		OSOpen hourlyOutsFile To hOutsFile then   
*			
*			lastByte = 0
* 
*						hourLine = hourlyOuts
*						//swap @FM with ',' in hourLine
*						lineToWrite = hourLine: CRLF$
*						OSBWrite lineToWrite On hOutsFile At lastByte
*						lastByte = lastByte + Len(lineToWrite)
*			osclose hOutsFile
*		end	
*		
*		
*		RDShourlyOutsFile = 'C:\Users\ECOUELLETTE\DESKTOP\RDSHourlyOuts.csv'
*		lastByte = 0
*		OSOpen RDShourlyOutsFile To hRDSOutsFile then
*			for i = 1 to 24
*				RDSLine = RDSOuts<i>
*				swap @VM with ',' in RDSLine
*				RDSLine = RDSLine : CRLF$
*				OSBWrite RDSLine On hRDSOutsFile At lastByte
*				lastByte = lastByte + Len(RDSLine)
*			Next i
*			osclose hRDSOutsFile
*		end
*		
*		
* Debug
* 
* SearchString = 'GROUPS' : @VM: 'LEAD':@VM:'SUPERVISOR':@VM:'ENGINEER':@VM:'ENG_TECH' : @FM
* Table        = 'LSL_USERS'
* DictVar      = Database_Services('GetTableHandle', 'DICT.LSL_USERS')
* Btree.Extract(SearchString, Table, DictVar, Keys, '', Flag)
* 
* Debug
* 
* TempList = Database_Services('ReadDataRow', 'SYSLISTS', 'TEST_DANIEL')
*    // Chomp info line
*    TempList = Delete(TempList, 1, 0, 0)
*    For each KeyID in TempList using @FM
*         Record = Database_Services('ReadDataRow', 'RUN_STAGE_WFR', KeyID)
*         Database_Services('WriteDataRow', 'RUN_STAGE_WFR', KeyID, Record, True$, False$, True$)
*    Next KeyID
* 
* 
* debug
* search_criteria = 'KEY':@VM:'60'@FM
* table = 'OVERRIDE_LOG'
* 
* Open "DICT ":table To @DICT Else
* RetVal = Set_FSError()
*       Return
* End
* keylist = ''
* option = ''
* flag = ''
* Btree.Extract(search_criteria, table, @DICT, keylist, option, flag)
* 
* 
* RowCnt = COUNT(keylist,@VM)
*        
*        FOR I = 1 TO RowCnt
*            Display<1,I,1> = SigData<1,I>
*            Display<1,I,2> = SigData<2,I>
*            Display<1,I,3> = SigData<3,I>
*            Display<1,I,4> = SigData<4,I>
*        NEXT I
*        
*        TypeOver = ''
*        TypeOver<PDISPLAY$> = Display
* 
* RDSOverrides = ''
* display = ''
* debug
* RDSTestRec = '8':@VM:'5'
* Display = ''
* overriderec = ''
*i = 1
* For Each orKey in RDSTestRec using @VM
* 	overriderec = Xlate('OVERRIDE_LOG', orKey, '', 'X')
* 	Display<1,I,1> = overriderec<3>
*    Display<1,I,2> = overriderec<4>
*    Display<1,I,3> = overriderec<5>
*    Display<1,I,4> = overriderec<6>
*    i = i + 1
* Next OverRideRec
* 
*        TypeOver = ''
*        TypeOver<PDISPLAY$> = Display
* void = Popup(@WINDOW,TypeOver,'OVERRIDES') 
* 
* Debug
* 
* 
* for i = 1 to Count(keylist, @VM)
* 	overriderec = Xlate('OVERRIDE_LOG', keylist<1,i>, '', 'X')
* 	RDSOverrides := overriderec
* 
*    Display<1,I,1> = overriderec<3>
*    Display<1,I,2> = overriderec<4>
*    Display<1,I,3> = overriderec<5>
*    Display<1,I,4> = overriderec<6>
* Next i
* debug
* 
* 
*        TypeOver = ''
*        TypeOver<PDISPLAY$> = Display
* void = Popup(@WINDOW,TypeOver,'OVERRIDES')  
* Debug
*							orParms = ''
*							orParms<OVERRIDE_LOG_TABLE$> = 'RDS':@VM:'REACTOR'
*							orParms<OVERRIDE_LOG_KEY$> = '385600':@VM:'59'
*							orParms<OVERRIDE_LOG_USER$> = 'JONATHAN_O'
*							orParms<OVERRIDE_LOG_COMMENT$> = 'This is a test'
*							orParms<OVERRIDE_LOG_CATEGORY$> = 'ROTR_BLOCK'
*							orKey = obj_override_log('Create', orParms)
* ResponseComment            = Dialog_Box('NDW_ADD_COMMENT', @WINDOW)
*                    	
*                    	IF ResponseComment<2> NE '' THEN
*							// Clear ROTR reactor load block.
*							orParms = ''
*							orParms<OVERRIDE_LOG_TABLE$> = 'RDS':@VM:'REACTOR'
*							orParms<OVERRIDE_LOG_KEY$> = '385600':@VM:'59'
*							orParms<OVERRIDE_LOG_USER$> = 'JONATHAN_O'
*							orParms<OVERRIDE_LOG_COMMENT$> = 'This is a test'
*							orParms<OVERRIDE_LOG_CATEGORY$> = 'ROTR_BLOCK'
*							orKey = obj_override_log('Create', orParms)
*							
*                    	end else
*                    		Msg(@Window, 'A comment is required to perform an ROTR Block Override', '', '', '')
*                    		return
*                    	end
*                    	
* 
* 
* Debug
* ResponseComment            = Dialog_Box('NDW_ADD_COMMENT', @WINDOW)
* IF ResponseComment<2> NE '' then
* 	null
* end else
* 	Message    = 'NO Comment has been entered.'
*                Message    :='A comment is required to perform an ROTR Block Override'
*                Msg(@Window, 'A comment is required to perform an ROTR Block Override', '', '', '')
* end
* 
* 
* 
* debug
* StartTime = GetTickCount()
* Open "SQL_BACKLOG" to hTable then
*    ClearSelect
*    Select hTable
*    Done = 0
*    Loop
*        ReadNext Key else Done = 1
*        
*    Until Done OR (GetTickCount() - StartTime) >= 60000
*        Table = Key[1, "*"]
*        ID = Key[Col2() + 1, Len(Key)]
*        if Key EQ 'REACT_MODE*60*19275.5840277778' THEN
*        	DEBUG
* 
*        If ID[-7, 7] EQ "*DELETE" then
*            ID[-7, 7] = ""
*            Delete_Record_From_SQL(Table, ID, 1)
*            Delete hTable, Key
*        end else
*            Copy_Record_To_SQL(Table, ID, 1)
*            Delete hTable, Key
*        end
*        END
*    Repeat
* end
* 
* Return
Return