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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
General Medical Record - Vitals 3 $$FIELD^GMVGETQL  EN1^GMVSAS0  (CLIO,F1205)^GMVUTL  
Kernel 1 $$UP^XLFSTR  
Registration 1 KVAR^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
General Medical Record - Vitals 2 GMVDS1  GMVLATS  

Entry Points

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

External References

Name Field # of Occurrence
$$FIELD^GMVGETQL SETDATAR+12
EN1^GMVSAS0 EN1+10
CLIO^GMVUTL SETDATAR+6
F1205^GMVUTL SETDATAR+4
KVAR^VADPT Q+2
$$UP^XLFSTR EN1+21, SETNODE+3, SETNODE+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMRD(120.51 - [#120.51] EN1+4
^GMRD(120.52 - [#120.52] EN1+3
^PXRMINDX(120.5 EN1+7, SETDATAR+2

Label References

Name Line Occurrences
CHAR EN1+27
Q EN1+8
SETDATAR EN1+7
SETNODE SETDATAR+16
WRTDT EN1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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