Changeset 395 for ccr/trunk/p

Timestamp:

Mar 15, 2009, 7:47:13 PM (16 years ago)

Author:

George Lilly

Message:

parms for MEDS

File:

• ccr/trunk/p/C0CPARMS.m (modified) (1 diff)

ccr/trunk/p/C0CPARMS.m

@@ -30 +30 @@
  . 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