Changeset 132

Timestamp:

Sep 2, 2008, 4:32:17 PM (16 years ago)

Author:

George Lilly

Message:

check for no array returned from VITALS RPC

File:

• ccr/trunk/p/GPLVITAL.m (modified) (1 diff)

ccr/trunk/p/GPLVITAL.m

@@ -28 +28 @@
           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