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

fix for VistACom

This commit is contained in:
george 2011-05-13 17:54:01 +00:00
parent 7867b83e2c
commit 16b6640184
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
p/C0CMCCD.m
View File

@ -148,9 +148,12 @@ SEPARATE(OUTARY,INARY) ; SEPARATES XPATH VARIABLES ACCORDING TO THEIR
; ROOT ; /Problems/etc/etc goes to @OUTARY@("Problems","/Problems/etc/etc") ; ROOT ; /Problems/etc/etc goes to @OUTARY@("Problems","/Problems/etc/etc")
S ZI="" S ZI=""
F S ZI=$O(@INARY@(ZI)) Q:ZI="" D ; FOR EACH ELEMENT OF THE ARRAY F S ZI=$O(@INARY@(ZI)) Q:ZI="" D ; FOR EACH ELEMENT OF THE ARRAY
. S ZJ=$P(ZI,"/",2) ; . I $P(ZI,"//",2)'="" D ; FOR NON-BODY ENTRIES
. I ZJ="" S ZJ=$P(ZI,"/",3) ; . . S ZJ=$P(ZI,"/",4) ; things like From Patient Actor
. S @OUTARY@(ZJ,ZI)=@INARY@(ZI) . E D ; FOR BODY PARTS
. . S ZJ=$P(ZI,"/",2) ;
. . I ZJ="" S ZJ=$P(ZI,"/",3) ;
. S @OUTARY@(ZJ,ZI)=$G(@INARY@(ZI)) ;FIX THIS FOR MULTILINE COMMENTS
Q Q
; ;
FINDTID ; FIND TEMPLATE IDS IN DOM 1 FINDTID ; FIND TEMPLATE IDS IN DOM 1