Changeset 226 for ccr/trunk/p/CCRMEDS.m

Timestamp:

Oct 26, 2008, 1:37:26 AM (16 years ago)

Author:

George Lilly

Message:

added NON-VA meds to processing flow (CCRMEDS3)

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -55 +55 @@
  . ; W MEDCNT,!
  . W "HAS OP PENDING MEDS",!
+ N PENDINGXML,MEDPENDING
+ S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
+ D EXTRACT^CCRMEDS3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
+ I @PENDINGXML@(0)>0 D  ; CCRMEDS FOUND PENDING OP MEDS
+ . ; S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
+ . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
+ . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD NON-VA TO MEDS
+ . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO PREVIOUS MEDS, JUST COPY
+ . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+ . ; W MEDCNT,!
+ . W "HAS NON-VA MEDS",!
  Q
  N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF