Changeset 195 for ccr/trunk/p

Timestamp:

Oct 7, 2008, 12:26:38 PM (16 years ago)

Author:

George Lilly

Message:

MEDS DEBUGGING

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -65 +65 @@
  S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
- I 'HASOP K @MEDTVMAP,@MEDTARYTMP
+ ; I 'HASOP K @MEDTVMAP,@MEDTARYTMP KILL MOVED TO TOP OF ROUTINE
  ; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
  ; ZA(0) IS TOTAL NUMBER OF MEDS ZA(ZI) IS LINES IN MED ZI
@@ -88 +88 @@
  . I $P(MEDPTMP,U,1)?1"~OP" Q  ; SKIP OP ACTIVE AND PENDING
  . S MEDCNT=MEDCNT+1 ; WE ARE GOING TO ADD A MED
- . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
+ . S MEDVMAP=$NA(@MEDTVMAP@(MEDCNT)) ; START PAST OP ACTIVE MEDS
  . S @MEDTVMAP@(0)=@MEDTVMAP@(0)+1 ; ADDING A MED HERE
- . S @MEDVMAP@("MEDOBJECTID")="MED"_(ZI+MEDCNT) ; UNIQUE OBJID FOR MEDS
+ . S @MEDVMAP@("MEDOBJECTID")="MED"_(MEDCNT) ; UNIQUE OBJID FOR MEDS
  . I $P(MEDPTMP,"^",11)="" S @MEDVMAP@("MEDISSUEDATETXT")=""
  . E  S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE