Try
...
from "Patient"
JOIN "MedDetail" on ;
( medDetail.PatientKey == patient.PatientKey ) AND ;
join "MedCert" on ;
( medCert.MedDtlKey == medDetail.MedDtlKey ) ;
join "MedMgmt!PickTabl" AS "TypePick" on ;
( TypePick.PickKey == medCert.TypeServ ) ;
join "MedMgmt!PickTabl" AS "CertKey" on ;
( CertKey.PickKey == medCert.CertStatus ) ;
left outer join "ProcDetail" on ;
( procDetail.ParentKey == medDetail.MedDtlKey ) AND ;
( procDetail.IsPrimary );
left outer join "Subscriber" on ;
( subscriber.SubscrKey == medDetail.Subscriber ) ;
where ( &lcInOutPatMacro. ) AND ;
( &lcPtNameMacro. ) AND ;
( &lcPtDOBMacro. ) ;
into cursor "PriorAuth1">Thank you for your offer. I am considering:
>
>select medDetail.MedDtlKey ;
> , medDetail.PaNumber ;
> , medDetail.GroupKey ;
> , meddetail.GroupSuff ;
> , medDetail.InOutPat ;
> , padr( patient.LASTNAME - ;
> ( ", " + patient.FIRSTNAME - ;
> ( " " + patient.MIDINITIAL ) ), 40, " " ) ;
> AS "PtName" ;
> , patient.SSN ;
> , patient.Gender + " - " + ;
> stuff( dtoc( patient.DOB ), 7, 2, "" ) AS "GendDOB" ;
> , medDetail.RelaToIns ;
> , left( TypePick.PickDesc, 25 ) AS "Service" ;
> , left( CertKey.PickDesc, 12 ) AS "Status" ;
> , nvl( subscriber.SSN, space(9) ) AS "SubscrSSN" ;
> , space(50) AS "Provider" ;
> , space(30) AS "ProvStreet" ;
> , space(15) AS "ProvCity" ;
> , nvl( procDetail.ProcCode, space(6) ) AS "ProcCode" ;
> , {} AS "ApprovFrom" ;
> , {} AS "ApprovTo" ;
> , AsInteger.IntFld AS "NbrVisits" ;
> from "MedDetail" ;
> left outer join "ProcDetail" on ;
> ( procDetail.ParentKey == medDetail.MedDtlKey ) AND ;
> ( procDetail.IsPrimary );
> left outer join "Subscriber" on ;
> ( subscriber.SubscrKey == medDetail.Subscriber ) ;
> left outer join "MedCert" on ;
> ( medCert.MedDtlKey == medDetail.MedDtlKey ) ;
> left outer join "Patient" on ;
> ( medDetail.PatientKey == patient.PatientKey ) ;
> left outer join "MedMgmt!PickTabl" AS "TypePick" on ;
> ( TypePick.PickKey == medCert.TypeServ ) ;
> left outer join "MedMgmt!PickTabl" AS "CertKey" on ;
> ( CertKey.PickKey == medCert.CertStatus ) ;
> where ( &lcInOutPatMacro. ) AND ;
> ( &lcPtNameMacro. ) AND ;
> ( &lcPtDOBMacro. ) ;
> into cursor "PriorAuth1"
>>Thanks again,
>
>Spencer
--sb--
