Changeset 190 for ccr/trunk


Ignore:
Timestamp:
Oct 7, 2008, 10:56:53 AM (16 years ago)
Author:
George Lilly
Message:

MED DEBUGING

File:
1 edited

Legend:

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

    r189 r190  
    3636 I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
    3737 . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
    38  . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     38 . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     39 . W MEDCNT,!
    3940 . W "HAS ACTIVE OP MEDS",!
    4041 N PENDINGXML,MEDPENDING
     
    4647 . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD PENDING TO ACTIVE
    4748 . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
    48  . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     49 . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     50 . W MEDCNT,!
    4951 . W "HAS OP PENDING MEDS",!
    5052 N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
     
    7779 . I DEBUG W "ZI IS ",ZI,!
    7880 . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
     81 . W ZI," ",MEDCNT,!
    7982 . K @MEDVMAP
    8083 . I DEBUG W "VMAP= ",MEDVMAP,!
Note: See TracChangeset for help on using the changeset viewer.