Changeset 132 for ccr/trunk/p/GPLVITAL.m


Ignore:
Timestamp:
Sep 2, 2008, 4:32:17 PM (16 years ago)
Author:
George Lilly
Message:

check for no array returned from VITALS RPC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLVITAL.m

    r122 r132  
    2828          N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR
    2929          D VITALS^ORQQVI(.VITRSLT,DFN,"","")
    30           I $P(VITRSLT(1),U,2)="No vitals found." D  ; NULL RESULT FROM RPC
     30          I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q  ; RETURN NOT FOUND AND QUIT
     31          I $P(VITRSLT(1),U,2)="No vitals found." D  Q  ; NULL RESULT FROM RPC
    3132          . W "NO VITALS FOUND FROM VITALS RPC",!
    3233          . S @VITOUTXML@(0)=0
    33           . Q
    3434          I $P(VITRSLT(1),U,2)="No vitals found." Q  ; QUIT
    3535          ; ZWR RPCRSLT
Note: See TracChangeset for help on using the changeset viewer.