Control of individual Framed edges?

Would a CellFrame around a TextCell work?

Framed[
 x -> TextCell[
   Column[{"Depression", "PTSD", "Diabetes Type II", "Smoker"}], 
   "Text",
   CellFrame -> {{True, False}, {False, False}}]]

Mathematica graphics


An alternative way of getting a similar display would be to define a new function leftFramed that only puts a vertical extensible line to the left of the content:

leftFrame /: MakeBoxes[leftFrame[obj_], _] := 
 RowBox[{"\[LeftBracketingBar]", ToBoxes[obj]}]

Framed[x -> 
  leftFrame[
   Column[{"Depression", "PTSD", "Diabetes Type II", "Smoker"}]]]

bracket

You can see that this vertical line is in fact an extensible character, not a graphical line.

In the same vein, you could also use other extensible symbols to decorate the left side:

leftBrace /: MakeBoxes[leftBrace[obj_], _] := 
 StyleBox[RowBox[{"{", ToBoxes[obj]}], SpanMaxSize -> Infinity]

Framed[x -> 
  leftBrace[
   Column[{"Depression", "PTSD", "Diabetes Type II", "Smoker"}]]]

brace