From b2d5a805af750a54c14a044374bf532871f0ffc9 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Sun, 15 Mar 2009 23:47:13 +0000
Subject: [PATCH] parms for MEDS

---
 p/C0CPARMS.m | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/p/C0CPARMS.m b/p/C0CPARMS.m
index 727365c..9768ffd 100644
--- a/p/C0CPARMS.m
+++ b/p/C0CPARMS.m
@@ -29,7 +29,11 @@ SET(INPARMS) ;INITIALIZE RUNTIME PARMS USING INPARMS TO OVERRIDE DEFAULTS
  . N C0CN S C0CN=1
  . F  S C0CI=$P(INPARMS,"^",C0CN) Q:C0CI=""  D  ;
  . . S C0CN=C0CN+1 ;NEXT PARM
- . . S @C0CPARMS@($P(C0CI,":",1))=$P(C0CI,":",2) ; SET THE PARM
+ . . N C1,C2
+ . . S C1=$P(C0CI,":",1) ; PARAMETER
+ . . S C2=$P(C0CI,":",2) ; VALUE
+ . . I C2="" S C2=1
+ . . S @C0CPARMS@(C1)=C2
  . I C0CN=1 S @C0CPARMS@($P(INPARMS,":",1))=$P(C0CI,":",2) ; ONLY ONE
  ; THIS IS WHERE WE WILL INSERT CALLS TO THE PARAMETER FILE FOR DEFAULTS
  ; IF THEY FAIL, THE FOLLOWING WILL BE HARDCODED DEFAULTS