Changeset 337

Timestamp:

Jan 19, 2009, 2:56:42 PM (17 years ago)

Author:

George Lilly

Message:

use DUZ("AG")="I" TO DETECT RPMS

Location:

ccr/tags/C0C_1_0_12

Files:

• C0C_1_0_12_T3_CACHE.KID (added)
• CCRMEDS.m (modified) (1 diff)

ccr/tags/C0C_1_0_12/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