Tabela
B4D Cabecalho Recurso de Glosa
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
B4D_FILIAL C 2 0 Filial S
B4D_SEQB4D C 6 0 Seq. Glosa @! R S
B4D_OPEMOV C 4 0 Operadora @! If(Empty(M->B4D_OPEMOV),.T.,BA0->(ExistCpo("BA0",M->B4D_OPEMOV,1))) B89PLS R S
B4D_ANOAUT C 4 0 Ano Autoria @! R S
B4D_MESAUT C 2 0 Mes Autori @! R S
B4D_NUMAUT C 8 0 Nro Autori @! R S
B4D_CODLDP C 4 0 Local Digit R S
B4D_ORIMOV C 1 0 Origem Movto @! R 1=Guias de Consultas/Servicos;2=Guia de Internacao;3=Outros;4=Autorizacao Odontologica;5=Dig. Off-Line;6=Novo Autorizador S
B4D_CODPEG C 8 0 PEG @! R S
B4D_STATUS C 1 0 Status @! R 0=Rec Glosa Edicao;1=Rec Glosa Protocolado;2=Rec Glosa Em Analise;3=Rec Glosa Autorizado;4=Rec Glosa Negado;5=Aut Parcial S
B4D_GUIREF C 18 0 Nro.Gui.Ref @R !!!!.!!.!!!!!!!!!!!! If(Empty(M->B4D_GUIREF),.T.,PLA09ALIB(M->B4D_GUIREF)) R S
B4D_TIPGUI C 2 0 Tipo de Guia @! R S
B4D_DATSOL D 8 0 Data Sol. R !EMPTY(M->B4D_GLOPRT) .AND. M->B4D_STATUS $ " ,0,4" S
B4D_USUARI C 17 0 Matricula @R !!!!.!!!!.!!!!!!.!!-! PLA09AUSU() R S
B4D_OPEUSR C 4 0 Operadora @! R S
B4D_CODEMP C 4 0 Empresa @! R S
B4D_CONEMP C 12 0 Contrato @! R S
B4D_SUBCON C 9 0 Subcontrato @! R S
B4D_VERCON C 3 0 Versao Cont. @! R S
B4D_VERSUB C 3 0 Ver.Sub.Con. @! R S
B4D_MATRIC C 6 0 Matricula @! R S
B4D_TIPREG C 2 0 Tipo Reg. @! R S
B4D_DIGITO C 1 0 Digito @! R S
B4D_NOMUSR C 70 0 Nome Usr. @! R S
B4D_REGANS C 6 0 Reg Ans @! R S
B4D_NOMOPE C 60 0 Nome Oper. @! R S
B4D_OBJREC C 1 0 Obj Recurso @! R 1=Protocolo;2=Guia;3=Item S
B4D_NGLOPE C 20 0 Nro.Gui.Oper @! R S
B4D_CODRDA C 6 0 Cod. RDA @! R S
B4D_NOMCON C 70 0 Nome Contr. @! R S
B4D_NUMLOT C 12 0 Num. Lote @! R S
B4D_GLOPRT C 4 0 Cod.Glo.Prot @! R S
B4D_JUSPRO C 150 0 Justif. Prot @ R !EMPTY(M->B4D_GLOPRT) .AND. M->B4D_STATUS $ " ,0,4" S
B4D_ACAPRO C 1 0 Prot. Acatad @! R N=Nao;S=Sim M->B4D_OBJREC == "1" .AND. M->B4D_STATUS $ "1,2" S
B4D_GUIPRE C 20 0 Nr.Guia Pres @! R S
B4D_ATROPE C 20 0 Nr.Guia Oper @! R S
B4D_SENHA C 20 0 Senha @! R S
B4D_GLOGUI C 4 0 Cod.Glo.Guia @! R S
B4D_JUSGUI C 250 0 Justif. Guia @ R !EMPTY(M->B4D_GLOGUI) .AND. M->B4D_STATUS $ " ,0,4" S
B4D_ACAGUI C 1 0 Guia Acatado @! R N=Nao;S=Sim M->B4D_OBJREC <> "1" .AND. M->B4D_STATUS $ "1,2" S
B4D_TOTREC N 16 2 Tot. Recur. @E 9,999,999,999,999.99 R S
B4D_TOTACA N 16 2 Tot. Acat. @E 9,999,999,999,999.99 R S
B4D_DATREC D 8 0 Dt. Recur. R M->B4D_STATUS $ " ,0,4" S
B4D_VLRGLO N 16 2 Valor Glosad @E 9,999,999,999,999.99 R S
B4D_SEQREC C 3 0 Seq. Glosa @! R S
B4D_OPELOT C 4 0 Ope. Lote @! R S
B4D_DESGLO C 200 0 Descr. Glosa @! R S
B4D_GLOPLS C 4 0 Cod.Glo.Pls @! R S
B4D_QTDIRP N 3 0 Qtd.Rec.Port 999 R S
B4D_PROTOC C 12 0 Nr Protocolo @! R S
B4D_JUSOPE C 250 0 Just. Operad @! R S
B4D_DCDDLP C 4 0 Local Dig De @! R S
B4D_DCDPEG C 8 0 PEG Destino @! R S
B4D_DNUMER C 8 0 Numero Dest. @! R S
B4D_ORIENT C 1 0 Orig. Entrad @! R 1=Remote;2=Portal;3=WSDL;4=XML S