Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMRVUT1

Package: General Medical Record - Vitals

Routine: GMRVUT1


Information

GMRVUT1 ;HIRMFO/YH-VITAL SIGNS INFORMATION ;2/5/99

Source Information

Source file <GMRVUT1.m>

Entry Points

Name Comments DBIA/ICR reference
T ;HELP INFORMATION FOR TEMPERATURE
P ;HELP INFORMATION FOR PULSE
R ;HELP INFORMATION FOR RESPIRATORY
BP ;HELP INFORMATION FOR BLOOD PRESSURE
HT ;HELP INFORMATION FOR HEIGHT
CG ;HELP INFORMATION FOR CIRCUMFERENCE/GIRTH
CVP ;
PO2 ;
PN ;HELP INFORMATION
WT ;HELP INFORMATION FOR WEIGHT
WTYPE ;ENTRY POIT FOR TYPE OF WEIGHT - ACTUAL/ESTIMATED/DRY
ASK3
TPSITE ;SITE FOR TEMP., PULSE, B/P, RESPIRATION AND HEIGHT
ASK2 ;
ASK1
ASK
OTHERQ ;
CHECK ;
LIST ;LIST SITES FOR THE SELECTED VM TYPE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"** Temperature: a number + a location qualifier(optional), e.g., 99.6A",!,?3,"or 99.6AX (F AXILLARY) or 37R (C RECTAL)."
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !,"** Pulse: a number + a location qualifier(optional), e.g., 70A or 70AP",!,?3,"(70 APICAL). "
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !,"** Respiration: a number(0-99 with no decimal places) + method qualifier"
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,?3,"(optional) e.g., 40C or 40c."
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,"** B/P: systolic/intermediate/diastolic"
  • Line Location: BP+1
Function Call: WRITE
  • Prompt: !,?3,"intermediate pressure is optional, e.g., 98/64 or 120/100/80"
  • Line Location: BP+1
Function Call: WRITE
  • Prompt: !,?3,"Null diastolic only be allowed for taken either by Doppler or Palpated."
  • Line Location: BP+2
Function Call: WRITE
  • Prompt: !,?3,"The Default method is Palpated if no diastolic is entered."
  • Line Location: BP+3
Function Call: WRITE
  • Prompt: !,?3,"Otherwise, enter D for Doppler, (e.g., 120/ or 120/D or 120/P)."
  • Line Location: BP+5
Function Call: WRITE
  • Prompt: !,"** Height: a number + ',' (optional) + qualifier (2 decimals allowed)"
  • Line Location: HT+1
Function Call: WRITE
  • Prompt: !,?3,"72I (inches) 147C (centimeters)"
  • Line Location: HT+3
Function Call: WRITE
  • Prompt: !,?3,"5F10IE or 5'10""E (for 5 feet 10 inches ESTIMATED)"
  • Line Location: HT+3
Function Call: WRITE
  • Prompt: !,"** Weight: a number+L(l) or a number+K(k) + 2nd quality (optional) 2 decimals"
  • Line Location: WT+2
Function Call: WRITE
  • Prompt: !,?3,"allowed, e.g., 120.25L or 120l (pounds), 45.25K or 45k (kilograms)."
  • Line Location: WT+2
Function Call: WRITE
  • Prompt: !,?3,"120L, 120LA, or 120K for actual weight."
  • Line Location: WT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WTYPE+2
Function Call: WRITE
  • Prompt: !!,"Select one of the following qualifiers for "_GMRVIT(1)_" or <RET> for default"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Please enter "_$S(GMRVITY="T"!(GMRVITY="BP")!(GMRVITY="P"):"location: ",GMRVITY="R":"method: ",GMRVITY="WT":"quality: ",1:"")
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $P($G(GMRVDFLT(1)),"^")_"// "
  • Line Location: ASK+1
Function Call: READ
  • Variable: GMRSITE
  • Timeout: DTIME
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: READ
  • Variable: J
  • Timeout: DTIME
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,"<Ret> to continue "
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,?4,GMRZ
  • Line Location: LIST+1
Info |  Source |  Entry Points |  Interaction Calls