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

Package: General Medical Record - Vitals

Routine: GMRVSC2


Information

GMRVSC2 ;HIOFO/YH,FT-CUMULATIVE V/M - CONTINUED ;9/27/07

Source Information

Source file <GMRVSC2.m>

Entry Points

Name Comments DBIA/ICR reference
SETLN ;
HDR ;
BLNK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SETLN+4
Function Call: WRITE
  • Prompt: "(E)"
  • Condition for execution: GMRVER
  • Line Location: SETLN+4
Function Call: WRITE
  • Prompt: ?4,$S(GMRVTY="T":"T: ",GMRVTY="P":"P: ",GMRVTY="R":"R: ",GMRVTY="BP":"B/P: ",GMRVTY="WT":"Wt: ",GMRVTY="HT":"Ht: ",GMRVTY="CG":"Circumference/Girth: ",GMRVTY="CVP":"Central Venous Pressure: ",GMRVTY="PO2":"Pulse Oximetry: ",1:"")
  • Line Location: SETLN+6
Function Call: WRITE
  • Prompt: ?4,"Pain: "
  • Line Location: SETLN+7
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: SETLN+11
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)_" - No pain"
  • Line Location: SETLN+13
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)_" - Unable to respond"
  • Line Location: SETLN+14
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)_" - Worst imaginable pain"
  • Line Location: SETLN+15
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: SETLN+16
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: SETLN+17
Function Call: WRITE
  • Prompt: " in ("_$J(Z/.3937,0,2)_" cm)"
  • Line Location: SETLN+21
Function Call: WRITE
  • Prompt: " cmH2O ("_$J(Z/1.36,0,1)_" mmHg)"
  • Line Location: SETLN+22
Function Call: WRITE
  • Prompt: ?9,X
  • Line Location: SETLN+25
Function Call: WRITE
  • Prompt: ?9,Z_" F "
  • Line Location: SETLN+27
Function Call: WRITE
  • Prompt: "("_Z_" C)"_$S('$D(GMRVX(1)):" ",'GMRVX(1):"",1:"*")
  • Line Location: SETLN+27
Function Call: WRITE
  • Prompt: ?9,X
  • Line Location: SETLN+29
Function Call: WRITE
  • Prompt: ?9,X
  • Line Location: SETLN+32
Function Call: WRITE
  • Prompt: ?9,Z_" lb "
  • Line Location: SETLN+33
Function Call: WRITE
  • Prompt: "("_Z_" kg)"
  • Line Location: SETLN+33
Function Call: WRITE
  • Prompt: !,?8," via "
  • Condition for execution: GMRVTY="PO2"
  • Line Location: SETLN+43
Function Call: WRITE
  • Prompt: GMRZZ
  • Line Location: SETLN+43
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,GMRPDT,?25,"Cumulative Vitals/Measurements Report",?70,"Page ",GMRPG,!!,$E(GMRDSH,1,78)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$E(GMRDATE(0),4,5)_"/"_$E(GMRDATE(0),6,7)_"/"_$E(GMRDATE,2,3)_" (continued)",!
  • Line Location: HDR+5
Info |  Source |  Entry Points |  Interaction Calls