Index: /ccr/branches/ohum/p/C0CPARMS.m
===================================================================
--- /ccr/branches/ohum/p/C0CPARMS.m	(revision 1447)
+++ /ccr/branches/ohum/p/C0CPARMS.m	(revision 1448)
@@ -1,4 +1,4 @@
-C0CPARMS	; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09
-	;;1.2;C0C;;May 11, 2012;Build 47
+C0CPARMS	; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09 ; 6/15/12 3:46pm
+	;;1.2;C0C;;May 11, 2012;Build 49
 	;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 	;General Public License See attached copy of the License.
@@ -60,5 +60,13 @@
 	;I '$D(@C0CPARMS@("TIUSTART")) S @C0CPARMS@("TIUSTART")="T" ;TODAY
 	;;OHUM/RUT
-	S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2),@C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3),@C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4),@C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1),@C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2),@C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3),@C0CPARMS@("MEDACTIVE")=0,@C0CPARMS@("MEDPENDING")=0,@C0CPARMS@("MEDALL")=0 ;OHUM/RUT 3120504 INITIALISING MEDICATION STATUS VARIABLES WITH ZERO
+	S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2)
+	   S @C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3)
+	   S @C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4)
+	   S @C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1)
+	   S @C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2)
+	   S @C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3)
+	   S @C0CPARMS@("MEDACTIVE")=0
+	   S @C0CPARMS@("MEDPENDING")=0
+	   S @C0CPARMS@("MEDALL")=0 ;OHUM/RUT 3120504 INITIALISING MEDICATION STATUS VARIABLES WITH ZERO
 	I $P(^C0CPARM(1,1),"^",4)="ACT" S @C0CPARMS@("MEDACTIVE")=1
 	I $P(^C0CPARM(1,1),"^",4)="PEN" S @C0CPARMS@("MEDPENDING")=1