Routine: GMRYUT1

Information

GMRYUT1 ;HIRMFO/YH-PATIENT I/O UTILITIES - IV SEARCH BY TYPE ;2/14/91

Package	Total	Caller Graph
General Medical Record - IO	2	GMRYED1 GMRYUT3

Name	Comments	DBIA/ICR reference
SETA
IVTYP1	;SELECT IV BY TYPE
WRITE
QUEST	;
IVTYP	;LIST CURRENT IV LINES BY SELECTED IV TYPE
SELECT	;SELECT IV TO START OR DC
HELP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,JJ,". " Line Location: IVTYP+4
Function Call: WRITE	Prompt: $P(GN(JJ),"^",4)_" "_$P(GN(JJ),"^",5)_" mls "_$P(GN(JJ),"^",2)_" "_$P(Y,":",1,2) Line Location: IVTYP+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: IVTYP+5
Function Call: WRITE	Prompt: !!,"Select the line of "_GLABEL_" which you want to record intake " Line Location: IVTYP+6
Function Call: WRITE	Prompt: ! Line Location: IVTYP+8
Function Call: READ	Timeout: DTIME Variable: GMRNO Line Location: SELECT+1
Function Call: WRITE	Prompt: ! Line Location: SELECT+1
Function Call: WRITE	Prompt: GMROUT=1 Condition for execution: 'GMRDC !,"(i.e., 1 to edit; 1@ to delete; new IV if none selected): " R GMRNO:DTIME S:'$T Line Location: SELECT+1
Function Call: WRITE	Prompt: " DC'ed on ",Y Line Location: WRITE+1
Function Call: WRITE	Prompt: ! Line Location: WRITE+2
Function Call: READ	Timeout: DTIME Variable: GX Line Location: QUEST+3
Function Call: WRITE	Prompt: " To edit ... enter a number, i.e., 1",!," To delete ... enter a number@, i.e., 1@",!," To add ... enter N",?38," ^ to quit edit an I/O TYPE",!,"** <RET> RETURN for more listing" Line Location: HELP+2
Function Call: WRITE	Prompt: ?38,"** ^^ to quit the data entry option",! Line Location: HELP+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	IVTYP+4, WRITE, WRITE+1
^GMR(126 - [#126]	IVTYP+1, IVTYP1+1, SETA

Name	Field # of Occurrence
^(0	SETA

Name	Field # of Occurrence
>> DFN	IVTYP+1, IVTYP1+1, SETA
DTIME	IVTYP+5, SELECT+1, QUEST+3
>> GDA	IVTYP1+1*
>> GDT	IVTYP+1*, IVTYP1+1, SETA
>> GIVDT	IVTYP+3, IVTYP+8
>> GLABEL	IVTYP+6, HELP+1
>> GMRDATA(	WRITE, WRITE+1, QUEST+6
>> GMRDC	SELECT+1, QUEST+1, QUEST+2, QUEST+3
>> GMRNO	SELECT+1*, SELECT+2
>> GMROUT	IVTYP+5, SELECT+1, QUEST+3*
>> GMRVDT	IVTYP+1, IVTYP+3, IVTYP+8*
>> GMRVP	IVTYP+3, IVTYP+8, IVTYP1+1*, SETA
>> GMRVTYP	IVTYP1+1
>> GN	IVTYP+1, IVTYP+2, IVTYP+3, IVTYP+4, IVTYP+5, IVTYP+7, SETA, WRITE, WRITE+1
>> GN(	IVTYP+3, IVTYP+4, IVTYP+7, IVTYP+8, SETA*
>> GN(2	QUEST+4*
>> GN(3	QUEST+4
>> GNANS	HELP+1
>> GNN	SELECT+1, SELECT+2
>> GSITE	IVTYP+3, IVTYP+8
>> GWRITE	IVTYP+1*
>> GX	QUEST+3, QUEST+4, QUEST+5, QUEST+6, QUEST+7
>> II	SELECT+1*
IOF	HELP+1
>> JJ	IVTYP+1, IVTYP+4, IVTYP1+1*
>> X	IVTYP+5*, IVTYP+6, IVTYP+7, IVTYP+8
>> Y	IVTYP+4, WRITE, WRITE+1*