Routine: GMRVED0

Package	Total	Call Graph
General Medical Record - Vitals	5	(ADM,EN1)^GMRVADM DATE^GMRVED0 (EN1,EN2)^GMRVED2 EN2^GMRVED3 EN3^GMRVED6
VA Fileman	4	^%DT NOW^%DTC ^DIC YN^DICN
Kernel	2	$$FMADD^XLFDT EN^XQH
Registration	1	(INP,KVAR)^VADPT

Package	Total	Caller Graph
General Medical Record - Vitals	19	GMRV ADMISSION V/M GMRV CHANGE V/M PARAMETERS GMRV CIRCUMF/GIRTH GMRV CVP GMRV EXT B/P GMRV O2SATURATION GMRV PAIN GMRV PULSE GMRV TPR B/P ROUTINE GMRV TPR EXT B/P GMRV TPR ROUTINE GMRV TPRBW GMRV WEIGHT GMRVALL0 GMRVDS1 GMRVED0 GMRVED4 GMRVED5 GMRVSR0
Nursing Service	1	NURCVED0

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;
Q3
MULTIVM
PATDAT	;
A3	;
WARDPAT	; SELECT EDIT BY 1. UNIT, 2. SELECTED ROOMS ON UNIT, 3. PATIENT
WP1	;
Q	;
WARDSEL	; SELECT SEARCH WARD
EN2	; DETERMINE VITALS SITE
A2	;
EN3	; CALL IF DFN TO EDIT SINGLE PATIENT VITALS WHERE ; INPUT : DFN= PT FILE PTR. ; GMRSTR=STRING OF VITALS TO EDIT ; where T=Temp, P=Pulse, R=Resp, B=BP,H=Ht., W=Wt. ; GMRVHLOC=HOSP. LOCATION (PTR TO FILE 44) ; GMRVIDT=DATE/TIME VITALS TAKEN ; OUPTUT : GMRVIEN(GMRVTY)=120.5 ENTRY^GMRVREAD^GMRVSITE ; where GMRVTY is the vital type see codes above ; GMRVREAD = READING FOR THIS VITAL TYPE ; GMRVSITE = PTR TO GMR VITALS SITE FILE ; GMROUT WILL BE 1 IF ABNORMAL EXIT, ELSE 0
DATE	; CALL TO SET GMRVIDT (WHEN THE VITALS WERE TAKEN) ; ALSO RETURNS GMROUT=1 IF TIMEOUT OR UPARROW OUT.

External References

