Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
General Medical Record - Vitals 4 ($$WRITECH,CHAR)^GMRVCHAR  PAT^GMRVDS1  SETBP^GMRVDS2  EN1^GMRVSAS0  
Kernel 1 $$UP^XLFSTR  
Registration 1 KVAR^VADPT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
General Medical Record - Vitals 3 GMRV DISPLAY V/M  GMRVDS1  GMRVDS2  
Nursing Service 1 NURCVPR0  

Entry Points

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

External References

Name Field # of Occurrence
^DIC EN2+1
$$WRITECH^GMRVCHAR CHAR+1
CHAR^GMRVCHAR SETNODE+15
PAT^GMRVDS1 EN3+2
SETBP^GMRVDS2 SETDATAR+2
EN1^GMRVSAS0 EN1+7
KVAR^VADPT Q+1
$$UP^XLFSTR EN1+18, SETNODE+3, SETNODE+5

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
Routine Call
  • DIC
  • Line Location:
    • EN2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.5 - [#120.5] EN1+4, SETDATAR+1, SETNODE+1, SETNODE+6, SETNODE+7, SETNODE+8, SETNODE+9, SETNODE+15, CHAR+2
^GMRD(120.51 - [#120.51] EN1+3
^GMRD(120.52 - [#120.52] EN1+2

Label References

Name Line Occurrences
CHAR EN1+24
Q EN3+2, EN1+5
SETDATAR EN1+4
SETNODE SETDATAR+1
WRTDT EN1+6

Naked Globals

Name Field # of Occurrence
^(0 SETNODE+1, CHAR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%Y Q+1!
DFN EN2+1*, EN3+1, EN1+4, Q+1!, SETDATAR+1
DIC EN2+1*!, Q+1!
DIC(0 EN2+1*
G SETNODE+1~, SETNODE+3*, SETNODE+4*, SETNODE+5
GAPICAL EN1+1~, EN1+2*, SETNODE+7
GBP Q!
GBRACHI EN1+1~, EN1+2*, SETNODE+8
GLIN Q!
>> GLOC Q
GMR Q!
GMR( EN1+3*, EN1+4, SETDATAR+1, SETNODE+15
GMRDAT EN1+4*, Q+1!, SETDATAR+1
GMRDATA EN1+5, Q!
GMRDATA( EN1+6, EN1+7, SETNODE+15*
GMRDATS EN1+4*, Q+1!, SETDATAR+1, SETNODE+15*
GMRDT EN1+4!, Q+1!
>> GMREDB EN3+2*
GMRL Q+1!, SETNODE+1*, SETNODE+3, SETNODE+4, SETNODE+10, SETNODE+13*, SETNODE+15
GMRL1 SETNODE+10*, SETNODE+11*, SETNODE+12*, SETNODE+13, SETNODE+14!
GMROUT Q+1!
GMRSTR EN1+3, Q+1!
GMRVARY Q!, SETNODE+15, CHAR+1
GMRVDA Q!
GMRVDT EN1+6*, EN1+9, Q+1!, WRTDT+1*
GMRVDT(1 EN1+6*, EN1+8, EN1+9*
GMRVHT EN1+4!, EN1+12*, EN1+25, Q!
GMRVHT(1 EN1+25*
>> GMRVPO CHAR+2*
GMRVWT EN1+4!, EN1+11*, EN1+25, Q!
GMRVX EN1+7*, EN1+23!, Q+1!
GMRVX(0 EN1+7*, EN1+10, EN1+11, EN1+12, EN1+13, EN1+14, EN1+15, EN1+16, EN1+18, EN1+19
, EN1+20, EN1+21, EN1+22
GMRVX(1 EN1+23
GMRX EN1+3*, Q+1!
GMRZZ Q!, CHAR+1*, CHAR+2!, CHAR+3!
GMVD EN1+6*, EN1+7, Q!, WRTDT+1
GMVD(1 EN1+6*, EN1+7, CHAR+1, CHAR+2
GMVDM Q!
GRADIAL EN1+1~, EN1+2*, SETNODE+9
OK EN1+1~, SETNODE+4*, SETNODE+6*, SETNODE+7*, SETNODE+8*, SETNODE+9*
POP Q+1!
VA Q+1!
>> X EN1+3*, EN1+4*, EN1+6*, EN1+7, EN1+8, EN1+10, EN1+11, EN1+12, EN1+13, EN1+14
, EN1+15, EN1+16, EN1+17, EN1+25, SETDATAR+1, SETDATAR+2, SETNODE+3, SETNODE+4, SETNODE+15, CHAR+1
, CHAR+2
>> Y EN2+1, EN1+3*, SETDATAR+1*, SETNODE+1, SETNODE+6, SETNODE+7, SETNODE+8, SETNODE+9, SETNODE+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All