Routine: GMRYMNT

Package	Total	Call Graph
General Medical Record - IO	3	FINDCA^GMRYCATH (DCDATE,EN1)^GMRYMNT1 $$ADM^GMRYUT12
VA Fileman	3	^%DT (C,NOW)^%DTC ^DIWP

Package

Total

Call Graph

FINDCA^GMRYCATH (DCDATE,EN1)^GMRYMNT1 $$ADM^GMRYUT12

^%DT (C,NOW)^%DTC ^DIWP

Package	Total	Caller Graph
General Medical Record - IO	4	GMRYDCIV GMRYED3 GMRYED6 GMRYFLSH
Nursing Service	1	NURCES2

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
Q1
NXT
SET	;
WRITE1	;
SCREEN	;SCREEN IV SITES DISCONTINUED WITHIN THE LAST 24 HRS
WRITE	;
EN1	;IV SITE MAINTENANCE FOR OPEN SITE AND SITE CHECK FOR ALL IV SITES
SELSITE	;SELECT ALL CURRENT AND DISCONTINUED SITES WITHIN THE LAST 24 HR
DT
SEL1	;SELECT IV SITE FOR SITE CHECK OR MAINTENANCE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The date/time can not come before the time IV started"_$S(GOPT="MAINTN":" for the site.",1:"."),! Line Location: DT+1
Function Call: WRITE	Prompt: !!,"There are no IV sites with IV(s) running.",! Line Location: SEL1+1
Function Call: WRITE	Prompt: !,GSITE_":",! Line Location: SEL1+2
Function Call: WRITE	Prompt: !,I_". " Line Location: SEL1+3
Function Call: WRITE	Prompt: Condition for execution: GDA'="BLANK" !,?3,GDA S GDA(1)=0 F S GDA(1)=$O(GST(GSITE,GDA,GDA(1))) Q:GDA(1)'>0 Line Location: SEL1+3
Function Call: WRITE	Prompt: !!,"Select an IV site to add additional solutions: " Line Location: SEL1+5
Function Call: WRITE	Prompt: !!,"Select an IV site to discontinue: " Line Location: SEL1+6
Function Call: WRITE	Prompt: !!,"Select IV site for care/maintenance/flush: " Line Location: SEL1+7
Function Call: WRITE	Prompt: !!,"Select IV site to flush: " Line Location: SEL1+8
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL1+9
Function Call: WRITE	Prompt: !,?4,^UTILITY($J,"W",0,I,0) Line Location: WRITE+5
Function Call: WRITE	Prompt: GSITE_$S(GCT(GSITE)=0:" - IV discontinued on "_GMRXY(GSITE),1:" - "_GSITE(GSITE)) Line Location: WRITE1+1

Name	Line Occurrences (* Changed, ! Killed)
^GMR(126 - [#126]	DT, NXT, SELSITE+2, SCREEN+1, SET+2
^GMRD(126.74 - [#126.74]	NXT+1
^UTILITY($J	WRITE+4!, WRITE+5, WRITE+6!

Name	Field # of Occurrence
^(3	SET+2

Name	Field # of Occurrence
>> %	SELSITE+1
%DT	DT*!
%DT("A"	DT*
%DT("B"	DT*
ADD	Q1!
>> DA	NXT*
>> DA(1	NXT*
>> DFN	DT, DT+2, NXT, SELSITE+2, SCREEN+1, SET+2
>> DIWF	WRITE+4*
>> DIWL	WRITE+4*
>> DIWR	WRITE+4*
DTIME	SEL1+9
>> GADD	EN1+1*
>> GCATH	NXT+1*
>> GCATH(2	NXT+1*
GCT	SELSITE+1!
GCT(	WRITE1+1, SET+1, SET+2
>> GDA	SEL1+3, SEL1+4, WRITE+3, SCREEN+1, SET+2
>> GDA(1	SEL1+3*, SEL1+4, WRITE+3
GDATA	Q1!, SEL1+4, WRITE+1, WRITE+2, SCREEN+1, SET+2
>> GDCDT	DT+3*
GDCIV	EN1+1*, Q1!, NXT+2
>> GDT	SELSITE+2*, SCREEN+1
>> GGNN	SCREEN+1
>> GIVDT	SELSITE+1*, SCREEN+1
>> GMROUT	EN1+1, DT+2, SEL1+9, SEL1+10
>> GMROUT(1	DT+2*
GMRXY	SEL1+1, SEL1+3, SELSITE+1!, SELSITE+2, SELSITE+4
GMRXY(	SEL1+3, NXT, SELSITE+4, WRITE1+1, SET+1
>> GOPT	DT+1, SEL1+5, SEL1+6, SEL1+7, SEL1+8
>> GSITE	DT, SEL1+3, SEL1+4, NXT, NXT+1, SELSITE+2, SELSITE+4, WRITE+3, WRITE1+1, SCREEN+1 , SET+1, SET+2
>> GSITE(	NXT+1, WRITE1+1, SET+1
GST	DT, DT+1, SELSITE+1!, SET+2*
GST(	SEL1+3, SEL1+4, WRITE+3, SET+2
GST(1	DT*
>> GX	DT+2*
I	SEL1+3, WRITE+1~, WRITE+5
X	EN1+1, DT+2, SEL1+9, SEL1+10, NXT, NXT+2, SELSITE+1, WRITE+1~, WRITE+2, WRITE+3
>> X1	SELSITE+1*
>> X2	SELSITE+1*
>> Y	DT, DT+1, DT+2, WRITE+2*

Information