Changeset 563 for ccr


Ignore:
Timestamp:
Sep 15, 2009, 3:25:58 PM (15 years ago)
Author:
George Lilly
Message:

some changes to make Vitals work

File:
1 edited

Legend:

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

    r562 r563  
    3333 D DT^DILF(,C0CVSTRT,.C0CSDT) ;
    3434 W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,!
    35  I $$SYSNAME^C0CSYS()="RPMS" D VITRPMS E  D VITVISTA
     35 I $$RPMS^C0CUTIL() D VITRPMS QUIT
     36 I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VITVISTA QUIT
     37 ;I $$SYSNAME^C0CSYS()="RPMS" D VITRPMS
     38 ;E  D VITVISTA
    3639 Q
    3740 ;
    3841VITVISTA        ; EXTRACT VITALS FROM VISTA INTO PROVIDED XML TEMPLATE
    39  D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
     42 ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
     43 D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT) ; GPL LET GMR HANDLE THE DATES
    4044 I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q  ; RETURN NOT FOUND AND QUIT
    4145 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.