Tabela
B4A Cabecalho Quimio/Radio/Opme
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
B4A_FILIAL C 2 0 Filial S
B4A_OPEMOV C 4 0 Operadora @! If(Empty(M->B4A_OPEMOV),.T.,BA0->(ExistCpo("BA0",M->B4A_OPEMOV,1))) B89PLS S
B4A_STATUS C 1 0 Status @! R #PLSSTATUS ("B4A") S
B4A_AUDITO C 1 0 Auditoria? @! R 1=Sim;0=Nao S
B4A_CANCEL C 1 0 Cancelada? @! R 1=Sim;0=Nao S
B4A_NUMLIB C 18 0 Nro Autori @R !!!!.!!!!.!!.!!!!!!!! V S
B4A_ANOAUT C 4 0 Ano Autori @! R S
B4A_MESAUT C 2 0 Mes Autori @! R S
B4A_NUMAUT C 8 0 Nro Autori @! R S
B4A_REGANS C 8 0 Reg Ans @! V S
B4A_GUIREF C 18 0 Nro.Gui.Ref @R !!!!.!!!!.!!-!!!!!!!! If(Empty(M->B4A_GUIREF),.T.,PLA09ALIB(M->B4A_GUIREF)) PLSB4A R S
B4A_SENHA C 20 0 Senha @R! R S
B4A_DATPRO D 8 0 Data Aut. R S
B4A_DATSOL D 8 0 Data Sol. R S
B4A_GUIOPE C 20 0 Nr.Guia Oper @! R S
B4A_USUARI C 17 0 Matricula @R !!!!.!!!!.!!!!!!.!!-! PLA09AUSU() BY2PLS V S
B4A_MATANT C 17 0 Mat. Antiga @! R S
B4A_OPEUSR C 4 0 Operadora @! R S
B4A_CODEMP C 4 0 Empresa @! R S
B4A_CONEMP C 12 0 Contrato @! R S
B4A_SUBCON C 9 0 Subcontrato @! R S
B4A_VERCON C 3 0 Versao Cont. @! R S
B4A_VERSUB C 3 0 Ver.Sub.Con. @! R S
B4A_MATRIC C 6 0 Matricula @! R S
B4A_TIPREG C 2 0 Tipo Reg. @! R S
B4A_DIGITO C 1 0 Digito @! R S
B4A_NOMUSR C 70 0 Nome Usr. @! R S
B4A_PESO N 6 2 Peso @E 999.99 R S
B4A_ALTURA N 6 2 Altura @E 999.99 R S
B4A_SUPCOR N 5 2 Sup.Corp. @E 99.99 R S
B4A_IDADE N 3 0 Idade @E 999 PLB4AValid() R PLB4AWhen() S
B4A_SEXO C 1 0 Sexo @! PLSA09Aprt(.t.)[2] PLSB4E R S
B4A_NOMSOL C 30 0 Nome Solic. @! R S
B4A_TELSOL C 13 0 Tel. Solic. @! R S
B4A_EMASOL C 60 0 Email Solic. @! R S
B4A_TIPANE C 1 0 Tipo Anexo @! R 1=Radioterapia;2=Quimioterapia;3=OPME S
B4A_TIPGUI C 2 0 Tipo Guia @! PLSB4E R S
B4A_DATDIA D 8 0 Dt. Diag. R S
B4A_CIDPRI C 8 0 Cid 10 Pri. @! If(Empty(M->B4A_CIDPRI),.T.,BA9->(ExistCpo("BA9",M->B4A_CIDPRI,1))) BA9PLS R S
B4A_CIDSEC C 8 0 Cid 10 (2) @! If(Empty(M->B4A_CIDSEC),.T.,BA9->(ExistCpo("BA9",M->B4A_CIDSEC,1))) BA9PLS R S
B4A_CIDTER C 8 0 Cid 10 (3) @! If(Empty(M->B4A_CIDTER),.T.,BA9->(ExistCpo("BA9",M->B4A_CIDTER,1))) BA9PLS R S
B4A_CIDQUA C 8 0 Cid 10 (4) @! If(Empty(M->B4A_CIDQUA),.T.,BA9->(ExistCpo("BA9",M->B4A_CIDQUA,1))) BA9PLS R S
B4A_DIAIMG C 1 0 Diag. Img @! PLSA09Aprt(.t.)[2] PLSB4E R S
B4A_ESTADI C 1 0 Estadiamento @! PLSA09Aprt(.t.)[2] PLSB4E R S
B4A_TIPQUI C 1 0 Tp. Quimio @! PLSA09Aprt(.t.)[2] PLSB4E R S
B4A_ECOG C 1 0 ECOG @! PLSA09Aprt(.t.)[2] PLSB4E R S
B4A_FINALI C 1 0 Finalidade @! PLSA09Aprt(.t.)[2] PLSB4E R S
B4A_PLATER M 999 0 Plano Terap. @! R S
B4A_DIAGCH M 999 0 Diag. Cit/Hi @! R S
B4A_INFREL M 999 0 Inf. Relevan @! R S
B4A_CIRURG M 999 0 Cirurgia @! R S
B4A_DATCIR D 8 0 Dt. Cir. R S
B4A_QUIMIO M 999 0 Quimioterapi @! R S
B4A_AREA M 999 0 Area Irradia @! R S
B4A_DATQUI D 8 0 Dt. Quim. R S
B4A_DATIRR D 8 0 Dt. Aplic. R S
B4A_NROCAM N 3 0 Nro Campos @E 999 R S
B4A_DOSDIA N 4 0 Dose por Dia @E 999,9 R S
B4A_DOSTOT N 4 0 Dose Total @E 999,9 R S
B4A_NRODIA N 3 0 Nro Dias @E 999 R S
B4A_DATPRE D 8 0 Dt.Prv.Adm R S
B4A_ANOPAG C 4 0 Ano Pagto @! R S
B4A_MESPAG C 2 0 Mes Pagto @! R S
B4A_JUSTTE M 999 0 Justificativ @! R S
B4A_TPGRV C 1 0 Tp Gravacao @! R 1=Remote Protheus;2=Web;3=POS;4=Importacao Manual S
B4A_NROCIC N 2 0 Nro.Cicl.Prv 99 R S
B4A_CICATU N 2 0 Ciclo Atual 99 R S
B4A_INTCIC N 3 0 Intr.Ciclos 999 R S
B4A_ASSSOL C 80 0 Ass. Solici. V S
B4A_ASSRES C 80 0 Ass. Autori. V S
B4A_ESPMAT M 999 0 Espec.Materi @! R S
B4A_OBSERV M 999 0 Obser.Justif @! R S
B4A_GUIPRE C 20 0 N.Guia Pres. @! R S
B4A_CANTIS C 15 0 Canc. TISS @! R S
B4A_COMUNI C 1 0 On-Line? @! R 1=Sim;0=Nao S
B4A_NRTROL C 20 0 Nr.Tr.OnLine @! R S
B4A_NRAOPE C 20 0 Nr Aut Oper. @! R S
B4A_NUMIMP C 20 0 Nr. Impresso @! VAZIO() .OR. PLSZERO() R S
B4A_PROATE C 20 0 Protocolo @! R S
B4A_STTISS C 1 0 Status TISS R #PLSGUTISS() S
B4A_TUMOR C 1 0 Tumor @! PLSB4E R N
B4A_NODULO C 1 0 Nodulo @! PLSB4E R N
B4A_METAST C 1 0 Metastase @! PLSB4E R N
B4A_DCICAT N 3 0 Nro.Cicl.Atu @E 999 R N
B4A_VISGUI C 1 0 Vis. Guia R @! R S
B4A_CANEDI C 250 0 Canc.TISS @! R S
B4A_DESOPE C 25 0 Oper. Movto. @! R S