>>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 >>>>