Changeset 416 for ccr/trunk/p/C0CMED.m

Timestamp:

Mar 22, 2009, 3:26:00 PM (15 years ago)

Author:

George Lilly

Message:

Changed CCRMEDS* to C0CMED*

File:

• ccr/trunk/p/C0CMED.m (moved) (moved from ccr/trunk/p/CCRMEDS.m ) (7 diffs)

ccr/trunk/p/C0CMED.m

@@ -1 @@
-CCRMEDS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
+C0CMED ; CCDCCR/GPL - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
  ;;0.1;CCDCCR;;JUL 16,2008;
  ;Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
@@ -29 +29 @@
  N HASOP S HASOP=0 ; FLAG FOR HAS OUTPATIENT MEDS
  N MEDCNT S MEDCNT=0 ; COUNT FOR MEDS ALREADY PROCESSED
- ; OUTPATIENT ACTIVE MEDS ARE PROCESSED IN EXTRACT^CCRMEDS1
- ; OUTPATIENT PENDING MEDS IN EXTRACT^CCRMEDS2
- ; NON-VA MEDS IN EXTRACT^CCRMEDS3
- ; INPATIENT MEDS IN EXTRACT^CCRMEDS4
+ ; OUTPATIENT ACTIVE MEDS ARE PROCESSED IN EXTRACT^C0CMED1
+ ; OUTPATIENT PENDING MEDS IN EXTRACT^C0CMED2
+ ; NON-VA MEDS IN EXTRACT^C0CMED3
+ ; INPATIENT MEDS IN EXTRACT^C0CMED4
  ; ALL OTHERS HERE
  S MEDTVMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
@@ -41 +41 @@
  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)
+ . D EXTRACT^C0CMED6(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
+ D EXTRACT^C0CMED1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
+ I @MEDOUTXML@(0)>0 D  ; C0CMED FOUND ACTIVE OP MEDS
  . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
  . S MEDCNT=MEDCNT+@MEDTVMAP@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
@@ -51 +51 @@
  N PENDINGXML,MEDPENDING
  S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
- D EXTRACT^CCRMEDS2(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
- I @PENDINGXML@(0)>0 D  ; CCRMEDS FOUND PENDING OP MEDS
+ D EXTRACT^C0CMED2(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
+ I @PENDINGXML@(0)>0 D  ; C0CMED FOUND PENDING OP MEDS
  . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
  . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
@@ -62 +62 @@
  N PENDINGXML,MEDPENDING
  S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
- D EXTRACT^CCRMEDS3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
- I @PENDINGXML@(0)>0 D  ; CCRMEDS FOUND PENDING OP MEDS
+ D EXTRACT^C0CMED3(MEDXML,DFN,PENDINGXML) ; FIRST EXTRACT OUTPATIENT MEDS
+ I @PENDINGXML@(0)>0 D  ; C0CMED FOUND PENDING OP MEDS
  . ; S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
  . I @MEDOUTXML@(0)>0 D  ; IF WE NEED TO COMBINE MEDS
@@ -73 +73 @@
 THEND ;
  Q ; SKIPPING ALL THE REST OF THIS LOGIC.. IT IS NOT GOING TO BE NEEDED
- ; ONCE NON-VA AND IP MEDS WORK (CCRMEDS3 AND CCRMEDS4)
+ ; ONCE NON-VA AND IP MEDS WORK (C0CMED3 AND C0CMED4)
 USERPC ; ENTRY POINT FOR RPMS
  N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
@@ -82 +82 @@
  . Q
  ; I DEBUG ZWR MEDRSLT
- M C0CMEDS=MEDRSLT
  S MEDTVMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
  S MEDTARYTMP=$NA(^TMP("C0CCCR",$J,"MEDARYTMP"))