Drill information management

Functions
PROCEDURE	FreeArrayDrillingInfo ()
	Free the memory of the drilling array information.
REAL FUNCTION	GetLastDrillingDep () REAL
	Get the last departure coordinate of drilling operation.
REAL FUNCTION	GetLastDrillingDepth () REAL
	Get the last depth of drilling operation.
REAL FUNCTION	GetLastDrillingEnd () REAL
	Get the last end coordinate of drilling operation.
REAL FUNCTION	GetLastDrillingInfo (int_NumInfo :INTEGER) REAL
	Return the value of a drilling information.
REAL FUNCTION	GetLastDrillingInitLevel () REAL
	Get the last initial level coordinate of drilling operation.
REAL FUNCTION	GetLastDrillingRet () REAL
	Get the last return coordinate of drilling operation.
PROCEDURE	InitArrayDrillingInfo ()
	Initialize the array of drilling information.
PROCEDURE	ResetArrayDrillingInfo ()
	Set all the drilling information to 0.
PROCEDURE	SetLastDrillingDep (real_Val :REAL)
	Set the last departure coordinate of drilling operation.
PROCEDURE	SetLastDrillingEnd (real_Val :REAL)
	Set the last end coordinate of drilling operation.
PROCEDURE	SetLastDrillingInfo (int_NumInfo :INTEGER, real_Val :REAL)
	Store an information in the array of drilling information.
PROCEDURE	SetLastDrillingInitLevel (real_Val :REAL)
	Set the last initial level coordinate of drilling operation.
PROCEDURE	SetLastDrillingRet (real_Val :REAL)
	Set the last return coordinate of drilling operation.

Detailed Description

Function Documentation

FreeArrayDrillingInfo()

PROCEDURE FreeArrayDrillingInfo

(

)

Free the memory of the drilling array information.

FreeArrayDrillingInfo;

GetLastDrillingDep()

REAL FUNCTION GetLastDrillingDep

(

)

Get the last departure coordinate of drilling operation.

The storage value is set by SetLastDrillingDep;

Attention

To be used the InitArrayDrillingInfo must be called

Returns

Read value

real_Value := GetLastDrillingDep;

GetLastDrillingDepth()

REAL FUNCTION GetLastDrillingDepth

(

)

Get the last depth of drilling operation.

The value is computed with the values stored with SetLastDrillingDep; and SetLastDrillingEnd;

Attention

To be used the InitArrayDrillingInfo must be called

Returns

Read value

real_Value := GetLastDrillingDepth;

GetLastDrillingEnd()

REAL FUNCTION GetLastDrillingEnd

(

)

Get the last end coordinate of drilling operation.

The storage value is set by SetLastDrillingEnd;

Attention

To be used the InitArrayDrillingInfo must be called

Returns

Read value

real_Value := GetLastDrillingEnd;

GetLastDrillingInfo()

REAL FUNCTION GetLastDrillingInfo

(

int_NumInfo :INTEGER

)

Return the value of a drilling information.

Attention

To be used the InitArrayDrillingInfo must be called

Parameters

[in]

int_NumInfo

: number of information to read

Returns

The value of read information

real_Value := GetLastDrillingInfo(1);

GetLastDrillingInitLevel()

REAL FUNCTION GetLastDrillingInitLevel

(

)

Get the last initial level coordinate of drilling operation.

The storage value is set by SetLastDrillingLevel;

Attention

To be used the InitArrayDrillingInfo must be called

Returns

Read value

real_Value := GetLastDrillingInitLevel;

GetLastDrillingRet()

REAL FUNCTION GetLastDrillingRet

(

)

Get the last return coordinate of drilling operation.

The storage value is set by SetLastDrillingRet;

Attention

To be used the InitArrayDrillingInfo must be called

Returns

Read value

real_Value := GetLastDrillingRet;

InitArrayDrillingInfo()

PROCEDURE InitArrayDrillingInfo

(

)

Initialize the array of drilling information.

InitArrayDrillingInfo;

ResetArrayDrillingInfo()

PROCEDURE ResetArrayDrillingInfo

(

)

Set all the drilling information to 0.

ResetArrayDrillingInfo;

SetLastDrillingDep()

PROCEDURE SetLastDrillingDep

(

real_Val :REAL

)

Set the last departure coordinate of drilling operation.

The storage value can be read with GetLastDrillingDep;

Attention

To be used the InitArrayDrillingInfo must be called

Parameters

[in]

real_Val

: value to store

SetLastDrillingDep(0);

SetLastDrillingEnd()

PROCEDURE SetLastDrillingEnd

(

real_Val :REAL

)

Set the last end coordinate of drilling operation.

The storage value can be read with GetLastDrillingEnd;

Attention

To be used the InitArrayDrillingInfo must be called

Parameters

[in]

real_Val

: value to store

SetLastDrillingEnd(-5);

SetLastDrillingInfo()

PROCEDURE SetLastDrillingInfo	(	int_NumInfo :INTEGER	,
		real_Val :REAL	)

Store an information in the array of drilling information.

Attention

To be used the InitArrayDrillingInfo must be called

Parameters

[in]	int_NumInfo	: number of information
[in]	real_Val	: value to store

SetLastDrillingInfo(1,2.5);

SetLastDrillingInitLevel()

PROCEDURE SetLastDrillingInitLevel

(

real_Val :REAL

)

Set the last initial level coordinate of drilling operation.

The storage value can be read with GetLastDrillingInitLevel;

Attention

To be used the InitArrayDrillingInfo must be called

Parameters

[in]

real_Val

: value to store

SetLastDrillingInitLevel(30);

SetLastDrillingRet()

PROCEDURE SetLastDrillingRet

(

real_Val :REAL

)

Set the last return coordinate of drilling operation.

The storage value can be read with GetLastDrillingRet;

Attention

To be used the InitArrayDrillingInfo must be called

Parameters

[in]

real_Val

: value to store

SetLastDrillingRet(20);