Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Unexplained Select - SQL delay
Message
From
19/12/2006 14:59:44
Spencer Redfield
Managed Healthcare Northwest, Inc.
Portland, Oregon, United States
 
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows NT
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01178661
Message ID:
01178974
Views:
16
Thank you. Yes I can.

Here is an example with the three macro expressions (the first three lines of the WHERE) changed into their text values.
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, {} )      AS    "SubscrSSN" ;
        ,    space(50)                      AS    "Provider"  ;
        ,    space(30)                      AS    "ProvStreet" ;
        ,    space(15)                      AS    "ProvCity" ;
        ,    {}                             AS    "ApprovFrom" ;
        ,    {}                             AS    "ApprovTo"  ;
        ,    AsInteger.IntFld               AS    "NbrVisits" ;
        ,    nvl( procDetail.ProcCode, space(6) ) AS    "ProcCode" ;
    from    "Patient"        ;
        ,    "Subscriber"    ;
        ,    "MedCert"       ;
        ,    "MedMgmt!PickTabl"    AS    TypePick ;
        ,    "MedMgmt!PickTabl"    AS    CertKey  ;
        ,    "MedDetail"        ;
            left outer join "ProcDetail" on    ;
                ( procDetail.ParentKey == medDetail.MedDtlKey ) AND ;
                ( procDetail.IsPrimary ) ;
    where   ( meddetail.InOutPat=="O" )    AND ;
            ( upper(patient.LASTNAME)=="FAKELASTNAME                  " ) AND ;
            ( patient.DOB==date(1900,01,01) )                   AND ;
            ( medDetail.PatientKey    == patient.PatientKey )   AND ;
            ( subscriber.SubscrKey    == medDetail.Subscriber ) AND ;
            ( medCert.MedDtlKey       == medDetail.MedDtlKey )  AND ;
            ( TypePick.PickKey        == medCert.TypeServ )     AND ;
            ( CertKey.PickKey         == medCert.CertStatus )    ;
    into cursor "PriorAuth1"
Thank you again.

Spencer
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform