check for TESTMEDS flag in CCRMEDS
This commit is contained in:
parent
77765c886a
commit
dfc7ff4f0d
|
@ -54,7 +54,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
|
|||
. S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
|
||||
. ; W MEDCNT,!
|
||||
. W "HAS OP PENDING MEDS",!
|
||||
IF '$D(TESTMEDS) G THEND ; SKIP NON-VA MEDS FOR NOW
|
||||
IF 'TESTMEDS G THEND ; SKIP NON-VA MEDS FOR NOW
|
||||
N PENDINGXML,MEDPENDING
|
||||
S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
|
||||
D EXTRACT^CCRMEDS3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
|
||||
|
|
Loading…
Reference in New Issue