Routine: GMRVORE0

Information

GMRVORE0 ;HIRMFO/RM/YH-DRIVER TO ENTER VITAL/MEASUREMENTS ORDERS ;8/16/95

Package	Total	Call Graph
General Medical Record - Vitals	5	(EN1,EN2)^GMRVORC0 EN1^GMRVORD0 EN1^GMRVORE1 ASK^GMRVORE2 (REL,UNREL)^GMRVORE3
Order Entry Results Reporting	3	(RETURN,ST)^ORX (DC,HOLD)^ORX5 EN^ORX8
Registration	1	KVAR^VADPT
VA Fileman	1	YN^DICN

Name	Comments	DBIA/ICR reference
Q	;
EN1	; ENTRY FROM ACTION FIELD OF ORDER ENTRY OPTION
PROC	; ; PROCESS ORDER DEPENDING ON $G(ORACTION)
NOP	;
EDCHK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"DO YOU WANT TO DISCONTINUE THIS ORDER AND ADD A NEW ONE" Line Location: PROC+5
Function Call: WRITE	Prompt: !,"Answer 'YES' or 'NO'" Condition for execution: %=0 Line Location: PROC+5
Function Call: WRITE	Prompt: !,?4,$C(7),$S($G(ORACTION):"No updating has occurred!!",1:"Order has been deleted!!") Line Location: Q+1
Function Call: WRITE	Prompt: !!,$C(7),"This action is inappropriate for this order." Line Location: NOP+1
Function Call: WRITE	Prompt: $C(7),!?4,"No change to existing order!!" Line Location: EDCHK+2

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.55 - [#120.55]	EN1+5

Name	Field # of Occurrence
>> %	PROC+5*
DIC	Q+2!
DIROUT	Q+2!
DZ	Q+2!
GMRACT	Q+2!
GMRENT	Q+2!
GMRORD	Q+2!
GMROUT	EN1+5, PROC+4, PROC+6, Q+1, Q+2!, EDCHK+2
GMRPK	Q+2!
GMRRQ	Q+2!
GMRSTOP	Q+2!
GMRSTR	Q+2!
GMRSTRT	Q+2!
GMRTX	Q+2!
>> GMRVANSR	EN1+8
GMRVAS	EN1+8, EN1+9, EN1+10, EN1+11, PROC+5, Q+2!, EDCHK+1
GMRVCOM	EN1+8, EN1+9, EN1+10, EN1+11, PROC+5, Q+2!, EDCHK+1
GMRVDF	Q+2!
GMRVEV	PROC+10*, Q+2!
GMRVKWIK	EN1+8, Q+2!
GMRVNEW	PROC+5*, Q+2!
GMRVOERR	Q+2!
GMRVOIFN	Q+2!
GMRVORAN	Q+2!
GMRVORD	EN1+5*, EN1+11, Q+2!
GMRVORD("O"	EN1+5*, EN1+11
GMRVORD(1	EN1+5, EN1+6, EN1+11
GMRVORD(2	EN1+5, EN1+6, EN1+10, EN1+11, PROC+4*
GMRVORD(3	EN1+5, EN1+7, EN1+10
GMRVORD(4	EN1+5, PROC+5, EDCHK+1, EDCHK+2
GMRVORD(5	EN1+5, EDCHK+1, EDCHK+2
GMRVORD(6	EN1+5, EDCHK+1, EDCHK+2
GMRVSTOP	EN1+8, EN1+9, EN1+10, EN1+11, PROC+5, PROC+10, Q+2!, EDCHK+1
GMRVSTRT	EN1+8, EN1+9, EN1+10, EN1+11, PROC+5, Q+2!, EDCHK+1
GMRVT	Q+2!
GMRX	Q+2!
GMRY	Q+2!
>> I	EDCHK+1*
>> ORACTION	PROC+3, PROC+4, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PROC+11, PROC+12 , PROC+13, PROC+14, Q+1
>> OREND	PROC+4*
>> ORETURN("OREVENT"	PROC+10*
>> ORETURN("ORSTS"	PROC+10*
>> OREVENT	PROC+10*
>> ORGY	PROC+4, PROC+6, PROC+7, PROC+9, PROC+12
>> ORIFN	EN1+5, EN1+6, EN1+7, EN1+8, EN1+9
>> ORSTS	PROC+3, PROC+5, PROC+8, PROC+9, PROC+11*
>> ORTX	PROC+4
ORUPCHUK	EN1+7!
ORUPCHUK("ORL"	EN1+6
ORUPCHUK("ORPCL"	EN1+6
ORUPCHUK("ORPK"	EN1+7
ORUPCHUK("ORSTOP"	EN1+6
ORUPCHUK("ORSTRT"	EN1+6
ORUPCHUK("ORSTS"	EN1+6
ORUPCHUK("ORTO"	EN1+6
ORUPCHUK("ORTX"	EN1+6
U	EN1+6, EN1+10
>> X	EN1+5*
X1	Q+2!
X2	Q+2!
XQH	Q+2!