Routine: GMRYED4

Information

GMRYED4 ;HIRMFO/YH - INTRAVENOUS INFUSION PROTOCOL ;10/16/96

Package	Total	Call Graph
General Medical Record - IO	5	DC^GMRYED6 ^GMRYSTCA (DC,WAIT)^GMRYUT0 SEL^GMRYUT13 IVINTK^GMRYUT8
VA Fileman	2	FILE^DICN ^DIE

Package	Total	Caller Graph
General Medical Record - IO	2	GMRYED3 GMRYINFS

Name	Comments	DBIA/ICR reference
QUES	;
RATE1
CHCKDC
HANG	;DC CURRENT SOLUTION/ADD THE SAME SOLUTION - CONTINUED
RATE
ADD
LISTOP	;
SELSITE	;SELECT IV SITE TO EDIT
QUICK
LISTQUES	;
SEL
HELP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Last reading for AMOUNT LEFT is "_$P(^GMR(126,DA(1),"IV",DA,"IN",GGDA,0),"^",2)_" mls" Line Location: HANG+5
Function Call: WRITE	Prompt: !,"Total solution absorbed for this bottle: "_$S($P(^GMR(126,DA(1),"IV",DA,"IN",GGDA,0),"^",2)["*":"UNKNOWN",1:($P(GDATA,"^",5)-GTOTAL)_" mls"),! Line Location: HANG+11
Function Call: WRITE	Prompt: !,"DC canceled!!!",! Line Location: ADD+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: RATE+0
Function Call: WRITE	Prompt: !,"Infusion rate(ml/hr)"_$S(GMRZ(3)'="":" "_GMRZ(3)_" //",1:": ") S X="" R X:DTIME Q:'$T!(X["^") Line Location: RATE+0
Function Call: WRITE	Prompt: !,"IV is defined as IV line/port/lock",! Line Location: LISTQUES+1
Function Call: WRITE	Prompt: !,$P(GMRW,"^"),!,?5,$P(GMRW,"^",3) Line Location: LISTQUES+1
Function Call: WRITE	Prompt: !!,"Enter a number between 0 and 999 at which the infusion takes place",!,"0 means that the rate is UNKNOWN",! Line Location: HELP+0
Function Call: WRITE	Prompt: !,$P(GMRW,"^") Line Location: LISTOP+1
Routine Call	DIE Line Location: QUICK+2

Name	Line Occurrences (* Changed, ! Killed)
^GMR(126 - [#126]	HANG+1, HANG+2, HANG+3, HANG+4, HANG+5, HANG+7, HANG+8, HANG+11, ADD*, QUICK , QUICK+2, SELSITE+1, CHCKDC

Name	Field # of Occurrence
^(	SELSITE+1
^(0	HANG+1, ADD*

Name	Field # of Occurrence
>> DA	HANG+1, HANG+2, HANG+3, HANG+4, HANG+5, HANG+7, HANG+8, HANG+11, QUICK*
>> DA(1	HANG+1, HANG+2, HANG+3, HANG+4, HANG+5, HANG+7, HANG+8, HANG+11, ADD, QUICK* , QUICK+1
DD	QUICK!
>> DFN	ADD, QUICK, QUICK+2, SELSITE+1, CHCKDC
DIC	QUICK*!
DIC(0	QUICK*
DIE	QUICK+1*, QUICK+3!
DLAYGO	QUICK*!
DR	QUICK+1*, QUICK+3!
DTIME	RATE
>> GDA	SELSITE+1*, CHCKDC
>> GDATA	HANG+11
>> GDCDT	HANG+1*, HANG+2, QUICK
>> GDT	HANG+4, HANG+5, SELSITE+1
>> GGDA	HANG+5, HANG+7, HANG+8, HANG+11
>> GHLOC	HANG+2, HANG+3, HANG+4, HANG+6, HANG+8*
>> GLABEL	HANG+2, HANG+3, HANG+4, HANG+6, HANG+8*
GMRDATA	SEL!
>> GMRDEL	HANG+2*
>> GMRHLOC	HANG+2, HANG+3, HANG+4, HANG+6, HANG+8
>> GMROUT	HANG+1, HANG+10, ADD, ADD+1, QUICK, QUICK+2, SEL*
>> GMRVTYP	HANG+1, ADD+2, QUICK
>> GMRW	LISTQUES+1, LISTOP+1
>> GMRX	SELSITE+1, CHCKDC
>> GMRX(	CHCKDC*
>> GMRY	SELSITE+1, CHCKDC
>> GMRZ	ADD+3
>> GMRZ(1	HANG+1, ADD+3
>> GMRZ(2	ADD+2*, ADD+3
>> GMRZ(3	ADD+2, ADD+3, RATE, RATE+1
GN	SEL!
>> GNN	LISTQUES+1, LISTOP+1
>> GNN(	LISTOP+1*
>> GSAVE	QUICK*
>> GSITE	SELSITE+1, SEL, CHCKDC
>> GTOTAL	HANG+11
>> GX	HANG+2, QUICK
>> I	LISTQUES+1, LISTOP+1
>> X	RATE, RATE+1, RATE1, QUICK, LISTQUES+1, LISTOP+1*
>> Y	QUICK

Name	Field # of Occurrence
$T(QUES+I	LISTQUES+1, LISTOP+1