GMVDS2 ;HOIFO/RM,YH,FT-VITAL SIGNS DISPLAY ;6/7/07
;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25
;
; This routine uses the following IAs:
; #4290 - ^PXRMINDX global (controlled)
; #10104 - ^XLFSTR calls (supported)
;
;SETBP ; {called from GMVDS0}
;S GDT=GMRDAT,GDATE=GMRDAT+.00000014
;F S GMRDAT=$O(^PXRMINDX(120.5,"PI",DFN,GMR(X),GMRDAT)) Q:GMRDAT'>0!(GMRDAT>GDATE) S Y=0 F S Y=$O(^PXRMINDX(120.5,"PI",DFN,GMR(X),GMRDAT,Y),-1) Q:$L(Y)'>0 D
;.I Y=+Y D
;..D F1205^GMVUTL(.GMVCLIO,Y)
;.I Y'=+Y D
;..D CLIO^GMVUTL(.GMVCLIO,Y)
;.S GMVCLIO(0)=$G(GMVCLIO(0)),GMVCLIO(5)=$G(GMVCLIO(5))
;.I GMVCLIO(0)=""!($P(GMVCLIO(0),U,8)="") Q
;.S GMRL=GMVCLIO(0)
;.S GMVLOOP=0,GMVQLIST=""
;.F GMVLOOP=1:1 Q:$P(GMVCLIO(5),U,GMVLOOP)="" D
;..S GMVQNAME=$$FIELD^GMVGETQL(GMVLOOP,1,"E")
;..I GMVQNAME=""!(GMVQNAME=-1) Q
;..S GMVQLIST=GMVQLIST_$S(GMVQLIST'="":",",1:"")_GMVQNAME
;.D:X="BP" SETNODE^GMVDS0
;.D:X="P" SETP
;.Q
;S GMRDAT=GDT K GDT,GDATE
;Q
;SETP ;DISPLAY MULTIPLE PULSE
;S GMRL=GMVCLIO(0)
;N GG S GG=$P(GMRL,"^",8),OK=0 D Q:'OK
;.I "REFUSEDPASSUNAVAILABLE"[$$UP^XLFSTR(GG) Q
;.I GMVCLIO(5)="" S OK=1 Q
;.I $P(GMVCLIO(5),U,GMVLOOP)=GAPICAL S OK=1 Q
;.I $P(GMVCLIO(5),U,GMVLOOP)=GBRACHI S OK=1 Q
;.I $P(GMVCLIO(5),U,GMVLOOP)=GRADIAL S OK=1
;S GMRL1=$P(GMRL,"^") ;adding trailing zeros to time if necessary
;S $P(GMRL1,".",2)=$P(GMRL1,".",2)_"0000"
;S $P(GMRL1,".",2)=$E($P(GMRL1,".",2),1,4)
;S $P(GMRL,"^")=GMRL1
;K GMRL1
;I GMRL'="" D
;.S GMRDATA(X,$P(GMRL,"^"),Y)=$P(GMRL,"^",8),GMRDATS=1
;.S GMRVARY(X,$P(GMRL,U,1),Y)=GMVQLIST
;.Q
;Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVDS2 1643 printed Nov 22, 2024@17:08:48 Page 2
GMVDS2 ;HOIFO/RM,YH,FT-VITAL SIGNS DISPLAY ;6/7/07
+1 ;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #4290 - ^PXRMINDX global (controlled)
+5 ; #10104 - ^XLFSTR calls (supported)
+6 ;
+7 ;SETBP ; {called from GMVDS0}
+8 ;S GDT=GMRDAT,GDATE=GMRDAT+.00000014
+9 ;F S GMRDAT=$O(^PXRMINDX(120.5,"PI",DFN,GMR(X),GMRDAT)) Q:GMRDAT'>0!(GMRDAT>GDATE) S Y=0 F S Y=$O(^PXRMINDX(120.5,"PI",DFN,GMR(X),GMRDAT,Y),-1) Q:$L(Y)'>0 D
+10 ;.I Y=+Y D
+11 ;..D F1205^GMVUTL(.GMVCLIO,Y)
+12 ;.I Y'=+Y D
+13 ;..D CLIO^GMVUTL(.GMVCLIO,Y)
+14 ;.S GMVCLIO(0)=$G(GMVCLIO(0)),GMVCLIO(5)=$G(GMVCLIO(5))
+15 ;.I GMVCLIO(0)=""!($P(GMVCLIO(0),U,8)="") Q
+16 ;.S GMRL=GMVCLIO(0)
+17 ;.S GMVLOOP=0,GMVQLIST=""
+18 ;.F GMVLOOP=1:1 Q:$P(GMVCLIO(5),U,GMVLOOP)="" D
+19 ;..S GMVQNAME=$$FIELD^GMVGETQL(GMVLOOP,1,"E")
+20 ;..I GMVQNAME=""!(GMVQNAME=-1) Q
+21 ;..S GMVQLIST=GMVQLIST_$S(GMVQLIST'="":",",1:"")_GMVQNAME
+22 ;.D:X="BP" SETNODE^GMVDS0
+23 ;.D:X="P" SETP
+24 ;.Q
+25 ;S GMRDAT=GDT K GDT,GDATE
+26 ;Q
+27 ;SETP ;DISPLAY MULTIPLE PULSE
+28 ;S GMRL=GMVCLIO(0)
+29 ;N GG S GG=$P(GMRL,"^",8),OK=0 D Q:'OK
+30 ;.I "REFUSEDPASSUNAVAILABLE"[$$UP^XLFSTR(GG) Q
+31 ;.I GMVCLIO(5)="" S OK=1 Q
+32 ;.I $P(GMVCLIO(5),U,GMVLOOP)=GAPICAL S OK=1 Q
+33 ;.I $P(GMVCLIO(5),U,GMVLOOP)=GBRACHI S OK=1 Q
+34 ;.I $P(GMVCLIO(5),U,GMVLOOP)=GRADIAL S OK=1
+35 ;S GMRL1=$P(GMRL,"^") ;adding trailing zeros to time if necessary
+36 ;S $P(GMRL1,".",2)=$P(GMRL1,".",2)_"0000"
+37 ;S $P(GMRL1,".",2)=$E($P(GMRL1,".",2),1,4)
+38 ;S $P(GMRL,"^")=GMRL1
+39 ;K GMRL1
+40 ;I GMRL'="" D
+41 ;.S GMRDATA(X,$P(GMRL,"^"),Y)=$P(GMRL,"^",8),GMRDATS=1
+42 ;.S GMRVARY(X,$P(GMRL,U,1),Y)=GMVQLIST
+43 ;.Q
+44 ;Q
