Routine: GMRYFLSH

Package	Total	Call Graph
General Medical Record - IO	6	LOCK^GMRYED5 (SEL1,SELSITE)^GMRYMNT FINDPORT^GMRYSTCA WAIT^GMRYUT0 $$ADM^GMRYUT12 VALIDAT^GMRYUT9
VA Fileman	4	^%DT NOW^%DTC FILE^DICN ^DIE

Package	Total	Caller Graph
General Medical Record - IO	3	GMRYED3 GMRYED5 GMRYMNT1

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
SETDB	;
LIST	;
LIST2
FLUSH
ASKFLSH	;CALLED BY MAINTENANCE OPTION
QUIT2
DT
DOFLSH

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"* FLUSH *",! Line Location: FLUSH+0
Function Call: WRITE	Prompt: !,"NO FUTURE DATE ALLOWED",! Line Location: DT+1
Function Call: WRITE	Prompt: ! Line Location: DOFLSH+0
Function Call: WRITE	Prompt: !,GSITE,! Line Location: LIST+3
Function Call: WRITE	Prompt: !,?2,I_" "_$P(GMRPORT(I),"^",2) Line Location: LIST2+0
Function Call: WRITE	Prompt: !,?2,"Enter the number(s) of port/lumen for flush: " Line Location: LIST2+1
Function Call: WRITE	Prompt: !,"ERROR ENTRY, TRY AGAIN",! Line Location: LIST2+5
Routine Call	DIE Line Location: SETDB+3

Name	Line Occurrences (* Changed, ! Killed)
^GMR(126 - [#126]	SETDB+1, SETDB+3, SETDB+4, SETDB+5, SETDB+6*

Name	Field # of Occurrence
>> %	DT
%DT	DT*!
%DT("A"	DT*
%DT("B"	DT*
>> DA	SETDB+1*, SETDB+4, SETDB+5, SETDB+6
>> DA(1	SETDB+1*, SETDB+2, SETDB+4, SETDB+5, SETDB+6
DD	SETDB+1!
>> DFN	DT+2, SETDB+1, SETDB+3
DIC	SETDB+1*!
DIC(0	SETDB+1*
DIE	SETDB+2*, SETDB+3!
DLAYGO	SETDB+1*!
DR	SETDB+2*, SETDB+3!
DTIME	LIST2+1
DUZ	SETDB+5
G	QUIT!, DOFLSH+3*
>> GCATH(1	DOFLSH+2, DOFLSH+3
>> GCATH(2	LIST+1
>> GDCIV	FLUSH*
GFLUSH	QUIT!, QUIT2!
>> GHLOC	SETDB+1*, SETDB+5
GHOLD	LIST+1*, LIST+4!
GHOLD(1	LIST+1*
GHOLD(2	LIST+1*
GHOLD(3	LIST+1*
GHOLD(4	LIST+4
GMESSG	QUIT!, QUIT2!
>> GMRHLOC	SETDB+1
>> GMRN	LIST+4*, LIST2
>> GMROUT	FLUSH, FLUSH+1, DT+2, SETDB+1, SETDB+3, DOFLSH, DOFLSH+1, DOFLSH+3, LIST2+3
>> GMROUT(1	DT+2*
>> GMRPORT	DOFLSH+2, LIST+2
>> GMRPORT(	DOFLSH+3, LIST2
>> GMRVTYP	DOFLSH*
>> GMRX	LIST2+1*, LIST2+2, LIST2+3
>> GMRXY	FLUSH+1
GMRYZ	QUIT!, QUIT2!
GMRZ	QUIT!
GN	QUIT!, QUIT2!
>> GNOW	DT*, DT+1
>> GOPT	DOFLSH, LIST+1
GSEL	QUIT!, QUIT2!, LIST2+5
GSEL(	DOFLSH+3
GSEL(0	LIST2+5
>> GSITE	LIST+3
GX	DT*, DT+1, DT+2, QUIT!, SETDB+1, SETDB+5, SETDB+6
>> I	LIST2*
IOF	FLUSH
>> X	FLUSH+1, SETDB+1*
>> Y	DT, SETDB+1