$R0
CALLADPG MGDPUPDT APPLY
$($)
$($)
$:debug$:
$d1 =unset
$d2 =TRUE
$d3 =unset
var !MODE        |$1|
var !USERPRESENT |$2|
var !BATCHFILE   |$3|
!filesep = '\'
if (|APPLY| eq |FILE|) then
elseif (|APPLY| eq |DISMISS|) then
    handle any
elseif (|APPLY| eq |ONERROR|) then
elseif (|APPLY| eq |LOGMODE|) then
elseif (|APPLY| eq |BROWSE|) then
elseif (|APPLY| eq |APPLY|) then
  var !CHECK |$_ONERROR|
  handle any
  handle any
  elsehandle none
  endhandle
  if (upcase(|unset|) neq |UNSET|) then
    handle any
  endif
  var !!CDADPLOGTAB 0
  var !!CDADPLOGSUM delete
  CALLADPC UADPLOG $<$> HEADER
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 0
if (match(|BRIEF|,|HEADER|) neq 0) then
elseif (|HEADER| eq |HEADER|) then
  if (upcase(|unset|) neq |UNSET|) then
  endif

  $P
PDMS DRAFT General Automatic Drawing Production
  $PPDMS DRAFT General Automatic Drawing Production
  CLOCK
 Date 27 Dec 2013   Time 17:17
Mode BRIEF
  $PMode BRIEF

  $P
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
  if (|unset| neq |unset|) then
  endif
  if (|/PLOT_TRIAL/SHEET-1/V2| eq |*Batch Mode*|) then
  else
    CALLADPC UADPLOG $<$> BRIEF
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 0
if (match(|BRIEF|,|BRIEF|) neq 0) then
  if (upcase(|unset|) neq |UNSET|) then
  else

    $p
  endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
    CALLADPC UADPLOG $<Processing View /PLOT_TRIAL/SHEET-1/V2$> BRIEF
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 0
if (match(|BRIEF|,|BRIEF|) neq 0) then
  if (upcase(|unset|) neq |UNSET|) then
  else
Processing View /PLOT_TRIAL/SHEET-1/V2
    $p Processing View /PLOT_TRIAL/SHEET-1/V2
  endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
    var !!CDADPLOGTAB (0 + 1)
    VAR !VIEWREF ( REF of /PLOT_TRIAL/SHEET-1/V2 )
    CALLADPG UGDPUPDT =18385/3995
$($)
$($)
$:debug$:
var !!CDRTNSTATUS (0)
var !!CDRTNTEXT   ||
$d1 =unset
var !VIEW ( NAME of $1 )
var !VIEWREF ( REF of $1 )
=18385/3995
if (TYPE neq |VIEW|) then
endif
var !FUNC (FUNCTION)
if( match( upcase( |dra-genadp-plotplan| ), |DRA-GENADP| ) neq 1 )then
endif
CALLADPC UADPDFLTS $<%PDMSDFLTS%/dra-genadp-plotplan$>
$($)
$($)
$:debug$:
!units = object COMUNITS(TRUE)
define method .comUnits(!save is BOOLEAN)
  !this.comUnits()
define method .comUnits()
  !dimensions         = object MEASURE()
  !this.allDimensions = !dimensions.allDimensions()
  !this.initialisePTypes()
define method .initialisePTypes()
  !this.pTypeNames = ARRAY()
  !this.pTypes     = ARRAY()
  !this.pTypeNames.append('NONE')
  !this.pTypes.append('NONE')
  !this.pTypeNames.append('BORE')
  !this.pTypes.append('BORE')
  !this.pTypeNames.append('LENGTH')
  !this.pTypes.append('DIST')
  !this.pTypeNames.append('AREA')
  !this.pTypes.append('SQDI')
  !this.pTypeNames.append('VOLUME')
  !this.pTypes.append('CUDI')
  !this.pTypeNames.append('MASS')
  !this.pTypes.append('MASS')
  !this.pTypeNames.append('TEMPERATURE')
  !this.pTypes.append('TEMP')
  !this.pTypeNames.append('EMF')
  !this.pTypes.append('EMF')
  !this.pTypeNames.append('CURRENT')
  !this.pTypes.append('CURR')
  !this.pTypeNames.append('ANGLE')
  !this.pTypes.append('ANGL')
  !this.pTypeNames.append('PRESSURE')
  !this.pTypes.append('PRES')
  !this.pTypeNames.append('FORCE')
  !this.pTypes.append('FORC')
  !this.pTypeNames.append('DENSITY')
  !this.pTypes.append('DENS')
  !this.pTypeNames.append('DENSITY(MANDB)')
  !this.pTypes.append('DENS')
  !this.pTypeNames.append('SURFACE_DENSITY')
  !this.pTypes.append('PSQD')
  !this.pTypeNames.append('CONTENT')
  !this.pTypes.append('PCUD')
  !this.pTypeNames.append('TEMPERATURE_GRADIENT')
  !this.pTypes.append('TPDI')
  !this.pTypeNames.append('LINEAR_DENSITY')
  !this.pTypes.append('PDIS')
  !this.pTypeNames.append('IMPEDANCE')
  !this.pTypes.append('IMPE')
  !this.pTypeNames.append('TIME')
  !this.pTypes.append('TIME')
  !this.pTypeNames.append('ENERGY')
  !this.pTypes.append('ENER')
  !this.pTypeNames.append('POWER')
  !this.pTypes.append('POWE')
  !this.pTypeNames.append('UNIT_MASS')
  !this.pTypes.append('UMAS')
  !this.pTypeNames.append('HEATING_VALUE')
  !this.pTypes.append('PRES')
  !this.pTypeNames.append('CAPACITANCE')
  !this.pTypes.append('CAPA')
  !this.pTypeNames.append('CHARGE')
  !this.pTypes.append('CHAR')
  !this.pTypeNames.append('CONDUCTANCE')
  !this.pTypes.append('COND')
  !this.pTypeNames.append('VISCOSITY_DYN')
  !this.pTypes.append('VISC')
  !this.pTypeNames.append('KINEMATIC_VISCOSITY')
  !this.pTypes.append('KVIS')
  !this.pTypeNames.append('ELECTRIC_FIELD')
  !this.pTypes.append('EFLD')
  !this.pTypeNames.append('ELECTRIC_CONDUCTIVITY')
  !this.pTypes.append('CNDT')
  !this.pTypeNames.append('ENERGY_DENSITY')
  !this.pTypes.append('DENS')
  !this.pTypeNames.append('FOULING_FACTOR')
  !this.pTypes.append('FFAC')
  !this.pTypeNames.append('FOULING_FACTOR')
  !this.pTypes.append('FFAC')
  !this.pTypeNames.append('HEAT_CAPACITY')
  !this.pTypes.append('FORC')
  !this.pTypeNames.append('HEAT_TRANSFER_COEFF')
  !this.pTypes.append('HTRA')
  !this.pTypeNames.append('INDUCTANCE')
  !this.pTypes.append('INDU')
  !this.pTypeNames.append('INERTIA')
  !this.pTypes.append('INER')
  !this.pTypeNames.append('MAG_FLUX_DENSITY')
  !this.pTypes.append('MFXD')
  !this.pTypeNames.append('MAG_FIELD_INTENSITY')
  !this.pTypes.append('MFIN')
  !this.pTypeNames.append('MAGNETIC_FLUX')
  !this.pTypes.append('MGFX')
  !this.pTypeNames.append('MASS_FLOW')
  !this.pTypes.append('MFLO')
  !this.pTypeNames.append('TORQUE')
  !this.pTypes.append('ENER')
  !this.pTypeNames.append('ANGULAR_MOMENTUM')
  !this.pTypes.append('ANGM')
  !this.pTypeNames.append('MOMENTUM')
  !this.pTypes.append('MOME')
  !this.pTypeNames.append('PERMEABILITY')
  !this.pTypes.append('PMBT')
  !this.pTypeNames.append('PERMITTIVITY')
  !this.pTypes.append('PMTT')
  !this.pTypeNames.append('RADIATION_DOSE')
  !this.pTypes.append('RDOS')
  !this.pTypeNames.append('RADIOACTIFITY')
  !this.pTypes.append('RADY')
  !this.pTypeNames.append('RESISTIVITY')
  !this.pTypes.append('REST')
  !this.pTypeNames.append('SPECIFIC_ENERGY')
  !this.pTypes.append('RDOS')
  !this.pTypeNames.append('SPEC_HEAT_CAPACITY')
  !this.pTypes.append('SHCP')
  !this.pTypeNames.append('SPEED')
  !this.pTypes.append('SPEE')
  !this.pTypeNames.append('STIFFNESS')
  !this.pTypes.append('STIF')
  !this.pTypeNames.append('ROTATE_STIFFNESS')
  !this.pTypes.append('STFR')
  !this.pTypeNames.append('THERMAL_CONDUCTIVITY')
  !this.pTypes.append('TCON')
  !this.pTypeNames.append('THERMAL_RESISTANCE')
  !this.pTypes.append('TRES')
  !this.pTypeNames.append('VOLUMETRIC_FLOW')
  !this.pTypes.append('VFLO')
  !this.pTypeNames.append('SLOPE')
  !this.pTypes.append('NONE')
  !this.pTypeNames.append('WORD')
  !this.pTypes.append('NONE')
  !this.pTypeNames.append('PARAMETER')
  !this.pTypes.append('NONE')
  !this.pTypeNames.append('CURRENCY')
  !this.pTypes.append('CURY')
