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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURCVED2 2260 printed Dec 13, 2024@02:21 Page 2
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
