Routine: GMRVED1

Package	Total	Call Graph
General Medical Record - Vitals	6	SETPRMT^GMRVED2 CHKDAT^GMRVED3 DSPOV^GMRVED4 $$EN2^GMRVED6 EN1^GMRVSAS0 CHECK^GMRVUT1
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
General Medical Record - Vitals	1	GMRVED3

Entry Points

Name	Comments	DBIA/ICR reference
AR1
ASK1	;
CHKSTR	; CHECK THE INPUT STRING TO SEE IF IT IS VALID
WRT	;
CHKDAT	;
EN2	; ENTRY FROM GMRVED0 TO ENTER THE DATA FOR A PATIENT DEFINED BY DFN
WOK	;
ASK	;
STAR
CHANGE

External References

Name	Field # of Occurrence
SETPRMT^GMRVED2	CHANGE
CHKDAT^GMRVED3	CHKDAT+1
DSPOV^GMRVED4	EN2+1
$$EN2^GMRVED6	ASK+7
EN1^GMRVSAS0	WOK+8
CHECK^GMRVUT1	ASK+1, ASK+2, ASK+3
$$UP^XLFSTR	WOK+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter an * for the specific value when documenting the reason for omission.",! Line Location: ASK+2
Function Call: WRITE	Prompt: "Enter a single * to document that all measurements were omitted and the",!,"reason for omission." Line Location: ASK+3
Function Call: WRITE	Prompt: !!,GMRPRMT Line Location: ASK+3
Function Call: WRITE	Prompt: !!,$C(7),"NO DATA ENTERED",! Line Location: ASK+6
Function Call: WRITE	Prompt: !!,$C(7),"ERRONEOUS ENTRY",! Line Location: ASK+9
Function Call: WRITE	Prompt: ! Line Location: STAR+1
Function Call: WRITE	Prompt: !,$C(7),"NO DATA ENTERED",! Line Location: ASK1+1
Function Call: WRITE	Prompt: !,"Is this correct? YES// " Line Location: ASK1+2
Function Call: WRITE	Prompt: !,$C(7),"DATA DELETED",! Line Location: ASK1+3
Function Call: WRITE	Prompt: ! Line Location: ASK1+4
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO",*7 Line Location: ASK1+6
Function Call: WRITE	Prompt: ! Line Location: AR1+0
Function Call: WRITE	Prompt: !,?2,$S(GMRX="BP":"B/P",GMRX="P":"Pulse",GMRX="R":"Resp.",GMRX="T":"Temp.",GMRX="HT":"Ht.",GMRX="CG":"Circumference/Girth",GMRX="WT":"Wt.",GMRX="PO2":"Pulse Ox.",GMRX="PN":"Pain",1:GMRX)_": "_GMRDAT(GMRX) Line Location: WOK+2
Function Call: WRITE	Prompt: "*" Line Location: WOK+3
Function Call: WRITE	Prompt: " "_I(1) Line Location: WOK+5
Function Call: WRITE	Prompt: !,?2,GMRX_": "_GMRDAT(GMRX) Line Location: WOK+7
Function Call: WRITE	Prompt: !,?2,$S(GMRX="BP":"B/P",GMRX="P":"Pulse",GMRX="R":"Resp.",GMRX="T":"Temp.",GMRX="HT":"Ht.",GMRX="CG":"Circumference/Girth",GMRX="WT":"Wt.",GMRX="PO2":"Pulse Ox.",GMRX="PN":"Pain",1:GMRX)_": " Line Location: WOK+10
Function Call: WRITE	Prompt: $S(GMRX="BP"!(GMRX="P")!(GMRX="R"):GMRDAT(GMRX),1:"") Line Location: WOK+11
Function Call: WRITE	Prompt: GMRDAT(GMRX) Line Location: WOK+13
Function Call: WRITE	Prompt: GMRDAT(GMRX)_" No pain" Line Location: WOK+14
Function Call: WRITE	Prompt: GMRDAT(GMRX)_" Unable to respond" Line Location: WOK+15
Function Call: WRITE	Prompt: GMRDAT(GMRX)_" - Worst imaginable pain" Line Location: WOK+16
Function Call: WRITE	Prompt: GMRDAT(GMRX) Line Location: WOK+17
Function Call: WRITE	Prompt: GMRVX(0)_" F ("_$J(+GMRVX(0)-32*5/9,0,1)_" C)" Line Location: WOK+18
Function Call: WRITE	Prompt: GMRVX(0)_" LB ("_$J(GMRVX(0)/2.2,0,2)_" KG)" Line Location: WOK+19
Function Call: WRITE	Prompt: $S(GMRVX(0)\12:GMRVX(0)\12_" FT ",1:"")_$S(GMRVX(0)#12:GMRVX(0)#12_" IN",1:"")_" ("_$J(GMRVX(0)*2.54,0,2)_" CM)" Line Location: WOK+20
Function Call: WRITE	Prompt: GMRVX(0)_" IN ("_$J(+GMRVX(0)/.3937,0,2)_" CM)" Line Location: WOK+21
Function Call: WRITE	Prompt: GMRVX(0)_" cmH2O ("_$J(GMRVX(0)/1.36,0,1)_" mmHg)" Line Location: WOK+22
Function Call: WRITE	Prompt: $S('$D(GMRVX(1)):"",'GMRVX(1):"",1:"*") Line Location: WOK+24
Function Call: WRITE	Prompt: " "_$P($G(GMRSITE(GMRX)),"^") Line Location: WOK+25
Function Call: WRITE	Prompt: " "_I(1) Line Location: WOK+26

Label References

Name	Line Occurrences
@(	WRT+1
AR1	ASK1+5
ASK	ASK+9, ASK+11, ASK1+4
ASK1	ASK1+6
CHKDAT	ASK+12
CHKSTR	ASK+10
STAR	ASK+8
WOK	STAR+3
WRT	CHKSTR+8, CHKSTR+11, CHKSTR+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	ASK+3, ASK1+2
>> GBP(	ASK1+4!
>> GLINE	ASK+1, ASK+2, ASK+3*
>> GMRDAT	ASK+3, ASK+4, ASK+6, ASK+7, ASK+8, ASK+9, STAR+2, CHKSTR+3, CHKSTR+4*, CHKSTR+5 , CHKSTR+6, CHKSTR+8, WRT+1
>> GMRDAT(	STAR+2*, STAR+3, WOK+1, WOK+2, WOK+3, WOK+7, WOK+8, WOK+9, WOK+11, WOK+13 , WOK+14, WOK+15, WOK+16, WOK+17
>> GMRDAT(0	STAR+1, STAR+3, ASK1+1
>> GMRENTY	EN2+1, ASK+9, CHKSTR+3, CHKSTR+5, CHKSTR+7, CHKSTR+8
>> GMRHELP	CHANGE*, WRT+1
>> GMRHELP(1	CHANGE*, WRT+1
>> GMRINF(	WOK+5, WOK+26
>> GMRO2(	WOK+23
>> GMROUT	ASK+1, ASK+4, ASK+6, ASK+8, ASK+10, ASK+11, ASK+12, STAR, ASK1+1, ASK1+3* , CHKSTR+8, CHKSTR+11, CHKSTR+13*
>> GMROUT(1	STAR
>> GMRPRMT	CHANGE, CHANGE+1, ASK+3
>> GMRQUAL("BP"	ASK1+4
>> GMRSCR	CHKSTR+7, CHKSTR+10, CHKSTR+11, CHKSTR+12*, CHKSTR+13
GMRSITE	ASK+5!
GMRSITE(	WOK+3, WOK+4, WOK+9, WOK+25
GMRSITE("BP"	ASK1+4
>> GMRSTAR	CHANGE+1*
>> GMRSTR	ASK+1
>> GMRSTR(0	EN2+1, CHANGE, ASK+10, ASK+12, STAR+1, CHKSTR+1
>> GMRTO	ASK+4, ASK1+3
GMRVOK	CHKSTR+8~*
GMRVX	WOK+8*, WOK+24!
GMRVX(0	WOK+8*, WOK+18, WOK+19, WOK+20, WOK+21, WOK+22, WOK+23
GMRVX(1	WOK+9*, WOK+24
>> GMRX	CHANGE, ASK+10, ASK+12, STAR+1, STAR+2, STAR+3, ASK1+2*, ASK1+3, ASK1+4, ASK1+5 , CHKSTR+1, CHKSTR+4, CHKSTR+6, CHKSTR+8, WOK+1, WOK+2, WOK+3, WOK+4, WOK+5, WOK+7 , WOK+8, WOK+9, WOK+10, WOK+11, WOK+12, WOK+13, WOK+14, WOK+15, WOK+16, WOK+17 , WOK+18, WOK+19, WOK+20, WOK+21, WOK+22, WOK+23, WOK+25, WOK+26
>> GMRY	STAR+1, CHKSTR+1, CHKSTR+2, CHKSTR+9
>> GMRY(1	CHKSTR+2*, CHKSTR+12
>> GREASON	CHANGE, ASK+7, STAR+2, CHKSTR+3, CHKSTR+4
>> GTXT	WOK+24*
>> I	WOK+5, WOK+26
>> I(1	WOK+5, WOK+26
IOF	WRT+1

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVED1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: