Routine: GMTSVSS

Package	Total	Call Graph
Health Summary	2	REGDTM4^GMTSU CKP^GMTSUP
VA Fileman	2	%XY^%RCR EN^DIQ1
General Medical Record - Vitals	1	EN1^GMVHS
Kernel	1	$$VERSION^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
ENVS	; Set up for extraction routine
WRTHDR	; Writes Header
WRTHDR1	; Writes 2nd line of header
WRT	; Writes vitals record for one observation time
OUTPAT	; Outpatient Select Vitals Signs Main control
BLDHDR	; Builds the HDR array
NXTROW	; Get the Next Row of Vital Signs
BLDSTR	; Builds GMRVSTR string for extract call

External References

Name	Field # of Occurrence
%XY^%RCR	NXTROW+1
EN^DIQ1	BLDSTR+4
REGDTM4^GMTSU	WRT+2
CKP^GMTSUP	OUTPAT+12, OUTPAT+16, OUTPAT+20, ENVS+12, ENVS+16, WRTHDR+2, WRTHDR+3, WRTHDR+5, WRTHDR+7, WRTHDR1+2 , WRTHDR1+6, WRTHDR1+13, WRT+3, WRT+6, WRT+14
EN1^GMVHS	OUTPAT+9, ENVS+8
$$VERSION^XPDUTL	BLDSTR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "* No Outpatient measurements *",!! Line Location: OUTPAT+12
Function Call: WRITE	Prompt: ! Line Location: OUTPAT+16
Function Call: WRITE	Prompt: !! Line Location: OUTPAT+19
Function Call: WRITE	Prompt: ! Line Location: OUTPAT+20
Function Call: WRITE	Prompt: ! Line Location: ENVS+12
Function Call: WRITE	Prompt: !! Line Location: ENVS+15
Function Call: WRITE	Prompt: ! Line Location: ENVS+16
Function Call: WRITE	Prompt: "Measurement DT" Line Location: WRTHDR+2
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),$P(HDR(GMI),U,2) Line Location: WRTHDR+4
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),$P(HDR(GMI),U,2) Line Location: WRTHDR+6
Function Call: WRITE	Prompt: ! Line Location: WRTHDR+7
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"IN(CM)" Line Location: WRTHDR1+3
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"LB(KG)" Line Location: WRTHDR1+4
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"F(C)" Line Location: WRTHDR1+5
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"IN(CM)" Line Location: WRTHDR1+7
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"LB(KG)[BMI]" Line Location: WRTHDR1+8
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"F(C)" Line Location: WRTHDR1+9
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"CMH20(MMHG)" Line Location: WRTHDR1+10
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"(L/MIN)(%)" Line Location: WRTHDR1+11
Function Call: WRITE	Prompt: ?$P(COL,U,GMI+1),"IN(CM)" Line Location: WRTHDR1+12
Function Call: WRITE	Prompt: !! Line Location: WRTHDR1+13
Function Call: WRITE	Prompt: GMTDT Line Location: WRT+3
Function Call: WRITE	Prompt: ?$P(COL,U,GMTSI+1),GMTSVAL Line Location: WRT+8
Function Call: WRITE	Prompt: "("_$P(^(+IEN),U,13)_")" Line Location: WRT+9
Function Call: WRITE	Prompt: ?$P(COL,U,GMTSI+1),GMTSVAL Line Location: WRT+18
Function Call: WRITE	Prompt: "("_GMTSMET_")" Line Location: WRT+23
Function Call: WRITE	Prompt: "["_GMTSBMI_"]" Line Location: WRT+24
Function Call: WRITE	Prompt: "["_GMTSLMIN_"]["_GMTSPERC_"]" Line Location: WRT+25
Function Call: WRITE	Prompt: "["_GMTSQUAL_"]" Line Location: WRT+26

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	OUTPAT+2!, OUTPAT+11, OUTPAT+16, OUTPAT+20, OUTPAT+21!, ENVS+2!, ENVS+9, ENVS+12, ENVS+16, ENVS+17! , WRT+5, WRT+7, WRT+9, WRT+13, WRT+15, WRT+19

Label References

