PLSXMLPAD - Ajuste de Conteúdo

O ponto de entrada PLSXMLPAD permite ajustar o conteúdo dos códigos da tabela e do procedimento durante a importação XML.

PLSA973

PLSXMLPAD - Ajuste de Conteúdo ( [ cCodigo ], [ cCodPro ], [ cdescri ] ) --> aRet

aRet(array_of_record)
• Array de duas posições, sendo:[1] - Conteúdo do campo “TIPOTABELA” já modificado[2] - Conteúdo do campo “CODIGOPROCEDIMENTO” já modificado

O ponto de entrada PLSXMLPAD, espera como retorno apenas um código de tabela e de procedimento.

Quando houver duas tabelas com o mesmo codigo TISS, o ponto de entrada verificará qual destas tabelas será utilizada.

User Function PLSXMLPADLOCAL cCodigo := AllTrim(paramixb[1])LOCAL cCodPro := AllTrim(paramixb[2])Do Case  Case cCodigo == "01"//Tabela AMB-90    cCodigo := cCodigo  Case cCodigo == "02"//Tabela AMB 92    cCodigo := cCodigo  Case cCodigo == "03"//Tabela AMB 96    cCodigo := cCodigo  Case cCodigo == "04"//Tabela AMB 99    cCodigo := cCodigo  Case cCodigo == "05"//Tabela Brasindice    cCodigo := cCodigo  Case cCodigo == "06"//Classificação Brasileira Hierarquizada de Procedimentos Médicos    cCodigo := cCodigo  Case cCodigo == "07"//Tabela CIEFAS 93    cCodigo := cCodigo  Case cCodigo == "08"//Tabela CIEFAS 2000    cCodigo := cCodigo  Case cCodigo == "09"//Rol de procedimentos ANS    cCodigo := cCodigo  Case cCodigo == "10"//Tabela de procedimentos ambulatoriais SUS    cCodigo := cCodigo  Case cCodigo == "11"//Tabela de procedimentos hospitalares SUS    cCodigo := cCodigo  Case cCodigo == "12"//Tabela SIMPRO    cCodigo := cCodigo  Case cCodigo == "13"//Tabela TUNEP    cCodigo := cCodigo  Case cCodigo == "14"//Tabela VRPO    cCodigo := cCodigo  Case cCodigo == "15"//Tabela de Intercâmbio Sistema Uniodonto    cCodigo := cCodigo   Case cCodigo == "94"//Tabela própria procedimento     cCodigo := cCodigo  Case cCodigo == "95"//Tabela própria materiais    cCodigo := cCodigo  Case cCodigo == "96"//Tabela própria medicamentos    cCodigo := cCodigo   Case cCodigo == "97"//Tabela própria taxas hospitalares    cCodigo := cCodigo  Case cCodigo == "98"//Tabela própria pacotes    cCodigo := cCodigo  Case cCodigo == "99"//Tabela própria gases medicinais    cCodigo := cCodigo  Case cCodigo == "00"//Outras tabelas    cCodigo := cCodigo  OtherWise    cCodigo := cCodigoEndCaseReturn( {cCodigo,cCodPro} )