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

debugging CCRMEDS3

This commit is contained in:
george 2008-10-27 22:01:46 +00:00
parent dfc7ff4f0d
commit 068b11aaed
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/CCRMEDS3.m
View File

@ -49,6 +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
N MEDFIRST S MEDFIRST=1 ; FLAG FOR FIRST MED PROCESSED HERE
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.
@ -121,6 +122,7 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
. ; These are all free text fields, and don't point to any files
. ; For that reason, I will use the field I never used before:
. ; MEDDIRECTIONDESCRIPTIONTEXT
. S DIRCNT=1 ; THERE IS ONLY ONE DIRECTION FOR OUTSIDE MEDS
. S @MAP@("M","DIRECTIONS",1,"MEDDIRECTIONDESCRIPTIONTEXT")=MED(2,"E")_" "_MED(3,"E")_" "_MED(4,"E")
. S @MAP@("M","DIRECTIONS",1,"MEDDOSEINDICATOR")="4" ; means look in description text. See E2369-05.
. S @MAP@("M","DIRECTIONS",1,"MEDDELIVERYMETHOD")=""