Tabela
BHJ Produtos Co-Participacao
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BHJ_FILIAL C 2 0 Filial S
BHJ_CODINT C 4 0 Cd Operadora @! B41PLS S
BHJ_CODPLA C 4 0 Codigo Plano @! S
BHJ_VERSAO C 3 0 Versao @! S
BHJ_TIPO C 1 0 Reg Atendto @! 1=Internacao;2=Ambulatorial;3=Ambos S
BHJ_QTD N 6 0 Qtd. Ate 999999 S
BHJ_PERCOP N 16 2 % Co-Part. @E 9,999,999,999,999.99 M->BHJ_VLRCOP==0 S
BHJ_VALCOP N 16 2 Vlr.Co-Part. @E 9,999,999,999,999.99 M->BHJ_PERCOP==0 S
BHJ_VLRCOP N 16 2 Vlr.CoPar. @E 9,999,999,999,999.99 M->BHJ_PERCOP==0 S
BHJ_VALUS N 16 4 Valor U.S @E 99,999,999,999.9999 PLSA800WHE("09") S
BHJ_TXADM N 16 2 Taxa Admin. @E 9,999,999,999,999.99 S
BHJ_LIMFRA N 16 2 Vlr.Franq. @E 9,999,999,999,999.99 S
BHJ_CODTAB C 7 0 Tab.CoPar. @R !!!!.!!! Vazio() .or. ExistCpo("BF8",M->BHJ_CODTAB,1) B68PLS M->BHJ_PERCOP > 0 S
BHJ_SOMCOM C 1 0 Som.p/Compra @! 1=Sim;0=Nao M->BHJ_PAGATO$"0, " S
BHJ_PAGATO C 1 0 Pagto no Ato @! 1=Sim;0=Nao M->BHJ_SOMCOM$"0, " S
BHJ_PAGRDA C 1 0 Pagto na RDA @! 1=Sim;0=Nao N
BHJ_SOMPRO C 1 0 Somen.Proc.? @! 1=Sim;0=Nao N
BHJ_ANOMES C 6 0 Ano/Mes Reaj @R !!!!/!! N
BHJ_VLRANT N 16 2 Valor Ant. @E 9,999,999,999,999.99 N
BHJ_TIPUSR C 1 0 Tipo Benef. @! If(Empty(M->BHJ_TIPUSR),.T.,ExistCpo("BIH",M->BHJ_TIPUSR,1)) B47PLS N
BHJ_DESTIP C 30 0 Descricao @! V N
BHJ_GRAUPA C 2 0 Grau Parent. @! IF(Empty(M->BHJ_GRAUPA),.T.,ExistCpo("BRP",M->BHJ_GRAUPA,1)) B37PLS N
BHJ_DESGRA C 30 0 Descricao @! V N
BHJ_IDAINI N 3 0 Idade Minima 999 Positivo() .AND. M->BHJ_IDAINI <= M->BHJ_IDAFIN N
BHJ_IDAFIN N 3 0 Idade Maxima 999 Positivo() .AND. If(!Empty(M->BHJ_IDAINI),M->BHJ_IDAFIN >= M->BHJ_IDAINI,.T.) N
BHJ_FAISAL C 1 0 Fxa Salarial @! Pertence(" 12345") R 1=Nivel 1;2=Nivel 2;3=Nivel 3;4=Nivel 4;5=Nivel 5 N
BHJ_RDACRE C 1 0 Rede Credenc @! Pertence("12") R 1=Sim;2=Nao N
BHJ_RDAPRE C 1 0 Rede Prefere @! Pertence("12") R 1=Sim;2=Nao M->BHJ_RDACRE = "1" N
BHJ_PERCO2 N 16 2 % Co-Part2 @E 9,999,999,999,999.99 R M->BHJ_VLRCO2 = 0 N
BHJ_VLRCO2 N 16 2 Vlr.Co-Par2 @E 9,999,999,999,999.99 R M->BHJ_PERCO2 N
BHJ_VLRMIN N 16 2 Valor Minimo @E 9,999,999,999,999.99 R N
BHJ_ACUMUL C 1 0 Cons. p/Acum @! Pertence("12") R 1=Inclusao do Contrato;2=Inclusao do Usuario N
BHJ_CONSTB C 1 0 Cons Tab Pad @! Pertence("01") R 0=Nao;1=Sim N
BHJ_VIGINI D 8 0 Vig. Inicial PlsVldBHJ() R S
BHJ_VIGFIN D 8 0 Vig. Final Vazio() .or. PlsVldBHJ() R S
BHJ_TABCOP C 4 0 Tab. Cop. In @! VAZIO() .OR. BRT->(ExistCpo("BRT",M->BHJ_TABCOP,1)) PLSBRT R S
BHJ_FINATE C 2 0 Finalidade @! Vazio() .or. BGY->(ExistCpo("BGY",M->BI3_CODINT+M->BHJ_FINATE,1)) BGYPLS R S
BHJ_DESFIN C 70 0 Ds Finalidad @! V S