Routine: GMRYUT3

Package	Total	Call Graph
General Medical Record - IO	7	(INTAKE,KILLRC)^GMRYINTK WAIT^GMRYUT0 (QUEST,WRITE)^GMRYUT1 WRITE^GMRYUT11 $$ADM^GMRYUT12 DRAIN^GMRYUT7 MOREDRN^GMRYUT8
VA Fileman	3	^%DT (FILE,YN)^DICN ^DIE

Package

Total

Call Graph

(INTAKE,KILLRC)^GMRYINTK WAIT^GMRYUT0 (QUEST,WRITE)^GMRYUT1 WRITE^GMRYUT11 $$ADM^GMRYUT12 DRAIN^GMRYUT7 MOREDRN^GMRYUT8

^%DT (FILE,YN)^DICN ^DIE

Package	Total	Caller Graph
General Medical Record - IO	6	GMRYED1 GMRYED2 GMRYED3 GMRYED5 GMRYUT0 GMRYUT10

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,$C(7),"No records in the database within the last 48 hours" Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: Q+0
Function Call: WRITE	Prompt: ! Line Location: SELECT+0
Function Call: WRITE	Prompt: !! Line Location: RESEL+0
Function Call: WRITE	Prompt: !!,"Are you sure you want to delete this record" Line Location: OUT+1
Function Call: WRITE	Prompt: !!,"Enter N(o) if you do not want to delete this record or '^' to quit.",! Condition for execution: %=0 Line Location: OUT+1
Function Call: WRITE	Prompt: !!,"Enter "_GLABEL_" dated "_$P(Y,":",1,2) Line Location: OUT+2
Function Call: WRITE	Prompt: !,?5,"Unit ml is not required",! Line Location: OUT+2
Function Call: WRITE	Prompt: !,"Enter numeric value for measured output in cc/ml or ",!,"enter S(mall), M(edium) or L(arge) for estimated output.",! Line Location: OUT+5
Routine Call	DIE Line Location: OUT+9

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OUT+2
^GMR(126 - [#126]	LIST+1, LIST+5, NEW+2, NEW+3, OUT+3, OUT+9, SETDA

Name	Field # of Occurrence
^(0	NEW+2*

Name	Field # of Occurrence
%	OUT+1!, OUT+10
%DT	DT*!
%DT("A"	DT*
%DT("B"	DT*
%DT(0	DT*
D0	Q!
D1	Q!
>> DA	LIST+1, LIST+3, LIST+5, NEW+2, NEW+3, NEW+4, NEW+5*, OUT+3, OUT+9, SETDA
>> DA(1	LIST+5, NEW+3, NEW+4, NEW+5, OUT+3, OUT+6, OUT+9
DD	NEW+3!, NEW+4!
>> DFN	LIST+1, LIST+3, LIST+5, NEW+1, NEW+3, OUT+9
DIC	NEW+3*, NEW+4!, Q!
DIC(0	NEW+3*
DIE	OUT+6*, OUT+8!, OUT+9!
DLAYGO	NEW+3*, NEW+4!
DR	OUT+6, OUT+7, OUT+8!, OUT+9!
>> GDA	SETDA*
GDATE	NEW+3, NEW+4, Q!, SETDA
GEDIT	Q!
GHLOC	LIST+5, NEW+2, Q!
>> GLABEL	OUT+2, OUT+3, OUT+6, OUT+7, OUT+10
GMRDATA	LIST+1!, LIST+2, LIST+3, Q!
GMRDATA(	RESEL+1, RESEL+2, SETDA*
GMRDC	LIST+1*, Q!, RESEL
GMRDEL	LIST+1, Q!, RESEL+1, OUT+1
GMRDT	LIST+1*, Q!, SETDA
>> GMREND	LIST+1
>> GMRHLOC	LIST+5, NEW+2
>> GMROUT	LIST+3, NEW, NEW+1, NEW+3, NEW+4, RESEL, RESEL+1, OUT+1, OUT+3, OUT+8 , OUT+10
>> GMROUT(1	NEW+1, NEW+2, OUT+3*
>> GMRVIDT	DT
GMRVOL	Q!
GMRX	Q!
GMRY	Q!
GMRYTYP	Q!
GMRZ	OUT+3*, OUT+9!
GN	LIST+1, LIST+2, Q!, RESEL, SETDA*
GN(1	LIST+2*, RESEL
GN(2	SELECT*, RESEL
GN(3	RESEL*
>> GNANS	LIST+1, LIST+5, NEW+2, NEW+3, NEW+5, OUT+6, OUT+9, SETDA
>> GTP	SETDA
GX	LIST+1, LIST+3, LIST+4, LIST+5, NEW, NEW+1, NEW+2, Q!, DT, RESEL , RESEL+1*, RESEL+2, OUT+1, OUT+2, OUT+4, OUT+10
GX(1	OUT+1*
GY	Q!
X	NEW+2, NEW+3, NEW+4, Q!, DT, OUT+10
Y	NEW+4, Q!, DT, OUT+2*

Information

Name	Comments	DBIA/ICR reference
SETDA
LIST	;LIST I/O RECORDS FOR THE SELECTED TYPE IN THE DATABASE
Q
IN	;EDIT OR DELETE INPUT RECORD
RESEL
NEW
DT
SELECT
OUT	;