source: FOIAVistA/trunk/r/GEN_MED_OTHER-GMV/GMVLWT3.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1GMVLWT3 ;HIOFO/YH,FT-DOT MATRIX PATIENT WEIGHT GRAPH - 4 ;9/30/02 15:18
2 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; #10061 - ^VADPT calls (supported)
6 ;
7FOOTER ;PRINT VITAL SIGNS-I/O SHEET FOOTER
8 W ! W:GMRNAM'="" ?$X-3,$E(GMRNAM,1,35) W " "_$P($G(VADM(2)),"^",2)_" "_$P($G(VADM(3)),"^",2)_" "_$P($G(VADM(4)),"^")_" YRS "_$P($G(VADM),"^",2)
9 W ?95,"MEDICAL RECORD" W !,"Unit: "_$S(GMRWARD(1)'="":GMRWARD(1),1:" ")," "_"Room: "_$S($P(VAIN(5),"^")'="":$P($P(VAIN(5),"^"),"-",1,2),1:" "),?95,"WEIGHT CHART"
10 D INP^VADPT S GMRVHLOC=$$HOSPLOC^GMVUTL1(+$G(VAIN(4)))
11 W !,"Division: "_$$DIVISION^GMVUTL1(+GMRVHLOC),?55,"Page "_GMRPGC,?95,"VAF 10-2614f",!
12 W GSTRFIN Q
13STLNP ;
14 S GMR(GMRI)=$O(^TMP($J,"GMRVG",GMRI,GMRDT,"")) Q:GMR(GMRI)=""
15 S (GMRSITE,GMRSITE(1),GMRINF,GMRVJ)=""
16 S GMRSITE(1)=$P($G(^TMP($J,"GMRVG",GMRI,GMRDT,GMR(GMRI))),"^"),GMRSITE(2)=$P($G(^(GMR(GMRI))),"^",3),GMRINF=$P($G(^(GMR(GMRI))),"^",4) I GMRSITE(1)'="" S GI=GMRI D SYNOARY^GMVLGQU
17 I GMR(GMRI)>0 S GMR(GMRI)=$J(GMR(GMRI),0,2)
18 S $P(GMRLINE(GMRI),"|",GMRNM)=$E(GMR(GMRI)_" ",1,10)
19 I GMRI="H" S:GMR(GMRI)>0 $P(GMRLINE("H1"),"|",GMRNM)=$E($J(GMR(GMRI)*2.54,0,2)_" ",1,10),$P(GMRLINE("HQUAL"),"|",GMRNM)=$E(GMRSITE_" ",1,10)
20 I GMRI="W" S:GMR(GMRI)>0 $P(GMRLINE("W1"),"|",GMRNM)=$E($S(GMR(GMRI)>0:$J(GMR(GMRI)/2.2,0,2),1:GMR(GMRI))_" ",1,10),$P(GMRLINE("WQUAL"),"|",GMRNM)=$E(GMRSITE_" ",1,10)
21 I GMRI="W",GMR(GMRI)>0 D
22 . S GMRBMI="",GMRBMI(1)=GMRDT,GMRBMI(2)=GMR(GMRI) D CALBMI^GMVBMI(.GMRBMI)
23 . S $P(GMRLINE("BMI"),"|",GMRNM)=$E(GMRBMI_" ",1,10) K GMRBMI
24 K GI Q
Note: See TracBrowser for help on using the repository browser.