Changeset 197 for ccr/trunk/p

Timestamp:

Oct 7, 2008, 12:49:43 PM (16 years ago)

Author:

George Lilly

Message:

handles cases with both OP and UV meds

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -53 +53 @@
  . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
  . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
- . W MEDCNT,!
+ . ; W MEDCNT,!
  . W "HAS OP PENDING MEDS",!
  N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
@@ -83 +83 @@
  F ZI=1:1:ZA(0) D  ; FOR EACH MED
  . I DEBUG W "ZI IS ",ZI,!
- . W ZI," ",MEDCNT,!
+ . ; W ZI," ",MEDCNT,!
  . S ZJ=$P(ZA(ZI),U,1) ; INDEX OF FIRST LINE OF MED IN MEDRSLT
  . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED