Routine: GMRVEE2

Call Graph Total: 11

Package	Total	Call Graph
General Medical Record - Vitals	7	EN1^GMRVADM ($$WRITECH,CHAR)^GMRVCHAR ERREN^GMRVEE1 (CLEAR,LISTQ,OTHERQ)^GMRVQUAL EN1^GMRVSAS0 (TPSITE,WTYPE)^GMRVUT1 O2^GMRVUT3
VA Fileman	3	^%DT ^DIC DT^DIQ
Kernel	1	$$UP^XLFSTR

Package

Total

Call Graph

EN1^GMRVADM ($$WRITECH,CHAR)^GMRVCHAR ERREN^GMRVEE1 (CLEAR,LISTQ,OTHERQ)^GMRVQUAL EN1^GMRVSAS0 (TPSITE,WTYPE)^GMRVUT1 O2^GMRVUT3

VA Fileman

^%DT ^DIC DT^DIQ

Kernel

$$UP^XLFSTR

Package	Total	Caller Graph
General Medical Record - Vitals	1	GMRVEE1

Package

Total

Caller Graph

General Medical Record - Vitals

GMRVEE1

Entry Points

Name	Comments	DBIA/ICR reference
Q1
DUPREC	;PRINT WARNING MESSAGE IF THE DATE/TIME CHANGE WILL CAUSE DUPLICATE RECORD
DUPDT	;SET EXISTING OLD VITAL AS ERROR RECORD
Q
EN1	; ENTER NEW DATE/TIME VITALS TAKEN
EN2	; ENTER NEW READING
EN3	; SELECT NEW PATIENT FOR VITALS
PRTEED	; PRINT ERROR RECORD
ERRAT
RDSITE(X)	; THIS FUNCTION CONVERTS A VITAL DATA ENTRY IN X TO A SITE AND ; A READING. IT RETURNS SITE^READING.
CHKER	;

External References