endmethod
  do !index indices !this.allDimensions
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
  else
    !return = !this.pTypes[!index]
  endif
  return !return
  enddo
    !this.dimensionNames[!index]   = !this.allDimensions[!index].name().upcase()
    !this.dimensionPTypes[!index]  = !this.getPType(!this.dimensionNames[!index])
define method .getPType(!name is STRING) is STRING
  !index = !this.pTypeNames.findFirst(!name)
  if( !index.unset() ) then
    !return = 'UNKNOWN'
  else
  return !return
  enddo
endmethod
  if( !save ) then
    !this.saveCurrentUnits()
define method .saveCurrentUnits()
  do !index indices !this.allDimensions
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
    !unitQualifier     = !this.allDimensions[!index].currentUnits().unitQualifier()
    if( !unitQualifier.upcase() eq 'IN' ) then
    endif
    !this.savedUnits[!index] = !unitQualifier
  enddo
  return
  endif
endmethod
var !!CDRTNSTATUS (0)
var !!CDRTNTEXT   ||
onerror $:ERRACT$:
$d1 =unset
var !FILE |$1|
var !!CDADPLOCK     delete
var !!CDANOPROC     delete
var !!CDVIEWREPR    delete
var !!CDANOTYP1     delete
var !!CDDIMLEV1FLG  delete
var !!CDDIMCOP1     delete
var !!CDDIMSPAC1    delete
var !!CDDIMLEV1ALL  delete
var !!CDPIPENDSYMB  delete
var !!CDPLTXELEVOPT delete
var !!CDDIM1CFLG    delete
var !!CDPLTXELEVFMT delete
var !!CDPLTXMULTI   delete
var !!CDDIMBRANIN   delete
var !!CDDIMTYP1     delete
var !!CDDIMRUL1     delete
var !!CDPLTXNAME    delete
var !!CDPLTXBOPPREF delete
var !!CDPLTXCLPREF  delete
var !!CDPLTXWPPREF  delete
var !!CDDIM1PURP    delete
var !!CDBRANINPURP  delete
var !!CDPESYMBPURP  delete
var !!CDANOTYP2     delete
var !!CDDIMLEV2FLG  delete
var !!CDDIMCOP2     delete
var !!CDDIMSPAC2    delete
var !!CDDIMLEV2ALL  delete
var !!CDDIM2CFLG    delete
var !!CDEQUICL      delete
var !!CDDIMTYP2     delete
var !!CDDIMRUL2     delete
var !!CDPL2RUL      delete
var !!CDPL2TEX      delete
var !!CDDIM2PURP    delete
var !!CDEQUICLPURP  delete
var !!CDANOTYP3     delete
var !!CDDIMLEV3FLG  delete
var !!CDDIMCOP3     delete
var !!CDDIMSPAC3    delete
var !!CDDIMTYP3     delete
var !!CDDIMRUL3     delete
var !!CDPL3NSRUL    delete
var !!CDPL3NSTEX    delete
var !!CDPL3EWRUL    delete
var !!CDPL3EWTEX    delete
var !!CDDIM3PURP    delete
var !!CDSCHEDLIBY   delete
var !!CDSCHEDDEF    delete
var !!CDSCHEDPURP   delete
var !!CDTAGGLIBY    delete
var !!CDTAGGDEF     delete
var !!CDTAGGPURP    delete
$m "%PDMSDFLTS%/dra-genadp-plotplan"
$( Header: Plot Plans $)
$( This file is compatible with ALL module versions $)
   var !!CDADPLOCK (FALSE)
   var !!CDANOPROC |3 2 1|
   var !!CDVIEWREPR[1]  |Standard|
   var !!CDVOLADDTYP[1]   |ALL|
   var !!CDVOLADDTYP[2]   |ALL|
   var !!CDVOLADDRUL[1]   |MAT ( ATTRIB FUNC OF SITE  , 'MECH' ) NEQ 0|
   var !!CDVOLADDRUL[2]   |MAT ( ATTRIB FUNC OF SITE  , 'STEL' ) NEQ 0|
   var !!CDVOLREMTYP[1]   |ALL|
   var !!CDVOLREMTYP[2]   |PIPE|
   var !!CDVOLREMTYP[3]   |PIPE|
   var !!CDVOLREMRUL[1]   |MAT ( ATTRIB FUNC OF SITE  , 'HULL' ) NEQ 0|
   var !!CDVOLREMRUL[2]   |MAT ( ATTRIB FUNC OF SITE  , 'PIPE' ) NEQ 0|
   var !!CDVOLREMRUL[3]   |MAT ( ATTRIB FUNC OF SITE  , 'ELEC' ) NEQ 0|
   var !!CDANOTYP1 |Piping|
   var !!CDDIMTYP1          |BRAN|
   var !!CDDIMRUL1[1]   |ALL WITH ( MAT ( ATTRIB FUNC OF SITE  , 'PIPE' ) NEQ 0 ) AND HBORE OF BRAN GT 20mm|
   var !!CDDIMLEV1FLG   |FALSE|
   var !!CDDIMLEV1ALL   |FALSE|
   var !!CDPIPENDSYMB   |TRUE|
   var !!CDDIMSPAC1     (40.0000)
   var !!CDDIMCOP1     |2|
   var !!CDPLTXELEVOPT  |CL|
   var !!CDPLTXNAME     |#BRAN(C2:)|
   var !!CDPLTXBOPPREF  |BOP EL|
   var !!CDPLTXCLPREF   | ~C EL|
   var !!CDPLTXWPPREF   | WP EL|
   var !!CDDIM1CFLG     |FALSE|
   var !!CDPLTXELEVFMT  |TRUE|
   var !!CDPLTXMULTI    |TRUE|
   var !!CDDIMBRANIN    |FIRST|
   var !!CDDIM1PURP    |DIM|
   var !!CDBRANINPURP  |ADL|
   var !!CDPESYMBPURP  |ADP|
   var !!CDANOTYP2 |Equipment|
   var !!CDDIMTYP2[1]   |EQUI|
   var !!CDDIMRUL2[1]   |ALL EQUIPMENT WITH ( MAT ( ATTRIB FUNC OF ZONE  , 'MECH' ) NEQ 0 )|
   var !!CDDIMLEV2FLG   |FALSE|
   var !!CDDIMLEV2ALL   |TRUE|
   var !!CDDIMCOP2     |3|
   var !!CDDIMSPAC2     (20.0000)
   var !!CDPL2RUL[1]    |ALL EQUIPMENT WITH ( MAT ( ATTRIB FUNC OF ZONE  , 'MECH' ) NEQ 0 )|
   var !!CDPL2TEX[1]    |#NAME|
   var !!CDEQUICL      |TRUE|
   var !!CDDIM2CFLG     |FALSE|
   var !!CDDIM2PURP    |DIM|
   var !!CDEQUICLPURP  |DIM|
   var !!CDANOTYP3 |Gridline|
   var !!CDDIMTYP3[1]  |SCTN|
   var !!CDDIMRUL3[1]  |GTYPE EQ 'XGRID' OR GTYPE EQ 'YGRID'|
   var !!CDDIMLEV3FLG   |TRUE|
   var !!CDDIMCOP3     ||
   var !!CDDIMSPAC3     (30.0000)
   var !!CDPL3NSRUL[1]   |TYPE EQ 'SCTN'|
   var !!CDPL3NSTEX[1]   |#DESC|
   var !!CDPL3EWRUL[1]   |TYPE EQ 'SCTN'|
   var !!CDPL3EWTEX[1]   |#DESC|
   var !!CDDIM3PURP    |DIM|
   var !!CDSCHEDLIBY |/PROJ/ADP/TAGGS/PGA|
   var !!CDSCHEDDEF  |/PROJ/ADP/SCHED/PGA/Equipment|
   var !!CDSCHEDPURP   |TAG|
   var !!CDTAGGLIBY |/PROJ/TAGRULES/EQUIPMENT|
   var !!CDTAGGDEF[1]   |/PROJ/TAGRULES/EQUIPMENT/EQUI-1|
   var !!CDTAGGPURP    |TAG|
