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

GMVKPO1.m

Go to the documentation of this file.
  1. GMVKPO1 ;HIOFO/YH,FT-KYOCERA PULSE OXIMETRY/RESP. GRAPH - GRAPH DATA ;11/6/01 14:56
  1. ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #10104 - ^XLFSTR calls (supported)
  1. ;
  1. SETA ;
  1. I GK="Unavailable" S GK="Unavail"
  1. S (GMRSITE,GMRSITE(1),GMRSITE(2),GMRINF,GMRVJ)=""
  1. I GK'="" D
  1. . S GMRSITE(1)=$P($G(^TMP($J,"GMRVG",GI,GDT1,GK)),"^"),GMRVJ=$P($G(^(GK)),"^",2),GMRINF=$P($G(^(GK)),"^",4)
  1. . I GMRSITE(1)'="" D SYNOARY^GMVLGQU
  1. I GK'="","UNAVAILABLEPASSREFUSED"'[$$UP^XLFSTR(GK) S GK=GK_$S(GMRVJ=1:"*",1:" ")
  1. I GI="P" S ^TMP($J,"GMRK","G"_(310+GCNTD))=GK_$S($L(GMRSITE," ")>3:$P(GMRSITE," "),1:""),^TMP($J,"GMRK","G"_(330+GCNTD))=$S($L(GMRSITE," ")>3:$P(GMRSITE," ",2,4),1:GMRSITE) Q
  1. I GI="PO2" D
  1. . S (GMRINF(1),GMRINF(2))="" I GMRINF'="" D PO2^GMVLGQU(.GMRINF)
  1. . S ^TMP($J,"GMRK","G"_(1430+GCNTD))=GMRINF(1)
  1. . S ^TMP($J,"GMRK","G"_(1450+GCNTD))=GMRINF(2)
  1. . S ^TMP($J,"GMRK","G"_(1470+GCNTD))=GMRSITE
  1. S ^TMP($J,"GMRK","G"_(GJ+GCNTD+1))=$S(GK>0:$S(GI="R":44-GK/2,GI="PO2":104-GK/2,1:""),1:"") S ^TMP($J,"GMRK","G"_(GJ+200+GCNTD+1))=$S(+GK=0.1:"0*",1:GK)_$S(GI="R":GMRSITE,1:"")
  1. I GI="R",GK>0 S ^TMP($J,"GMRK","G"_(410+GCNTD))=$S(GK["*":"R*",1:"R")
  1. I GI="PO2",GK>0 S ^TMP($J,"GMRK","G"_(430+GCNTD))=$S(GK["*":"POx*",1:"POx")
  1. I GK>0,GI="R" S ^TMP($J,"GMRK","G"_(GJ+GCNTD+1))=$S(^("G"_(GJ+GCNTD+1))<1.5:1.5,^("G"_(GJ+GCNTD+1))>19.7:19.7,1:^("G"_(GJ+GCNTD+1))) S:^("G"_(GJ+GCNTD+1))<1.6!(^("G"_(GJ+GCNTD+1))>19.6) ^TMP($J,"GMRK","G"_(410+GCNTD))="R**"
  1. I GK>0,GI="PO2" S ^TMP($J,"GMRK","G"_(GJ+GCNTD+1))=$S(^("G"_(GJ+GCNTD+1))<1.5:1.5,^("G"_(GJ+GCNTD+1))>19.7:19.7,1:^("G"_(GJ+GCNTD+1))) S:^("G"_(GJ+GCNTD+1))<1.6!(^("G"_(GJ+GCNTD+1))>19.6) ^TMP($J,"GMRK","G"_(430+GCNTD))="POx**"
  1. Q