>LOCAL lcCli_pk > >REPLACE CLI_StatusFK WITH giClientStatusInitialScreen, ; > cClientStatus WITH gcCLientStatusInitialScreen IN v_Client >THISFORM.SSiclientstatusb4edit = 0 > >lcCli_pk = v_Client.Cli_PK && gets set in AddAction >=REQUERY( "v_ClientProblemList") >=REQUERY( "v_clientappointmentlist") >=REQUERY( "v_clientencounterlist" ) > >** 10/01/2003 try to get required ScreenDate set up and refresh client problems >IF TYPE( "THISFORM.pgfPageRefresh1.Page3.CTRscreening" ) <> "O" > .Page3.Builder_ctrClientScreeningControls_cg.UIENABLE(.T., .T.) && do not Activate >ENDIF >>