| 1 | GMRVLWT3 ;HIRMFO/YH-DOT MATRIX PATIENT WEIGHT GRAPH - 4 ;7/15/97
|
|---|
| 2 | ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
|
|---|
| 3 | FOOTER ;PRINT VITAL SIGNS-I/O SHEET FOOTER
|
|---|
| 4 | 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)
|
|---|
| 5 | 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"
|
|---|
| 6 | D INP^VADPT S GMRVHLOC=$P($G(^DIC(42,+$G(VAIN(4)),44)),"^")
|
|---|
| 7 | W !,"Division: "_$S(GMRVHLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I"),1:""),?55,"Page "_GMRPGC,?95,"VAF 10-2614f",!
|
|---|
| 8 | W GSTRFIN Q
|
|---|
| 9 | STLNP ;
|
|---|
| 10 | S GMR(GMRI)=$O(^TMP($J,"GMRVG",GMRI,GMRDT,"")) Q:GMR(GMRI)=""
|
|---|
| 11 | S (GMRSITE,GMRSITE(1),GMRINF,GMRVJ)=""
|
|---|
| 12 | 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^GMRVLGQU
|
|---|
| 13 | I GMR(GMRI)>0 S GMR(GMRI)=$J(GMR(GMRI),0,2)
|
|---|
| 14 | S $P(GMRLINE(GMRI),"|",GMRNM)=$E(GMR(GMRI)_" ",1,10)
|
|---|
| 15 | 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)
|
|---|
| 16 | 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)
|
|---|
| 17 | I GMRI="W",GMR(GMRI)>0 D
|
|---|
| 18 | . S GMRBMI="",GMRBMI(1)=GMRDT,GMRBMI(2)=GMR(GMRI) D CALBMI^GMRVBMI(.GMRBMI)
|
|---|
| 19 | . S $P(GMRLINE("BMI"),"|",GMRNM)=$E(GMRBMI_" ",1,10) K GMRBMI
|
|---|
| 20 | K GI Q
|
|---|
