Routine: GMRYUT6

Information

GMRYUT6 ;HIRMFO/YH-IV SOLUTION SELECT FROM PHARMACY/NURS FILES ;5/13/96

Package	Total	Call Graph
General Medical Record - IO	4	GETIV^GMRYPSIV DISPLAY^GMRYUT5 NURSOL^GMRYUT7 VALIDAT^GMRYUT9
VA FileMan	1	YN^DICN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
General Medical Record - IO	4	GMRYED2 GMRYMNT1 GMRYUT10 GMRYUT5

Entry Points

Name	Comments	DBIA/ICR reference
PSSOL	;LIST PATIENT IV SOLUTION FROM PHARMACY ORDER
SEL	;Select from the following pharmacy active IV order(s)
NURSOL	;SELECT FROM NUR SOLUTION FILE
Q
ASK1
ASK3
ASK4
ADDHNG
SITEDES	;SELECT IV SITE DESCRIPTION, CALLED BY DATA ENTRY ROUTINES
ASK2
QL

Name	Field # of Occurrence
YN^DICN	ASK4+1
GETIV^GMRYPSIV	PSSOL+1
DISPLAY^GMRYUT5	SITEDES+1
NURSOL^GMRYUT7	NURSOL+1
VALIDAT^GMRYUT9	SITEDES+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No pharmacy active IV order for this patient",! Line Location: PSSOL+1
Function Call: WRITE	Prompt: !,"pharmacy active IV order for the patient:",! Line Location: SEL+1
Function Call: WRITE	Prompt: !,GMRX_"."_$P(GMRY(GMRX),"^")_" "_$P(GMRY(GMRX),"^",2)_" "_$P(GMRY(+GMRX),"^",4),! Line Location: SEL+1
Function Call: READ	Variable: GMRX Timeout: DTIME Line Location: SEL+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK1+0
Function Call: WRITE	Prompt: !!,"Enter total amount of solution in mls in the container.",! Line Location: ASK1+1
Function Call: WRITE	Prompt: !,"ERROR ENTRY",! Line Location: ASK1+2
Function Call: WRITE	Prompt: !!,"Amount of solution has to be a number between .1 and 9999.",!! Line Location: ASK1+3
Function Call: WRITE	Prompt: !!,"The number must be equal to or less than the remaining amount.",!! Line Location: ASK1+4
Function Call: WRITE	Prompt: !!,"Only 1 decimal digit allowed",! Line Location: ASK1+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK3+0
Function Call: WRITE	Prompt: !,"Enter a number between 1 and 999 or enter <RET> to bypass this entry",! Line Location: ASK3+1
Function Call: WRITE	Prompt: !,"Enter the rate at which the infusion is to take place.",!,"For example: a number 125 entered means the infusion rate is 125 mls/hr",! Line Location: ASK3+3
Function Call: WRITE	Prompt: " Is it correct " Line Location: ASK4+1
Function Call: WRITE	Prompt: !!,"If data is correct, please enter 'Y', else enter 'N' if incorrect.",! Line Location: ASK4+2
Function Call: READ	Variable: GMRX Timeout: DTIME Line Location: SITEDES+1
Function Call: WRITE	Prompt: !!,"Select an item or a combination of items such as ",!,"1,3-5 to describe the IV site you observe",! Line Location: SITEDES+4
Function Call: WRITE	Prompt: !,"The string length is longer than 50 characters!" Line Location: SITEDES+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(126.72 - [#126.72]	SITEDES+2

Label References

Name	Line Occurrences
ASK1	SEL+4, NURSOL+2, ASK1+1, ASK1+2, ASK1+3, ASK1+4, ASK1+5, ASK1+6
ASK2	SITEDES+2
ASK3	ASK3+1, ASK3+3
ASK4	ASK3+1, ASK3+2, ASK4+2
NURSOL	PSSOL+1, SEL+3, NURSOL+2
Q	SEL+2, SEL+4, NURSOL+1, NURSOL+2
QL	SITEDES+1
SEL	SEL+3, SEL+4
SITEDES	SITEDES+4, SITEDES+5, SITEDES+6, ASK2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK4+1*, QL!
>> DFN	PSSOL+1
>> DR	ADDHNG*
DTIME	SEL+2, ASK1, ASK3, SITEDES+1
GMRD	Q!
GMRDA	Q!
GMRN	QL!
>> GMROUT	SEL+2, NURSOL+1, NURSOL+2, Q, ASK1, ASK3, ASK4+1, SITEDES+1
GMRTRNS	SITEDES+1*, QL!
>> GMRVTYP	PSSOL+1
GMRX	PSSOL+1, SEL+1, SEL+2, SEL+3, SEL+4, NURSOL+2, Q!, ASK4+1, SITEDES+1!, SITEDES+2 , SITEDES+3, SITEDES+4, SITEDES+5*, QL!
GMRY	PSSOL+1!*, SEL+1, SEL+2, SEL+3, Q!, SITEDES+1!, QL!
GMRY(	SEL+1, SEL+4, SITEDES+5
>> GMRZ	PSSOL+1, SEL+4, NURSOL+2, Q, ASK4, SITEDES+1, SITEDES+2, SITEDES+5, SITEDES+6, ASK2
>> GMRZ(1	PSSOL+1, SEL+4, NURSOL+2*, Q, ASK4
>> GMRZ(2	PSSOL+1, SEL+4, NURSOL+2, Q, ASK1, ASK1+6, ASK4
>> GMRZ(3	PSSOL+1, SEL+4, NURSOL+2, ASK3, ASK3+2, ASK4
>> GOPT	ASK1+3, ASK1+4
>> GSAVE	ASK1+4
GSEL	SITEDES+1!, SITEDES+5, QL!
GSEL(	SITEDES+5
>> I	SITEDES+3*
X	Q!, ASK1, ASK1+1, ASK1+2, ASK1+3, ASK1+4, ASK1+5, ASK1+6, ASK3, ASK3+1 , ASK3+2, ASK3+3, SITEDES+3, ASK2
Y	Q!, SITEDES+3*
Y(0	NURSOL+2

Customize PDF page

Package: General Medical Record - IO