| 1 | GMRVDS2 ;HIRMFO/RM,YH-VITAL SIGNS DISPLAY ;3/9/99
|
|---|
| 2 | ;;4.0;Vitals/Measurements;**11**;Apr 25, 1997
|
|---|
| 3 | PRNT ;
|
|---|
| 4 | S GMRI=0 F S GMRI=$O(GMRLIN(GMRI)) Q:GMRI'>0 D WRT2^GMRVDS1:$D(GLOC)&(IOSL<($Y+6)) W ! F GMRJ=1:1:5 S GMRSP=$S(GMRJ'=1:7+((GMRJ-2)*16),1:0) D
|
|---|
| 5 | .I GMRI=1 W ?GMRSP,$P(GMRLIN(GMRI),"^",GMRJ)
|
|---|
| 6 | .E D
|
|---|
| 7 | ..I GMRJ=1 W:'$D(GLIN($P(GMRLIN(GMRI),"^"))) ?GMRSP,$P(GMRLIN(GMRI),"^") S:'$D(GLIN($P(GMRLIN(GMRI),"^"))) GLIN($P(GMRLIN(GMRI),"^"))=""
|
|---|
| 8 | ..E W ?GMRSP,$P(GMRLIN(GMRI),"^",GMRJ)
|
|---|
| 9 | Q
|
|---|
| 10 | SETBP ;
|
|---|
| 11 | S GDT=GMRDAT,GDATE=GMRDAT+.00000014
|
|---|
| 12 | F S GMRDAT=$O(^GMR(120.5,"AA",DFN,GMR(X),GMRDAT)) Q:GMRDAT'>0!(GMRDAT>GDATE) S Y=0 F S Y=$O(^GMR(120.5,"AA",DFN,GMR(X),GMRDAT,Y)) Q:Y'>0 I '$D(^GMR(120.5,+Y,2)) D:X="BP" SETNODE^GMRVDS0 D:X="P" SETP
|
|---|
| 13 | S GMRDAT=GDT K GDT,GDATE Q
|
|---|
| 14 | STOP ;
|
|---|
| 15 | W !,"Return to continue " K X R X:DTIME I '$T!(X["^") S GMROUT=1
|
|---|
| 16 | W @IOF Q
|
|---|
| 17 | SETP ;dISPLAY MULTIPLE PULSE
|
|---|
| 18 | S GMRL=$S($D(^GMR(120.5,Y,0)):^(0),1:"")
|
|---|
| 19 | N GG S GG=$P(GMRL,"^",8),OK=0 D Q:'OK
|
|---|
| 20 | . I "REFUSEDPASSUNAVAILABLE"[$$UP^XLFSTR(GG) Q
|
|---|
| 21 | . I '$D(^GMR(120.5,Y,5,"B")) S OK=1 Q
|
|---|
| 22 | . I $D(^GMR(120.5,Y,5,"B",GAPICAL)) S OK=1 Q
|
|---|
| 23 | . I $D(^GMR(120.5,Y,5,"B",GBRACHI)) S OK=1 Q
|
|---|
| 24 | . I $D(^GMR(120.5,Y,5,"B",GRADIAL)) S OK=1
|
|---|
| 25 | S GMRL1=$P(GMRL,"^") ;adding trailing zeros to time if necessary
|
|---|
| 26 | S $P(GMRL1,".",2)=$P(GMRL1,".",2)_"0000"
|
|---|
| 27 | S $P(GMRL1,".",2)=$E($P(GMRL1,".",2),1,4)
|
|---|
| 28 | S $P(GMRL,"^")=GMRL1
|
|---|
| 29 | K GMRL1
|
|---|
| 30 | I GMRL'="" S GMRDATA(X,$P(GMRL,"^"),Y)=$P(GMRL,"^",8),GMRDATS=1 I $P($G(^GMR(120.5,Y,5,0)),"^",4)>0 D CHAR^GMRVCHAR(Y,.GMRVARY,GMR(X))
|
|---|
| 31 | Q
|
|---|
