how to get the labelled door origin

[easyDoesIt]

I have a label that I would like to know the origin of the door that it is labelling. What I have so far below. This works fine for a door in a straight wall at any rotation. When I come to a radial wall I can't seem to find any global parameters which will tell me where the door is since it only gives me the angle of the chord of the opening. Thinking I am trying to make this too complex, should I be using something else to get the origin of the door?

    !1 remove rotation of label, labelautorotates to be readable
if (LABEL_ROTANGLE <=90 or LABEL_ROTANGLE >270) then
rot2 -LABEL_ROTANGLE
else
rot2 -LABEL_ROTANGLE + 180
endif
    !2 return to origin
add2 -LABEL_POSITION[1][1], - LABEL_POSITION[1][2]
    !3 move to start of wall position
add2 WALL_POSITION[1], WALL_POSITION[2]
    !4 rotate to wall rotation, note this is the angle of opening chord in the wall between reveals
rot2 WALL_DIRECTION
    !5 move to door position in wall
add2 SYMB_POS_X, 0

edit, removed symb_pos_Y from last add2, not needed.

[Peter Baksa]

Yes, WALL_FLIPPED is about the wall, WIDO_REVEAL_SIDE is about the opening.

WIDO_REVEAL_SIDE is the reveal side relative to the opening direction. When you place an opening, the first click is the reveal side, the second is the opening direction. The opening's coordinate system is rotated to the opening direction.