Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/branches/ohum/p/C0CPARMS.m

    r1433 r1448  
    1 C0CPARMS        ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09
    2         ;;1.2;C0C;;May 11, 2012;Build 47
     1C0CPARMS        ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09 ; 6/15/12 3:46pm
     2        ;;1.2;C0C;;May 11, 2012;Build 49
    33        ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    44        ;General Public License See attached copy of the License.
     
    6060        ;I '$D(@C0CPARMS@("TIUSTART")) S @C0CPARMS@("TIUSTART")="T" ;TODAY
    6161        ;;OHUM/RUT
    62         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
     62        S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2)
     63           S @C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3)
     64           S @C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4)
     65           S @C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1)
     66           S @C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2)
     67           S @C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3)
     68           S @C0CPARMS@("MEDACTIVE")=0
     69           S @C0CPARMS@("MEDPENDING")=0
     70           S @C0CPARMS@("MEDALL")=0 ;OHUM/RUT 3120504 INITIALISING MEDICATION STATUS VARIABLES WITH ZERO
    6371        I $P(^C0CPARM(1,1),"^",4)="ACT" S @C0CPARMS@("MEDACTIVE")=1
    6472        I $P(^C0CPARM(1,1),"^",4)="PEN" S @C0CPARMS@("MEDPENDING")=1
Note: See TracChangeset for help on using the changeset viewer.