puts "============"
puts "OCC22788"
puts "============"
puts ""
#######################################################################
# 
#######################################################################

pload QAcommands

set BugNumber OCC22788

NewDocument D MDTV-Standard

set aFile OCC22788.std

Open [locate_data_file ${aFile}] D

Close D

return

set log [OCC159 D]

set list [split ${log}]
set ll [llength ${list}]

if { ${ll} < 13 } {
    puts "OCC159: Error"
} else {
    set DocRefCount1 [lindex ${list} 2]
    set DocOwner1    [lindex ${list} 5]
    set DocOwner2    [lindex ${list} 8]
    set DocRefCount2 [lindex ${list} 11]
    set deltaRefCount [expr ${DocRefCount1} - ${DocRefCount2}]
    if { ${DocOwner2} == "NULL" && ${deltaRefCount} >= 1 } then {
	puts "OCC159: OK"
    } else {
	puts "OCC159: Error"
    }
}
