GMVHB4 ;HIOFO/YH,FT-HP LASER B/P GRAPH - ^TMP DATA ;11/6/01 15:37
;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
;
; This routine uses the following IAs:
; <None>
;
SETA ;
I GK="Unavailable" S GK="Unavail"
S (GMRSITE,GMRSITE(1),GMRSITE(2),GMRINF,GMRVJ)=""
I GK'="" D
. S GMRSITE(1)=$P($G(^TMP($J,"GMRVG",GI,GDT1,GK)),"^"),GMRVJ=$P($G(^(GK)),"^",2),GMRINF=$P($G(^(GK)),"^",4)
. I GMRSITE(1)'="" D SYNOARY^GMVLGQU
I GI="C" S ^TMP($J,"GMRK","G"_(1240+GCNTD))=GK_^TMP($J,"GMRK","G"_(1240+GCNTD)) Q
I GK'="" S GK=GK_$S(GMRVJ=1:"*",1:" ")
I GI="B" S ^TMP($J,"GMRK","G"_(450+GCNTD))=$S($L(GMRSITE," ")>3:$P(GMRSITE," ",2,4),1:GMRSITE),^TMP($J,"GMRK","G"_(GJ*16+GCNTD+1))=GK S:$L(GMRSITE," ")>3 ^TMP($J,"GMRK","G"_(1240+GCNTD))=" "_$P(GMRSITE," ") Q
I GI="P" D Q
. S ^TMP($J,"GMRK","G"_(GJ+1*16+GCNTD+1))=GK_" "_$S($L(GMRSITE," ")>3:$P(GMRSITE," "),1:"")
. S ^TMP($J,"GMRK","G"_(1120+GCNTD))=$S($L(GMRSITE," ")>3:$P(GMRSITE," ",2,4),1:GMRSITE)
I GI="M" S ^TMP($J,"GMRK","G"_(1220+GCNTD))=GK Q
I GI="S"!(GI="D") S ^TMP($J,"GMRK","G"_(GJ*16+GCNTD+1))=$S(GK>0:GK-40/10,1:"") S ^TMP($J,"GMRK","G"_(GJ+1*16+GCNTD+1))=GK
I GI="S",GK>0 S ^TMP($J,"GMRK","G"_(1200+GCNTD))=$S(GK["*":"S*",1:"S")
I GI="D",GK>0 S ^TMP($J,"GMRK","G"_(1100+GCNTD))=$S(GK["*":"D*",1:"D")
I GK>0,GI="S" S ^TMP($J,"GMRK","G"_(GJ*16+GCNTD+1))=$S(^("G"_(GJ*16+GCNTD+1))<0.4:0.4,^("G"_(GJ*16+GCNTD+1))>18.5:18.5,1:^("G"_(GJ*16+GCNTD+1))) S:^("G"_(GJ*16+GCNTD+1))<0.5!(^("G"_(GJ*16+GCNTD+1))>18.4) ^TMP($J,"GMRK","G"_(1200+GCNTD))="S**"
I GK>0,GI="D" S ^TMP($J,"GMRK","G"_(GJ*16+GCNTD+1))=$S(^("G"_(GJ*16+GCNTD+1))<0.4:0.4,^("G"_(GJ*16+GCNTD+1))>18.5:18.5,1:^("G"_(GJ*16+GCNTD+1))) S:^("G"_(GJ*16+GCNTD+1))<0.5!(^("G"_(GJ*16+GCNTD+1))>18.4) ^TMP($J,"GMRK","G"_(1100+GCNTD))="D**"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVHB4 1785 printed Dec 13, 2024@01:59:07 Page 2
GMVHB4 ;HIOFO/YH,FT-HP LASER B/P GRAPH - ^TMP DATA ;11/6/01 15:37
+1 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
+2 ;
+3 ; This routine uses the following IAs:
+4 ; <None>
+5 ;
SETA ;
+1 IF GK="Unavailable"
SET GK="Unavail"
+2 SET (GMRSITE,GMRSITE(1),GMRSITE(2),GMRINF,GMRVJ)=""
+3 IF GK'=""
Begin DoDot:1
+4 SET GMRSITE(1)=$PIECE($GET(^TMP($JOB,"GMRVG",GI,GDT1,GK)),"^")
SET GMRVJ=$PIECE($GET(^(GK)),"^",2)
SET GMRINF=$PIECE($GET(^(GK)),"^",4)
+5 IF GMRSITE(1)'=""
DO SYNOARY^GMVLGQU
End DoDot:1
+6 IF GI="C"
SET ^TMP($JOB,"GMRK","G"_(1240+GCNTD))=GK_^TMP($JOB,"GMRK","G"_(1240+GCNTD))
QUIT
+7 IF GK'=""
SET GK=GK_$SELECT(GMRVJ=1:"*",1:" ")
+8 IF GI="B"
SET ^TMP($JOB,"GMRK","G"_(450+GCNTD))=$SELECT($LENGTH(GMRSITE," ")>3:$PIECE(GMRSITE," ",2,4),1:GMRSITE)
SET ^TMP($JOB,"GMRK","G"_(GJ*16+GCNTD+1))=GK
if $LENGTH(GMRSITE," ")>3
SET ^TMP($JOB,"GMRK","G"_(1240+GCNTD))=" "_$PIECE(GMRSITE," ")
QUIT
+9 IF GI="P"
Begin DoDot:1
+10 SET ^TMP($JOB,"GMRK","G"_(GJ+1*16+GCNTD+1))=GK_" "_$SELECT($LENGTH(GMRSITE," ")>3:$PIECE(GMRSITE," "),1:"")
+11 SET ^TMP($JOB,"GMRK","G"_(1120+GCNTD))=$SELECT($LENGTH(GMRSITE," ")>3:$PIECE(GMRSITE," ",2,4),1:GMRSITE)
End DoDot:1
QUIT
+12 IF GI="M"
SET ^TMP($JOB,"GMRK","G"_(1220+GCNTD))=GK
QUIT
+13 IF GI="S"!(GI="D")
SET ^TMP($JOB,"GMRK","G"_(GJ*16+GCNTD+1))=$SELECT(GK>0:GK-40/10,1:"")
SET ^TMP($JOB,"GMRK","G"_(GJ+1*16+GCNTD+1))=GK
+14 IF GI="S"
IF GK>0
SET ^TMP($JOB,"GMRK","G"_(1200+GCNTD))=$SELECT(GK["*":"S*",1:"S")
+15 IF GI="D"
IF GK>0
SET ^TMP($JOB,"GMRK","G"_(1100+GCNTD))=$SELECT(GK["*":"D*",1:"D")
+16 IF GK>0
IF GI="S"
SET ^TMP($JOB,"GMRK","G"_(GJ*16+GCNTD+1))=$SELECT(^("G"_(GJ*16+GCNTD+1))<0.4:0.4,^("G"_(GJ*16+GCNTD+1))>18.5:18.5,1:^("G"_(GJ*16+GCNTD+1)))
if ^("G"_(GJ*16+GCNTD+1))<0.5!(^("G"_(GJ*16+GCNTD+1))>18.4)
SET ^TMP($JOB,"GMRK","G"_(1200+GCNTD))="S**"
+17 IF GK>0
IF GI="D"
SET ^TMP($JOB,"GMRK","G"_(GJ*16+GCNTD+1))=$SELECT(^("G"_(GJ*16+GCNTD+1))<0.4:0.4,^("G"_(GJ*16+GCNTD+1))>18.5:18.5,1:^("G"_(GJ*16+GCNTD+1)))
if ^("G"_(GJ*16+GCNTD+1))<0.5!(^("G"_(GJ*16+GCNTD+1))>18.4)
SET ^TMP($JOB,"GMRK","G"_(1100+GCNTD))="D**"
+18 QUIT
