Routine: GMRYUT13

Information

GMRYUT13 ;HIRMFO/YH-INTRAVENOUS INFUSION PROTOCOL ;10/16/96

Source file <GMRYUT13.m>

Package	Total	Call Graph
VA Fileman	1	^DIWP

Package	Total	Caller Graph
General Medical Record - IO	4	GMRYED2 GMRYED4 GMRYED5 GMRYED6

Name	Comments	DBIA/ICR reference
WRT	;
SEL

Name	Field # of Occurrence
^DIWP	WRT+5

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: II(2) Line Location: SEL+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+5
Function Call: WRITE	Prompt: !!,"Enter the number of IV which you wish to "_$S(GOPT="ADDSOL"!(GOPT="HANG"):"add a new solution ",GOPT="DCIV":"discontinue",GOPT="TITER":"readjust the rate",1:""),! Line Location: SEL+10
Function Call: WRITE	Prompt: !,"Error entry!!!, Please enter a number between 1 and ",GN,! Line Location: SEL+11
Function Call: WRITE	Prompt: !,II_". "_$P(GMRDATA(II),"^",4)_" - "_$P(GMRDATA(II),"^",10)_" "_$P(GMRDATA(II),"^",11) Line Location: WRT+1
Function Call: WRITE	Prompt: !,?4,^UTILITY($J,"W",0,I,0) Line Location: WRT+6
Function Call: WRITE	Prompt: ! Line Location: WRT+7

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WRT+4
^UTILITY($J	WRT+5!, WRT+6, WRT+7!

Name	Line Occurrences
SEL	SEL+10, SEL+11
WRT	SEL+1

Name	Field # of Occurrence
>> DA	SEL+8*
>> DA(1	SEL+8*
>> DFN	SEL+8
>> DIWF	WRT+5*
>> DIWL	WRT+5*
>> DIWR	WRT+5*
DTIME	SEL+2, SEL+5
>> GCATH	SEL+9*
>> GCATH(1	SEL+9*
>> GFLAG	SEL+5
GMRDATA	SEL!, SEL+5!, SEL+6!, SEL+7!
GMRDATA(	SEL+8, SEL+9, WRT+1, WRT+2, WRT+3, WRT+4
>> GMROUT	SEL, SEL+1, SEL+2, SEL+5*
>> GMRZ	SEL+8*
>> GMRZ(1	SEL+6, SEL+8
>> GMRZ(2	SEL+8*
>> GMRZ(3	SEL+8*
GN	SEL!, SEL+1, SEL+5!, SEL+6!, SEL+7!, SEL+11
>> GOPT	SEL+5, SEL+10
>> GSITE	SEL, SEL+8
>> I	WRT+6*
II	SEL+1*, SEL+5!, SEL+6!, SEL+7!, WRT+1, WRT+2, WRT+3, WRT+4
II(1	SEL+1, SEL+4
II(2	SEL+2*, SEL+3
II(3	SEL+1, SEL+3
X	SEL+5, SEL+6, SEL+7, SEL+8, SEL+9, SEL+10, WRT+2~, WRT+3, WRT+4
>> Y	WRT+4*