Changeset 589

Timestamp:

Oct 30, 2009, 8:56:46 AM (15 years ago)

Author:

Christopher Edwards

Message:

Added initial support for RPMS inactive problems

File:

• ccr/trunk/p/C0CPROBS.m (modified) (2 diffs)

ccr/trunk/p/C0CPROBS.m

@@ -1 +1 @@
 C0CPROBS ; CCDCCR/GPL/CJE - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
- ;;1.0;C0C;;May 19, 2009;Build 32
+ ;;1.0;C0C;;May 19, 2009;
  ;Copyright 2008,2009 George Lilly, University of Minnesota.
  ;Licensed under the terms of the GNU General Public License.
@@ -56 +56 @@
  . S @VMAP@("PROBLEMOBJECTID")="PROBLEM"_J ; UNIQUE OBJID FOR PROBLEM
  . S @VMAP@("PROBLEMIEN")=$P(PTMP,U,10)
- . S @VMAP@("PROBLEMSTATUS")=$S($P(PTMP,U,8)="A":"Active",1:"")
+ . S @VMAP@("PROBLEMSTATUS")=$S($P(PTMP,U,8)="A":"Active",$P(PTMP,U,8)="I":"Inactive",1:"")
  . S @VMAP@("PROBLEMDESCRIPTION")=$P(PTMP,U,6)
  . S @VMAP@("PROBLEMCODINGVERSION")=""