Error message popup

[GCC]

Wrote an app that, when a person's record is accessed, the browse window opens
with any comments which apply the this person in a browse.  This routine runs at
@entsel.

There are 3 options which can be run from the browse, X- Closes the browse,
U-Updates the comment, and A- add a new comment.  This is the one which creates
the error.

I can add 1 comment line but when I go to add a second line, filePro presents me
with an error.  I am using a popup update in the current file with dummy fields
to control the data entered.  I am capturing F10-save and after the last field
is exited, the routine goes to an ending line that has clears,clearp
Before prompting for a done or add another line.  The record is written but the
program exits to iua on the record.

Am I missing something as even with all popups, browse, screen show,closed the
error still occurs.

This has been run using fpodbc 1.0.13 and 5.0.14

The error is:

Warning Attempt to do a "popup" command from programming while updating a popup,
will be ignored.

Code Below:

@entsel  If: '*************************************************************
    1  Then: '* check for contact tracking records
    2  Then: declare cflag(1,.0)
         If: cflag = ""
    3  Then: cflag="9";GOTO l_trak
         If: cflag = "9"
    4  Then: END
         If: @sn = "1"
    5  Then: END
l_trak   If: 
    6  Then: 
    7  Then: lookup mark = market_memo  k=16   i=B -nx
         If: NOT mark
    8  Then: END
    9  Then: ba="(brw=10,11,-1 xkey=auxs show=pkeep pop=pop_memo fill=
             asc,top)"
   10  Then: bb="[\b5Date              Message             Followup \a-]"
   11  Then: bc="*4          | *6             | *8"
   12  Then: SHOW "Press \r A \r-Add, \r U \r-Update, \r S \r-Update Status"
do_show  If: 
   13  Then: lookup mark = market_memo  k=16   i=B -nx b=(ba&bb&bc)
         If: @sk = "BRKY" or @bk = "x"
   14  Then: CLEARB;END
         If: @bk = "u"
   15  Then: rn(len(@rn),edit(@rn))=mark(@rn);ro=@br;co="1";GOTO up_trak
         If: @bk = "a"
   16  Then: ro(2,.0)="1";co(2,.0)="1";CLEARB;GOTO add_trk
         If: @bk = "s"
   17  Then: CLEARB;pushkey "U"
   18  Then: SHOW "";CLEARB;END
add_trk  If: '**********************************************************
   19  Then: '* add comment
is_irst  If: ro = ""        'this is the first comment to be added
   20  Then: ro="15";co="2"
   21  Then: 'SHOW popup("22","-1") "Press \k4-Record, \kY- \b4 Cancel \a-"
   22  Then: popup(ro+"13",co) update -,"pop_comm",ya
@wefya   If: 
   23  Then: SHOW "Enter Your Comment";END
@wlfya   If: '
   24  Then: ya(78,*)
         If: ya = "" or @sk = "BRKY"
   25  Then: CLEARP;END
@wefyb   If: 
   26  Then: yb(78,*)
   27  Then: SHOW "Enter additional information";END
@wlfyb   If: 
   28  Then: SHOW "";END
@wefyd   If: 
   29  Then: SHOW "Enter A Follow-up Date or Press \kZ-To Continue";END
@wlfyd   If: '
   30  Then: yd(10,mdyy/)
   31  Then: lookup mark = market_memo  r=free  -n
         If: NOT mark
   32  Then: BEEP;CLEARP;MSGBOX "OUT OF DISK SPACE\NCONTACT SYSTEM
ADMINISTRATOR";END
         If: 'POST INFORMATION
   33  Then: mark(1)=14;mark(2)=17;mark(3)=16;mark(6)=ya;mark(4)=yd;mark(4)=
             @td;mark(10)=li;mark(13)=@tm
   34  Then: debug on
   35  Then: write mark
   36  Then: clearp;clears
   37  Then: dim comm(2);comm["2"]="Add Another Line";comm["1"]="Done"
   38  Then: sl=listbox[comm]
         If: sl = "1"
   39  Then: ya="";yb="";yd="";GOTO l_trak
   40  Then: ya="";yd="";yb=""
         If: 'add another comment
   41  Then: GOTO is_irst