Routine: GMRVDS0

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

Package

Total

Call Graph

General Medical Record - Vitals

($$WRITECH,CHAR)^GMRVCHAR PAT^GMRVDS1 SETBP^GMRVDS2 EN1^GMRVSAS0

Kernel

$$UP^XLFSTR

Registration

KVAR^VADPT

VA Fileman

^DIC

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

Package

Total

Caller Graph

General Medical Record - Vitals

GMRV DISPLAY V/M GMRVDS1 GMRVDS2

Nursing Service

NURCVPR0

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	;

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

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

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

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

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

Local Variables

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

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVDS0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: