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

less debugging output from Trim, normalize 2 template lines

This commit is contained in:
george 2008-07-08 15:09:12 +00:00
parent a402629a9c
commit a4665f9af5
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/GPLCCR.m
View File

@ -12,8 +12,8 @@ EXPORT ; EXPORT ENTRY POINT FOR CCR
D CCRRPC(.CCRGLO,DFN,"CCR","","","") D CCRRPC(.CCRGLO,DFN,"CCR","","","")
S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1)) S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
S ONAM="PAT_"_DFN_"_CCR_V1.xml" S ONAM="PAT_"_DFN_"_CCR_V1.xml"
;S ODIR="/home/glilly/CCROUT" S ODIR="/home/glilly/CCROUT"
S ODIR="/home/cedwards/" ;S ODIR="/home/cedwards/"
;S ODIR="/opt/wv/p/" ;S ODIR="/opt/wv/p/"
D OUTPUT^GPLXPATH(OARY,ONAM,ODIR) D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
Q Q

8
p/GPLCCR0.m
View File

@ -538,7 +538,9 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;</Name> ;;</Name>
;;</Person> ;;</Person>
;;<IDs> ;;<IDs>
;;<Type><Text>NPI</Text></Type> ;;<Type>
;;<Text>NPI</Text>
;;</Type>
;;<ID>@@ACTORNPI@@</ID> ;;<ID>@@ACTORNPI@@</ID>
;;</IDs> ;;</IDs>
;;<Specialty> ;;<Specialty>
@ -556,7 +558,9 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;</Address> ;;</Address>
;;<Telephone> ;;<Telephone>
;;<Value>@@ACTORTELEPHONE@@</Value> ;;<Value>@@ACTORTELEPHONE@@</Value>
;;<Type><Text>@@ACTORTELTYPE@@</Text></Type> ;;<Type>
;;<Text>@@ACTORTELTYPE@@</Text>
;;</Type>
;;</Telephone> ;;</Telephone>
;;<Email> ;;<Email>
;;<Value>@@ACTOREMAIL@@</Value> ;;<Value>@@ACTOREMAIL@@</Value>

4
p/GPLXPATH.m
View File

@ -359,13 +359,9 @@ TRIM(THEXML) ; TAKES OUT ALL NULL ELEMENTS
. F I=1:1:@THEXML@(0) D ; COPY ARRAY LEAVING OUT DELELTED LINES . F I=1:1:@THEXML@(0) D ; COPY ARRAY LEAVING OUT DELELTED LINES
. . I '$D(DEL(I)) D ; IF THE LINE IS NOT DELETED . . I '$D(DEL(I)) D ; IF THE LINE IS NOT DELETED
. . . D PUSH("TMPXML",@THEXML@(I)) ; COPY TO TMPXML ARRAY . . . D PUSH("TMPXML",@THEXML@(I)) ; COPY TO TMPXML ARRAY
. ZWR DEL
. D CP("TMPXML",THEXML) ; REPLACE THE XML WITH THE COPY . D CP("TMPXML",THEXML) ; REPLACE THE XML WITH THE COPY
Q FOUND Q FOUND
; ;
NXTCHLD(HANDLE,NODE,CUR) ; RETURNS THE NEXT CHILD OR "" IF NONE
Q $$CHILD^MXMLDOM(HANDLE,NODE,CUR)
;
PARY(GLO) ;PRINT AN ARRAY PARY(GLO) ;PRINT AN ARRAY
N I N I
F I=1:1:@GLO@(0) W @GLO@(I),! F I=1:1:@GLO@(0) W @GLO@(I),!