Data de Vigência do Tratamento
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Saúde | ||||
Módulo: | SIGAPLS - Plano de Saúde | ||||
Rotina: |
| ||||
Ponto de Entrada: | HSM24MSO
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos |
Descrição
Ponto de Entrada par manipular data de Vigência do tratamento.
||Observações||
||Exemplos||User Function HSFUSVIG()
Local aArea := GetArea()
Local dVigIni := CTOD("")
Local dVigFim := CTOD("")
DbSelectArea("SCJ")
DbSetOrder(1)
If DBSeek(xFilial("SCJ") + ParamIxb[1]) .AND. HS_ExisDic({{"C", "CJ_DICLTRA"}},.F.)
dVigIni := SCJ->CJ_DICLTRA
dVigFim := SCJ->CJ_DFCLTRA
EndIf
RestArea(aArea)
Return({dVigIni, dVigFim})
||Updates||
||Parâmetros|| Array of Record {aSCJ,SA1->A1_COD}
Ascj SCJ_NUM Numero do Contrato
SA1->A1_COD Código do Cliente
||Retorno|| aVigOrc
Data Vigencia Inicial
Data Vigencia Final
||Eventos de chamada do Ponto de Entrada||
||Variáveis||
||Programa Fonte|| HSPAHM57.PRW HSPFUNCS.PRW