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

FIX TO EXTRACT+29^CCRMEDS3

This commit is contained in:
george 2008-10-27 04:50:32 +00:00
parent 234c02747f
commit 57a8360aee
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/CCRMEDS3.m
View File

@ -49,7 +49,7 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
N FDAIEN S FDAIEN=0 ; For use in $Order in the MEDS array.
S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
F S FDAIEN=$O(MEDS(FDAIEN)) Q:RXIEN="" D ; FOR EACH MEDICATION IN THE LIST
F S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN="" D ; FOR EACH MEDICATION IN THE LIST
. N MED M MED=MEDS(FDAIEN)
. I MED(5,"I")!MED(6,"I") QUIT ; If disconinued, we don't want to pull it.
. S MEDCOUNT=MEDCOUNT+1