Changeset 569 for ccr/trunk


Ignore:
Timestamp:
Sep 22, 2009, 8:48:19 PM (15 years ago)
Author:
George Lilly
Message:

fix for Vitals on VistA

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r555 r569  
    295295 Q
    296296 ;
     297READCSV(PATH,NAME,GLB) ; READ A CSV FILE IN FROM UNIX TO GLB, PASSED BY NAME
     298 ;
     299 Q $$FTG^%ZISH(PATH,NAME,GLB,1)
     300 ;
    297301FILE2CSV(FNUM,FVN)      ; WRITES OUT A FILEMAN FILE TO CSV
    298302 ;
  • ccr/trunk/p/C0CVITAL.m

    r566 r569  
    4040 ;
    4141VITVISTA        ; EXTRACT VITALS FROM VISTA INTO PROVIDED XML TEMPLATE
    42  ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
    43  D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT) ; GPL LET GMR HANDLE THE DATES
     42 D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
     43 ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT) ; GPL LET GMR HANDLE THE DATES
    4444 I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q  ; RETURN NOT FOUND AND QUIT
    4545 I $P(VITRSLT(1),U,2)="No vitals found." D  Q  ; NULL RESULT FROM RPC
Note: See TracChangeset for help on using the changeset viewer.