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

check for TESTMEDS flag in CCRMEDS

This commit is contained in:
george 2008-10-27 16:11:33 +00:00
parent 77765c886a
commit dfc7ff4f0d
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/CCRMEDS.m
View File

@ -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 . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
. ; W MEDCNT,! . ; W MEDCNT,!
. W "HAS OP PENDING MEDS",! . 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 N PENDINGXML,MEDPENDING
S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
D EXTRACT^CCRMEDS3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS D EXTRACT^CCRMEDS3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS