Routine: GMRYSTCA

Information

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

Package	Total	Call Graph
General Medical Record - IO	1	(EN1,EN2,LISTS)^GMRYUT5

Package	Total	Caller Graph
General Medical Record - IO	5	GMRYED2 GMRYED3 GMRYED4 GMRYFLSH GMRYUT10

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

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: JJ(2) Line Location: PORT+1
Function Call: WRITE	Prompt: !,"ERROR ENTRY!" Line Location: PORT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: LISTC+1
Function Call: WRITE	Prompt: !,"Enter a number between 1 and "_GMRN Line Location: LISTC+2

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(126.74 - [#126.74]	ENTER+2, FINDPORT+2, FINDPORT+3, LISTC, LISTC+3

Name	Field # of Occurrence
^(	LISTC

Name	Field # of Occurrence
DTIME	SITECATH+4, PORT+1, LISTC+1
>> GCATH	SITECATH+1, SITECATH+2, ENTER+1*, ENTER+2
>> GCATH(1	SITECATH+1, SITECATH+2, ENTER, ENTER+1, YN+1
>> GCATH(2	SITECATH+2, ENTER, ENTER+1, YN+1*
>> GDR	SITECATH+2
GHOLD	SITECATH+1~, SITECATH+2, ENTER, ENTER+1, ENTER+2*, YN+1
GHOLD(1	SITECATH+2, ENTER, ENTER+1, ENTER+2*, YN
GHOLD(2	SITECATH+2, ENTER
GHOLD(3	SITECATH+2, ENTER, ENTER+1, YN, YN+1
GJ	FINDPORT+1~, FINDPORT+3*, PORT
GJ(1	FINDPORT+3*
GJ(2	FINDPORT+3*
GMRN	CATH+1~, LISTC*, LISTC+1, LISTC+2
GMRN(1	LISTC+1*
>> GMROUT	SITECATH+2, SITECATH+4, SITECATH+6, ENTER+1, ENTER+3, FINDPORT+2, PORT, PORT+1, PORT+2, LISTC+1*
GMRPORT	FINDPORT+1!
GMRPORT(	FINDPORT+3*, PORT, PORT+2, PORT+3
GMRY	CATH+1~
GMRY(	LISTC*, LISTC+3
GMRZ	SITECATH+4~, CATH+1~, LISTC!*
>> GOPT	PORT
>> GSITE	SITECATH+1, SITECATH+2, SITECATH+5, SITECATH+6
GTXT	CATH+1~
>> I	PORT*
II	CATH~, LISTC+3*
II(1	LISTC+3*
JJ	FINDPORT~, FINDPORT+2, FINDPORT+3
JJ(2	PORT+1*, PORT+2, PORT+3
JJ(3	PORT+3*
JJ(4	PORT*
>> X	SITECATH+4, SITECATH+5, SITECATH+6, LISTC+1*, LISTC+2, LISTC+3