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

non-multiples will be "1" not "0" in array:

This commit is contained in:
george 2009-12-27 04:51:48 +00:00
parent a701e535cd
commit eeacfa8f09
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CMXP.m
View File

@ -171,7 +171,7 @@ DEMUXARY(OARY,IARY,DEPTH) ;CONVERT AN XPATH ARRAY PASSED AS IARY TO
. I $G(DEPTH)=2 D ;LAST TWO PARTS OF XPATH USED FOR THE VARIABLE NAME
. . S ZM=$RE($P($RE(ZK),"/",2))_ZM
. S ZL=$P(ZJ,"^",1)
. I ZL="" S ZL=0
. I ZL="" S ZL=1
. I $D(@OARY@(ZL,ZM)) D ;IT'S A DUP
. . S @OARY@(ZL,ZM_"[2]")=@IARY@(ZI)
. E S @OARY@(ZL,ZM)=@IARY@(ZI)