source: WorldVistAEHR/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVALL1.m@ 1006

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

initial load of WorldVistAEHR

File size: 930 bytes
Line 
1GMRVALL1 ;HIRMFO/YH-ENTER/EDIT V/M AND OTHER MEASUREMENTS ;2/6/99
2 ;;4.0;Vitals/Measurements;**7**;Apr 25, 1997
3LISTOP ;
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
6QUES ;
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
16VALIDAT ;
17 S GMROUT(1)=0 F GNURX(1)=1:1 S GNURX(2)=$P(GNI,",",GNURX(1)) Q:GNURX(2)="" D VAL1
18 Q
19VAL1 ;
20 I GNURX(2)["-" D VAL2 Q
21 S:'$D(GNNX(+GNURX(2))) GMROUT(1)=1 Q:GMROUT(1) S GSEL(GNURX(2))="" Q
22VAL2 ;
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.