Changeset 590 for ccr


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

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CALERT.m

    r508 r590  
    1 C0CALERT        ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
     1C0CALERT  ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
    22 ;;1.0;C0C;;May 19, 2009;
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
     
    2222 Q
    2323 ;
    24 EXTRACT(ALTXML,DFN,ALTOUTXML)   ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
     24EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
    2525 ;
    2626 ; ALTXML AND ALTOUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
     
    108108 . ; NOW GO TO THE GLOBAL TO GET THE DATE/TIME AND BETTER DESCRIPTION
    109109 . N C0CG1,C0CT ; ARRAY FOR VALUES FROM GLOBAL
    110  . D GETN1^C0CRNF("C0CG1",120.8,DFN,"B") ;GET VALUES BY NAME
     110 . D GETN1^C0CRNF("C0CG1",120.8,ALTTMP,"") ;GET VALUES BY NAME
    111111 . S C0CT=$$ZVALUEI^C0CRNF("ORIGINATION DATE/TIME","C0CG1")
    112  . S @ALTVMAP@("ALERTDATETIME")=$$FMDTOUTC^C0CUTIL(C0CT)
     112 . S @ALTVMAP@("ALERTDATETIME")=$$FMDTOUTC^C0CUTIL(C0CT,"DT")
    113113 . K @ALTARYTMP
    114114 . D MAP^C0CXPATH(ALTXML,ALTVMAP,ALTARYTMP)
     
    118118 S @ALTTVMAP@(0)=ALTCNT-1 ; RECORD THE NUMBER OF ALERTS
    119119 Q
    120 PRSGLB(INGLB)   ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
     120PRSGLB(INGLB) ; EXTRINSIC TO PARSE GLOBALS AND RETURN THE FILE NUMBER
    121121 ; INGLB IS OF THE FORM: PSNDF(50.6,
    122122 ; RETURN 50.6
Note: See TracChangeset for help on using the changeset viewer.