Changeset 178 for ccr/trunk/p/GPLMEDS.m

Timestamp:

Oct 4, 2008, 4:16:26 PM (16 years ago)

Author:

George Lilly

Message:

fix for field processing in meds

File:

• ccr/trunk/p/GPLMEDS.m (modified) (1 diff)

ccr/trunk/p/GPLMEDS.m

@@ -34 +34 @@
    . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
    . W "HAS ACTIVE OP MEDS",!
+   D EXTRACT^CCRMEDS2(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
+   I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
+   . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
+   . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+   . W "HAS OP MEDS",!
    N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
    D ACTIVE^ORWPS(.MEDRSLT,DFN)