Routine: GMRVED3

Package	Total	Call Graph
General Medical Record - Vitals	6	EN2^GMRVED1 EN4^GMRVED2 DSPOV^GMRVED4 (CLEAR,LISTQ,OTHERQ)^GMRVQUAL (BP,TPSITE,WTYPE)^GMRVUT1 O2^GMRVUT3
Kernel	2	$$UP^XLFSTR EN^XQH

Package	Total	Caller Graph
General Medical Record - Vitals	4	GMRVALL0 GMRVED0 GMRVED1 GMRVED2

Entry Points

Name	Comments	DBIA/ICR reference
A
SITE	;
HTCHK(X)	; Check ' and " symbols in height entry ; input - X (the height entry) ; output - 0 means there is a problem with the single or double quotes ; 1 means the single and double quotes are fine
RESET(GMRVOD,GMRVFLG,GMY)	; Reset GMY after removal of METHOD
INPTR1	;
CHKDAT	;CHECK V/M ENTRY DATA
NEXT
A1
EN2	;VITAL ENTRY FOR A PATIENT
SETBP	;
WDUP	;
ASK
CHKBP	; Check for Method of BP for Systolic Value only
INPTR	;

External References

Name	Field # of Occurrence
EN2^GMRVED1	EN2+1
EN4^GMRVED2	EN2+1
DSPOV^GMRVED4	ASK+3
CLEAR^GMRVQUAL	INPTR1+9, SITE+3
LISTQ^GMRVQUAL	INPTR1+9, SITE+3
OTHERQ^GMRVQUAL	INPTR1+9, SITE+3
BP^GMRVUT1	SITE+5, SITE+9
TPSITE^GMRVUT1	INPTR1+5, INPTR1+17, SITE+1
WTYPE^GMRVUT1	INPTR1+8
O2^GMRVUT3	INPTR1+1
$$UP^XLFSTR	INPTR+3, INPTR1+2, INPTR1+12, SITE+1
EN^XQH	A1+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: GMRX Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Enter another B/P? NO// " Line Location: ASK+1
Function Call: WRITE	Prompt: @IOF,GPRMT Line Location: ASK+3
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO, maximum 6 B/Ps ",*7 Line Location: ASK+4
Function Call: WRITE	Prompt: !,?5,$C(7),"Invalid ",GMRVIT(1)," entry" Line Location: A+0
Function Call: WRITE	Prompt: !,GMRVIT(1)_": " Line Location: A1+0
Function Call: WRITE	Prompt: $C(7),!,?4,GMRVIT(1)_" data already exists for this patient on this date/time.",!,?4,"To change this data use the enter a vital/measurement in error option.",! Line Location: WDUP+1
Function Call: WRITE	Prompt: !,"Missing diastolic data!",! Line Location: SITE+5
Function Call: WRITE	Prompt: ! Line Location: SITE+5
Function Call: WRITE	Prompt: !,"Missing diastolic data!",! Line Location: SITE+9
Function Call: WRITE	Prompt: ! Line Location: SITE+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.5 - [#120.5]	NEXT+4, CHKDAT+2
^GMRD(120.51 - [#120.51]	CHKDAT+1, CHKDAT+5

Label References

Name	Line Occurrences
$$HTCHK	INPTR1+2
A	INPTR1+1, INPTR1+2, INPTR1+8, INPTR1+10, INPTR1+19
A1	A1+5
ASK	ASK+4
CHKBP	SITE+3
EN2	ASK+3
INPTR	A1+1
INPTR1	A1+3
NEXT	EN2+1
RESET	CHKBP+13, CHKBP+14, CHKBP+15, CHKBP+16, CHKBP+17, CHKBP+18
SETBP	ASK+3
SITE	INPTR1+19
WDUP	CHKDAT+3, CHKDAT+4

Naked Globals

Name	Field # of Occurrence
^(0	CHKDAT+1
^(1	CHKDAT+5
^(2	CHKDAT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	NEXT+4, CHKDAT+2
DTIME	ASK+1, A1
GBP	NEXT+4!, ASK+1!
GBP(	SETBP+1*
>> GCAT	CHKBP+2, CHKBP+3, CHKBP+23, CHKBP+26, RESET+9, RESET+10, RESET+11
>> GCHART	CHKBP+17
>> GCHART(	CHKBP+11, CHKBP+19, CHKBP+20, CHKBP+21, CHKBP+22, CHKBP+24
>> GCHART1	CHKBP+18
>> GCOUNT	CHKBP+13
>> GCOUNT(	CHKBP+1, CHKBP+2, CHKBP+8!
>> GDT	ASK+2
>> GLAST	ASK+3*
>> GLVL	INPTR1+9, SITE+3
GMRCI	CHKBP+9~, CHKBP+11, CHKBP+19, CHKBP+20, CHKBP+21, CHKBP+22, CHKBP+24, RESET+1~, RESET+4, RESET+5 , RESET+8*
GMRCJ	CHKBP+9~, CHKBP+11, CHKBP+12, CHKBP+19, CHKBP+21, CHKBP+23, CHKBP+24, CHKBP+26, RESET+1~, RESET+3* , RESET+4*
GMRCX	CHKBP+9~, CHKBP+10, CHKBP+11, CHKBP+12, CHKBP+19, CHKBP+20, CHKBP+21, CHKBP+22, CHKBP+23, CHKBP+24 , CHKBP+26, RESET+1~, RESET+4, RESET+5
>> GMRDAT	CHKDAT+3, CHKDAT+4, INPTR+1
>> GMRDAT(	INPTR+2, INPTR+3, INPTR1+20*
>> GMRDAT("PN"	INPTR1+7*
GMRDP	INPTR1+11~, INPTR1+14, INPTR1+15, INPTR1+16*, INPTR1+17, SITE+3
>> GMRDT0	NEXT, NEXT+1, NEXT+2, NEXT+4, ASK+1, ASK+2, ASK+3
>> GMRENTY	NEXT, NEXT+4, ASK, ASK+1, ASK+2, ASK+3, CHKDAT+3, INPTR+1, INPTR1+10, INPTR1+17 , INPTR1+19
GMRIN	SITE+3~
GMRIN(	CHKBP+12*
>> GMRINF(	INPTR+2, INPTR+3, INPTR1+8!, INPTR1+9!
>> GMRINF("BP"	ASK, SITE+5, SITE+6, SITE+7, SITE+8
>> GMRINPTR	CHKDAT+5*, INPTR1+20
>> GMRLAST	CHKBP+15
>> GMRLAST(	CHKBP+8!, CHKBP+23, CHKBP+26
>> GMRO2(	CHKDAT+1*
>> GMROK	EN2+1*
>> GMROUT	EN2+1, NEXT, ASK+1, INPTR+1, A1+1
>> GMROUT(1	NEXT+1*
>> GMROV("BP"	SETBP+1
>> GMRPRMT	NEXT+3
>> GMRRET	A1, A1+1, A1+2, A1+3, A1+4
>> GMRSITE	INPTR1+2, INPTR1+3, INPTR1+4, INPTR1+8, INPTR1+14, INPTR1+15, INPTR1+16, SITE+1, CHKBP+10
>> GMRSITE(	INPTR+2, INPTR+3, INPTR1+8!, INPTR1+9!
>> GMRSITE("BP"	ASK
>> GMRSITE("PN"	INPTR1+7*
>> GMRSTR	NEXT+2, NEXT+3, NEXT+4, ASK, ASK+1, ASK+2, ASK+3*
>> GMRSTR(0	CHKDAT+1
>> GMRTO	ASK+1, A1+1
GMRVDQ	HTCHK+6~, HTCHK+8*, HTCHK+9, HTCHK+10
GMRVFLG	RESET~, RESET+2
>> GMRVIDT	NEXT, NEXT+1, NEXT+2, NEXT+4, ASK+1, ASK+2, ASK+3*, CHKDAT+2
>> GMRVIT	CHKDAT+1*, CHKDAT+2, CHKDAT+5
>> GMRVIT(1	CHKDAT+1*, A, A1, A1+4, WDUP+1
>> GMRVITY	CHKDAT+1*, INPTR+2, INPTR+3, INPTR1+1, INPTR1+2, INPTR1+7, INPTR1+8, INPTR1+9, INPTR1+10, INPTR1+11 , INPTR1+19, INPTR1+20, A1+4, SITE+1, SITE+2, SITE+3
GMRVOD	RESET~, RESET+4, RESET+7*, RESET+8, RESET+9, RESET+10, RESET+11
>> GMRVODR	CHKBP+1*, CHKBP+2, CHKBP+7, CHKBP+8, CHKBP+12, CHKBP+13, CHKBP+14, CHKBP+15, CHKBP+16, CHKBP+17 , CHKBP+18
GMRVOK	CHKBP+1~, CHKBP+2, CHKBP+3, CHKBP+6
GMRVSQ	HTCHK+6~, HTCHK+7*, HTCHK+9, HTCHK+10
>> GMRX	ASK+1*, ASK+2, ASK+3, CHKDAT+1, CHKDAT+4, INPTR+1
>> GMRY	CHKDAT+2*
GMY	RESET~, RESET+5!
GMY(	RESET+4, RESET+5, RESET+7, RESET+8!, RESET+9, RESET+10*, RESET+11!
GMY1	RESET+1~
GMY1(	RESET+4*, RESET+5
>> GORDER	CHKBP+16
>> GORDER(	CHKBP+8!
GPRMT	NEXT+3*, NEXT+4!, ASK!, ASK+1!, ASK+2!, ASK+3
GPRMT(1	NEXT+3*, NEXT+4, ASK, ASK+1, ASK+2
>> GQUAL	CHKBP+14
>> GQUAL(	CHKBP+8!
I	SETBP+1~*
II	SITE+6~*, SITE+7, SITE+8
II(0	SITE+6, SITE+7, SITE+8*, SITE+9
IOF	ASK+3
X	INPTR+1, INPTR+2, INPTR+3, INPTR1+1, INPTR1+2, INPTR1+3, INPTR1+7, INPTR1+8, INPTR1+10, INPTR1+12 , INPTR1+13, INPTR1+14, INPTR1+15, INPTR1+16, INPTR1+19, INPTR1+20, A1+2, A1+3, SITE+1*, SITE+4 , SITE+5!, SITE+9!, HTCHK~, HTCHK+4, HTCHK+5, HTCHK+7, HTCHK+8, HTCHK+10
XQH	A1+4*!

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVED3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: