Tabela
BC1 Corpo Clinico da Rede
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BC1_FILIAL C 2 0 Filial S
BC1_CODIGO C 6 0 Codigo @! S
BC1_CODRDA C 6 0 Codigo RDA @! If(Empty(M->BC1_CODRDA),.T.,BAU->(ExistCpo("BAU",M->BC1_CODRDA,1))) .And. PLSVLDGD() BA0PLS M->BC1_TIPLAN$"1, " S
BC1_NOMRDA C 40 0 Nome RDA @! V S
BC1_ESTCR C 2 0 Estado C.R. @! ExistCpo("SX5","12"+M->BC1_ESTCR,1) S
BC1_NUMCR C 15 0 Numero C.R. S
BC1_SIGLCR C 7 0 Sigla @! S
BC1_CODPRF C 6 0 Profissional @! If(Empty(M->BC1_CODPRF),.T.,BB0->(PLVLDPFS("BB0",M->BC1_CODPRF,1,dDataBase))) .and. PlsVldGd() BB0PLS M->BC1_TIPLAN$"2, " S
BC1_NOMPRF C 40 0 Nome @! S
BC1_PERSOC N 16 2 % da Partic. @E 9,999,999,999,999.99 S
BC1_PERDES N 16 2 % Desconto @E 9,999,999,999,999.99 S
BC1_PERACR N 16 2 % Acrescimo @E 9,999,999,999,999.99 S
BC1_CODINT C 4 0 Operadora @R !.!!! S
BC1_CODLOC C 3 0 Localidade S
BC1_CODESP C 3 0 Cod. Espec. @! S
BC1_CODSUB C 3 0 Cod.Sub-Esp. @! S
BC1_TIPLAN C 1 0 Tp Lancto @! 1=Prestador RDA;2=Profissional de Saude S
BC1_CODBLO C 3 0 Cod. Bloq @! EmpTy(M->BC1_CODBLO).OR.(ExistCpo('BAP',M->BC1_CODBLO,1).And.Posicione("BAP",1,xFilial("BAP")+M->BC1_CODBLO,"BAP_TIPBLO")=="0") PLSBLO R S
BC1_MOTBLO C 40 0 Mot. Bloq. @! R S
BC1_DATBLO D 8 0 Dt. Bloq. @D R S
BC1_OBSERV C 100 0 Observacao @! R S
BC1_CONSDV C 1 0 Cons.Div.Rem @! PERTENCE('01') R 0=SIM;1=NAO S