Changeset 562 for ccr/trunk/p/C0CVITAL.m
- Timestamp:
- Sep 15, 2009, 1:48:00 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CVITAL.m
r560 r562 204 204 D QUERY^BEHOVM("LISTX") ; RUN QUERY VITALS CALL 205 205 I '$D(^TMP("CIAVMRPC",$J)) S @VITOUTXML@(0)=0 Q ; RETURN NOT FOUND AND QUIT 206 ZW ^TMP("CIAVMRPC",$J)206 ;ZW ^TMP("CIAVMRPC",$J) 207 207 S VITTVMAP=$NA(^TMP("C0CCCR",$J,"VITALS")) 208 208 S VITTARYTMP=$NA(^TMP("C0CCCR",$J,"VITALARYTMP"))
Note:
See TracChangeset
for help on using the changeset viewer.