Changeset 190 for ccr/trunk/p

Timestamp:

Oct 7, 2008, 10:56:53 AM (16 years ago)

Author:

George Lilly

Message:

MED DEBUGING

File:

• ccr/trunk/p/CCRMEDS.m (modified) (3 diffs)

ccr/trunk/p/CCRMEDS.m

@@ -36 +36 @@
  I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
  . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
- . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+ . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+ . W MEDCNT,!
  . W "HAS ACTIVE OP MEDS",!
  N PENDINGXML,MEDPENDING
@@ -46 +47 @@
  . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD PENDING TO ACTIVE
  . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
- . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+ . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+ . W MEDCNT,!
  . W "HAS OP PENDING MEDS",!
  N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
@@ -77 +79 @@
  . I DEBUG W "ZI IS ",ZI,!
  . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
+ . W ZI," ",MEDCNT,!
  . K @MEDVMAP
  . I DEBUG W "VMAP= ",MEDVMAP,!