source: WorldVistAEHR/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVUT1.m@ 1200

Last change on this file since 1200 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 4.2 KB
Line 
1GMRVUT1 ;HIRMFO/YH-VITAL SIGNS INFORMATION ;2/5/99
2 ;;4.0;Vitals/Measurements;**6,7,11**;Apr 25, 1997
3T ;HELP INFORMATION FOR TEMPERATURE
4 S GMRVITY="T",GMRVIT=$O(^GMRD(120.51,"C",GMRVITY,0)) Q:GMRVIT'>0 S GMRVIT(1)=$P($G(^GMRD(120.51,GMRVIT,0)),"^")
5 W !,"** Temperature: a number + a location qualifier(optional), e.g., 99.6A",!,?3,"or 99.6AX (F AXILLARY) or 37R (C RECTAL)." S GLVL="" D LISTQ^GMRVQUAL S GLINE=$G(GLINE)+4 D CHECK Q
6P ;HELP INFORMATION FOR PULSE
7 S GMRVITY="P",GMRVIT=$O(^GMRD(120.51,"C",GMRVITY,0)) Q:GMRVIT'>0 S GMRVIT(1)=$P($G(^GMRD(120.51,GMRVIT,0)),"^")
8 W !,"** Pulse: a number + a location qualifier(optional), e.g., 70A or 70AP",!,?3,"(70 APICAL). " S GLVL="" D LISTQ^GMRVQUAL S GLINE=$G(GLINE)+5 D CHECK Q
9R ;HELP INFORMATION FOR RESPIRATORY
10 S GMRVITY="R",GMRVIT=$O(^GMRD(120.51,"C",GMRVITY,0)) Q:GMRVIT'>0 S GMRVIT(1)=$P($G(^GMRD(120.51,GMRVIT,0)),"^")
11 W !,"** Respiration: a number(0-99 with no decimal places) + method qualifier" S GLINE=$G(GLINE)+1 D CHECK W !,?3,"(optional) e.g., 40C or 40c." S GLVL="" D LISTQ^GMRVQUAL S GLINE=$G(GLINE)+1 D CHECK Q
12BP ;HELP INFORMATION FOR BLOOD PRESSURE
13 W !,"** B/P: systolic/intermediate/diastolic" S GLINE=$G(GLINE)+1 D CHECK W !,?3,"intermediate pressure is optional, e.g., 98/64 or 120/100/80"
14 S GLINE=$G(GLINE)+1 D CHECK W !,?3,"Null diastolic only be allowed for taken either by Doppler or Palpated." S GLINE=$G(GLINE)+1 D CHECK
15 W !,?3,"The Default method is Palpated if no diastolic is entered."
16 S GLINE=$G(GLINE)+1 D CHECK
17 W !,?3,"Otherwise, enter D for Doppler, (e.g., 120/ or 120/D or 120/P)."
18 S GLINE=$G(GLINE)+1 D CHECK Q
19HT ;HELP INFORMATION FOR HEIGHT
20 W !,"** Height: a number + ',' (optional) + qualifier (2 decimals allowed)" S GLINE=$G(GLINE)+1 D CHECK
21 S GMRVITY="HT",GMRVIT=$O(^GMRD(120.51,"C",GMRVITY,0)) Q:GMRVIT'>0 S GMRVIT(1)=$P($G(^GMRD(120.51,GMRVIT,0)),"^")
22 W !,?3,"72I (inches) 147C (centimeters)" S GLINE=$G(GLINE)+1 D CHECK W !,?3,"5F10IE or 5'10""E (for 5 feet 10 inches ESTIMATED)" S GLINE=$G(GLINE)+1 D CHECK
23 S GLVL="" D LISTQ^GMRVQUAL S GLINE=$G(GLINE)+2 D CHECK Q
24CG ;HELP INFORMATION FOR CIRCUMFERENCE/GIRTH
25 D CG^GMRVUTL1 S GLINE=$G(GLINE)+3 D CHECK Q
26CVP ;
27 D CVP^GMRVUTL1 Q
28PO2 ;
29 D PO2^GMRVUTL1 S GLINE=$G(GLINE)+2 D CHECK Q
30PN ;HELP INFORMATION
31 D PAIN^GMRVUTL1 S GLINE=$G(GLINE)+4 D CHECK Q
32WT ;HELP INFORMATION FOR WEIGHT
33 S GMRVITY="WT",GMRVIT=$O(^GMRD(120.51,"C",GMRVITY,0)) Q:GMRVIT'>0 S GMRVIT(1)=$P($G(^GMRD(120.51,GMRVIT,0)),"^")
34 W !,"** Weight: a number+L(l) or a number+K(k) + 2nd quality (optional) 2 decimals" S GLINE=$G(GLINE)+1 D CHECK W !,?3,"allowed, e.g., 120.25L or 120l (pounds), 45.25K or 45k (kilograms)." S GLINE=$G(GLINE)+1
35 D CHECK W !,?3,"120L, 120LA, or 120K for actual weight." S GLVL="" D LISTQ^GMRVQUAL S GLINE=$G(GLINE)+2 D CHECK Q
36WTYPE ;ENTRY POIT FOR TYPE OF WEIGHT - ACTUAL/ESTIMATED/DRY
37 K GMRW S (GMRVDFLT,GMRW)="",GLVL=9 D LISTQ^GMRVQUAL Q:'$D(GMRW)
38 S GMRSITE=$P(X,+X,2) I $L(GMRSITE)=1,"LlKk"[GMRSITE S GMRSITE(GMRVITY)=$G(GMRVDFLT(1)) W ! G OTHERQ
39 I $L(GMRSITE)=1,"LlKk"'[GMRSITE Q
40 S:$L(GMRSITE)>1 GMRSITE=$$UP^XLFSTR($E(GMRSITE,2,30))
41ASK3 K GMRV S GMRV=0 D SETSITE^GMRVUT3 I GMRV>0!GMROUT G OTHERQ
42 G ASK
43 ;
44TPSITE ;SITE FOR TEMP., PULSE, B/P, RESPIRATION AND HEIGHT
45 K GMRW S (GMRVDFLT,GMRW)="",GLVL=9 D LISTQ^GMRVQUAL Q:'$D(GMRW)
46ASK2 ;
47 I GMRVITY="T"!(GMRVITY="R")!(GMRVITY="P"),GMRSITE="" S GMRSITE(GMRVITY)=$G(GMRVDFLT(1)) G OTHERQ
48 I GMRVITY="HT",GMRSITE="" S GMRSITE(GMRVITY)="" G OTHERQ
49ASK1 K GMRV S GMRV=0 D SETSITE^GMRVUT3 I GMROUT!(GMRV>0) G OTHERQ
50 ;
51ASK W !!,"Select one of the following qualifiers for "_GMRVIT(1)_" or <RET> for default" D LIST W !!,"Please enter "_$S(GMRVITY="T"!(GMRVITY="BP")!(GMRVITY="P"):"location: ",GMRVITY="R":"method: ",GMRVITY="WT":"quality: ",1:"")
52 W $P($G(GMRVDFLT(1)),"^")_"// "
53 S GMRSITE="" R GMRSITE:DTIME S:'$T!(GMRSITE["^") GMROUT=1 I GMROUT W ! G OTHERQ
54 S GMRSITE=$$UP^XLFSTR(GMRSITE) I GMRSITE="" S (GMRSITE,GMRSITE(GMRVITY))=$G(GMRVDFLT(1)) G OTHERQ
55 G ASK3:GMRVITY="WT",ASK1
56OTHERQ ;
57 Q:GMROUT!(GMRENTY<5) D OTHERQ^GMRVQUAL
58 Q
59CHECK ;
60 I GLINE>14 D
61 . W !,"<Ret> to continue " S J="" R J:DTIME S GLINE=0
62 Q
63LIST ;LIST SITES FOR THE SELECTED VM TYPE
64 Q:'$D(GMRW) S GMRZ="" F S GMRZ=$O(GMRW(GMRZ)) Q:GMRZ="" W !,?4,GMRZ
65 Q
Note: See TracBrowser for help on using the repository browser.