Routine: GMRYSTCA

Information

GMRYSTCA ;HIRMFO/YH-IV SITE AND CATHETER SELECTION ;3/1/96

Name	Comments	DBIA/ICR reference
SITECATH	;ENTER INFUSION SITE/CATH TYPE
ENTER
YN
FINDPORT(JJ)	;
PORT
CATH(II)	;
LISTC

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: SITECATH+4
Function Call: WRITE	Prompt: ": " Line Location: SITECATH+4
Function Call: WRITE	Prompt: !!,"Enter the number of the site you want and a L for LEFT/R for RIGHT after",!,"the number. The default is L(eft).",!,"For example, 1L or 1 is LEFT HAND, 1R is RIGHT HAND.",! Line Location: SITECATH+6
Function Call: WRITE	Prompt: !,GHOLD(1)_" "_GHOLD(3) Line Location: YN+0
Function Call: WRITE	Prompt: !!,"Enter N(o) if the data is not correct.",! Condition for execution: %=0 Line Location: YN+0
Function Call: WRITE	Prompt: ! Line Location: PORT+0
Function Call: WRITE	Prompt: !,I_" "_$P(GMRPORT(I),"^",2) Line Location: PORT+0
Function Call: READ	Variable: JJ(2) Timeout: DTIME Line Location: PORT+1
Function Call: WRITE	Prompt: !,"ERROR ENTRY!" Line Location: PORT+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: LISTC+1
Function Call: WRITE	Prompt: !,"Enter a number between 1 and "_GMRN Line Location: LISTC+2