$.
handle any
handle any
endhandle
if (undefined(!!CDADPLOCK)) then
endif
if (undefined(!!CDANOPROC)) then
endif
if (undefined(!!CDVIEWREPR)) then
endif
if (undefined(!!CDANOTYP1)) then
endif
if (undefined(!!CDDIMLEV1FLG)) then
endif
if (undefined(!!CDDIMCOP1)) then
endif
if (undefined(!!CDDIMSPAC1)) then
endif
if (undefined(!!CDDIMLEV1ALL)) then
endif
if (undefined(!!CDPIPENDSYMB)) then
endif
if (undefined(!!CDPLTXELEVOPT)) then
endif
if (undefined(!!CDDIM1CFLG)) then
endif
if (undefined(!!CDPLTXELEVFMT)) then
endif
if (undefined(!!CDPLTXMULTI)) then
endif
if (undefined(!!CDDIMBRANIN)) then
endif
if (undefined(!!CDDIMTYP1)) then
endif
if (undefined(!!CDDIMRUL1)) then
endif
if (undefined(!!CDPLTXNAME)) then
endif
if (undefined(!!CDPLTXBOPPREF)) then
endif
if (undefined(!!CDPLTXCLPREF)) then
endif
if (undefined(!!CDPLTXWPPREF)) then
endif
if (undefined(!!CDDIM1PURP)) then
endif
if (undefined(!!CDBRANINPURP)) then
endif
if (undefined(!!CDPESYMBPURP)) then
endif
if (undefined(!!CDANOTYP2)) then
endif
if (undefined(!!CDDIMLEV2FLG)) then
endif
if (undefined(!!CDDIMCOP2)) then
endif
if (undefined(!!CDDIMSPAC2)) then
endif
if (undefined(!!CDDIMLEV2ALL)) then
endif
if (undefined(!!CDDIM2CFLG)) then
endif
if (undefined(!!CDEQUICL)) then
endif
if (undefined(!!CDDIMTYP2)) then
endif
if (undefined(!!CDDIMRUL2)) then
endif
if (undefined(!!CDPL2RUL)) then
endif
if (undefined(!!CDPL2TEX)) then
endif
if (undefined(!!CDDIM2PURP)) then
endif
if (undefined(!!CDEQUICLPURP)) then
endif
if (undefined(!!CDANOTYP3)) then
endif
if (undefined(!!CDDIMLEV3FLG)) then
endif
if (undefined(!!CDDIMCOP3)) then
endif
if (undefined(!!CDDIMSPAC3)) then
endif
if (undefined(!!CDDIMTYP3)) then
endif
if (undefined(!!CDDIMRUL3)) then
endif
if (undefined(!!CDPL3NSRUL)) then
endif
if (undefined(!!CDPL3NSTEX)) then
endif
if (undefined(!!CDPL3EWRUL)) then
endif
if (undefined(!!CDPL3EWTEX)) then
endif
if (undefined(!!CDDIM3PURP)) then
endif
if (undefined(!!CDSCHEDLIBY)) then
endif
if (undefined(!!CDSCHEDDEF)) then
endif
if (undefined(!!CDSCHEDPURP)) then
endif
if (undefined(!!CDTAGGLIBY)) then
endif
if (undefined(!!CDTAGGDEF)) then
endif
if (undefined(!!CDTAGGPURP)) then
endif
label /ERROR
handle any
handle any
endhandle
return
if (0 eq 1) then
endif
var !DESI (0)
var !AUTO (0)
var !SCHED (0)
var !TAGG (0)
var !ANNO (0)
if (|ON| eq |ON|) then
  CALLADPC UADPLOG $<Updating Design Graphics$> BRIEF
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 1
  var !TAB | |
