Index: ccr/trunk/p/GPLVITAL.m
===================================================================
--- ccr/trunk/p/GPLVITAL.m	(revision 131)
+++ ccr/trunk/p/GPLVITAL.m	(revision 132)
@@ -28,8 +28,8 @@
           N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR
           D VITALS^ORQQVI(.VITRSLT,DFN,"","")
-          I $P(VITRSLT(1),U,2)="No vitals found." D  ; NULL RESULT FROM RPC
+          I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q  ; RETURN NOT FOUND AND QUIT
+          I $P(VITRSLT(1),U,2)="No vitals found." D  Q  ; NULL RESULT FROM RPC
           . W "NO VITALS FOUND FROM VITALS RPC",!
           . S @VITOUTXML@(0)=0
-          . Q
           I $P(VITRSLT(1),U,2)="No vitals found." Q  ; QUIT
           ; ZWR RPCRSLT