Changeset 151 for ccr/trunk/p


Ignore:
Timestamp:
Sep 12, 2008, 4:09:31 PM (16 years ago)
Author:
George Lilly
Message:

added Alerts to CCR processing on a switch - TESTALERTS=1 ;also ZTESTGPLCCR("ALERTS")

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r150 r151  
    3232          ; ORQQPP LIST
    3333          ;
    34 
     34        W "GOT TO ALERTS",!
     35        M @ALTOUTXML=@ALTXML ; JUST COPY THE TEMPLATE FOR TESTING ..GPL
    3536          Q ; QUIT
    3637          ; BELOW CODE REMAINS FOR MY KNOWLEDGE AS TEMPLATE
  • ccr/trunk/p/GPLCCR.m

    r147 r151  
    5353    S G1=$NA(^TMP("GPLCCR",$J,DFN,"CCR"))
    5454    I $D(@G1@(0)) D  ; CCR EXISTS
    55     D PARY^GPLXPATH(G1)
     55    . D PARY^GPLXPATH(G1)
     56    E  W "CCR NOT CREATED, RUN D XPAT^GPLCCR(DFN,"""","""") FIRST",!
    5657    Q
    5758    ;
     
    7071    S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
    7172    I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
     73    I '$D(TESTALERT) S TESTALERT=0 ; FLAG FOR TESTING ALERTS SECTION
    7274    S TGLOBAL=$NA(^TMP("GPLCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
    7375    S CCRGLO=$NA(^TMP("GPLCCR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
     
    127129    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
    128130    I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
     131    I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
    129132    Q
    130133    ;
     
    214217 ;;>>>D ZTEST^GPLCCR("CCR")
    215218 ;;>>>W $$TRIM^GPLXPATH(CCRGLO)
     219 ;;><ALERTS>
     220 ;;>>>S TESTALERT=1
     221 ;;>>>K GPL S GPL=""
     222 ;;>>>D CCRRPC^GPLCCR(.GPL,"2","ALERTS","","","")
     223 ;;>>?@GPL@(@GPL@(0))["</Alerts>"
     224 
Note: See TracChangeset for help on using the changeset viewer.