Routine: GMRVBP1

Information

GMRVBP1 ;HIRMFO/YH-CALCULATE KYOCERA B/P GRAPH DATA ;5/15/97

Source file <GMRVBP1.m>

Package	Total	Call Graph
General Medical Record - Vitals	6	EN1^GMRVBP2 EN2^GMRVBP3 EN3^GMRVBP4 SETA^GMRVBP5 SETV^GMRVGR1 LEGEND^GMRVLGQU
Registration	1	(DEM,INP,KVAR)^VADPT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
General Medical Record - Vitals	2	GMRVBP0 GMRVHB0

Name	Comments	DBIA/ICR reference
DATE1
SETD
GRAPH
SETV
SETP	;INITIALIZE ^TMP FOR V/M QUALIFIERS
DATE
PAGE	;

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	SETV+3
^TMP($J	GRAPH+1, GRAPH+2, GRAPH+6, GRAPH+7, PAGE+1, PAGE+2, PAGE+3, SETV, SETV+1, SETV+2* , DATE, DATE1, SETD, SETD+1, SETP+5*

Name	Field # of Occurrence
^("G"	SETP+5*

Name	Field # of Occurrence
>> GAGE	SETV*, SETV+2
>> GCNTD	DATE*, DATE1
>> GDOB	SETV*, SETV+2
>> GDT1	GRAPH+3, DATE, DATE1, SETD, SETD+1
GG	PAGE+5!
>> GI	GRAPH+1, PAGE+1, PAGE+2, PAGE+3, SETD, SETD+1
>> GJ	GRAPH+1, SETD, SETD+1*
>> GK	GRAPH+1, SETD, SETD+1*
>> GMRDIV	SETV+4*
GMRQUAL	GRAPH+5!, PAGE+4
>> GMRRMBD	GRAPH+6, SETV+2*
>> GMRVHLOC	SETV+3*, SETV+4
>> GMRWARD(1	SETV+1
>> GPG	GRAPH+3*, GRAPH+4
>> GPGS	GRAPH+4*, GRAPH+6
GSYNO	PAGE+5!
>> GTNM	GRAPH+2*, GRAPH+3
I	PAGE+5!, SETP+5*
J	PAGE+5!
VA	GRAPH+8!
>> VADM(1	SETV
>> VADM(2	SETV
>> VADM(3	SETV
>> VADM(4	SETV
>> VADM(5	SETV+1
>> VAIN(4	SETV+3
>> VAIN(5	SETV+2
>> X	GRAPH+1, GRAPH+2
>> Y	DATE1*