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

Timestamp:

Jan 22, 2009, 9:36:12 AM (15 years ago)

Author:

George Lilly

Message:

integration of CCRMEDS6 for RPMS on flag C0CTESTMEDS

File:

• ccr/trunk/p/CCRMEDS.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS.m

@@ -38 +38 @@
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
  K @MEDTARYTMP ; KILL XML ARRAY
- I $G(DUZ("AG"))="I" G USERPC ; FOR RPMS, USE THE RPC FOR MEDS
+ I $G(DUZ("AG"))="I" D  Q  ;
+ . I '$D(C0CTESTMEDS) G USERPC ; DELETE THIS LINE AFTER TESTING IS DONE
+ . D EXTRACT^CCRMEDS6(MEDXML,DFN,MEDOUTXML)
+ . I @MEDOUTXML@(0)=0 D 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