GMRVALL0.m

GMRVALL0 ;HIRMFO/YH-ENTER/EDIT V/M AND OTHER MEASUREMENTS ;1/21/97

 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997

EN1 ;SELECT V/M AND OTHER MEASUREMENTS TO ENTER/EDIT

 S (GMRTMP,GMROUT)=0

LIST W ! S GNNX=0 D LISTOP^GMRVALL1

 S GNI="" W !!,"Select from 1 to ",GNNX," (enter 1,3-5 etc.) or ^ to exit: " R GNI:DTIME S:'$T!(GNI["^")!(GNI="") GMROUT=1 G:GMROUT Q

 I $L(GNI)>20 G LIST

 I (GNI["?") D

 .W @IOF,"The user would be allowed to select individual items, a range,",!,"or a multiple items, separated by commas.",!

 G:GNI["?" LIST D VALIDAT^GMRVALL1 I '$D(GSEL)!GMROUT(1) W $C(7),"  ??" G LIST

 S GMRENTY=9,GMRSTR="" F I=1:1:10 I $D(GSEL(I)) S GMRSTR=GMRSTR_$P(GNNX(I),"^",2)_";"

 I $D(GNUROP) D Q Q

 I '$D(GNUROP) D EN2^GMRVED0

Q K GMRTMP,GLINE,GMRW,GNI,GNNX,GNUROP,GNURX,GSEL Q

V1 ;

 W !!,$S(GMRNAM'="  BLANK":GMRNAM,1:DFN),?$X+10,$S(GMRRMBD'="  BLANK":GMRRMBD,1:""),"  OK? YES// " R GMRX:DTIME

 I GMRX="^"!('$T) S GMROUT=1 Q

 I ((GMRX="")!($E(GMRX,1)="Y")) K GMRTO S GDT=GMRVIDT D EN1^GMRVADM G:GMROUT&'$D(GMRTO) V2 D EDIT S (GMRDT0,GMRVIDT)=GMRTM G:GMROUT&'$D(GMRTO) V2 Q

 G:GMRX?1"N".E V2

 W !,"ANSWER YES OR NO" G V1

V2 ;

 W !!,"Do you wish to stop looping through names? YES//" R GMRX:DTIME

 I (('$T)!(GMRX="")!($E(GMRX,1)="Y")!(GMRX="^")) S GMROUT=1 Q

 I GMRX?1"N".E S GMROUT=0 Q

 W !,"ANSWER YES OR NO" G V2

 Q

EDIT ;

 S DA=DFN I GVM S GMRSTR=GMRSTR(1),GMRSITE("BP")="" D EN2^GMRVED3 S GMROUT=0 K GMROV,GMRP,GMRPRMT,GMRTYPE,GLAST,GMRHELP,GMRDAT,GMRDATE,GMRINPTR,GMRLEN,GMRQUAL,GMRSCR,GMRSITE,GMRVITY,GMRVIT,GMRX,GCT,GDT S DA=DFN D KVAR^VADPT

 Q

GMRVALL0  ;HIRMFO/YH-ENTER/EDIT V/M AND OTHER MEASUREMENTS ;1/21/97

 +1       ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997

EN1       ;SELECT V/M AND OTHER MEASUREMENTS TO ENTER/EDIT

 +1        SET (GMRTMP,GMROUT)=0

LIST       WRITE !

           SET GNNX=0

           DO LISTOP^GMRVALL1

 +1        SET GNI=""

           WRITE !!,"Select from 1 to ",GNNX," (enter 1,3-5 etc.) or ^ to exit: "

           READ GNI:DTIME

           IF '$TEST!(GNI["^")!(GNI="")

               SET GMROUT=1

           IF GMROUT

               GOTO Q

 +2        IF $LENGTH(GNI)>20

               GOTO LIST

 +3        IF (GNI["?")

               Begin DoDot:1

 +4                WRITE @IOF,"The user would be allowed to select individual items, a range,",!,"or a multiple items, separated by commas.",!

               End DoDot:1

 +5        IF GNI["?"

               GOTO LIST

           DO VALIDAT^GMRVALL1

           IF '$DATA(GSEL)!GMROUT(1)

               WRITE $CHAR(7),"  ??"

               GOTO LIST

 +6        SET GMRENTY=9

           SET GMRSTR=""

           FOR I=1:1:10

               IF $DATA(GSEL(I))

                   SET GMRSTR=GMRSTR_$PIECE(GNNX(I),"^",2)_";"

 +7        IF $DATA(GNUROP)

               DO Q

               QUIT 

 +8        IF '$DATA(GNUROP)

               DO EN2^GMRVED0

Q          KILL GMRTMP,GLINE,GMRW,GNI,GNNX,GNUROP,GNURX,GSEL

           QUIT 

V1        ;

 +1        WRITE !!,$SELECT(GMRNAM'="  BLANK":GMRNAM,1:DFN),?$X+10,$SELECT(GMRRMBD'="  BLANK":GMRRMBD,1:""),"  OK? YES// "

           READ GMRX:DTIME

 +2        IF GMRX="^"!('$TEST)

               SET GMROUT=1

               QUIT 

 +3        IF ((GMRX="")!($EXTRACT(GMRX,1)="Y"))

               KILL GMRTO

               SET GDT=GMRVIDT

               DO EN1^GMRVADM

               IF GMROUT&'$DATA(GMRTO)

                   GOTO V2

               DO EDIT

               SET (GMRDT0,GMRVIDT)=GMRTM

               IF GMROUT&'$DATA(GMRTO)

                   GOTO V2

               QUIT 

 +4        IF GMRX?1"N".E

               GOTO V2

 +5        WRITE !,"ANSWER YES OR NO"

           GOTO V1

V2        ;

 +1        WRITE !!,"Do you wish to stop looping through names? YES//"

           READ GMRX:DTIME

 +2        IF (('$TEST)!(GMRX="")!($EXTRACT(GMRX,1)="Y")!(GMRX="^"))

               SET GMROUT=1

               QUIT 

 +3        IF GMRX?1"N".E

               SET GMROUT=0

               QUIT 

 +4        WRITE !,"ANSWER YES OR NO"

           GOTO V2

 +5        QUIT 

EDIT      ;

 +1        SET DA=DFN

           IF GVM

               SET GMRSTR=GMRSTR(1)

               SET GMRSITE("BP")=""

               DO EN2^GMRVED3

               SET GMROUT=0

               KILL GMROV,GMRP,GMRPRMT,GMRTYPE,GLAST,GMRHELP,GMRDAT,GMRDATE,GMRINPTR,GMRLEN,GMRQUAL,GMRSCR,GMRSITE,GMRVITY,GMRVIT,GMRX,GCT,GDT

               SET DA=DFN

               DO KVAR^VADPT

 +2        QUIT