Changeset 228 for ccr


Ignore:
Timestamp:
Oct 26, 2008, 3:27:11 PM (16 years ago)
Author:
George Lilly
Message:

revising Alerts

Location:
ccr/trunk/p
Files:
1 added
1 edited

Legend:

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

    r214 r228  
    7575    S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
    7676    I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
    77     I '$D(TESTALERT) S TESTALERT=0 ; FLAG FOR TESTING ALERTS SECTION
     77    I '$D(TESTALERT) S TESTALERT=1 ; FLAG FOR TESTING ALERTS SECTION
    7878    I '$D(TESTMEDS) S TESTMEDS=0 ; FLAG FOR TESTING CCRMEDS SECTION
    7979    S TGLOBAL=$NA(^TMP("GPLCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
     
    109109    . ; W OXML,!
    110110    . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL
    111     . I DEBUG W "RUNNING ",CALL,!
     111    . W "RUNNING ",CALL,!
    112112    . X CALL
    113113    . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
     
    136136    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
    137137    I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
    138     I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
     138    I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALER2;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
    139139    Q
    140140    ;
Note: See TracChangeset for help on using the changeset viewer.