COMPILE ROUTINE Change_Company(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Send_Dyn,Send_Info
DECLARE FUNCTION Get_Status, Set_Printer

OPEN 'CONFIG' To ConfigTable THEN

Select ConfigTable

ConfigKeys = ''

Done = 0
LOOP
	READNEXT ConfigKey ELSE Done = 1
UNTIL Done
	IF ConfigKey[1,3] = 'Org' ELSE
		READ ConfigRec FROM ConfigTable,ConfigKey THEN

			IF INDEX(ConfigRec,'ATMI',1) THEN
				Send_Dyn(ConfigKey)
			END
			
		END
	END
REPEAT

ConfigKeyCnt = COUNT(ConfigKeys,@FM) + ( ConfigKeys NE '')

OPEN 'SYSPROCS' TO ProcsTable THEN
	SELECT ProcsTable
	
	Done = 0
	LOOP
		READNEXT @ID ELSE Done = 1
	UNTIL Done
		READ @RECORD FROM ProcsTable,@ID THEN
			
			IF INDEX(@RECORD,'ATMI',1) THEN
				Send_Dyn(@ID)
			END
			
			
			
		END
	REPEAT
END


OPEN 'SYSREPOSEVENTS' TO ProcsTable THEN
	SELECT ProcsTable
	
	Done = 0
	LOOP
		READNEXT @ID ELSE Done = 1
	UNTIL Done
		READ @RECORD FROM ProcsTable,@ID THEN
		
			IF INDEX(@RECORD,'ATMI',1) THEN
				Send_Dyn(@ID)
			END
		END
	REPEAT
END



IF Get_Status(errCode) THEN DEBUG


* * * * * * *
Bail:
* * * * * * *

END


