;
; WRITES THE CURRENT HEADER LINE AT THE TOP OF THE SCREEN
; INPUT = ^TMP("XBDH",$J,"HEADER",N),XBDHTHLW
; OUTPUT = XBDHHDSP,XBDHHDPD
; ALSO WRITES THE FIELD BOUNDARY LINE (AAAAAABBBCCCCC...) BELOW THE HEADER LINE
; THIS ROUTINE IS CALLED EVERY TIME THE HEADER LINE IS CHANGED BY THE EDITING PROCESS