Changeset 413 for ccr/trunk/p/C0CVITAL.m
- Timestamp:
- Mar 18, 2009, 6:04:50 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CVITAL.m
r405 r413 30 30 S C0CVLMT=$$GET^C0CPARMS("VITLIMIT") ; GET THE LIMIT PARM 31 31 S C0CVSTRT=$$GET^C0CPARMS("VITSTART") ; GET START PARM 32 ;D DT^DILF(,C0CVLMT,.C0CEDT) ;33 ;D DT^DILF(,C0CVSTRT,.C0CSDT) ;32 D DT^DILF(,C0CVLMT,.C0CEDT) ; 33 D DT^DILF(,C0CVSTRT,.C0CSDT) ; 34 34 W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,! 35 D VITALS^ORQQVI(.VITRSLT,DFN,C0C VSTRT,C0CVLMT)35 D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT) 36 36 I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q ; RETURN NOT FOUND AND QUIT 37 37 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.