Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRVUT3

GMRVUT3.m

Go to the documentation of this file.
  1. GMRVUT3 ;HIRMFO/YH,FT-VITAL MEASUREMENT SITE/QUALIFIER SELECTIO ;6/13/01 10:12
  1. ;;4.0;Vitals/Measurements;**1,11,13**;Apr 25, 1997
  1. SETSITE ;SET THE V/M SITE FOR THE VARIAVLE GMRSITE
  1. ;GMRV WAS SET BY THE CALLING ROUTINE
  1. N G S G="" F S G=$O(GMRW(G)) Q:G="" I $E(G,1,$L(GMRSITE))=GMRSITE S GMRV=GMRV+1,GMRV(GMRV)=G
  1. Q:GMRV=0 I GMRV=1 S (GMRSITE(GMRVITY),GMRSITE)=GMRV(GMRV)_"^"_$G(GMRW(GMRV(GMRV))) Q
  1. ASK W !!,GMRVIT(1)_":",! S G=0 F S G=$O(GMRV(G)) Q:G'>0 W !,?5,G_". "_GMRV(+G)
  1. W !!,"Select a number between 1 and "_GMRV_": " S G(1)=0 R G(1):DTIME I '$T!(G(1)["^") S GMROUT=1 Q
  1. I $L(G(1))>3 G ASK
  1. I '$D(GMRV(+G(1))) G ASK
  1. S (GMRSITE,GMRSITE(GMRVITY))=GMRV(+G(1))_"^"_$G(GMRW(GMRV(+G(1))))
  1. Q
  1. ROOMSEL ;
  1. W ! W:$G(GMRMSL($G(I(1))))'="" I(1),". ",?6,$G(GMRMSL(I(1))) W:$G(GMRMSL($G(I(2))))'="" ?16,I(2),". ",$G(GMRMSL(I(2))) W:$G(GMRMSL($G(I(3))))'="" ?33,I(3),". ",$G(GMRMSL(I(3)))
  1. W:$G(GMRMSL($G(I(4))))'="" ?49,I(4),". ",$G(GMRMSL(I(4))) W:$G(GMRMSL($G(I(5))))'="" ?65,I(5),". ",$G(GMRMSL(I(5)))
  1. S I(1)=(I(1)+1),I(2)=(I(2)+1),I(3)=(I(3)+1),I(4)=(I(4)+1),I(5)=(I(5)+1)
  1. Q
  1. GIRTH ;INPUT TRANSFORM FOR CIRCUMFERENCE/GIRTH
  1. Q:"UNAVAILABLEPASSREFUSED"[$$UP^XLFSTR(X) N UNIT S UNIT=$$UP^XLFSTR($P(X,+X,2)),X=+X I UNIT="" S UNIT="I" Q
  1. I UNIT="C" S X=$J(.3937*X,0,2),UNIT="I"
  1. I UNIT'="I" K X Q
  1. K:+X'=X!(X>200)!(X<0) X
  1. Q
  1. CVP ;INPUT TRANSFORM FOR CVP
  1. Q:"UNAVAILABLEPASSREFUSED"[$$UP^XLFSTR(X) N UNIT S UNIT=$$UP^XLFSTR($P(X,+X,2)) I $L(UNIT)>1!($L(UNIT)=1&($E(UNIT)'="G")) K X Q
  1. I UNIT'="" S X=X*1.36
  1. K:X<-13.6!(X>136) X
  1. Q
  1. O2 ;SUPPLEMENTAL O2 FOR PULSE OXIMETRY
  1. N %,GMRV,GMRZ,GMRX,GMRY S (GMRSITE(GMRVITY),GMRINF(GMRVITY),GMRO2(GMRVITY))=""
  1. ASKO2 S %=1 W !,"Is the patient on supplemental oxygen" D YN^DICN I %<0 S GMROUT=1 Q
  1. I %=0 G ASKO2
  1. Q:%=2
  1. ASKINF W !!,"Enter the numeric value(s) for amount of supplemental oxygen provided",!,"(Separate values with a ',') : "
  1. S GMRV="" R GMRV:DTIME I '$T!(GMRV["^") S GMROUT=1 Q
  1. I $L(GMRV)>15 G ASKINF
  1. I GMRV["?" W !!,"Enter a number between 0.5-20 for liters/minute, and/or ",!,?23,"21-100 for percent of oxygen concentration.",!,"If you wish to enter both rates, separate the values with a ','.",! G ASKINF
  1. Q:GMRV=""
  1. S GMRZ=0 D CHECK I GMRZ W !!,"ERROR ENTRY!",! G ASKINF
  1. I (GMRX["l/min"&(GMRY["l/min"))!(GMRX["%"&(GMRY["%")) W !!,"ERROR ENTRY!" G ASKINF
  1. I GMRY'="" D
  1. .N GMRVPO
  1. .I GMRX'["l/min",(GMRY["l/min") S:GMRX["%" GMRVPO=GMRY,GMRY=GMRX,GMRX=GMRVPO
  1. .Q
  1. S GMRO2(GMRVITY)=GMRX S:GMRY'="" GMRO2(GMRVITY)=GMRO2(GMRVITY)_$S(GMRO2(GMRVITY)="":"",1:" ")_GMRY S:GMRO2(GMRVITY)'="" GMRO2(GMRVITY)=GMRO2(GMRVITY)
  1. S GLVL=8 D LISTQ^GMRVQUAL
  1. Q:'$D(GCHART1)
  1. ASKM S GMRV=$O(GCOUNT(1,GMRV))
  1. N GMRVSAVE
  1. S GMRVSAVE=GMRV
  1. ASKM1 S GMRV=GMRVSAVE
  1. W !,"Oxygen is supplied by",!
  1. F I=1:1:GCOUNT(1,GMRV) W !,?5,I_" "_$P(GCHART1(I),"^")
  1. W !,"Enter a number: " S GMRV="" R GMRV:DTIME I '$T!(GMRV["^") S GMROUT=1 Q
  1. I $L(GMRV)>3 G ASKM1
  1. I $D(GCHART1(+GMRV)) S GMRSITE(GMRVITY)=GCHART1(+GMRV) Q
  1. I '$D(GCHART1(+GMRV)) G ASKM1
  1. I GMRV["?" G ASKM1
  1. Q
  1. CHECK ;
  1. S GMRY=$P($G(GMRV),","),GMRX=$P($G(GMRV),",",2)
  1. I GMRX'="" D O2DATA(.GMRX,.GMRZ) Q:GMRZ
  1. I GMRY'="" D O2DATA(.GMRY,.GMRZ)
  1. Q
  1. O2DATA(I,J) ;
  1. I '(I>0&(I<100.001)) S J=1 Q
  1. I I<20.01,I?0.3N0.1"."0.1N S I=I_" l/min" Q
  1. I I>20&(I<100.001),I?1.3N S I=I_"%" Q
  1. S J=1
  1. Q