|
Last change
on this file since 1389 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
930 bytes
|
| Line | |
|---|
| 1 | GMRVALL1 ;HIRMFO/YH-ENTER/EDIT V/M AND OTHER MEASUREMENTS ;2/6/99
|
|---|
| 2 | ;;4.0;Vitals/Measurements;**7**;Apr 25, 1997
|
|---|
| 3 | LISTOP ;
|
|---|
| 4 | W !,"Select the combination of Vitals/Measurements you want to enter.",! F I=1:1:9 S X=$T(QUES+I) Q:X="" S GMRW=$P(X,";;",2),GNNX(+GMRW)=$E(GMRW,4,99),GNNX=+GMRW W !,$P(GMRW,"^")
|
|---|
| 5 | Q
|
|---|
| 6 | QUES ;
|
|---|
| 7 | ;;1 T^T
|
|---|
| 8 | ;;2 P^P
|
|---|
| 9 | ;;3 R^R
|
|---|
| 10 | ;;4 B/P^BP
|
|---|
| 11 | ;;5 Wt^WT
|
|---|
| 12 | ;;6 Ht^HT
|
|---|
| 13 | ;;7 Circumference/Girth^CG
|
|---|
| 14 | ;;8 Pulse Oximetry^PO2
|
|---|
| 15 | ;;9 Pain^PN
|
|---|
| 16 | VALIDAT ;
|
|---|
| 17 | S GMROUT(1)=0 F GNURX(1)=1:1 S GNURX(2)=$P(GNI,",",GNURX(1)) Q:GNURX(2)="" D VAL1
|
|---|
| 18 | Q
|
|---|
| 19 | VAL1 ;
|
|---|
| 20 | I GNURX(2)["-" D VAL2 Q
|
|---|
| 21 | S:'$D(GNNX(+GNURX(2))) GMROUT(1)=1 Q:GMROUT(1) S GSEL(GNURX(2))="" Q
|
|---|
| 22 | VAL2 ;
|
|---|
| 23 | S GNURX(3)=$P(GNURX(2),"-") I GNURX(3)<1!(GNURX(3)>GNNX)!'$D(GNNX(+GNURX(3))) S GMROUT(1)=1 Q
|
|---|
| 24 | S GNURX(4)=$P(GNURX(2),"-",2) S:'$D(GNNX(+GNURX(4))) GMROUT(1)=1 Q:GMROUT(1) F GNURX(5)=GNURX(3):1:GNURX(4) S:'$D(GNNX(GNURX(5))) GMROUT(1)=1 Q:GMROUT(1) S GSEL(GNURX(5))=""
|
|---|
| 25 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
