- 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 Jan 18, 2025@03:22:10 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