enddo
if (match(|BRIEF|,|BRIEF|) neq 0) then
  if (upcase(|unset|) neq |UNSET|) then
  else
 Updating Design Graphics
    $p  Updating Design Graphics
  endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
  UPDATE DESIGN IGNORE
  handle any
  handle any
    var !DESI (0)
    CALLADPC UADPLOG $<Design Graphics Update **PASSED**$> BRIEF
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 1
  var !TAB | |
enddo
if (match(|BRIEF|,|BRIEF|) neq 0) then
  if (upcase(|unset|) neq |UNSET|) then
  else
 Design Graphics Update **PASSED**
    $p  Design Graphics Update **PASSED**
  endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
  endhandle
endif
  if (|ON| eq |ON|) then
    var !LEV3 |TRUE|
  else
  if (|ON| eq |ON|) then
    var !LEV2 |TRUE|
  else
  if (|OFF| eq |ON|) then
  else
    var !LEV1 |FALSE|
  endif
  CALLADPC UADPLOG $<Updating Auto-Annotation$> BRIEF
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 1
  var !TAB | |
enddo
if (match(|BRIEF|,|BRIEF|) neq 0) then
  if (upcase(|unset|) neq |UNSET|) then
  else
 Updating Auto-Annotation
    $p  Updating Auto-Annotation
  endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
  var !!CDADPLOGTAB (1 + 1)
  CALLADPG UDIMMAIN $<=18385/3995$> FALSE TRUE TRUE
$($)
$($)
$:debug$:
$d1 =unset
$d2 =TRUE
$d3 =TRUE
$d4 =TRUE
var !VIEW |$1|
var !UPDTLEV1 |$2|
var !UPDTLEV2 |$3|
var !UPDTLEV3 |$4|
var list _cdrDIMPOINT_PREF clear
exit
var list _cdrDIMPOINT_DREF clear
exit
var !!CDL1DUPBRAN delete $* array of branches having duplicate dim refs
var !!CDL1DUPDIMS delete $* array of duplicate branch dim points
=18385/3995
var !VIEWREF REF
var !VIEWNAME NAME
var !VIEWDIR DIR
var !VIEWDIRU VIEWDIR U
var !VIEWDIRD VIEWDIR D
var !VIEWDIRL VIEWDIR L
var !VIEWDIRR VIEWDIR R
var !ADEG ADEG
var !PERS PERS
var !FUNC FUNC
var !REFRESH (false)
var !LEV1STATUS (0)
var !LEV2STATUS (0)
var !LEV3STATUS (0)
var !ORTHO |true|
var !VALID |_N_S_E_W_U_D_X_-X_Y_-Y_Z_-Z_|
if (match(|_N_S_E_W_U_D_X_-X_Y_-Y_Z_-Z_|,|_D_|) eq 0) then
elseif (0degree neq 0) then
elseif (0degree neq 0) then
endif
if (not(false)) then
  if (defined(!!CDDIMLEV1FLG) and FALSE) then
    handle none
  endif
  if (defined(!!CDDIMLEV2FLG) and FALSE) then
    handle none
  endif
  if (defined(!!CDDIMLEV3FLG) and TRUE) then
    var !UDFLTS (:CDGDPDEF3 of =18385/3995 )
    handle none
    handle none
      var !ARRAY split |unset| |\|
      if (arraysize(!ARRAY) eq 1) then
        if (|unset| neq |unset|) then
        else
          var !INFO |Information: [UDIMMAIN] User defaults for type 3 are unset, standard defaults will be used|
          CALLADPC UADPLOG $<Information: [UDIMMAIN] User defaults for type 3 are unset, standard defaults will be used$> FULL
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 2
  var !TAB | |
enddo
  var !TAB |  |
enddo
if (match(|BRIEF|,|FULL|) neq 0) then
elseif (|FULL| eq |HEADER|) then
elseif (|FULL| eq |SUMMARY|) then
endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
        endif
      else
    elsehandle any
    endhandle
  endif
endif
var !DIM3 (true)
var !DIM2 (true)
var !DIM1 (true)
var !LEV3 coll all LDIM for /PLOT_TRIAL/SHEET-1/V2/GDP3/Dims
handle any
handle any
  var !DIM3 (false)
endhandle
var !LEV2 coll all LDIM for /PLOT_TRIAL/SHEET-1/V2/GDP2/Dims
handle any
handle any
  var !DIM2 (false)
endhandle
var !LEV1 coll all LDIM for /PLOT_TRIAL/SHEET-1/V2/GDP1/Dims
handle any
handle any
  var !DIM1 (false)
endhandle
do !V values !LEV3
do !V values !LEV2
do !V values !LEV1
var !DELDIM |false|
do !CHECK values !DIMS
if (false) then
endif
var !TYPES split |3 2 1| | |
do !TYPE values !TYPES
  if (3 eq 1) then
  elseif (3 eq 2) then
  elseif (3 eq 3) then
    if (TRUE) then
      if (TRUE and true) then
        var !LVIS (LVIS of /PLOT_TRIAL/SHEET-1/V2/GDP3/Dims )
        handle none
        handle none
        endhandle
        prompt |Creating Type 3 Annotation|
        CALLADPC UADPLOG $<Updating Type 3 Annotation$> FULL
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 2
  var !TAB | |
enddo
  var !TAB |  |
enddo
if (match(|BRIEF|,|FULL|) neq 0) then
elseif (|FULL| eq |HEADER|) then
elseif (|FULL| eq |SUMMARY|) then
endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
        var !!CDADPLOGTAB (2 + 1)
        CALLADPG UANOTYP3 =18385/3995
$($)
$($)
$:debug$:
var !!CDRTNSTATUS (0)
var !!CDRTNTEXT   ||
onerror $:ERRACT$:
$d1 =unset
var !VIEW ( NAME of $1 )
var !VIEWREF ( REF of $1 )
=18385/3995
handle(2,109)
handle(2,109)
endhandle
SETSTAR
do !I indexes !!CDDIMTYP3
  CALLIBM RCOLLECT $<=18385/3995$> BOX $<SCTN$> $<GTYPE EQ 'XGRID' OR GTYPE EQ 'YGRID'$>
