FoxShip
Тут только частный самый простой случай. Без продления больничного, нарушений, стационаров, санаторий и т.д.
И конечно урезанный код. Т.е. не полностью показано (чтобы не загромождать пост) заполнение моих курсоров.
Но принцип понятен должен быть.

lcFName = GETFILE('XML','Выберите файл ЛН !','Выбрать')
IF EMPTY(lcFName)
    RETURN
ENDIF

oXml=CREATEOBJECT('MSXML2.DOMDocument')  
oXml.ASYNC=.F.  
oXml.ValidateOnParse = .F.
oXml.LOAD(lcFName)   
IF oXml.DocumentElement.Nodename != 'S:Envelope'
    MESSAGEBOX('Неверный XML - файл',16)
    RETURN
ENDIF        
oDocument = oXml.Childnodes(1)
FOR N = 0 TO oDocument.Childnodes.Length - 1
    IF ATC(oDocument.Childnodes(N).Nodename,'SOAP-ENV:Header,S:Body') = 0
        MESSAGEBOX('Неверный XML - файл',16)
        RETURN
    ENDIF
ENDFOR    
SELECT VRACHB
ZAP
SELECT BOLNMU
ZAP
APPEND BLAN
REPL GOD WITH nYear,MES WITH nMes
oFileOperations = oDocument.Childnodes(1).Childnodes(0).Childnodes(0)
FOR N = 0 TO oFileOperations.Childnodes.Length - 1
    IF oFileOperations.Childnodes(N).Nodename = 'ns1:STATUS'
        cStatus = oFileOperations.Childnodes(N).Text
    ELSE
        cStatus = ''
    ENDIF    
    IF oFileOperations.Childnodes(N).Nodename = 'ns1ATA'
        oRow = oFileOperations.Childnodes(N).Childnodes(0).Childnodes(0)
        FOR K = 0 TO oRow.Childnodes.Length - 1
            DO CASE
                CASE oRow.Childnodes(K).Nodename = 'ns1:SNILS'
* Вытаскиваем СНИЛС
                    cSnils = SUBS(oRow.Childnodes(K).Text,1,3)+'-'+SUBS(oRow.Childnodes(K).Text,4,3)+'-'+SUBS(oRow.Childnodes(K).Text,7,3)+' '+SUBS(oRow.Childnodes(K).Text,10,2)
* Тут команды для заполнения моего курсора(ов)
* Не все данные я беру из XLM - файла, все что можно вытаскиваю из своей БД.
                CASE oRow.Childnodes(K).Nodename = 'ns1:LN_CODE'
* вытаскиваю номер ЛН
                    cListn = oRow.Childnodes(K).Text
                    SELECT BOLN
                    SET ORDER TO LISTN
                    =SEEK(cListn)
                    IF !EOF()
                        MESSAGEBOX(cListn +' - лист нетрудоспособности уже введен !',16)
                        RETURN 
                    ELSE
                        SELECT BOLNMU
                        REPL LISTN WITH cListn
                    ENDIF                    
                CASE oRow.Childnodes(K).Nodename = 'ns1:PRIMARY_FLAG'
* первичный или нет ЛН
                    cPrim = oRow.Childnodes(K).Text
                    IF cPrim = '0'
                        SELECT BOLNMU
                        REPL PROD WITH .T.
                    ENDIF                    
                CASE oRow.Childnodes(K).Nodename = 'ns1:LN_DATE'
* дата ЛН
                    cData = oRow.Childnodes(K).Text
                    SELECT BOLNMU
                    REPL DATAL WITH CTOD(SUBS(cData,9,2)+'.'+SUBS(cData,6,2)+'.'+SUBS(cData,1,4))
                CASE oRow.Childnodes(K).Nodename = 'ns1:LPU_NAME'
* наименование леч. учр-я.
                    cLu_name = oRow.Childnodes(K).Text
                CASE oRow.Childnodes(K).Nodename = 'ns1:LPU_ADDRESS'
* адрес леч. учр-я.
                    cLu_address = oRow.Childnodes(K).Text
                CASE oRow.Childnodes(K).Nodename = 'ns1:LPU_OGRN'
* ОГРН леч. учр-я.
                    cLu_ogrn = oRow.Childnodes(K).Text
                CASE oRow.Childnodes(K).Nodename = 'ns1:REASON1'
