Changeset 265 for ccr


Ignore:
Timestamp:
Nov 8, 2008, 11:43:41 PM (16 years ago)
Author:
George Lilly
Message:

changed number of parameters to EXTRACTGPLLABS(DFN)

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLLABS.m

    r264 r265  
    1818 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
    1919           ;
    20 EXTRACT(LABXML,DFN,LABOUTXML) ; EXTRACT LABS INTO PROVIDED XML TEMPLATE
     20EXTRACT(DFN) ; EXTRACT LABS INTO PROVIDED XML TEMPLATE
    2121 ;
    2222 ; LABXML AND LABOUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
    … …  
    4646 ;
    4747 ; N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR
    48  ; D EXTRACT^GPLLABS(,1,)
     48 ; D EXTRACT^GPLLABS(1)
    4949 I '$D(C0CLB) S C0CLB=$NA(^TMP("GPLCCR",$J,"LABS")) ; BASE GLB FOR LABS VARS
    5050 I '$D(C0CSILENT) S C0CSILENT=0

  • ccr/trunk/p/GPLRIMA.m

    r248 r265  
    396396    N ZZGI
    397397    I WHICH="ALL" D  ; VARIABLES FROM ALL SECTIONS
    398     . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS" D  ; FOR EACH SECTION
     398    . F ZZGI="PROBLEMS","VITALS","MEDS","ALERTS","LABS" D  ; FOR EACH SECTION
    399399    . . D ZGVWRK(ZZGI) ; DO EACH SECTION
    400400    E  D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
Note: See TracChangeset for help on using the changeset viewer.