Changeset 226 for ccr/trunk


Ignore:
Timestamp:
Oct 26, 2008, 1:37:26 AM (16 years ago)
Author:
George Lilly
Message:

added NON-VA meds to processing flow (CCRMEDS3)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRMEDS.m

    r224 r226  
    5555 . ; W MEDCNT,!
    5656 . W "HAS OP PENDING MEDS",!
     57 N PENDINGXML,MEDPENDING
     58 S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
     59 D EXTRACT^CCRMEDS3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
     60 I @PENDINGXML@(0)>0 D  ; CCRMEDS FOUND PENDING OP MEDS
     61 . ; S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
     62 . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
     63 . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD NON-VA TO MEDS
     64 . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO PREVIOUS MEDS, JUST COPY
     65 . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     66 . ; W MEDCNT,!
     67 . W "HAS NON-VA MEDS",!
    5768 Q
    5869 N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
Note: See TracChangeset for help on using the changeset viewer.