NURCVED2.m

NURCVED2 ;HIRMFO/MD,YH-VITAL SIGNS EDIT SHORT FORM ;2/6/99

 ;;4.0;NURSING SERVICE;**23,25**;Apr 25, 1997

EN1 ;ENTRY FROM OPTION NURCPE-VIT TPR

 S GMRSTR="T;P;R;PN;",GMRENTY=1 D EN1^NURCVED0

 G QUIT

EN2 ;ENTRY FROM OPTION NURCPE-VIT TPR B/P

 S GMRSTR="T;P;R;BP;PN",GMRENTY=2 D EN1^NURCVED0

 G QUIT

EN3 ;ENTRY FROM OPTION NURCPE-VIT PULSE RADIAL

 S GMRSTR="P;",GMRENTY=7 D EN1^NURCVED0

 G QUIT

EN4 ;ENTRY FROM OPTION NURCPE-VIT TPRBW

 S GMRSTR="T;P;R;BP;WT;PN;",GMRENTY=4 D EN1^NURCVED0

 G QUIT

EN5 ;ENTRY FROM OPTION NURCPE-VIT ADMISSION VM

 S GMRSTR="T;P;R;BP;HT;WT;PN;",GMRENTY=3 D EN1^NURCVED0

 G QUIT

EN6 ;ENTRY FROM OPTION NURCPE-VIT WEIGHT

 S GMRSTR="WT;",GMRENTY=8 D EN1^NURCVED0

 G QUIT

EN7 ;ENTRY FROM OPTION NURCPE-VIT CHANGE V/M D/T

 S NURQUIT=0 D DATE^NURCVED0 I NURQUIT W !,$C(7),"Parameters not changed!!"

 E  S $P(NURSDBA,"^",2)=GMRVIDT

QUIT K G,GBLNK,GCAT,GCHA,GCHART,GCOL,GCOUNT,GFLAG,GLABEL,GLINE,GLN,GLVL,GMAX,GMIN,GMRENTR,GMRINF,GMRLAST,GMRO2,GMRSTAR,GMRVDFLT,GMRVIDT,GMRVLST,GMRVODR,GMRW,GNUROP,GORDER,GQUAL,GREASON,GSIDE,GTXT

 K ND1,NDA,NORM,NRMBD,NURI,NURLEN,NURQUIT,NURRMST,NURSX,NURSY,NWLOC

 K VAERR,VAIPT,VAROOT

 Q

EN8 ;ENTRY FROM OPTION NURCPE-VIT TPR EXT B/P

 S GMRSTR="T;P;R;BP;",GMRENTY=5 D EN1^NURCVED0 G QUIT

EN9 ;ENTRY FROM OPTION NURCPE-VIT EXT B/P

 S GMRSTR="BP;P;",GMRENTY=6 D EN1^NURCVED0 G QUIT

EN10 ;ENTRY FROM OPTION NURCPE-VIT HTWT

 S GMRSTR="HT;WT;",GMRENTY=0 D EN1^NURCVED0 G QUIT

EN11 ;ENTRY FROM OPTION NURCPE-VIT CIRCUMF/GIRTH

 S GMRSTR="CG;",GMRENTY=19 D EN1^NURCVED0 G QUIT

EN12 ;ENTRY FROM OPTION NURCPE-VIT CVP

 S GMRSTR="CVP;",GMRENTY=21 D EN1^NURCVED0 G QUIT

EN13 ;ENTRY FROM OPTION NURCPE-VIT O2SATURATION

 S GMRSTR="PO2;",GMRENTY=20 D EN1^NURCVED0 G QUIT

EN14 ;ENTRY FROM OPTION NURCPE-VIT VMCONFIG

 S GMRENTY=9 D EN1^NURCVED0 G QUIT

EN15 ;ENTRY FROM OPTION NURCPE-VIT PAIN

 S GMRSTR="PN;",GMRENTY=18 D EN1^NURCVED0 G QUIT

DATE ;

 S NURQUIT=0 D DATE^NURCVED0 S:'NURQUIT NURSDBA=NURQUIT_"^"_GMRVIDT

 Q

EXITACT ; NURSING VITAL OPTIONS EXIT ACTION

 K:'$L(NURFLAG) NURFLAG,NURSDBA

 Q

ENTACT ; NURSING VITAL OPTIONS ENTRY ACTION

 S:'$D(NURFLAG) NURFLAG=2 I NURFLAG S NURFLAG=$S(NURFLAG=1:0,1:"") D DATE I NURQUIT K NURQUIT,GMRVIDT,NURFLAG,NURSDBA S XQUIT=1

 Q

NURCVED2  ;HIRMFO/MD,YH-VITAL SIGNS EDIT SHORT FORM ;2/6/99

 +1       ;;4.0;NURSING SERVICE;**23,25**;Apr 25, 1997

EN1       ;ENTRY FROM OPTION NURCPE-VIT TPR

 +1        SET GMRSTR="T;P;R;PN;"

           SET GMRENTY=1

           DO EN1^NURCVED0

 +2        GOTO QUIT