* причина заб-я
                    cReason = oRow.Childnodes(K).Text
                    SELECT BOLNSP
                    =SEEK(VAL(cReason))
                    SELECT BOLNMU
                    REPL IDB WITH BOLNSP.IDB,NKART WITH BOLNSP.NKART
                    DO CASE
                        CASE IDB = 5
                            REPL IDP WITH 3
                        CASE IDB = 4 OR IDB = 7
                            REPL IDP WITH 7
                        OTHER
                            REPL IDP WITH 2
                    ENDCASE
                CASE oRow.Childnodes(K).Nodename = 'ns1:LN_RESULT'
* дата выхода на работу
                    cData = oRow.Childnodes(K).Childnodes(0).Text
                    SELECT BOLNMU
                    REPL DATAR WITH CTOD(SUBS(cData,9,2)+'.'+SUBS(cData,6,2)+'.'+SUBS(cData,1,4))
                CASE oRow.Childnodes(K).Nodename = 'ns1:TREAT_PERIODS'
* периоды продления и врачи
                    FOR J = 0 TO oRow.Childnodes(K).Childnodes.Length - 1
                        oTread = oRow.Childnodes(K).Childnodes(J)
                        FOR G = 0 TO oTread.Childnodes.Length - 1
                            oPeriod = oTread.Childnodes(G)    
                            SELECT VRACHB
                            APPEND BLAN
                            REPL TABN WITH BOLNMU.TABN,PODR WITH BOLNMU.PODR
                            FOR I = 0 TO oPeriod.Childnodes.Length - 1
                                DO CASE
                                    CASE oPeriod.Childnodes(I).Nodename = 'ns1:TREAT_DT1'
                                        cDatan = oPeriod.Childnodes(I).Text
                                        REPL DATAN WITH CTOD(SUBS(cData,9,2)+'.'+SUBS(cData,6,2)+'.'+SUBS(cData,1,4))        
                                    CASE oPeriod.Childnodes(I).Nodename = 'ns1:TREAT_DT2'
                                        cDatan = oPeriod.Childnodes(I).Text
                                        REPL DATAK WITH CTOD(SUBS(cData,9,2)+'.'+SUBS(cData,6,2)+'.'+SUBS(cData,1,4))        
                                    CASE oPeriod.Childnodes(I).Nodename = 'ns1:TREAT_DOCTOR_ROLE'
                                        cRule = oPeriod.Childnodes(I).Text
                                    CASE oPeriod.Childnodes(I).Nodename = 'ns1:TREAT_DOCTOR'
                                        cFio = ALLT(oPeriod.Childnodes(I).Text)
                                ENDCASE    
                            ENDFOR
                        ENDFOR
                    ENDFOR    
            ENDCASE
        ENDFOR
    ENDIF
ENDFOR

Igor Korolyov
Худший вариант из возможных... Впрочем, этого и стоило ожидать.
Читать про методы SelectNodes(), SelectSingleNode() и к ним язык XPath (хотя бы самую основу, для понимания принципа адресации в дереве XML-я).
И все эти убогие километровые .Childnodes(N).Childnodes(0).Childnodes(0) заменятся на вполне понятный код наподобии (т.к. самого XML-я мы так и не увидели, то лишь умозрительные имена элементов и можно тут прописать) вот такого:

FOR EACH oRow IN oXml.SelectNodes('//ns1:data/ns1:row')
 lcCode = oRow.SelectSingleNode('ns1:LN_CODE').Text
 ...
ENDFOR

FOR EACH oRow IN oXml.SelectNodes('//ns1:data/ns1:row')

Igor Korolyov
Худший вариант из возможных... Впрочем, этого и стоило ожидать.
Читать про методы SelectNodes(), SelectSingleNode() и к ним язык XPath (хотя бы самую основу, для понимания принципа адресации в дереве XML-я).
И все эти убогие километровые .Childnodes(N).Childnodes(0).Childnodes(0) заменятся на вполне понятный код наподобии (т.к. самого XML-я мы так и не увидели, то лишь умозрительные имена элементов и можно тут прописать) вот такого:

FOR EACH oRow IN oXml.SelectNodes('//ns1:data/ns1:row')
  ...
ENDFOR

Expression evaluator failed

Function argument value, type, or count is invalid.