| 1 | NURCVED2 ;HIRMFO/MD,YH-VITAL SIGNS EDIT SHORT FORM ;2/6/99
|
|---|
| 2 | ;;4.0;NURSING SERVICE;**23,25**;Apr 25, 1997
|
|---|
| 3 | EN1 ;ENTRY FROM OPTION NURCPE-VIT TPR
|
|---|
| 4 | S GMRSTR="T;P;R;PN;",GMRENTY=1 D EN1^NURCVED0
|
|---|
| 5 | G QUIT
|
|---|
| 6 | EN2 ;ENTRY FROM OPTION NURCPE-VIT TPR B/P
|
|---|
| 7 | S GMRSTR="T;P;R;BP;PN",GMRENTY=2 D EN1^NURCVED0
|
|---|
| 8 | G QUIT
|
|---|
| 9 | EN3 ;ENTRY FROM OPTION NURCPE-VIT PULSE RADIAL
|
|---|
| 10 | S GMRSTR="P;",GMRENTY=7 D EN1^NURCVED0
|
|---|
| 11 | G QUIT
|
|---|
| 12 | EN4 ;ENTRY FROM OPTION NURCPE-VIT TPRBW
|
|---|
| 13 | S GMRSTR="T;P;R;BP;WT;PN;",GMRENTY=4 D EN1^NURCVED0
|
|---|
| 14 | G QUIT
|
|---|
| 15 | EN5 ;ENTRY FROM OPTION NURCPE-VIT ADMISSION VM
|
|---|
| 16 | S GMRSTR="T;P;R;BP;HT;WT;PN;",GMRENTY=3 D EN1^NURCVED0
|
|---|
| 17 | G QUIT
|
|---|
| 18 | EN6 ;ENTRY FROM OPTION NURCPE-VIT WEIGHT
|
|---|
| 19 | S GMRSTR="WT;",GMRENTY=8 D EN1^NURCVED0
|
|---|
| 20 | G QUIT
|
|---|
| 21 | EN7 ;ENTRY FROM OPTION NURCPE-VIT CHANGE V/M D/T
|
|---|
| 22 | S NURQUIT=0 D DATE^NURCVED0 I NURQUIT W !,$C(7),"Parameters not changed!!"
|
|---|
| 23 | E S $P(NURSDBA,"^",2)=GMRVIDT
|
|---|
| 24 | 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
|
|---|
| 25 | K ND1,NDA,NORM,NRMBD,NURI,NURLEN,NURQUIT,NURRMST,NURSX,NURSY,NWLOC
|
|---|
| 26 | K VAERR,VAIPT,VAROOT
|
|---|
| 27 | Q
|
|---|
| 28 | EN8 ;ENTRY FROM OPTION NURCPE-VIT TPR EXT B/P
|
|---|
| 29 | S GMRSTR="T;P;R;BP;",GMRENTY=5 D EN1^NURCVED0 G QUIT
|
|---|
| 30 | EN9 ;ENTRY FROM OPTION NURCPE-VIT EXT B/P
|
|---|
| 31 | S GMRSTR="BP;P;",GMRENTY=6 D EN1^NURCVED0 G QUIT
|
|---|
| 32 | EN10 ;ENTRY FROM OPTION NURCPE-VIT HTWT
|
|---|
| 33 | S GMRSTR="HT;WT;",GMRENTY=0 D EN1^NURCVED0 G QUIT
|
|---|
| 34 | EN11 ;ENTRY FROM OPTION NURCPE-VIT CIRCUMF/GIRTH
|
|---|
| 35 | S GMRSTR="CG;",GMRENTY=19 D EN1^NURCVED0 G QUIT
|
|---|
| 36 | EN12 ;ENTRY FROM OPTION NURCPE-VIT CVP
|
|---|
| 37 | S GMRSTR="CVP;",GMRENTY=21 D EN1^NURCVED0 G QUIT
|
|---|
| 38 | EN13 ;ENTRY FROM OPTION NURCPE-VIT O2SATURATION
|
|---|
| 39 | S GMRSTR="PO2;",GMRENTY=20 D EN1^NURCVED0 G QUIT
|
|---|
| 40 | EN14 ;ENTRY FROM OPTION NURCPE-VIT VMCONFIG
|
|---|
| 41 | S GMRENTY=9 D EN1^NURCVED0 G QUIT
|
|---|
| 42 | EN15 ;ENTRY FROM OPTION NURCPE-VIT PAIN
|
|---|
| 43 | S GMRSTR="PN;",GMRENTY=18 D EN1^NURCVED0 G QUIT
|
|---|
| 44 | DATE ;
|
|---|
| 45 | S NURQUIT=0 D DATE^NURCVED0 S:'NURQUIT NURSDBA=NURQUIT_"^"_GMRVIDT
|
|---|
| 46 | Q
|
|---|
| 47 | EXITACT ; NURSING VITAL OPTIONS EXIT ACTION
|
|---|
| 48 | K:'$L(NURFLAG) NURFLAG,NURSDBA
|
|---|
| 49 | Q
|
|---|
| 50 | ENTACT ; NURSING VITAL OPTIONS ENTRY ACTION
|
|---|
| 51 | 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
|
|---|
| 52 | Q
|
|---|
