- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVALL0 1583 printed Feb 18, 2025@23:22:21 Page 2
- 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