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

Package: General Medical Record - Vitals

Routine: GMVSC2


Information

GMVSC2 ;HIRMFO/YH,FT-CUMULATIVE V/M - CONTINUED ;10/30/07 10:16

Source Information

Source file <GMVSC2.m>

Entry Points

Name Comments DBIA/ICR reference
SETLN ; {called from GMVSC1}
HDR ; Report header
BLNK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SETLN+5
Function Call: WRITE
  • Prompt: "(E)"
  • Condition for execution: GMRVER
  • Line Location: SETLN+5
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+7
Function Call: WRITE
  • Prompt: ?4,"Pain: "
  • Line Location: SETLN+8
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: SETLN+12
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)_" - No pain"
  • Line Location: SETLN+14
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)_" - Unable to respond"
  • Line Location: SETLN+15
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)_" - Worst imaginable pain"
  • Line Location: SETLN+16
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: SETLN+17
Function Call: WRITE
  • Prompt: ?9,GMRVX(0)
  • Line Location: SETLN+18
Function Call: WRITE
  • Prompt: " in ("_$J(Z/.3937,0,2)_" cm)"
  • Line Location: SETLN+22
Function Call: WRITE
  • Prompt: " cmH2O ("_$J(Z/1.36,0,1)_" mmHg)"
  • Line Location: SETLN+23
Function Call: WRITE
  • Prompt: ?9,X
  • Line Location: SETLN+26
Function Call: WRITE
  • Prompt: ?9,Z_" F "
  • Line Location: SETLN+28
Function Call: WRITE
  • Prompt: "("_Z_" C)"_$S('$D(GMRVX(1)):" ",'GMRVX(1):"",1:"*")
  • Line Location: SETLN+28
Function Call: WRITE
  • Prompt: ?9,X
  • Line Location: SETLN+30
Function Call: WRITE
  • Prompt: ?9,X
  • Line Location: SETLN+33
Function Call: WRITE
  • Prompt: ?9,Z_" lb "
  • Line Location: SETLN+34
Function Call: WRITE
  • Prompt: "("_Z_" kg)"
  • Line Location: SETLN+34
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: WRITE
  • Prompt: !,GMRPDT,?25,"Cumulative Vitals/Measurements Report",?70,"Page ",GMRPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?25,GMVRANGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$E(GMRDSH,1,78)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$E(GMRDATE(0),4,5)_"/"_$E(GMRDATE(0),6,7)_"/"_$E(GMRDATE,2,3)_" (continued)",!
  • Line Location: HDR+7
Info |  Source |  Entry Points |  Interaction Calls