Name	Field # of Occurrence
^%DT	DATE+2
NOW^%DTC	DATE+4
^DIC	WARDSEL+2, PATDAT+1, PATDAT+6
YN^DICN	MULTIVM
ADM^GMRVADM	PATDAT+4
EN1^GMRVADM	A3+1
DATE^GMRVED0	EN2+2
EN1^GMRVED2	A3+2, A3+3
EN2^GMRVED2	A3+2, A3+3
EN2^GMRVED3	A3+1, MULTIVM+1
EN3^GMRVED6	A3+3
INP^VADPT	PATDAT+3
KVAR^VADPT	Q1+2, PATDAT+3
$$FMADD^XLFDT	DATE+5
EN^XQH	WARDPAT+3, WP1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A3+1
Function Call: WRITE	Prompt: !,?3,$C(7),"Cannot enter future dates" Line Location: DATE+4
Function Call: WRITE	Prompt: !,?3,$C(7),"Sorry, you cannot enter a date more than 1 year old." Line Location: DATE+5
Function Call: READ	Timeout: DTIME Variable: GMREDB Line Location: WARDPAT+1
Function Call: WRITE	Prompt: !,$C(7),?5,"INVALID ENTRY ??" Line Location: WARDPAT+4
Function Call: WRITE	Prompt: !,7,"* NO PATIENTS REGISTERED ON UNIT ",$P(^DIC(42,GMRWARD,0),U)," **" Line Location: WARDSEL+4
Function Call: WRITE	Prompt: !,"Hospital location is required",! Line Location: PATDAT+7
Routine Call	DIC Line Location: WARDSEL+2 PATDAT+1 PATDAT+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	WP1+1
^DIC(42 - [#42]	WARDSEL+4, WARDSEL+5, PATDAT+6
^DPT("CN"	WARDSEL+3
^SC - [#44]	PATDAT+6
^TMP($J	Q+3!

Label References

Name	Line Occurrences
A3	A3+1, EN3+13
DATE	DATE+4, DATE+5, MULTIVM+1
MULTIVM	A3+1, MULTIVM, MULTIVM+1
PATDAT	A3+1, WP1+2
Q	EN2+3, A3+1, A3+2, A3+3
Q1	Q3, Q+1
Q3	EN3+12
WARDPAT	EN2+3, WARDPAT+3, WARDPAT+4, WP1+1
WARDSEL	WP1+1
WP1	WARDPAT+2

Naked Globals

Name	Field # of Occurrence
^(0	PATDAT+6
^(44	WARDSEL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DATE+4, Q1+1!, MULTIVM*
%DT	DATE+2*!, Q1+1!
%DT("A"	DATE+2*
%H	Q1+1!
%T	Q1+1!
DA	Q1+1!
DFN	EN3+11, Q+3!, WARDSEL+3, WARDSEL+4, PATDAT+1, PATDAT+2
DIC	Q1+1!, WARDSEL+1, WARDSEL+2!, PATDAT+1!, PATDAT+6*!
DIC("A"	PATDAT+6*
DIC("B"	PATDAT+6*
DIC("S"	WARDSEL+1, PATDAT+6
DIC(0	WARDSEL+1, PATDAT+1, PATDAT+6*
DIE	Q1+1!
DIPGM	Q1+2!
DQ	Q1+1!
DR	Q1+1!
DT	DATE+5
DTIME	WARDPAT+1
GCT	Q1+2!
GDA	Q1+2!
GDATA	Q1+2!
GDT	A3+1, Q1+1!, PATDAT+4
GDT(1	EN2+3*, A3+1
GENTR	Q1+1!, PATDAT+4*
GLAST	Q1+2!
GMRDAT	Q1+1!
GMRDATE	Q1+1!
GMRDT0	A3+1, Q1+2!, MULTIVM+1
GMREDB	A3+1, A3+2, A3+3, EN3+13, Q3!, Q+3!, WARDPAT+1, WARDPAT+2, WARDPAT+3, WP1+1 , PATDAT+4
GMRENTY	EN2+1, A2+2, A2+3, A2+4, Q3!, Q+3!
GMRHELP	Q1+1!
GMRI	Q1+1!
GMRINPTR	Q1+1!
GMRLEN	Q1+1!
GMRMSL	Q1+1!
GMRNAM	Q1+1!
GMROK	Q1+1!
GMROUT	EN2+1, EN2+2!, EN2+3, A3+1, EN3+12, DATE+3, Q+3!, WARDPAT+1, WP1+1, WARDSEL+2 , WARDSEL+4, PATDAT+2, PATDAT+4, PATDAT+7, MULTIVM, MULTIVM+1, MULTIVM+2*
GMROV	Q1+2!
GMRP	Q1+2!
GMRPRMT	Q1+1!
GMRQUAL	Q1+2!
GMRRET	Q1+1!
GMRRMBD	Q1+1!
GMRRMST	Q1+1!
GMRROOM	Q1+1!
GMRS	Q1+1!
GMRSCR	Q1+1!
GMRSITE	Q1+1!
GMRSTR	A2+1, A2+2, A2+3, A2+4*, A2+5, EN3+11, Q+3!
GMRTMP	EN2+1!, EN3+12*, Q3!, Q+1, Q1+1!
GMRTO	Q1+1!
GMRTY	Q1+1!
GMRTYPE	Q1+2!
>> GMRVDBA	EN2+1
GMRVHLOC	Q+3!, WARDSEL+5, PATDAT+8
GMRVIDT	EN2+1, EN2+2, EN2+3, A3+1, EN3+11, DATE+6*, Q+2!, PATDAT+4, MULTIVM+1
GMRVIDT(0	EN2+1, EN2+2
GMRVIT	Q1+1!
GMRVITY	Q1+1!
GMRVWLOC	EN2+3*, Q1+1!, PATDAT+5
GMRVX	Q1+1!
GMRWARD	Q1+1!, WP1+1, WARDSEL+3, WARDSEL+4, WARDSEL+5, PATDAT+3, PATDAT+4, PATDAT+6
GMRWARD(1	WARDSEL+3, PATDAT+3
GMRX	Q1+1!
GMRY	Q1+1!
>> GNUROP	EN3+14
GTYPE	Q1+2!
POP	DATE+6!, Q1+1!
U	EN2+1, DATE+2, DATE+3, WARDPAT+1, WARDSEL+2, WARDSEL+3, WARDSEL+4, WARDSEL+5, PATDAT+3, PATDAT+6
VA	Q1+2!, PATDAT+3!
>> VAIN(4	PATDAT+3
>> X	DATE+2*, DATE+3, WARDSEL+2
XQH	WARDPAT+3!, WP1+1!
>> Y	DATE+3, DATE+4, DATE+5, DATE+6, WARDSEL+2, WARDSEL+3, PATDAT+1, PATDAT+7, PATDAT+8
>> Y(0	WARDSEL+3

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVED0

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: