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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRVDS0

Package: General Medical Record - Vitals

Routine: GMRVDS0


Information

GMRVDS0 ;HIRMFO/YH,FT-DISPLAY LATEST VITALS/MEASUREMENTS ;6/13/01 15:03

Source Information

Source file <GMRVDS0.m>

Entry Points

Name Comments DBIA/ICR reference
EN2 ;ENTRY TO DISPLAY THE LATEST VITALS/MEASUREMENTS IF DFN IS UNKNOWN
EN3 ; ENTRY TO DISPLAY THE LATEST VITALS/MEASUREMENTS IF DFN IS KNOWN
EN1 ; ENTRY TO DISPLAY VITALS
Q
SETDATAR ;
SETNODE ;
WRTDT ;
CHAR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no results to report "
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+8
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+8
Function Call: WRITE
  • Prompt: ?12,"("_GMRVDT_") "
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" F ("_$J(+GMRVX(0)-32*5/9,0,1)_" C)"
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" lb ("_$J(GMRVX(0)/2.2,0,2)_" kg)"
  • Line Location: EN1+11
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+12
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" in ("_$J(+GMRVX(0)/.3937,0,2)_" cm)"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" cmH2O ("_$J(GMRVX(0)/1.36,0,1)_" mmHg)"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_"% "
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" - No pain "
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" - Unable to respond "
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)_" - Worst imaginable pain "
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: ?29,GMRVX(0)
  • Line Location: EN1+22
Function Call: WRITE
  • Prompt: $S('$D(GMRVX(1)):"",'GMRVX(1):"",1:"*")
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !,"BMI: "
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: ?29,GMRVHT(1)_$S(GMRVHT(1)>27:"*",1:"")
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call