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

Timestamp:

Mar 17, 2009, 7:40:10 PM (15 years ago)

Author:

George Lilly

Message:

namespacing

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -1 +1 @@
 CCRMEDS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
  ;;0.1;CCDCCR;;JUL 16,2008;
- ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
- ;General Public License See attached copy of the License.
+ ;Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
+ ;Licensed under the terms of the GNU General Public License.
+ ;See attached copy of the License.
  ;
  ;This program is free software; you can redistribute it and/or modify
@@ -33 +34 @@
  ; INPATIENT MEDS IN EXTRACT^CCRMEDS4
  ; ALL OTHERS HERE
- S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
+ S MEDTVMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
  K @MEDTVMAP ; CLEAR VARIABLE ARRAY
  S @MEDTVMAP@(0)=0 ; INITIALIZE NUMBER OF MEDS PROCESSED
- S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
+ S MEDTARYTMP=$NA(^TMP("C0CCCR",$J,"MEDARYTMP"))
  K @MEDTARYTMP ; KILL XML ARRAY
  I $G(DUZ("AG"))="I" D  Q  ;
@@ -54 +55 @@
  . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
  . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
- . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD PENDING TO ACTIVE
- . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
+ . . D INSINNER^C0CXPATH(MEDOUTXML,PENDINGXML) ;ADD PENDING TO ACTIVE
+ . E  D CP^C0CXPATH(PENDINGXML,MEDOUTXML) ; NO ACTIVE MEDS, JUST COPY
  . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
  . ; W MEDCNT,!
@@ -65 +66 @@
  . ; S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
  . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
- . . D INSINNER^GPLXPATH(MEDOUTXML,PENDINGXML) ;ADD NON-VA TO MEDS
- . E  D CP^GPLXPATH(PENDINGXML,MEDOUTXML) ; NO PREVIOUS MEDS, JUST COPY
+ . . D INSINNER^C0CXPATH(MEDOUTXML,PENDINGXML) ;ADD NON-VA TO MEDS
+ . E  D CP^C0CXPATH(PENDINGXML,MEDOUTXML) ; NO PREVIOUS MEDS, JUST COPY
  . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
  . ; W MEDCNT,!
@@ -81 +82 @@
  . Q
  ; I DEBUG ZWR MEDRSLT
- M GPLMEDS=MEDRSLT
- S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
- S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
+ M C0CMEDS=MEDRSLT
+ S MEDTVMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
+ S MEDTARYTMP=$NA(^TMP("C0CCCR",$J,"MEDARYTMP"))
  ; I 'HASOP K @MEDTVMAP,@MEDTARYTMP KILL MOVED TO TOP OF ROUTINE
  ; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
@@ -188 +189 @@
  . S MEDARYTMP=$NA(@MEDTARYTMP@(ZI))
  . K @MEDARYTMP
- . D MAP^GPLXPATH(MEDXML,MEDVMAP,MEDARYTMP)
+ . D MAP^C0CXPATH(MEDXML,MEDVMAP,MEDARYTMP)
  . I ZI=1&('HASOP) D  ; FIRST ONE IS JUST A COPY MAKE SURE OP IS NOT THERE
  . . ; W "FIRST ONE",!
- . . D CP^GPLXPATH(MEDARYTMP,MEDOUTXML)
+ . . D CP^C0CXPATH(MEDARYTMP,MEDOUTXML)
  . E  D  ; AFTER THE FIRST OR IF THERE ARE OP, INSERT INNER XML
- . . D INSINNER^GPLXPATH(MEDOUTXML,MEDARYTMP)
+ . . D INSINNER^C0CXPATH(MEDOUTXML,MEDARYTMP)
  N MEDTMP,MEDI
- D MISSING^GPLXPATH(MEDOUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS
+ D MISSING^C0CXPATH(MEDOUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS
  I MEDTMP(0)>0 D  ; IF THERE ARE MISSING VARS - MARKED AS @@X@@
  . W "MEDICATION MISSING ",!