Changeset 569 for ccr/trunk/p/C0CVITAL.m
- Timestamp:
- Sep 22, 2009, 8:48:19 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CVITAL.m
r566 r569 40 40 ; 41 41 VITVISTA ; 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 DATES42 D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT) 43 ;D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT) ; GPL LET GMR HANDLE THE DATES 44 44 I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q ; RETURN NOT FOUND AND QUIT 45 45 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.