VB_PAC2;Pacientes de Psicotropicos;sys_tbbrow;8;1;20;79;psq_crm;;
:TBMT
 13;psq_enter();Enter-Confirma ;
 22;tb_insert(D_OB,"VB_PAC1");Ins-Inclui ;
 80;tb_pesq(d_ob);P-Pesquisa ;
  7;tb_del(D_ob);DEL-DELeta ;
 65;tb_update(D_OB);A-Altera ;
:TBFI
Paciente;PACIENTE;C;@s30; 30;;
Sexo;pac_sexo;C;x;4;S;
Idade;pac_idade;N;9999;4;S;
M/A ?;PAC_unidid;C;X;5;S;
CPF/RG;CR_RG;C;@S14; 14;;
Idade Result;if(pac_idade>0,lTrim(Str(pac_idade,5))+" "+if(PAC_unidid="M","Meses",if(PAC_unidid="A","Anos",""))," ?");C;@S11; 11;N;
Cod Cliente;CR_COD_CLI;N;99999; 11;;