Name	Field # of Occurrence
^%DT	EN1+1
^DIC	EN3+1
DT^DIQ	PRTEED+13
EN1^GMRVADM	EN2+2
$$WRITECH^GMRVCHAR	PRTEED+3
CHAR^GMRVCHAR	PRTEED+3
ERREN^GMRVEE1	DUPDT+1
CLEAR^GMRVQUAL	ERRAT+10, Q
LISTQ^GMRVQUAL	ERRAT+6, ERRAT+10
OTHERQ^GMRVQUAL	ERRAT+6, ERRAT+10
EN1^GMRVSAS0	PRTEED+2
TPSITE^GMRVUT1	ERRAT+2, ERRAT+12
WTYPE^GMRVUT1	ERRAT+11
O2^GMRVUT3	ERRAT+8
$$UP^XLFSTR	ERRAT+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: ERRAT+0
Function Call: WRITE	Prompt: !!,"NEW "_$S($P(GMRVIT(1),"^")'="":$P(GMRVIT(1),"^"),1:"VALUE")_": " R X:DTIME S:'$T Line Location: ERRAT+0
Function Call: WRITE	Prompt: ! Line Location: ERRAT+0
Function Call: WRITE	Prompt: ! Line Location: ERRAT+0
Function Call: WRITE	Prompt: !,"NO UPDATING HAS OCCURRED",! Line Location: ERRAT+3
Function Call: WRITE	Prompt: !,?3,$C(7),"INVALID ENTRY??" Line Location: ERRAT+5
Function Call: WRITE	Prompt: !,"NO UPDATING HAS OCCURRED",! Line Location: ERRAT+11
Function Call: WRITE	Prompt: !,?3,$C(7),"INVALID ENTRY??" Line Location: ERRAT+13
Function Call: WRITE	Prompt: !,$P($S($D(^GMRD(120.51,GVIT,0)):^(0),1:0),"^")," already exists on ",Y," reading - ",$P(^GMR(120.5,GDA,0),"^",8) Line Location: CHKER+1
Function Call: WRITE	Prompt: ! Line Location: PRTEED+13
Function Call: WRITE	Prompt: " No pain" Line Location: PRTEED+16
Function Call: WRITE	Prompt: " Unable to respond" Line Location: PRTEED+17
Function Call: WRITE	Prompt: " Worst imaginable to respond" Line Location: PRTEED+18
Function Call: WRITE	Prompt: " ",GMRZZ Line Location: PRTEED+19
Routine Call	DIC Line Location: EN3+1

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

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.5 - [#120.5]	DUPREC+1, CHKER+1, DUPDT+1, PRTEED+1, PRTEED+3
^GMRD(120.51 - [#120.51]	EN2+1, CHKER+1, PRTEED+2

Name	Line Occurrences
$$RDSITE	ERRAT+2
@(	ERRAT+1
CHKER	DUPREC+1
ERRAT	ERRAT+1, ERRAT+4, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11, ERRAT+12, ERRAT+13
Q	EN2+2, ERRAT, ERRAT+7, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+12, ERRAT+13, Q1
Q1	ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+12

Name	Field # of Occurrence
^(0	EN2+1, CHKER+1, PRTEED+2
^(1	EN2+1, PRTEED+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN1+1*!
%DT("A"	EN1+1*
%DT(0	EN1+1*
>> DFN	DUPREC+1, CHKER+1, DUPDT+1
DIC	EN3+1*!
DIC("A"	EN3+1*
DIC(0	EN3+1*
DTIME	ERRAT
>> DTOUT	EN3+1
>> DUOUT	EN3+1
GDA	DUPREC+2!, CHKER+1*
>> GDATE	DUPREC+1, CHKER+1, DUPDT+1
>> GDT	EN2+2*
GII	DUPREC+1*, DUPREC+2!
>> GLVL	EN2+1*
>> GMRAINP	EN2+1, ERRAT+5, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+12, ERRAT+13, PRTEED+2
>> GMRARTY(	DUPREC+1
>> GMRARTY(0	PRTEED+13
>> GMRCHC(1	EN1+1*
>> GMRCHC(2	Q1*
>> GMRCHC(3	EN3+1*
>> GMRDA	DUPDT+1*, PRTEED+1, PRTEED+3
>> GMRDAT	PRTEED+1*, PRTEED+2, PRTEED+10, PRTEED+13, PRTEED+14
>> GMRENTY	EN2+1*
>> GMRINF(	ERRAT+6!
>> GMRINF("GMRVITY"	ERRAT+8, ERRAT+9
>> GMRO2(	EN2+1*
>> GMROUT	EN1+1, EN2+2, ERRAT, ERRAT+3, ERRAT+7, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11, ERRAT+12 , ERRAT+13, Q1, EN3+1, CHKER+1
>> GMRSITE	ERRAT+2, ERRAT+3, ERRAT+11, ERRAT+12
>> GMRSITE(	ERRAT+3, ERRAT+6!, ERRAT+8, ERRAT+9, ERRAT+11
>> GMRTY	EN2+1, ERRAT+1, ERRAT+2, ERRAT+3, ERRAT+4, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11, PRTEED+2 , PRTEED+14, PRTEED+15
GMRVARY	PRTEED+3!*
>> GMRVIDT	EN2+2
>> GMRVIT	EN2+1*
>> GMRVIT(1	EN2+1*, ERRAT
>> GMRVITY	EN2+1, ERRAT+3, ERRAT+6, ERRAT+8, ERRAT+9, ERRAT+11, ERRAT+12, Q
GMRVPO	PRTEED+10~*, PRTEED+11
>> GMRVX	PRTEED+2*, PRTEED+4, PRTEED+5, PRTEED+6, PRTEED+7, PRTEED+8, PRTEED+9, PRTEED+19
>> GMRVX(0	PRTEED+2, PRTEED+4, PRTEED+5, PRTEED+6, PRTEED+7, PRTEED+8, PRTEED+9, PRTEED+11*, PRTEED+14, PRTEED+16 , PRTEED+17, PRTEED+18
>> GMRVX(1	PRTEED+2*, PRTEED+14
>> GMRX	EN2+1, PRTEED+2, PRTEED+3, PRTEED+13
>> GMRY	DUPDT+1
>> GMRZZ	PRTEED+3*, PRTEED+19
>> GMRZZ(1	PRTEED+3*
GOPT	ERRAT+1*!
GSAVE	EN2+1*, Q!
GVIT	DUPREC+1*, DUPREC+2!, CHKER+1
I	RDSITE+2~, RDSITE+4*
READ	RDSITE+2~, RDSITE+5*, RDSITE+6
SITE	RDSITE+2~, RDSITE+5*, RDSITE+6
U	ERRAT+2, PRTEED+2, PRTEED+14
X	EN1+1, ERRAT, ERRAT+1, ERRAT+2, ERRAT+4, ERRAT+5, ERRAT+8, ERRAT+9, ERRAT+10, ERRAT+11 , ERRAT+12*, ERRAT+13, Q1, RDSITE~, RDSITE+3, RDSITE+4, RDSITE+5
Y	EN1+1, EN3+1, CHKER+1, PRTEED+13, RDSITE+2~, RDSITE+3, RDSITE+4
Z	RDSITE+2~, RDSITE+4*, RDSITE+5

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVEE2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: