Routine: GMRVORE1

Information

GMRVORE1 ;HIRMFO/RM-ORDER ENTRY ACTION (Cont.) ;11/20/95

Package	Total	Call Graph
Order Entry Results Reporting	2	PGBRK^ORUHDR EN^ORX8
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
General Medical Record - Vitals	1	GMRVORE0

Name	Comments	DBIA/ICR reference
HDR1
HDR
PRT	; PRINT LINE
CHK	;
YNCN
EN1	; CHECK FOR ACTIVE VITALS ORDERS
PRNTACT	; PRINT OUT ACTIVE ORDERS AND ASK TO DC
MTIM	; ENTRY TO CONVERT DATE IN X TO PRINTABLE FORMAT
STACK	; CHECK FOR ORDERS WITH ACTIVE STATUS

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The following is a list of vitals/measurements orders already active",!,"for this patient:",! Line Location: PRNTACT+4
Function Call: WRITE	Prompt: !,$C(7),?3,"ANSWER YES OR NO" Line Location: YNCN+1
Function Call: WRITE	Prompt: !,GMRTX(1),?42,GMRENT(1),?50,GMRRQ,?61,GMRSTRT(1),?68,GMRSTOP(1),!,GMRTX(2),?42,GMRENT(2),?61,GMRSTRT(2),?68,GMRSTOP(2) Line Location: PRT+12
Function Call: WRITE	Prompt: ! Line Location: PRT+12
Function Call: WRITE	Prompt: GMRTX(3),! Condition for execution: $L(GMRTX(3)) Line Location: PRT+12
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: !,"Item Ordered",?42,"Ord'd",?50,"Requestor",?61,"Start",?68,"Stop",! Line Location: HDR1+0

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	EN1+2
^ORD(100.98 - [#100.98]	EN1+1
^ORD(101 - [#101]	PRNTACT+1, CHK+2, CHK+3, CHK+4
^VA(200 - [#200]	PRT+4

Name	Field # of Occurrence
^(0	PRT+4

Name	Field # of Occurrence
>> %	YNCN*, YNCN+1
>> DIROUT	PRT+1
>> GMRACT	EN1+3
>> GMRACT(	STACK+1*, PRNTACT+2!, PRNTACT+5
>> GMRENT	PRT+3*, PRT+9
>> GMRENT(1	PRT+9*, PRT+12
>> GMRENT(2	PRT+9*, PRT+12
>> GMROUT	PRNTACT+2, PRNTACT+3, PRNTACT+5, PRNTACT+6, YNCN, CHK+1, CHK+2, CHK+3, CHK+4, PRT+1*
>> GMRRQ	PRT+3, PRT+4, PRT+12
>> GMRSTOP	PRT+3*, PRT+11
>> GMRSTOP(1	PRT+11*, PRT+12
>> GMRSTOP(2	PRT+11*, PRT+12
>> GMRSTRT	PRT+3*, PRT+10
>> GMRSTRT(1	PRT+10*, PRT+12
>> GMRSTRT(2	PRT+10*, PRT+12
>> GMRTX	PRT+3*, PRT+5, PRT+6
>> GMRTX(1	PRT+6*, PRT+12
>> GMRTX(2	PRT+6, PRT+7, PRT+8, PRT+12
>> GMRTX(3	PRT+8*, PRT+12
>> GMRVORD(2	PRNTACT+1, YNCN
>> GMRVT	PRNTACT+1*, PRNTACT+2, CHK+1, CHK+2, CHK+3, CHK+4
>> GMRVT(0	PRNTACT+2*, CHK+1, CHK+2, CHK+3, CHK+4
>> GMRX	EN1+2, STACK+1, PRNTACT+2, PRNTACT+5*
>> GMRY	EN1+2, STACK+1, PRNTACT+2, PRNTACT+5*, PRT+2
IOF	HDR
IOSL	PRT+1
>> OREND	PRNTACT+5, PRT+1
ORUPCHUK	EN1+4!, STACK+2!, PRT+3!
ORUPCHUK("ORODT"	PRT+3
ORUPCHUK("ORPCL"	STACK+1
ORUPCHUK("ORPV"	PRT+3
ORUPCHUK("ORSTOP"	PRT+3
ORUPCHUK("ORSTRT"	PRT+3
ORUPCHUK("ORSTS"	STACK+1
ORUPCHUK("ORTX"	PRT+3
>> ORUPKG	EN1+1*, EN1+2
>> ORVP	EN1+2
>> X	CHK+2, CHK+3, CHK+4, PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11 , MTIM+1, MTIM+2
>> X(0	CHK+4*
>> Y	PRT+5, PRT+7