#!/bin/sh 
rsh -K -l support 160.45.175.4 "
. /usr/M1215A/carevue/etc/carevue_env ;
. /usr/M1215A/carevue/etc/go_charting ;
idb -s -q <<__END__
set ColumnMode;
set EntityRefMode ObjectId;
foreach Active;
  select inBed into BEDOID from PtVisit where prid = \\\$PATIENT;
  select name into RESULT from BedConfig where objectId = \\\$BEDOID;
  select acctNum, medRecNum, name, Vorname, DOB, sex into +RESULT from CfgPatients;
  echo \\\$RESULT;
end;
__END__
"