Routine: GMVDS0

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

Package

Total

Call Graph

General Medical Record - Vitals

$$FIELD^GMVGETQL EN1^GMVSAS0 (CLIO,F1205)^GMVUTL

Kernel

$$UP^XLFSTR

Registration

KVAR^VADPT

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

Package

Total

Caller Graph

General Medical Record - Vitals

GMVDS1 GMVLATS

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

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

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

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

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMVDS0

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: