Changeset 590 for ccr/trunk/p

Timestamp:

Oct 30, 2009, 9:03:07 AM (15 years ago)

Author:

Christopher Edwards

Message:

Fix to allow correct DateTime tag to be created
Fix to get the correct alert global

File:

• ccr/trunk/p/C0CALERT.m (modified) (4 diffs)

ccr/trunk/p/C0CALERT.m

@@ -1 @@
-C0CALERT         ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
+C0CALERT  ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
  ;;1.0;C0C;;May 19, 2009;
  ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
@@ -22 +22 @@
  Q
  ;
-EXTRACT(ALTXML,DFN,ALTOUTXML)   ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
+EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
  ;
  ; ALTXML AND ALTOUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
@@ -108 +108 @@
  . ; NOW GO TO THE GLOBAL TO GET THE DATE/TIME AND BETTER DESCRIPTION
  . N C0CG1,C0CT ; ARRAY FOR VALUES FROM GLOBAL
- . D GETN1^C0CRNF("C0CG1",120.8,DFN,"B") ;GET VALUES BY NAME
+ . D GETN1^C0CRNF("C0CG1",120.8,ALTTMP,"") ;GET VALUES BY NAME
  . S C0CT=$$ZVALUEI^C0CRNF("ORIGINATION DATE/TIME","C0CG1")
- . S @ALTVMAP@("ALERTDATETIME")=$$FMDTOUTC^C0CUTIL(C0CT)
+ . S @ALTVMAP@("ALERTDATETIME")=$$FMDTOUTC^C0CUTIL(C0CT,"DT")
  . K @ALTARYTMP
  . D MAP^C0CXPATH(ALTXML,ALTVMAP,ALTARYTMP)
@@ -118 +118 @@
  S @ALTTVMAP@(0)=ALTCNT-1 ; RECORD THE NUMBER OF ALERTS
  Q
-PRSGLB(INGLB)   ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
+PRSGLB(INGLB) ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
  ; INGLB IS OF THE FORM: PSNDF(50.6,
  ; RETURN 50.6