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

Timestamp:

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

Author:

George Lilly

Message:

Changed CCRMEDS* to C0CMED*

File:

• ccr/trunk/p/C0CMED1.m (moved) (moved from ccr/trunk/p/CCRMEDS1.m ) (2 diffs)

ccr/trunk/p/C0CMED1.m

@@ -1 @@
-CCRMEDS1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
+C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
  ;;0.1;CCDCCR;;JUL 16,2008;
  ;;Last modified Sat Jan 10 21:42:27 PST 2009
@@ -53 +53 @@
  . I DEBUG W "RXIEN IS ",RXIEN,!
  . S MAP=$NA(^TMP("C0CCCR",$J,"MEDMAP",MEDCOUNT))
- . ; 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,!