Changeset 193 for ccr/trunk


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

MEDS DEBUGGING

File:
1 edited

Legend:

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

    r192 r193  
    8383 F ZI=1:1:ZA(0) D  ; FOR EACH MED
    8484 . I DEBUG W "ZI IS ",ZI,!
    85  . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
    8685 . W ZI," ",MEDCNT,!
    87  . K @MEDVMAP
    88  . I DEBUG W "VMAP= ",MEDVMAP,!
    8986 . S ZJ=$P(ZA(ZI),U,1) ; INDEX OF FIRST LINE OF MED IN MEDRSLT
    9087 . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
    9188 . 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
     90 . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
    9291 . S @MEDTVMAP@(0)=@MEDTVMAP@(0)+1 ; ADDING A MED HERE
    9392 . S @MEDVMAP@("MEDOBJECTID")="MED"_(ZI+MEDCNT) ; UNIQUE OBJID FOR MEDS
Note: See TracChangeset for help on using the changeset viewer.