Changeset 132
- Timestamp:
- Sep 2, 2008, 4:32:17 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLVITAL.m
r122 r132 28 28 N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR 29 29 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 31 32 . W "NO VITALS FOUND FROM VITALS RPC",! 32 33 . S @VITOUTXML@(0)=0 33 . Q34 34 I $P(VITRSLT(1),U,2)="No vitals found." Q ; QUIT 35 35 ; ZWR RPCRSLT
Note:
See TracChangeset
for help on using the changeset viewer.