Changeset 1448 for ccr/branches/ohum/p/C0CPARMS.m

Timestamp:

Jun 15, 2012, 6:54:29 PM (12 years ago)

Author:

Sam Habiel

Message:

Parms file with no lines longer than 255 chars. Passes XINDEX.

File:

• ccr/branches/ohum/p/C0CPARMS.m (modified) (2 diffs)

ccr/branches/ohum/p/C0CPARMS.m

@@ -1 @@
-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 +60 @@
         ;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