Name	Line Occurrences
BLDHDR	OUTPAT+9, ENVS+8
BLDSTR	OUTPAT+3, ENVS+4
ENVS	OUTPAT+13
NXTROW	OUTPAT+14, OUTPAT+18, ENVS+10, ENVS+14
WRT	OUTPAT+16, OUTPAT+20, ENVS+12, ENVS+16
WRTHDR	OUTPAT+15, OUTPAT+19, ENVS+11, ENVS+15, WRT+3
WRTHDR1	OUTPAT+15, OUTPAT+19, ENVS+11, ENVS+15, WRT+3

Naked Globals

Name	Field # of Occurrence
^(	WRT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	NXTROW+1*, NXTROW+2!
%Y	NXTROW+1*, NXTROW+2!
ABB	BLDHDR+1~, BLDHDR+3*, BLDHDR+5
CNT	OUTPAT+1~, ENVS+1~, BLDHDR+11, BLDHDR+16, BLDHDR+17, BLDHDR+19, BLDHDR+22, BLDHDR+23
COL	OUTPAT+1~, ENVS+1~, BLDHDR+1, BLDHDR+7, BLDHDR+8, BLDHDR+9, WRTHDR+4, WRTHDR+6, WRTHDR1+3, WRTHDR1+4 , WRTHDR1+5, WRTHDR1+7, WRTHDR1+8, WRTHDR1+9, WRTHDR1+10, WRTHDR1+11, WRTHDR1+12, WRT+8, WRT+18, NXTROW+2
COL(	OUTPAT+17, ENVS+13, BLDHDR+11, BLDHDR+15, BLDHDR+19, BLDHDR+21, NXTROW+2
COLL	OUTPAT+1~, ENVS+1~, BLDHDR+7, BLDHDR+9, BLDHDR+10, BLDHDR+11, BLDHDR+13, BLDHDR+14, BLDHDR+15, BLDHDR+19 , BLDHDR+20*, BLDHDR+21
DA	BLDSTR+1~, BLDSTR+3*, BLDSTR+4
DIC	BLDSTR+1~, BLDSTR+3*
DIQ	BLDSTR+1~, BLDSTR+3*
DIQ(0	BLDSTR+3*
DR	BLDSTR+1~, BLDSTR+3*
GMI	WRTHDR+1~, WRTHDR+3, WRTHDR+4, WRTHDR+5, WRTHDR+6, WRTHDR1+1~, WRTHDR1+2, WRTHDR1+3, WRTHDR1+4, WRTHDR1+5 , WRTHDR1+6, WRTHDR1+7, WRTHDR1+8, WRTHDR1+9, WRTHDR1+10, WRTHDR1+11, WRTHDR1+12
GMLEN	WRT+1~
GMRVSTR	OUTPAT+1~, OUTPAT+4, ENVS+5, BLDSTR+5*, BLDHDR+2, BLDHDR+3
GMRVSTR("LT"	OUTPAT+7*, ENVS+2!
GMRVSTR(0	OUTPAT+5, ENVS+6
GMTDT	WRT+1~, WRT+2*, WRT+3
>> GMTSBEG	OUTPAT+5, ENVS+6
GMTSBMI	WRT+1~, WRT+22*, WRT+24
GMTSDA	OUTPAT+1~, OUTPAT+3, ENVS+1~, ENVS+4, BLDSTR+3
GMTSDT	OUTPAT+1~, OUTPAT+16, OUTPAT+20, ENVS+1~, ENVS+12, ENVS+16, WRT+2, WRT+5, WRT+7, WRT+9 , WRT+13, WRT+15, WRT+19
>> GMTSEG(	OUTPAT+3, ENVS+4
>> GMTSEGN	OUTPAT+3, ENVS+4
>> GMTSEND	OUTPAT+5, ENVS+6
GMTSF	OUTPAT+1~, OUTPAT+16, OUTPAT+20, ENVS+1~, ENVS+12, ENVS+16
GMTSI	OUTPAT+1~, OUTPAT+3, ENVS+1~, ENVS+4, BLDHDR+1~, BLDHDR+2, BLDHDR+3, BLDHDR+4, BLDHDR+5, BLDHDR+6 , BLDHDR+7, BLDHDR+10, WRT+1~, WRT+4, WRT+8, WRT+12*, WRT+18
GMTSLMIN	WRT+1~, WRT+20*, WRT+25
GMTSMET	WRT+1~, WRT+9, WRT+19, WRT+20, WRT+21, WRT+22*, WRT+23
>> GMTSNDM	OUTPAT+2, ENVS+3
>> GMTSNPG	WRT+3
GMTSPERC	WRT+1~, WRT+20*, WRT+25
>> GMTSQIT	OUTPAT+12, OUTPAT+16, OUTPAT+17, OUTPAT+20, ENVS+12, ENVS+13, ENVS+16, WRTHDR+2, WRTHDR+3, WRTHDR+5 , WRTHDR+7, WRTHDR1+2, WRTHDR1+6, WRTHDR1+13, WRT+3, WRT+4, WRT+6, WRT+12, WRT+14
GMTSQUAL	WRT+1~, WRT+21*, WRT+26
GMTSVAL	WRT+1~, WRT+7, WRT+8, WRT+15, WRT+16, WRT+17, WRT+18
GMTSVI	WRT+1~, WRT+2, WRT+4, WRT+5, WRT+12*, WRT+13
GMTSVMVR	OUTPAT+21!, ENVS+17!, BLDSTR+2*, WRTHDR+3, WRTHDR+5, WRTHDR1+2, WRTHDR1+6, WRT+4, WRT+12
GMTSVT	WRT+1~, WRT+5, WRT+7, WRT+9, WRT+13, WRT+15, WRT+16, WRT+17, WRT+19, WRT+26
GMW	OUTPAT+1~, ENVS+1~
HDR	OUTPAT+1~, ENVS+1~, NXTROW+1!
HDR(	BLDHDR+3, BLDHDR+4, BLDHDR+5, BLDHDR+6, BLDHDR+10, BLDHDR+12, BLDHDR+13, BLDHDR+14, BLDHDR+16, BLDHDR+18! , BLDHDR+20, BLDHDR+22, BLDHDR+24!, WRTHDR+3, WRTHDR+4, WRTHDR+5, WRTHDR+6, WRTHDR1+2, WRTHDR1+3, WRTHDR1+4 , WRTHDR1+5, WRTHDR1+6, WRTHDR1+7, WRTHDR1+8, WRTHDR1+9, WRTHDR1+10, WRTHDR1+11, WRTHDR1+12, WRT+4, WRT+5 , WRT+12, WRT+13
HDR1	ENVS+1~
HDR1(	BLDHDR+16, BLDHDR+22
IEN	WRT+1~, WRT+5, WRT+6, WRT+7, WRT+9, WRT+13, WRT+14, WRT+15, WRT+19
LOOP	OUTPAT+1~, ENVS+1~, BLDHDR+12*, BLDHDR+13, BLDHDR+14, BLDHDR+16, BLDHDR+18, BLDHDR+20, BLDHDR+22, BLDHDR+24
MAX	OUTPAT+1~, OUTPAT+2, OUTPAT+5, OUTPAT+13, OUTPAT+16, OUTPAT+20, ENVS+3*, ENVS+6, ENVS+12, ENVS+16
ROW	OUTPAT+1~, OUTPAT+14, OUTPAT+17, ENVS+1~, ENVS+10, ENVS+13, BLDHDR+11, BLDHDR+15, BLDHDR+16, BLDHDR+19 , BLDHDR+21, BLDHDR+22, NXTROW+1, NXTROW+2
U	OUTPAT+5, ENVS+6, BLDHDR+4, BLDHDR+6, BLDHDR+7, BLDHDR+8, BLDHDR+10, BLDHDR+13, BLDHDR+14, BLDHDR+15 , BLDHDR+20, BLDHDR+21, WRTHDR+4, WRTHDR+6, WRTHDR1+3, WRTHDR1+4, WRTHDR1+5, WRTHDR1+7, WRTHDR1+8, WRTHDR1+9 , WRTHDR1+10, WRTHDR1+11, WRTHDR1+12, WRT+5, WRT+7, WRT+8, WRT+9, WRT+13, WRT+15, WRT+18 , WRT+19, WRT+20, WRT+21, WRT+22
VIT	BLDSTR+1~, BLDSTR+4*, BLDSTR+5
VIT(	BLDSTR+4
WIDTH	OUTPAT+1~, ENVS+1~, BLDHDR+6*, BLDHDR+7, BLDHDR+10
X	WRT+1~, WRT+2*

Customize PDF page

Package: Health Summary

Routine: GMTSVSS

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: