;
; CALLED BY ^DIP2. GETS ^TMP("XBDH",$J,"HELPER",XBDHHDX) TO BE STUFFED INTO "THEN PRINT FIELD: " OF DIP2
; INPUT = XBDHHDX
; OUTPUT = ^TMP("XBDH",$J,"HELPR",XBDHHDX),XBDHHDX
; IF XBDHHDX=99 THE GLOBAL KILLS ITSELF OFF AND A NULL STRING IS PASSED TO DIP2