Changeset 335

Timestamp:

Jan 19, 2009, 2:42:52 PM (16 years ago)

Author:

George Lilly

Message:

use DUZ("AG")="I" to test for RPMS

Location:

ccr/trunk/p

Files:

• CCRMEDS.m (modified) (1 diff)
• CCRUNIT.m (modified) (2 diffs)

ccr/trunk/p/CCRMEDS.m

@@ -38 +38 @@
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
  K @MEDTARYTMP ; KILL XML ARRAY
- I $D(^TMP("GPLCCR","RPMS")) G USERPC ; FOR RPMS, USE THE RPC FOR MEDS
+ I $G(DUZ("AG"))="I" G USERPC ; FOR RPMS, USE THE RPC FOR MEDS
  D EXTRACT^CCRMEDS1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
  I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS

ccr/trunk/p/CCRUNIT.m

@@ -4 +4 @@
         ;
 MEDS
-        N DEBUG S DEBUG=0
-        N DFN S DFN=1
+        N DEBUG S DEBUG=1
+        N DFN S DFN=5685
         K ^TMP($J)
         W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
@@ -17 +17 @@
         W "OUTXML will be ^TMP($J,""OUT"")",!
         N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
-        D EXTRACT^CCRMEDS($NA(MINXML),DFN,OUTXML)
+        D EXTRACT^CCRMEDS6($NA(MINXML),DFN,OUTXML)
         Q