Changeset 194


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

MED DEBUGGING

File:
1 edited

Legend:

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

    r193 r194  
    8787 . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
    8888 . I $P(MEDPTMP,U,1)?1"~OP" Q  ; SKIP OP ACTIVE AND PENDING
    89  . S MEDCOUNT=MEDCOUNT+1 ; WE ARE GOING TO ADD A MED
     89 . S MEDCNT=MEDCNT+1 ; WE ARE GOING TO ADD A MED
    9090 . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
    9191 . S @MEDTVMAP@(0)=@MEDTVMAP@(0)+1 ; ADDING A MED HERE
Note: See TracChangeset for help on using the changeset viewer.