source: FOIAVistA/trunk/r/GEN_MED_OTHER-GMV/GMVHB4.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 1.7 KB
Line 
1GMVHB4 ;HIOFO/YH,FT-HP LASER B/P GRAPH - ^TMP DATA ;11/6/01 15:37
2 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; <None>
6 ;
7SETA ;
8 I GK="Unavailable" S GK="Unavail"
9 S (GMRSITE,GMRSITE(1),GMRSITE(2),GMRINF,GMRVJ)=""
10 I GK'="" D
11 . S GMRSITE(1)=$P($G(^TMP($J,"GMRVG",GI,GDT1,GK)),"^"),GMRVJ=$P($G(^(GK)),"^",2),GMRINF=$P($G(^(GK)),"^",4)
12 . I GMRSITE(1)'="" D SYNOARY^GMVLGQU
13 I GI="C" S ^TMP($J,"GMRK","G"_(1240+GCNTD))=GK_^TMP($J,"GMRK","G"_(1240+GCNTD)) Q
14 I GK'="" S GK=GK_$S(GMRVJ=1:"*",1:" ")
15 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
16 I GI="P" D Q
17 . S ^TMP($J,"GMRK","G"_(GJ+1*16+GCNTD+1))=GK_" "_$S($L(GMRSITE," ")>3:$P(GMRSITE," "),1:"")
18 . S ^TMP($J,"GMRK","G"_(1120+GCNTD))=$S($L(GMRSITE," ")>3:$P(GMRSITE," ",2,4),1:GMRSITE)
19 I GI="M" S ^TMP($J,"GMRK","G"_(1220+GCNTD))=GK Q
20 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
21 I GI="S",GK>0 S ^TMP($J,"GMRK","G"_(1200+GCNTD))=$S(GK["*":"S*",1:"S")
22 I GI="D",GK>0 S ^TMP($J,"GMRK","G"_(1100+GCNTD))=$S(GK["*":"D*",1:"D")
23 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**"
24 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**"
25 Q
Note: See TracBrowser for help on using the repository browser.