$($)
$($)
$:debug$:
var !!CDRTNSTATUS (0)
var !!CDRTNTEXT   ||
onerror golabel /ERROR
$d1 =unset
$d2 =BOX
$d3 =ALL
$d4 =quantity eq 1
var !!CDCARTN delete
var !VIEW  |$1|
var !MODE  |$2|
var !TYPES |$3|
var !WITH  |$4|
if (|GTYPE EQ 'XGRID' OR GTYPE EQ 'YGRID'| eq ||) then
endif
=18385/3995
handle(2,109)
handle(2,109)
endhandle
var !IDLN IDLN
if (|/PLOT_TRIAL/SHEET-1/V2/VOL| eq |=0/0|) then
endif
CALLIBM RVIEWBOX =18385/3995
$($)
$($)
$:debug$:
var !!CDRTNSTATUS (0)
var !!CDRTNTEXT   ||
onerror golabel /ERROR
$d1 =unset
var !VIEW |$1|
=18385/3995
handle(2,109)
handle(2,109)
endhandle
var !UDANOTSET |FALSE|
var !CDLIMITS :CDLIMITS
handle any
handle any
  if ((upcase(|From E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm|) eq |NOT SET|) OR (upcase(|From E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm|) eq |UNSET|)) then
  else
    var !UDANOTSET |FALSE|
  endif
