Changeset 197 for ccr/trunk/p


Ignore:
Timestamp:
Oct 7, 2008, 12:49:43 PM (16 years ago)
Author:
George Lilly
Message:

handles cases with both OP and UV meds

File:
1 edited

Legend:

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

    r196 r197  
    5353 . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
    5454 . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
    55  . W MEDCNT,!
     55 . ; W MEDCNT,!
    5656 . W "HAS OP PENDING MEDS",!
    5757 N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
     
    8383 F ZI=1:1:ZA(0) D  ; FOR EACH MED
    8484 . I DEBUG W "ZI IS ",ZI,!
    85  . W ZI," ",MEDCNT,!
     85 . ; W ZI," ",MEDCNT,!
    8686 . S ZJ=$P(ZA(ZI),U,1) ; INDEX OF FIRST LINE OF MED IN MEDRSLT
    8787 . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
Note: See TracChangeset for help on using the changeset viewer.