Changeset 214 for ccr/trunk


Ignore:
Timestamp:
Oct 10, 2008, 2:45:04 PM (16 years ago)
Author:
George Lilly
Message:

debug false multiples in ACTORS

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLACTOR.m

    r175 r214  
    33 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44 ; General Public License See attached copy of the License.
    5  ; 
     5 ;
    66 ; This program is free software; you can redistribute it and/or modify
    77 ; it under the terms of the GNU General Public License as published by
    88 ; the Free Software Foundation; either version 2 of the License, or
    99 ; (at your option) any later version.
    10  ; 
     10 ;
    1111 ; This program is distributed in the hope that it will be useful,
    1212 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
    1313 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    1414 ; GNU General Public License for more details.
    15  ; 
     15 ;
    1616 ; You should have received a copy of the GNU General Public License along
    1717 ; with this program; if not, write to the Free Software Foundation, Inc.,
     
    6868 . ;
    6969 . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
     70 . K ATYP,AIEN,AOID ; BE SURE TO GET THE NEXT ONE
    7071 ;
    7172 N ACTTMP
  • ccr/trunk/p/GPLCCR.m

    r200 r214  
    3131       ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR")
    3232       ; FN IS FILE NAME, DEFAULTS IF NULL
    33        N CCRGLO
    34        I '$D(DIR) S DIR=""
    35        I '$D(FN) S FN=""
     33       N CCRGLO,UDIR,UFN
     34       I '$D(DIR) S UDIR=""
     35       E  S UDIR=DIR
     36       I '$D(FN) S UFN=""
     37       E  S UFN=FN
    3638       D CCRRPC(.CCRGLO,DFN,"CCR","","","")
    3739       S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
    38        S ONAM=FN
    39        I FN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
     40       S ONAM=UFN
     41       I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
    4042       S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
    4143       I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
     
    4345       . ;S @ODIRGLB="/home/cedwards/"
    4446       . S @ODIRGLB="/opt/wv/p/"
    45        S ODIR=DIR
    46        I DIR="" S ODIR=@ODIRGLB
     47       S ODIR=UDIR
     48       I UDIR="" S ODIR=@ODIRGLB
    4749       N ZY
    4850       S ZY=$$OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
     
    113115    . . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
    114116    . . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
     117    N ACTT,ATMP,ACTT2,ATMP2 ; TEMPORARY ARRAY SYMBOLS FOR ACTOR PROCESSING
    115118    D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
    116119    D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
Note: See TracChangeset for help on using the changeset viewer.