Changeset 342 for ccr

Timestamp:

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

Author:

George Lilly

Message:

integration of CCRMEDS6 for RPMS on flag C0CTESTMEDS

Location:

ccr/trunk/p

Files:

• C0CRPMS.m (modified) (1 diff)
• CCRMEDS.m (modified) (1 diff)
• CCRUNIT.m (modified) (1 diff)

ccr/trunk/p/C0CRPMS.m

@@ -79 +79 @@
  Q
  ;
+GETTBL(C0CTBL) ; SCAN FOR AND DISPLAY PATIENTS IN A RIMTBL, PASSED BY VALUE
+ ;
+ N ZG S ZG=$NA(^TMP("GPLRIM","RIMTBL","PATS",C0CTBL))
+ N C0CG S C0CG=""
+ N C0CQ S C0CQ=0
+ F  S C0CG=$O(@ZG@(C0CG),-1) Q:(C0CG="")  D  ;
+ . W "PAT: ",C0CG,!
+ . D GETNV^C0CRPMS(C0CG)
+ . K X R X
+ . I X="Q" S C0CQ=1 ; QUIT IF Q
+ Q
+ ;

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

ccr/trunk/p/CCRUNIT.m

@@ -18 +18 @@
         N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
         D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
+        D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
         Q