Routine: GMRYED3

Package	Total	Call Graph
General Medical Record - IO	15	DCIV^GMRYDCIV (EN3,VALIDAT)^GMRYED1 (ADDIV,Q)^GMRYED2 (HANG,LISTOP,LISTQUES,SEL)^GMRYED4 (ADDSOL1,Q4)^GMRYED6 FLUSH^GMRYFLSH INFUSE^GMRYINFS (EN1,SEL1,SELSITE,WRITE)^GMRYMNT MASPT^GMRYRP5 FINDPORT^GMRYSTCA LISTIV^GMRYUT0 RESTART^GMRYUT10 $$ADM^GMRYUT12 DT^GMRYUT3 SOLTYPE^GMRYUT7

Package	Total	Caller Graph
General Medical Record - IO	1	GMRYED2
Nursing Service	1	NURCYED0

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;SELECTE IV I/O AND IV MAINTENANCE
LIST
Q
STARTIV	;
DCIV	;REMOVE IV FROM IV SITE
MAINTN	;CARE/MAINTENANCE/FLUSH OPTION ENTRY POINT
HANG	;D/C CURRENT SOLUTION/ADD THE SAME SOLUTION
ADDONLY	;ADD ANOTHER SOLUTION (MULTIPLE SOLUTIONS FOR A LINE) WITHOUT DC CURRENT
SELECTP
QADD
ADDSOL	;ADD IV SOLUTION
TITER	;ADJUST INFUSION RATE FOR A SELECTED SOLUTION
FLUSH	;FLUSH OPTION ENTRY POINT
RESTART	;RESTAT AN IV
SITEIV	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LIST+0
Function Call: READ	Variable: GNI Timeout: DTIME Line Location: LIST+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: LIST+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: LIST+3
Function Call: WRITE	Prompt: @IOF,!!,"* START IV *",! Line Location: STARTIV+1
Function Call: WRITE	Prompt: @IOF,!!,"* CARE/MAINTENANCE/FLUSH *",! Line Location: MAINTN+1
Function Call: WRITE	Prompt: !!,"There are no sites with IV(s) running or DC'd within 24 hours.",! Condition for execution: GMRXY=0 Line Location: MAINTN+1
Function Call: WRITE	Prompt: @IOF,!!,"* REPLACE SAME SOLUTION *",! Line Location: HANG+1
Function Call: WRITE	Prompt: !,GSITE(GSITE) Line Location: ADDONLY+3
Function Call: WRITE	Prompt: @IOF,!!,"* SOLUTION: REPLACE/DC/CONVERT/FINISH SOLUTION *",! Line Location: ADDSOL+1
Function Call: WRITE	Prompt: @IOF,!!,"* RESTART DC'd IV *" Line Location: RESTART+1

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(126.74 - [#126.74]	HANG+2, SELECTP+2

Name	Field # of Occurrence
%	Q!, ADDSOL+2!
DA	LIST, Q!, HANG+1, ADDONLY+1*
DD	Q!
>> DFN	LIST, HANG+1, ADDONLY+1, ADDONLY+4
DIC	Q!
DIE	Q!
DLAYGO	Q!
DR	Q!
DTIME	LIST+1, LIST+2
GADD	Q!, SELECTP+3*
GCATH	Q+1!, HANG+2, SELECTP+2*
GCATH(1	SELECTP+2*
GCATH(2	HANG+2, SELECTP+2
GCT	Q!, MAINTN+1!, QADD!, ADDSOL+2!
>> GDA	SITEIV+1*
>> GDA(1	SITEIV+1*
GDATA	Q!, SITEIV+1*
GDCDT	Q!, ADDSOL+2!
GDCIV	Q!, STARTIV+1, MAINTN+1, HANG+1, ADDONLY+1, ADDSOL+1, RESTART+1
GDCREAS	Q!, ADDSOL+1*, ADDSOL+2!
GDR	EN1+1, Q!, HANG+2, SELECTP+3*
GFLAG	Q+1!, STARTIV+2!
GGDA	Q!
GGNN	LIST+4*, Q!
GHLOC	Q+1!
GHOLD	SELECTP+2!*, SELECTP+3!
GHOLD(1	SELECTP+2*
GHOLD(2	SELECTP+2*
GHOLD(3	SELECTP+2*
GIN	Q!
GIV	Q!
GIVDT	Q!
GLEFT	Q!
GLINE	Q!
GMRDA	Q!
GMRDC	Q!, HANG+1, ADDONLY+1
>> GMRDEL	SELECTP+3*
GMRLINE	ADDONLY+5, SELECTP, SELECTP+3, QADD!
>> GMROUT	EN1+1, LIST, LIST+1, LIST+2, LIST+4, Q, STARTIV+1, MAINTN+1, HANG+1, ADDONLY+1* , ADDONLY+4, SELECTP, SELECTP+2, SELECTP+3, RESTART+1*
>> GMROUT(1	LIST+3, ADDONLY+4*
>> GMRPORT	SELECTP
>> GMRVIDT	EN1+1*
GMRVN	Q!
GMRVTYP	Q+1!
GMRW	Q!
GMRX	Q!
GMRXX	Q!
GMRXY	MAINTN+1!, ADDONLY+1, ADDONLY+3
GMRY	Q!
GMRYY	Q+1!
GMRZ	Q!
GMRZZZ	Q!
GNI	LIST+1*, LIST+2, Q!
GNN	LIST*, LIST+1, Q!
GNN(	LIST+4
GNOW	Q!
GNUR	Q!
GOPT	LIST+4*, Q!
GPORT	Q!, SITEIV+1*
GREC	Q!
GSAVE	Q!
GSDC	QADD!
GSITE	EN1+1*, Q!, ADDONLY+3, SELECTP+2, SITEIV+1
GSITE(	ADDONLY+3, SELECTP+2
GST	Q!, MAINTN+1!, QADD!, ADDSOL+2!
GST(	SITEIV+1
GSTDC	MAINTN+1!
GTYP	LIST+3, Q!
GTYP(	LIST+4
GX	MAINTN+1!, ADDONLY+1, ADDONLY+4, SELECTP+2!
IOF	STARTIV+1, MAINTN+1, HANG+1, ADDONLY+1, ADDSOL+1, RESTART+1
X	LIST+2*, Q!, HANG+1, ADDONLY+1
Y	Q!