- 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 Mar 13, 2025@21:03:25 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
