iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

debug false multiples in ACTORS

This commit is contained in:
george 2008-10-10 18:45:04 +00:00
parent 3860ed4573
commit a795799933
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
p/GPLACTOR.m
View File

@ -2,17 +2,17 @@ GPLACTOR ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
;;0.4;CCDCCR;nopatch;noreleasedate
; Copyright 2008 WorldVistA. Licensed under the terms of the GNU
; General Public License See attached copy of the License.
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License along
; with this program; if not, write to the Free Software Foundation, Inc.,
; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
@ -67,6 +67,7 @@ EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
. . D ORG("ATMP",AIEN,AOID,"ATMP2")
. ;
. D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
. K ATYP,AIEN,AOID ; BE SURE TO GET THE NEXT ONE
;
N ACTTMP
D MISSING^GPLXPATH(AXML,"ACTTMP") ; SEARCH XML FOR MISSING VARS

17
p/GPLCCR.m
View File

@ -30,20 +30,22 @@ EXPORT ; EXPORT ENTRY POINT FOR CCR
XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR")
; FN IS FILE NAME, DEFAULTS IF NULL
N CCRGLO
I '$D(DIR) S DIR=""
I '$D(FN) S FN=""
N CCRGLO,UDIR,UFN
I '$D(DIR) S UDIR=""
E S UDIR=DIR
I '$D(FN) S UFN=""
E S UFN=FN
D CCRRPC(.CCRGLO,DFN,"CCR","","","")
S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
S ONAM=FN
I FN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
S ONAM=UFN
I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET
. ;S @ODIRGLB="/home/glilly/CCROUT"
. ;S @ODIRGLB="/home/cedwards/"
. S @ODIRGLB="/opt/wv/p/"
S ODIR=DIR
I DIR="" S ODIR=@ODIRGLB
S ODIR=UDIR
I UDIR="" S ODIR=@ODIRGLB
N ZY
S ZY=$$OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
W !,$P(ZY,U,2),!
@ -112,6 +114,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY) ;RPC ENTRY POINT FOR CCR OUTPUT
. I @OXML@(0)'=0 D ; THERE IS A RESULT
. . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
. . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
N ACTT,ATMP,ACTT2,ATMP2 ; TEMPORARY ARRAY SYMBOLS FOR ACTOR PROCESSING
D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
D EXTRACT^GPLACTOR("ACTT",ACTGLO,"ACTT2")