GMRVALL1 ;HIRMFO/YH-ENTER/EDIT V/M AND OTHER MEASUREMENTS ;2/6/99
;;4.0;Vitals/Measurements;**7**;Apr 25, 1997
LISTOP ;
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,"^")
Q
QUES ;
;;1 T^T
;;2 P^P
;;3 R^R
;;4 B/P^BP
;;5 Wt^WT
;;6 Ht^HT
;;7 Circumference/Girth^CG
;;8 Pulse Oximetry^PO2
;;9 Pain^PN
VALIDAT ;
S GMROUT(1)=0 F GNURX(1)=1:1 S GNURX(2)=$P(GNI,",",GNURX(1)) Q:GNURX(2)="" D VAL1
Q
VAL1 ;
I GNURX(2)["-" D VAL2 Q
S:'$D(GNNX(+GNURX(2))) GMROUT(1)=1 Q:GMROUT(1) S GSEL(GNURX(2))="" Q
VAL2 ;
S GNURX(3)=$P(GNURX(2),"-") I GNURX(3)<1!(GNURX(3)>GNNX)!'$D(GNNX(+GNURX(3))) S GMROUT(1)=1 Q
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))=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVALL1 955 printed Oct 16, 2024@17:56:41 Page 2
GMRVALL1 ;HIRMFO/YH-ENTER/EDIT V/M AND OTHER MEASUREMENTS ;2/6/99
+1 ;;4.0;Vitals/Measurements;**7**;Apr 25, 1997
LISTOP ;
+1 WRITE !,"Select the combination of Vitals/Measurements you want to enter.",!
FOR I=1:1:9
SET X=$TEXT(QUES+I)
if X=""
QUIT
SET GMRW=$PIECE(X,";;",2)
SET GNNX(+GMRW)=$EXTRACT(GMRW,4,99)
SET GNNX=+GMRW
WRITE !,$PIECE(GMRW,"^")
+2 QUIT
QUES ;
+1 ;;1 T^T
+2 ;;2 P^P
+3 ;;3 R^R
+4 ;;4 B/P^BP
+5 ;;5 Wt^WT
+6 ;;6 Ht^HT
+7 ;;7 Circumference/Girth^CG
+8 ;;8 Pulse Oximetry^PO2
+9 ;;9 Pain^PN
VALIDAT ;
+1 SET GMROUT(1)=0
FOR GNURX(1)=1:1
SET GNURX(2)=$PIECE(GNI,",",GNURX(1))
if GNURX(2)=""
QUIT
DO VAL1
+2 QUIT
VAL1 ;
+1 IF GNURX(2)["-"
DO VAL2
QUIT
+2 if '$DATA(GNNX(+GNURX(2)))
SET GMROUT(1)=1
if GMROUT(1)
QUIT
SET GSEL(GNURX(2))=""
QUIT
VAL2 ;
+1 SET GNURX(3)=$PIECE(GNURX(2),"-")
IF GNURX(3)<1!(GNURX(3)>GNNX)!'$DATA(GNNX(+GNURX(3)))
SET GMROUT(1)=1
QUIT
+2 SET GNURX(4)=$PIECE(GNURX(2),"-",2)
if '$DATA(GNNX(+GNURX(4)))
SET GMROUT(1)=1
if GMROUT(1)
QUIT
FOR GNURX(5)=GNURX(3):1:GNURX(4)
if '$DATA(GNNX(GNURX(5)))
SET GMROUT(1)=1
if GMROUT(1)
QUIT
SET GSEL(GNURX(5))=""
+3 QUIT
