Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: NURCVED2

NURCVED2.m

Go to the documentation of this file.
  1. NURCVED2 ;HIRMFO/MD,YH-VITAL SIGNS EDIT SHORT FORM ;2/6/99
  1. ;;4.0;NURSING SERVICE;**23,25**;Apr 25, 1997
  1. EN1 ;ENTRY FROM OPTION NURCPE-VIT TPR
  1. S GMRSTR="T;P;R;PN;",GMRENTY=1 D EN1^NURCVED0
  1. G QUIT
  1. EN2 ;ENTRY FROM OPTION NURCPE-VIT TPR B/P
  1. S GMRSTR="T;P;R;BP;PN",GMRENTY=2 D EN1^NURCVED0
  1. G QUIT
  1. EN3 ;ENTRY FROM OPTION NURCPE-VIT PULSE RADIAL
  1. S GMRSTR="P;",GMRENTY=7 D EN1^NURCVED0
  1. G QUIT
  1. EN4 ;ENTRY FROM OPTION NURCPE-VIT TPRBW
  1. S GMRSTR="T;P;R;BP;WT;PN;",GMRENTY=4 D EN1^NURCVED0
  1. G QUIT
  1. EN5 ;ENTRY FROM OPTION NURCPE-VIT ADMISSION VM
  1. S GMRSTR="T;P;R;BP;HT;WT;PN;",GMRENTY=3 D EN1^NURCVED0
  1. G QUIT
  1. EN6 ;ENTRY FROM OPTION NURCPE-VIT WEIGHT
  1. S GMRSTR="WT;",GMRENTY=8 D EN1^NURCVED0
  1. G QUIT
  1. EN7 ;ENTRY FROM OPTION NURCPE-VIT CHANGE V/M D/T
  1. S NURQUIT=0 D DATE^NURCVED0 I NURQUIT W !,$C(7),"Parameters not changed!!"
  1. E S $P(NURSDBA,"^",2)=GMRVIDT
  1. 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
  1. K ND1,NDA,NORM,NRMBD,NURI,NURLEN,NURQUIT,NURRMST,NURSX,NURSY,NWLOC
  1. K VAERR,VAIPT,VAROOT
  1. Q
  1. EN8 ;ENTRY FROM OPTION NURCPE-VIT TPR EXT B/P
  1. S GMRSTR="T;P;R;BP;",GMRENTY=5 D EN1^NURCVED0 G QUIT
  1. EN9 ;ENTRY FROM OPTION NURCPE-VIT EXT B/P
  1. S GMRSTR="BP;P;",GMRENTY=6 D EN1^NURCVED0 G QUIT
  1. EN10 ;ENTRY FROM OPTION NURCPE-VIT HTWT
  1. S GMRSTR="HT;WT;",GMRENTY=0 D EN1^NURCVED0 G QUIT
  1. EN11 ;ENTRY FROM OPTION NURCPE-VIT CIRCUMF/GIRTH
  1. S GMRSTR="CG;",GMRENTY=19 D EN1^NURCVED0 G QUIT
  1. EN12 ;ENTRY FROM OPTION NURCPE-VIT CVP
  1. S GMRSTR="CVP;",GMRENTY=21 D EN1^NURCVED0 G QUIT
  1. EN13 ;ENTRY FROM OPTION NURCPE-VIT O2SATURATION
  1. S GMRSTR="PO2;",GMRENTY=20 D EN1^NURCVED0 G QUIT
  1. EN14 ;ENTRY FROM OPTION NURCPE-VIT VMCONFIG
  1. S GMRENTY=9 D EN1^NURCVED0 G QUIT
  1. EN15 ;ENTRY FROM OPTION NURCPE-VIT PAIN
  1. S GMRSTR="PN;",GMRENTY=18 D EN1^NURCVED0 G QUIT
  1. DATE ;
  1. S NURQUIT=0 D DATE^NURCVED0 S:'NURQUIT NURSDBA=NURQUIT_"^"_GMRVIDT
  1. Q
  1. EXITACT ; NURSING VITAL OPTIONS EXIT ACTION
  1. K:'$L(NURFLAG) NURFLAG,NURSDBA
  1. Q
  1. ENTACT ; NURSING VITAL OPTIONS ENTRY ACTION
  1. 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
  1. Q