awk '
function field(x) { split(x,a,sprintf("%c",39)) ;  return a[2] } 

/events:/ { r=1 ;print }
r=="" { next }
$1=="id:" { printf "%s^",field($0) }
$1=="title2:" { printf "%s^",field($0) }
$1=="rutPac:" {printf "%s^",field($0) }
$1=="rutPro:" {printf "%s^",field($0) }
$1=="fecha:" { printf "%s^",field($0) }
$1=="nomPro:" {printf "%s^",field($0) }
$1=="especialidadPro:" {printf "%s^",field($0) }
$1=="estadoCita:" {printf "%s\n",field($0) }


 ' $1
exit

echo 00000000000000000000000000000000000000000000000000000000000^P

read line
awk '
function field(x) { split(x,a,sprintf("%c",39)) ;  return a[2] } 

/events:/ { r=1 ;print }
r=="" { next }
$1=="id:" { printf "%s^",field($0) }
$1=="title2:" { printf "%s^",field($0) }
$1=="rutPac:" {printf "%s^",field($0) }
$1=="rutPro:" {printf "%s^",field($0) }
$1=="fecha:" { printf "%s^",field($0) }
$1=="nomPro:" {printf "%s^",field($0) }
$1=="especialidadPro:" {printf "%s^",field($0) }
$1=="estadoCita:" {printf "%s\n",field($0) }


 ' TM2022-01.1.H | more

