Changeset 192 for ccr/trunk/p/CCRMEDS.m

Timestamp:

Oct 7, 2008, 11:48:02 AM (16 years ago)

Author:

George Lilly

Message:

MEDS DEBUGGING

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -34 +34 @@
  ; ALL OTHERS HERE
  S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
+ K @MEDTVMAP ; CLEAR VARIABLE ARRAY
  S @MEDTVMAP@(0)=0 ; INITIALIZE NUMBER OF MEDS PROCESSED
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
+ K @MEDTARYTMP ; KILL XML ARRAY
  D EXTRACT^CCRMEDS1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
  I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
@@ -88 +90 @@
  . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
  . I $P(MEDPTMP,U,1)?1"~OP" Q  ; SKIP OP ACTIVE AND PENDING
+ . S @MEDTVMAP@(0)=@MEDTVMAP@(0)+1 ; ADDING A MED HERE
  . S @MEDVMAP@("MEDOBJECTID")="MED"_(ZI+MEDCNT) ; UNIQUE OBJID FOR MEDS
  . I $P(MEDPTMP,"^",11)="" S @MEDVMAP@("MEDISSUEDATETXT")=""