Changeset 343 for ccr/trunk/p/GPLPROBS.m

Timestamp:

Jan 25, 2009, 3:29:07 PM (15 years ago)

Author:

George Lilly

Message:

improvements to Problems and Alerts, added dates, type

File:

• ccr/trunk/p/GPLPROBS.m (modified) (3 diffs)

ccr/trunk/p/GPLPROBS.m

@@ -17 +17 @@
  ;with this program; if not, write to the Free Software Foundation, Inc.,
  ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- ; 
- ; 
+ ;
+ ;
  ; PROCESS THE PROBLEMS SECTION OF THE CCR
  ;
@@ -49 +49 @@
  . S @VMAP@("PROBLEMOBJECTID")="PROBLEM"_J ; UNIQUE OBJID FOR PROBLEM
  . S @VMAP@("PROBLEMIEN")=$P(PTMP,U,1)
- . S @VMAP@("PROBLEMSTATUS")=$P(PTMP,U,2)
+ . S @VMAP@("PROBLEMSTATUS")=$S($P(PTMP,U,2)="A":"Active",1:"")
  . S @VMAP@("PROBLEMDESCRIPTION")=$P(PTMP,U,3)
  . S @VMAP@("PROBLEMCODINGVERSION")=""
  . S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,4)
- . S @VMAP@("PROBLEMDATEOFONSET")=$P(PTMP,U,5)
- . S @VMAP@("PROBLEMDATEMOD")=$P(PTMP,U,6)
+ . S @VMAP@("PROBLEMDATEOFONSET")=$$FMDTOUTC^CCRUTIL($P(PTMP,U,5),"DT")
+ . S @VMAP@("PROBLEMDATEMOD")=$$FMDTOUTC^CCRUTIL($P(PTMP,U,6),"DT")
  . S @VMAP@("PROBLEMSC")=$P(PTMP,U,7)
  . S @VMAP@("PROBLEMSE")=$P(PTMP,U,8)
@@ -65 +65 @@
  . S @VMAP@("PROBLEMSERVICE")=$P(PTMP,U,13)
  . S @VMAP@("PROBLEMHASCMT")=$P(PTMP,U,14)
- . S @VMAP@("PROBLEMDTREC")=$P(PTMP,U,15)
- . S @VMAP@("PROBLEMINACT")=$P(PTMP,U,16)
+ . S @VMAP@("PROBLEMDTREC")=$$FMDTOUTC^CCRUTIL($P(PTMP,U,15),"DT")
+ . S @VMAP@("PROBLEMINACT")=$$FMDTOUTC^CCRUTIL($P(PTMP,U,16),"DT")
  . S ARYTMP=$NA(@TARYTMP@(J))
  . ; W "ARYTMP= ",ARYTMP,!