Changeset 88 for ccr/trunk/p/GPLVITALS.m

Timestamp:

Aug 12, 2008, 2:45:52 PM (16 years ago)

Author:

George Lilly

Message:

Fixes for CCD narrative and no vitals processing

File:

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

ccr/trunk/p/GPLVITALS.m

@@ -28 +28 @@
           N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF
           D VITALS^ORQQVI(.VITRSLT,DFN,"","")
-          I '$D(VITRSLT(1)) D  ; NULL RESULT FROM RPC
-          . W "NULL RESULT FROM VITALS RPC",!
+          I $P(VITRSLT(1),U,2)="No vitals found." D  ; NULL RESULT FROM RPC
+          . W "NO VITALS FOUND FROM VITALS RPC",!
           . S @VITOUTXML@(0)=0
           . Q