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

Timestamp:

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

Author:

George Lilly

Message:

Changed CCRMEDS* to C0CMED*

File:

• ccr/trunk/p/C0CMED6.m (moved) (moved from ccr/trunk/p/CCRMEDS6.m ) (2 diffs)

ccr/trunk/p/C0CMED6.m

@@ -1 @@
-CCRMEDS6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
+C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
  ;;0.1;CCDCCR;;JUL 16,2008;
  ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
@@ -64 +64 @@
  . I DEBUG W "MEDCNT IS ",MEDCNT,!
  . S MAP=$NA(^TMP("C0CCCR",$J,"MEDMAP",MEDCNT))
- . ; K @MAP DO NOT KILL HERE, WAS CLEARED IN CCRMEDS
+ . ; K @MAP DO NOT KILL HERE, WAS CLEARED IN C0CMED
  . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; increment total meds in var array
  . I DEBUG W "MAP= ",MAP,!