Browse lookup

[Richard Kreiss]

filePro 5.7.03

windows

I have a routine where the user selects a person in a browse.  That person and anyone else associated with that person is displayed in a second browse.  By pressing <S> the operator enters the number of the event date the person is attending.   Once that information has been posted, the browse re-executes (show=pkeep).  

The problem is on re-execution the browse header disappears, the browse window frame is gone and the highlight bar changes color to that of the screen background.

When the operator returns to the original browse, full name list, and the selected a name, the browse again displays properly.

Has anyone come across this problem?

Any suggestions on how to get the browse to display properly?

I have tried video sync prior to the browse being redisplayed.

Code below"

Richard Kreiss


87  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
do_even◄ If: ph ne ""                                                          
      Then: ba="(brw=12,7,-1 xkey=xbdencgs show=pkeep pop=event prc=notthis fill=asc,top)
88  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: ph = ""                                                           
      Then: ba="(brw=12,7,-1 xkey=xbdencgls show=pkeep pop=event prc=dr_fone fill=asc,top)
89  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:                                                                   
      Then: bb="[\b5    Name                                    DOB       Attending Event]"
90  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:                                                                   
      Then: bc="*1                   <2               *11         *ev"        
91  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
do_look◄ If:
       Then: CLS("19","6")
 92  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: SHOW("22","10") "\b2 Highlite Name & Press \a-"
 93  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: SHOWCTR("23") "\b5 S \a- To Select Date, \r D \r-Dr Event Info, \r N \r-Not Attending"
94  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: SHOWCTR("24") ""{nlp<"\r G \r-Guest(s), \b4 C \a--Clear Date, \r
 95  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
look_po◄ If: ph ne ""
       Then: lookup mark = l_patient_market  k=ph   i=I -nxm b=(ba&bb&bc)
 96  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: rn ne "" and ph = ""
       Then: NoPhone = "Y"
 97  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
look_rn◄ If: rn ne "" and ph = ""
       Then: lookup mark = l_patient_market  r=rn   -nxm b=(ba&bb&bc)
 98  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:         NOT mark
       Then:         BEEP;MSGBOX "Nothing Found";GOTO do_brw
 99  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:         @sk = "BRKY"
       Then:         CLEARB;CLS("1","24");gn="";IsVent="";po="3";GOTO @ENTSEL
120  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: @bk = "S"  and mark(65) = " "                                    
       Then: IsVent = "N"                                                      
121  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: @bk = "S"  and mark(65) ge "1"                                
       Then: IsVent = "Y"; GOSUB chk_dat                                       
122  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: @bk = "s" and IsVent = "Y"                                        
       Then: msgbox "Already Scheduled for an event\n\r"<mark(65)<mark(66){"\r\nClear this event to reschedule";GOTO do_look
123  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: @bk = "S"   'list the event dates for this doctor                 
       Then:         ro=@br+"8";co(2,.0)="48";MasterCode=mark(16);flag="9";GOSUB list_dt;flag=""
124  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:                                                                   
       Then: GOTO do_look                                                      
125  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
dr_fone◄ If: '**************************************************************   
       Then: '* drop all records with no phone #                               
126  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: mark(20) = "" and NoPhone ne "Y"                                 
       Then: drop all                                                          
127  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: mark(34) = "1"
       Then: ev=mark(36)
128  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: END
129  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
notthis◄ If: '*****************************************************
       Then: '* drop for phone # match
130  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: ev=""
131  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: mark(20) ne ph
       Then: drop all;end
132  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: mark(40) = "N" or mark(40) = "S" or mark(40) = "E"
       Then: DROP;END
140  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: END