Tabela
GSA Solicitacao de Prontuarios
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
GSA_FILIAL C 2 0 Filial S
GSA_CODSOL C 6 0 Solicitacao @! R S
GSA_DATSOL D 8 0 Data @D HS_GETM01(10) R !lBolFec S
GSA_HORSOL C 5 0 Hora 99:99 HS_GETM01(11) R !lBolFec S
GSA_REGGER C 6 0 Prontuario @! HS_VLDRGER("M->GSA_REGGER","GSA_NOMPAC","GBH_NOME") .And. HS_VldP39() GH1 R INCLUI S
GSA_NOMPAC C 45 0 Nome R INCLUI S
GSA_DTNASC D 8 0 Data Nasc. @D HS_VALP39(2) V N
GSA_CODLOC C 2 0 Setor Codigo @! HS_SeekRet("GCS","M->GSA_CODLOC",1,.F.,"M->GSA_NOMLOC","GCS_NOMLOC") .OR. VAZIO() GCS R S
GSA_NOMLOC C 40 0 Setor Descr. V S
GSA_SEXO C 1 0 Sexo @S10! HS_VALP39(1) V 0=Masculino;1=Feminino N
GSA_CODEND C 12 0 Endereco @! HS_ENDER() GSB R S
GSA_NOMEND C 30 0 Descricao @! V S
GSA_ENDRUA C 2 0 Endereco Rua @! V S
GSA_NUMERO C 2 0 Numero @! V S
GSA_PRLNUM C 2 0 Prateleira @! V S
GSA_CODCRM C 7 0 CRM Medico @! HS_SeekRet("SRA","M->GSA_CODCRM",11,.F.,"M->GSA_NOMMED","RA_NOME") .OR. VAZIO() MED R S
GSA_NOMMED C 40 0 Nome Medico @! V S
GSA_CODPRO C 10 0 Cod Procdto @! HS_SeekRet("GA7","M->GSA_CODPRO",1,.F.,"M->GSA_NOMPRO","GA7_DESC") .OR. VAZIO() GA7 R S
GSA_NOMPRO C 40 0 Procedimento @! V S
GSA_CODMOT C 6 0 Motivo Cod @! HS_SeekRet("GSC","M->GSA_CODMOT",1,.F.,"M->GSA_NOMMOT","GSC_DESMOT") .OR. VAZIO() GSC R S
GSA_NOMMOT C 40 0 Motivo Solic @! V S
GSA_USRSOL C 6 0 Cod Solicita @! HS_SeekRet("SRA","M->GSA_USRSOL",1,.F.,"M->GSA_NOMSOL","RA_NOME") US3 R S
GSA_NOMSOL C 40 0 Solicitante @! R INCLUI S
GSA_USRENT C 6 0 Func.Entrega @! HS_SeekRet("SRA","M->GSA_USRENT",1,.F.,"M->GSA_NOMENT","RA_NOME") US3 R S
GSA_NOMENT C 40 0 Nome @! R S
GSA_DATENT D 8 0 Dt.Entrega @D R S
GSA_HORENT C 5 0 Hr.entrega 99:99 R S
GSA_DATCAN D 8 0 Dt.Cancela @! R S
GSA_NOMCAN C 40 0 Nome @! R S
GSA_HORCAN C 5 0 Horario 99:99 R S
GSA_MOTIVO M 10 0 Encerramento R ALTERA S
GSA_USRRET C 6 0 Usuar.Retor. @! R S
GSA_NOMRET C 40 0 Nome @! R S
GSA_HORRET C 5 0 Horario Ret. 99:99 R S
GSA_DATRET D 8 0 Dt.Retorno @D R S
GSA_OK C 1 0 OK @! R S
GSA_LOTE C 6 0 Lote @! R S
GSA_LOGARQ C 50 0 LOG @! R S
GSA_OBSERV C 50 0 Observacao @! R S
GSA_ORISOL C 1 0 Orig. Solic. @! R 0=Solicitacao;1=Saida Programada;2=Saida Multipla N
GSA_CODBAR C 18 0 Pront + End @! Vazio() .Or. FS_ADDSOL(oGetCodBar,nAtend) V N
GSA_REGATE C 6 0 Reg.Atendi @! HS_ENDER() GSA003 R N