EN2       ;ENTRY FROM OPTION NURCPE-VIT TPR B/P

 +1        SET GMRSTR="T;P;R;BP;PN"

           SET GMRENTY=2

           DO EN1^NURCVED0

 +2        GOTO QUIT

EN3       ;ENTRY FROM OPTION NURCPE-VIT PULSE RADIAL

 +1        SET GMRSTR="P;"

           SET GMRENTY=7

           DO EN1^NURCVED0

 +2        GOTO QUIT

EN4       ;ENTRY FROM OPTION NURCPE-VIT TPRBW

 +1        SET GMRSTR="T;P;R;BP;WT;PN;"

           SET GMRENTY=4

           DO EN1^NURCVED0

 +2        GOTO QUIT

EN5       ;ENTRY FROM OPTION NURCPE-VIT ADMISSION VM

 +1        SET GMRSTR="T;P;R;BP;HT;WT;PN;"

           SET GMRENTY=3

           DO EN1^NURCVED0

 +2        GOTO QUIT

EN6       ;ENTRY FROM OPTION NURCPE-VIT WEIGHT

 +1        SET GMRSTR="WT;"

           SET GMRENTY=8

           DO EN1^NURCVED0

 +2        GOTO QUIT

EN7       ;ENTRY FROM OPTION NURCPE-VIT CHANGE V/M D/T

 +1        SET NURQUIT=0

           DO DATE^NURCVED0

           IF NURQUIT

               WRITE !,$CHAR(7),"Parameters not changed!!"

 +2       IF '$TEST

               SET $PIECE(NURSDBA,"^",2)=GMRVIDT

QUIT       KILL G,GBLNK,GCAT,GCHA,GCHART,GCOL,GCOUNT,GFLAG,GLABEL,GLINE,GLN,GLVL,GMAX,GMIN,GMRENTR,GMRINF,GMRLAST,GMRO2,GMRSTAR,GMRVDFLT,GMRVIDT,GMRVLST,GMRVODR,GMRW,GNUROP,GORDER,GQUAL,GREASON,GSIDE,GTXT

 +1        KILL ND1,NDA,NORM,NRMBD,NURI,NURLEN,NURQUIT,NURRMST,NURSX,NURSY,NWLOC

 +2        KILL VAERR,VAIPT,VAROOT

 +3        QUIT 

EN8       ;ENTRY FROM OPTION NURCPE-VIT TPR EXT B/P

 +1        SET GMRSTR="T;P;R;BP;"

           SET GMRENTY=5

           DO EN1^NURCVED0

           GOTO QUIT

EN9       ;ENTRY FROM OPTION NURCPE-VIT EXT B/P

 +1        SET GMRSTR="BP;P;"

           SET GMRENTY=6

           DO EN1^NURCVED0

           GOTO QUIT

EN10      ;ENTRY FROM OPTION NURCPE-VIT HTWT

 +1        SET GMRSTR="HT;WT;"

           SET GMRENTY=0

           DO EN1^NURCVED0

           GOTO QUIT

EN11      ;ENTRY FROM OPTION NURCPE-VIT CIRCUMF/GIRTH

 +1        SET GMRSTR="CG;"

           SET GMRENTY=19

           DO EN1^NURCVED0

           GOTO QUIT

EN12      ;ENTRY FROM OPTION NURCPE-VIT CVP

 +1        SET GMRSTR="CVP;"

           SET GMRENTY=21

           DO EN1^NURCVED0

           GOTO QUIT

EN13      ;ENTRY FROM OPTION NURCPE-VIT O2SATURATION

 +1        SET GMRSTR="PO2;"

           SET GMRENTY=20

           DO EN1^NURCVED0

           GOTO QUIT

EN14      ;ENTRY FROM OPTION NURCPE-VIT VMCONFIG

 +1        SET GMRENTY=9

           DO EN1^NURCVED0

           GOTO QUIT

EN15      ;ENTRY FROM OPTION NURCPE-VIT PAIN

 +1        SET GMRSTR="PN;"

           SET GMRENTY=18

           DO EN1^NURCVED0

           GOTO QUIT

DATE      ;

 +1        SET NURQUIT=0

           DO DATE^NURCVED0

           IF 'NURQUIT

               SET NURSDBA=NURQUIT_"^"_GMRVIDT

 +2        QUIT 

EXITACT   ; NURSING VITAL OPTIONS EXIT ACTION

 +1        IF '$LENGTH(NURFLAG)

               KILL NURFLAG,NURSDBA

 +2        QUIT 

ENTACT    ; NURSING VITAL OPTIONS ENTRY ACTION

 +1        IF '$DATA(NURFLAG)

               SET NURFLAG=2

           IF NURFLAG

               SET NURFLAG=$SELECT(NURFLAG=1:0,1:"")

               DO DATE

               IF NURQUIT

                   KILL NURQUIT,GMRVIDT,NURFLAG,NURSDBA

                   SET XQUIT=1

 +2        QUIT