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: GMVDS0

Package: General Medical Record - Vitals

Routine: GMVDS0


Information

GMVDS0 ;HIOFO/YH,FT-DISPLAY LATEST VITALS/MEASUREMENTS ;6/7/07

Source Information

Source file <GMVDS0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY TO DISPLAY VITALS {called from GMVDS1}
Q
SETDATAR ;
SETNODE ; {called from GMVDS2}
WRTDT ;
CHAR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no results to report "
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: $S(X="BP":"B/P",X="P":"Pulse",X="R":"Resp.",X="T":"Temp.",X="HT":"Ht.",X="CG":"Circ/Girth",X="WT":"Wt.",X="PO2":"Pulse Ox",X="PN":"Pain",1:X)_": "
  • Condition for execution: GMRVDT(1)=0
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: ?12,"("_GMRVDT_") "
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" F ("_$J(+GMRVX(0)-32*5/9,0,1)_" C)"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" lb ("_$J(GMRVX(0)/2.2,0,2)_" kg)"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: ?29,$S(GMRVX(0)\12:GMRVX(0)\12_" ft ",1:"")_$S(GMRVX(0)#12:GMRVX(0)#12_" in",1:"")_" ("_$J(GMRVX(0)*2.54,0,2)_" cm)"
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" in ("_$J(+GMRVX(0)/.3937,0,2)_" cm)"
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" cmH2O ("_$J(GMRVX(0)/1.36,0,1)_" mmHg)"
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_"% "
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" - No pain "
  • Line Location: EN1+22
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" - Unable to respond "
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" - Worst imaginable pain "
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: $S('$D(GMRVX(1)):"",'GMRVX(1):"",1:"*")
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !,"BMI: "
  • Line Location: EN1+28
Function Call: WRITE
  • Prompt: ?29,GMRVHT(1)_$S(GMRVHT(1)>27:"*",1:"")
  • Line Location: EN1+28
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0
Info |  Source |  Entry Points |  Interaction Calls