Changeset 191 for ccr/trunk/p

Timestamp:

Oct 7, 2008, 11:05:30 AM (16 years ago)

Author:

George Lilly

Message:

MEDS DEBUGGING

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -33 +33 @@
  ; INPATIENT MEDS IN EXTRACT^CCRMEDS4
  ; ALL OTHERS HERE
+ S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
+ S @MEDTVMAP@(0)=0 ; INITIALIZE NUMBER OF MEDS PROCESSED
+ S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
  D EXTRACT^CCRMEDS1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
  I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
  . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
- . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+ . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
  . W MEDCNT,!
  . W "HAS ACTIVE OP MEDS",!
@@ -47 +50 @@
  . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD PENDING TO ACTIVE
  . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
- . S MEDCNT=MEDCNT+@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
+ . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
  . W MEDCNT,!
  . W "HAS OP PENDING MEDS",!