endhandle
if (|FALSE| eq |TRUE|) then
endif
var !LIMITS :CDLIMITS
var !!CDFROM (before(after(|From E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm|,|From |),| To|))
var !!CDTO   (after(|From E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm|,| To |))
return $* >>>>>>>>>> End of Code RVIEWBOX <<<<<<<<<<
if (0 eq 1) then
endif
var !!CDVLIMFROM |E 260147mm N 7718mm U 31810mm|
var !!CDVLIMTO   |E 281801mm N 23718mm U 42347mm|
var !VLIMFROM |E 260147mm N 7718mm U 31810mm|
var !VLIMTO   |E 281801mm N 23718mm U 42347mm|
CALLIBM RVIEWSIDES $<E 260147mm N 7718mm U 31810mm$> $<E 281801mm N 23718mm U 42347mm$>
$($)
$($)
$:debug$:
var !!CDRTNSTATUS (0)
var !!CDRTNTEXT   ||
onerror golabel /ERROR
$d1 =unset
$d2 =unset
var !FROM |$1|
var !TO   |$2|
callib UGETCRD $<E 260147mm N 7718mm U 31810mm$>
$($)
$($)
$:debug$:
!position = object POSITION( |$1| )
CADCCXCNVS POSITION E 260147mm N 7718mm U 31810mm
handle any
handle any
endhandle
!!CDRRTNX = !position.east.string()
!!CDRRTNY = !position.north.string()
!!CDRRTNZ = !position.up.string()
$.
var !FX |260147mm|
var !FY |7718mm|
var !FZ |31810mm|
callib UGETCRD $<E 281801mm N 23718mm U 42347mm$>
$($)
$($)
$:debug$:
!position = object POSITION( |$1| )
CADCCXCNVS POSITION E 281801mm N 23718mm U 42347mm
handle any
handle any
endhandle
!!CDRRTNX = !position.east.string()
!!CDRRTNY = !position.north.string()
!!CDRRTNZ = !position.up.string()
$.
var !TX |281801mm|
var !TY |23718mm|
var !TZ |42347mm|
var !FROMX min(260147mm,281801mm)
var !FROMY min(7718mm,23718mm)
var !FROMZ min(31810mm,42347mm)
var !TOX   max(260147mm,281801mm)
var !TOY   max(7718mm,23718mm)
var !TOZ   max(31810mm,42347mm)
var !NFROMX (281801mm - 10mm)
var !FROM   |281791mm 7718mm 31810mm|
var !TO     |281801mm 23718mm 42347mm|
CALLIB UGETPOS 281791mm 7718mm 31810mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (281791mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (7718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (31810mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 281791mm N 7718mm U 31810mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !FROM |E 281791mm N 7718mm U 31810mm|
CALLIB UGETPOS 281801mm 23718mm 42347mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (281801mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (23718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (42347mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 281801mm N 23718mm U 42347mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !TO |E 281801mm N 23718mm U 42347mm|
var !!CDCARTN[1] |E 281791mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm|
var !FROM |260147mm 7718mm 31810mm|
var !NTOX (260147mm + 10mm)
var !TO   |260157mm 23718mm 42347mm|
CALLIB UGETPOS 260147mm 7718mm 31810mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (260147mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (7718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (31810mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 260147mm N 7718mm U 31810mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !FROM |E 260147mm N 7718mm U 31810mm|
CALLIB UGETPOS 260157mm 23718mm 42347mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (260157mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (23718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (42347mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 260157mm N 23718mm U 42347mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !TO |E 260157mm N 23718mm U 42347mm|
var !!CDCARTN[2] |E 260147mm N 7718mm U 31810mm To E 260157mm N 23718mm U 42347mm|
var !NFROMY (23718mm - 10mm)
var !FROM   |260147mm 23708mm 31810mm|
var !TO     |281801mm 23718mm 42347mm|
CALLIB UGETPOS 260147mm 23708mm 31810mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (260147mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (23708mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (31810mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 260147mm N 23708mm U 31810mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !FROM |E 260147mm N 23708mm U 31810mm|
CALLIB UGETPOS 281801mm 23718mm 42347mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (281801mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (23718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (42347mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 281801mm N 23718mm U 42347mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !TO |E 281801mm N 23718mm U 42347mm|
var !!CDCARTN[3] |E 260147mm N 23708mm U 31810mm To E 281801mm N 23718mm U 42347mm|
var !NTOY (7718mm + 10mm)
var !FROM |260147mm 7718mm 31810mm|
var !TO   |281801mm 7728mm 42347mm|
CALLIB UGETPOS 260147mm 7718mm 31810mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (260147mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (7718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (31810mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 260147mm N 7718mm U 31810mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !FROM |E 260147mm N 7718mm U 31810mm|
CALLIB UGETPOS 281801mm 7728mm 42347mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (281801mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (7728mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (42347mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 281801mm N 7728mm U 42347mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !TO |E 281801mm N 7728mm U 42347mm|
var !!CDCARTN[4] |E 260147mm N 7718mm U 31810mm To E 281801mm N 7728mm U 42347mm|
var !NFROMZ (42347mm - 10mm)
var !FROM |260147mm 7718mm 42337mm|
var !TO   |281801mm 23718mm 42347mm|
CALLIB UGETPOS 260147mm 7718mm 42337mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (260147mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (7718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (42337mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 260147mm N 7718mm U 42337mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !FROM |E 260147mm N 7718mm U 42337mm|
CALLIB UGETPOS 281801mm 23718mm 42347mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (281801mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (23718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (42347mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 281801mm N 23718mm U 42347mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !TO |E 281801mm N 23718mm U 42347mm|
var !!CDCARTN[5] |E 260147mm N 7718mm U 42337mm To E 281801mm N 23718mm U 42347mm|
var !FROM   |260147mm 7718mm 31810mm|
var !NTOZ (31810mm + 10mm)
var !TO     |281801mm 23718mm 31820mm|
CALLIB UGETPOS 260147mm 7718mm 31810mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (260147mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (7718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (31810mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 260147mm N 7718mm U 31810mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !FROM |E 260147mm N 7718mm U 31810mm|
CALLIB UGETPOS 281801mm 23718mm 31820mm
$($)
$($)
$:debug$:
var !PX |$1|
var !PY |$2|
var !PZ |$3|
!axes = !!coords.axesShortNames()
define method .axesShortNames() is ARRAY
  if( !this.isXYZ() ) then
define method .isXYZ() is BOOLEAN
  var !coord coord
  !this.xyzFlag = !coord.eq('XYZ')
  return !this.xyzFlag
  else
    return !this.enuAxesShort
if (281801mm geq 0) then
  !CARD[1] = !axes[1]
  !VAL[1]  = !PX
else $* if ($!PX lt 0) then
if (23718mm geq 0) then
  !CARD[2] = !axes[3]
  !VAL[2]  = !PY
else $* if ($!PY lt 0) then
if (31820mm geq 0) then
  !CARD[3] = !axes[5]
  !VAL[3]  = !PZ
else $* if ($!PZ lt 0) then
var !!CDSNRTN |E 281801mm N 23718mm U 31820mm|
return $* >>>>>>>>>> End of Code ugetpos <<<<<<<<<<
var !TO |E 281801mm N 23718mm U 31820mm|
var !!CDCARTN[6] |E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 31820mm|
return $* >>>>>>>>>> End of Code RVIEWSIDES <<<<<<<<<<
if (0 eq 1) then
endif
var !VLIMESIDE |E 281791mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm|
var !VLIMWSIDE |E 260147mm N 7718mm U 31810mm To E 260157mm N 23718mm U 42347mm|
var !VLIMNSIDE |E 260147mm N 23708mm U 31810mm To E 281801mm N 23718mm U 42347mm|
var !VLIMSSIDE |E 260147mm N 7718mm U 31810mm To E 281801mm N 7728mm U 42347mm|
var !VLIMUSIDE |E 260147mm N 7718mm U 42337mm To E 281801mm N 23718mm U 42347mm|
var !VLIMDSIDE |E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 31820mm|
if (|BOX| eq |BOX|) then
  var !LIMITS |E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm|
  var !COLLECTION COLL ALL (SCTN) with GTYPE EQ 'XGRID' OR GTYPE EQ 'YGRID' within E 260147mm N 7718mm U 31810mm To E 281801mm N 23718mm U 42347mm
  handle any
  handle any
  endhandle
var !!CDCARTN delete
do !ELEM values !COLLECTION
=18385/3995
return $* >>>>>>>>>> End of Code rcollect <<<<<<<<<<
  if (0 eq 1) then
  endif
  do !ELEM values !!CDCARTN
enddo
if (undefined(!TEMP)) then
  var !!CDRTNSTATUS (-1)
  var !!CDRTNTEXT |Warning: [UANOTYP3] No elements found matching level 3 rules|
  CALLADPC UADPLOG $<Warning: [UANOTYP3] No elements found matching level 3 rules$> FULL
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 3
  var !TAB | |
enddo
  var !TAB |  |
enddo
  var !TAB |   |
enddo
if (match(|BRIEF|,|FULL|) neq 0) then
elseif (|FULL| eq |HEADER|) then
elseif (|FULL| eq |SUMMARY|) then
endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
  return
        var !!CDADPLOGTAB (3 - 1)
        if (-1 eq 1) then
        elseif (-1 eq -1) then
          var !LEV3STATUS (-1)
          CALLADPC UADPLOG $<Type 3 Annotation Update **WARNINGS**$> FULL
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 2
  var !TAB | |
enddo
  var !TAB |  |
enddo
if (match(|BRIEF|,|FULL|) neq 0) then
elseif (|FULL| eq |HEADER|) then
elseif (|FULL| eq |SUMMARY|) then
endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
        else
        var !REFRESH (true)
      else
    endif
  else
enddo
  if (2 eq 1) then
  elseif (2 eq 2) then
    if (TRUE) then
      if (FALSE and true) then
        handle none
        handle none
      else
        if (false and (not(false))) then
          handle any
          handle none
        endif
      endif
    endif
enddo
  if (1 eq 1) then
    if (FALSE) then
    endif
    prompt dismiss
enddo
if (true) then
  refresh
endif
if (0 eq 1 or 0 eq 1 or -1 eq 1) then
elseif (0 eq -1 or 0 eq -1 or -1 eq -1) then
  var !!CDRTNSTATUS (-1)
else
return $* >>>>>>>>>> End of Code udimmain <<<<<<<<<<
  var !!CDADPLOGTAB (2 - 1)
  if (-1 eq 1) then
  elseif (-1 eq -1) then
    var !AUTO (-1)
    CALLADPC UADPLOG $<Auto-Annotation Update **WARNINGS**$> BRIEF
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 1
  var !TAB | |
enddo
if (match(|BRIEF|,|BRIEF|) neq 0) then
  if (upcase(|unset|) neq |UNSET|) then
  else
 Auto-Annotation Update **WARNINGS**
    $p  Auto-Annotation Update **WARNINGS**
  endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
  else
if (|ON| eq |ON|) then
  CALLADPC UADPLOG $<Updating Schedules$> BRIEF
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 1
  var !TAB | |
enddo
if (match(|BRIEF|,|BRIEF|) neq 0) then
  if (upcase(|unset|) neq |UNSET|) then
  else
 Updating Schedules
    $p  Updating Schedules
  endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
  if (trim(upcase(|/PROJ/ADP/SCHED/PGA/Equipment|)) neq |UNSET|) then
    var !CHECK (TRST of /PROJ/ADP/SCHED/PGA/Equipment )
    handle any
    handle any
      var !NAMESUFF (part(|/PROJ/ADP/SCHED/PGA/Equipment|,-1,|/|))
      /PLOT_TRIAL/SHEET-1/V2/SCHD/Equipment
      handle any
      endhandle
    endhandle
  endif
  var !!CDADPLOGTAB (1 + 1)
  var !LAYERS collect all LAYE with (substr(PURP,1,3) eq |TAG|) for /PLOT_TRIAL/SHEET-1/V2
  do !LAYER values !LAYERS
    =18385/4534
    CALLADPS UTABLE UPDATE
$($)
$($)
$:debug$:
var !!CDRTNSTATUS (0)
var !!CDRTNTEXT   ||
$d1 =UPDATE
var !MODE   |$1|
var !TRST TRSF
var !LAYER REF
var !LAYNAME NAME
if (not(LVIS)) then
endif
var !RCODE (RCODE of VIEW)
if (|Up| eq |Up| or |Up| eq |Down|) then
  var !ADEG (0)
if (|UPDATE| eq |UPDATE|) then
  UPDATE TAGGING
  var !LABELS coll all (GLAB SLAB) for LAYER
  do !LABEL values !LABELS
    var !FOUND FIND DDNM of =18385/4535 in VIEW
    handle any
    handle any
    endhandle
    if (|Missing| eq |Missing|) then
      if (part(NAME of =18385/4535,-1,|/|) neq |HEADER|) then
        var !DDNM (DDNM of =18385/4535 )
        CALLADPC UADPLOG $<Information: [UTABLE] Element "/M-M1P-ADP" has been added into the schedule but is not visible in view graphics$> FULL
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 2
  var !TAB | |
enddo
  var !TAB |  |
enddo
if (match(|BRIEF|,|FULL|) neq 0) then
elseif (|FULL| eq |HEADER|) then
elseif (|FULL| eq |SUMMARY|) then
endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
      endif
    endif
  enddo
    var !FOUND FIND DDNM of =18385/4536 in VIEW
    handle any
    endhandle
    if (|Missing| eq |Missing|) then
      if (part(NAME of =18385/4536,-1,|/|) neq |HEADER|) then
        var !DDNM (DDNM of =18385/4536 )
        CALLADPC UADPLOG $<Information: [UTABLE] Element "/M-M1P-PROPANE-RACK" has been added into the schedule but is not visible in view graphics$> FULL
$($)
$($)
$:debug$:
$d1 =
$d2 =unset
var !TEXT |$1|
var !MODE |$2|
if (|BRIEF| eq |DEBUG|) then
elseif (|BRIEF| eq |FULL|) then
elseif (|BRIEF| eq |BRIEF|) then
  var !VALIDMODES |BRIEF|
else
if (undefined(!!CDADPLOGTAB)) then
endif
var !TAB ||
do !I from 1 to 2
  var !TAB | |
enddo
  var !TAB |  |
enddo
if (match(|BRIEF|,|FULL|) neq 0) then
elseif (|FULL| eq |HEADER|) then
elseif (|FULL| eq |SUMMARY|) then
endif
return $* >>>>>>>>>> End of Code uadplog <<<<<<<<<<
      endif
    endif
  enddo
/PLOT_TRIAL/SHEET-1/V2/TAGG/EQUI-1/ATTS
PARSE EXPRESSION (Direction WRT Owner )
PARSE EXPRESSION (Xyposition WRT Owner )
CALLDRG UTRACKMAIN
$($)
$($)
call !!draTrackMain()
define function !!draTrackMain()
  !!draSwitchMenu()
define function !!draSwitchMenu()
   !drwg = FALSE
   !ref  = !!ce
   !displayEle = 'SHEE DRWG BACK OVER SYLB ISOLB LALB SHTMPL'
   !displayDbRef = !!dtbGetOwnerType(!ref, !displayEle)
define function !!dtbGetOwnerType(!element is DBREF, !list is ANY) is DBREF
  !owner = object DBREF()
  if(!list.objectType().eq('STRING')) then
    !arrayList = !list.split()
  else
     !ownerList = !element.ownLst.invert()
     if (!element.type eq 'TUBI') then
     endif
     !ownerList.insert(1,!element)
  do !owners values !ownerList
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
    endif
  enddo
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
    endif
  enddo
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
      !owner = !owners
      break
     return !owner
   if(!ref.type.eq('DRWG') and !ref.mcount('SHEE').eq(1)) then
   elseif(!ref.type.eq('DRWG') and !ref.mcount('SHEE').neq(1)) then
   else
    !isAdmin = !!appCntrl.isAdmin()
define method .isAdmin() is BOOLEAN
  return !this.isAdmin(!this.currentApp)
define method .isAdmin(!appName is STRING) is BOOLEAN
  !pos = !this.names.findFirst(!appName.upcase())
  if (!pos.set()) then
    return !this.apps[!pos].admin
    if(!isAdmin) then
    else
       !validEle  = 'OVER SHEE DRWG'
    endif
    !selectedDbRef = !!dtbGetOwnerType(!ref, !validEle)
define function !!dtbGetOwnerType(!element is DBREF, !list is ANY) is DBREF
  !owner = object DBREF()
  if(!list.objectType().eq('STRING')) then
    !arrayList = !list.split()
  else
     !ownerList = !element.ownLst.invert()
     if (!element.type eq 'TUBI') then
     endif
     !ownerList.insert(1,!element)
  do !owners values !ownerList
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
    endif
  enddo
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
    endif
  enddo
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
      !owner = !owners
      break
     return !owner
   endif
   if(!displayDbRef.unset()) then
   else
     if (!selectedDbRef.unset() or ( not dbwrite ) or (  not !!dbRefUpdatable(REF))) then
define function !!dbRefUpdatable(!item is DBREF) is BOOLEAN
  if(!item.lock) then
  endif
  if(!!exists(!item.string(),'','Update').not()) then
define function !!exists (!pItem is STRING, !passedType is STRING, !passedAccess is STRING) is BOOLEAN
  !type   = !passedType
  !access = !passedAccess
  if(!pItem.upcase() eq 'CE') then
  elseif(!pItem.subString(1,1) ne '=' and !pItem.subString(1,1) ne '/') then
  else
    !item = !pItem
  endif
  if(!type.unset()) then
  endif
  if(!access.unset()) then
  endif
  var !exists EXISTS =18385/4534  Update
  return !exists.subString(1,1).boolean()
  endif
  if(!item.dbAccess eq 'MULTIWRITE') then
    if (not !item.okClaim and not !item.lclm) then
    endif
  endif
  return true
     else
       !!cdrCadcGa1.barPopup.setactive('Add CE', TRUE)
       !!appDraMain.select.active = TRUE
     endif
     if(defined(!!cdrCadcGa2)) then
       !!cdrCadcGa2.barPopup.setactive('Add CE', TRUE)
     endif
   endif
endfunction
  if(not(defined(!!cdCurTyp))) then
  endif
  if (defined(!!appCntrl)) then
    !app = !!appCntrl.currentAppObj()
define method .currentAppObj() is APPDEFN
  return !this.getApplic(!this.currentApp)
define method .getApplic(!appName is STRING) is APPDEFN
  !pos = !this.names.findFirst(!appName.upcase())
  if (!pos.set()) then
    return !this.apps[!pos]
    if (!app.admin) then
    else
      !status = 'USER'
    endif
    !gadgets = !app.gadgets
    !eleType = !app.types
  else
  if (!!cdrGenApp.sheet.rText.unset()) then
  endif
  if(!status.eq('USER')) then
    !ref = !!ce
    !selectedDbRef = !!dtbGetOwnerType(!ref, 'NOTE VNOT LAYE VIEW')
define function !!dtbGetOwnerType(!element is DBREF, !list is ANY) is DBREF
  !owner = object DBREF()
  if(!list.objectType().eq('STRING')) then
    !arrayList = !list.split()
  else
     !ownerList = !element.ownLst.invert()
     if (!element.type eq 'TUBI') then
     endif
     !ownerList.insert(1,!element)
  do !owners values !ownerList
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
      !owner = !owners
      break
     return !owner
    if(!selectedDbRef.unset()) then
    endif
    !selectedSheet = !!dtbGetOwnerType(!ref, 'SHEE OVER')
define function !!dtbGetOwnerType(!element is DBREF, !list is ANY) is DBREF
  !owner = object DBREF()
  if(!list.objectType().eq('STRING')) then
    !arrayList = !list.split()
  else
     !ownerList = !element.ownLst.invert()
     if (!element.type eq 'TUBI') then
     endif
     !ownerList.insert(1,!element)
  do !owners values !ownerList
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
    endif
  enddo
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
    endif
  enddo
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
      !owner = !owners
      break
     return !owner
    if(!selectedSheet.unset()) then
    endif
    if(!selectedSheet.fullname.neq(!!cdrGenApp.sheet.selection('RTEXT'))) then
    endif
    !layerDbRef = !!dtbGetOwnerType(!ref, 'LAYE VIEW')
define function !!dtbGetOwnerType(!element is DBREF, !list is ANY) is DBREF
  !owner = object DBREF()
  if(!list.objectType().eq('STRING')) then
    !arrayList = !list.split()
  else
     !ownerList = !element.ownLst.invert()
     if (!element.type eq 'TUBI') then
     endif
     !ownerList.insert(1,!element)
  do !owners values !ownerList
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
      !owner = !owners
      break
     return !owner
    if(!layerDbRef.set()) then
      call !!draHighLightView(!layerDbRef)
define function !!draHighLightView(!layer is DBREF)
   if(!layer.type.eq('LAYE')) then
      !view      = !layer.owner
   else
   if(defined(!!draSettings) and !!draSettings.highLightView.val.not()) then
       handle ANY
   endif
   if(!layer.type.eq('LAYE') or !layer.type.eq('VIEW')) then
      unenhance all view for owner of =18385/3995
      enhance  =18385/3995
      handle ANY
      handle ANY
      endhandle
   endif
endfunction
    endif
  !!cdrGenApp.layerControl.selectElement(!!ce)
define method .selectElement(!dbref is DBREF)
  !this.sheetName  = !!appDraMain.sheet.selection('RTEXT')
  if(!this.sheetName.eq('') and (( dbwrite ) or ( !!dbRefUpdatable(REF) ))) then
define function !!dbRefUpdatable(!item is DBREF) is BOOLEAN
  if(!item.lock) then
  endif
  if(!!exists(!item.string(),'','Update').not()) then
define function !!exists (!pItem is STRING, !passedType is STRING, !passedAccess is STRING) is BOOLEAN
  !type   = !passedType
  !access = !passedAccess
  if(!pItem.upcase() eq 'CE') then
  elseif(!pItem.subString(1,1) ne '=' and !pItem.subString(1,1) ne '/') then
  else
    !item = !pItem
  endif
  if(!type.unset()) then
  endif
  if(!access.unset()) then
  endif
  var !exists EXISTS =18385/4534  Update
  return !exists.subString(1,1).boolean()
  endif
  if(!item.dbAccess eq 'MULTIWRITE') then
    if (not !item.okClaim and not !item.lclm) then
    endif
  endif
  return true
  endif
  !elementRefe = !!dtbGetOwnerType(!dbref, 'VIEW NOTE LAYE VNOT VSEC')
define function !!dtbGetOwnerType(!element is DBREF, !list is ANY) is DBREF
  !owner = object DBREF()
  if(!list.objectType().eq('STRING')) then
    !arrayList = !list.split()
  else
     !ownerList = !element.ownLst.invert()
     if (!element.type eq 'TUBI') then
     endif
     !ownerList.insert(1,!element)
  do !owners values !ownerList
    !index = !arrayList.findFirst(!owners.type)
    if(!index.unset().not()) then
      !owner = !owners
      break
     return !owner
  if (!elementRefe.unset()) then
  endif
  !elementType = !elementRefe.type
  !elementName = !elementRefe.fullname
  if (!elementType.eq('VIEW')) then
  else
    if (!elementType.eq('LAYE')) then
      if (!elementRefe.purp.trim().eq('')) then
      elseif (!!cdrPrpDflts.dim.val.match(!elementRefe.purp.substring(1,3)).neq(0)) then
      elseif (!!cdrPrpDflts.lab.val.match(!elementRefe.purp.substring(1,3)).neq(0)) then
        !layerType = 'LAB'
      !!cdrGenApp.notesViews.select('RTEXT',!elementRefe.owne.string())
      !noteViewRefe    = !!cdrGenApp.notesViews.selection('RTEXT').dbref()
CADCCXCNVS DBREF =18385/3995
      !notesViewsIndex = !!cdrGenApp.notesViews.val
  endif
  if (!layerType.eq('ALL')) then
  elseif (!layerType.eq('DIM')) then
  elseif (!layerType.eq('LAB')) then
    if (!this.labLayers[!notesViewsIndex].findfirst(!elementName).unset()) then
    endif
  if (!!cdrGenApp.layerFilter.selection('RTEXT').neq(!layerType)) then
    !!cdrGenApp.layerFilter.select('RTEXT', !layerType)
  endif
  !this.populateToolbar(!layerType, !notesViewsIndex)
define method .populateToolbar(!layerType is STRING, !index is REAL)
  !!cdrGenApp.layeNam.clear()
  if (!layerType.eq('ALL')) then
  elseif (!layerType.eq('DIM')) then
  elseif (!layerType.eq('DRA')) then
  elseif (!layerType.eq('LAB')) then
    !dtext = !this.labLayers[!index]
  endif
  !!cdrGenApp.layeNam.dtext = !dtext
endmethod
  !!cdrGenApp.layeNam.select('DTEXT', !elementName)
  !!draSetLvisGadget(!elementRefe)
define function !!draSetLvisGadget(!dbRef is DBREF)
!lvis = !dbRef.lvis
handle ANY
handle ANY
endhandle
if(!lvis) then
   !!cdrGenApp.lvis.select('RTEXT','true')
else
endfunction
endmethod
endfunction
!lvis = !!cdrGenApp.layeNam.selection().dbRef()
CADCCXCNVS DBREF /PLOT_TRIAL/SHEET-1/V2/TAGG/EQUI-1
handle ANY
handle ANY
  !!draSetLvisGadget(!lvis)
define function !!draSetLvisGadget(!dbRef is DBREF)
!lvis = !dbRef.lvis
handle ANY
handle ANY
endhandle
if(!lvis) then
   !!cdrGenApp.lvis.select('RTEXT','true')
else
endfunction
endhandle
return
(2,109)   Undefined name /PLOT_TRIAL/SHEET-1/V2/TAGG/EQUI-1/ATTS
 In line 91 of Macro %PDMSUI%/DRA/ADPSCHED/UTABLE
$!LAYNAME/ATTS
 Called from line 137 of Macro %PDMSUI%/DRA/ADPGDP/UGDPUPDT
    CALLADPS UTABLE UPDATE
 Called from line 218 of Macro %PDMSUI%/DRA/ADPGDP/MGDPUPDT
    CALLADPG UGDPUPDT $!VIEWREF
 Called from line 1 of Command/Form Callback Command
CALLADPG MGDPUPDT APPLY