-%#get package record
-%my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
-%die "No package!" unless $cust_pkg;
-%my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
+% #get package record
+% $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
+% die "No package!" unless $cust_pkg;
+% $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
+%
+% ($susp,$adjourn,$cancel,$expire)=(
+% $cust_pkg->getfield('susp'),
+% $cust_pkg->getfield('adjourn'),
+% $cust_pkg->getfield('cancel'),
+% $cust_pkg->getfield('expire'),
+% );
+% ($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment'));
+% ($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill'));
+% $otaker = $cust_pkg->getfield('otaker');
+%}