Routine: GMRYUT11

Information

GMRYUT11 ;HIRMFO/YH-IV FLUSH ; 10/3/13 3:48pm

Name	Comments	DBIA/ICR reference
PATIENT	;SEARCH PATIENT BY WARD AND ROOM
WARDPT	;
MHOUR	;SCREEN MILITARY HOUR, CLLED BY DD NURSING SHIFT HOUR
DCREASON	;LIST IV DC REASON CALLED BY D/C IV EDIT
ASKYN
WRITE	;PRINT I/O RECORDS FOR SELECTION
Q1

Name	Line Occurrences
Function Call: WRITE	Prompt: ?10,I_". "_$P(^GMRD(126.76,X(1),0),"^"),! Line Location: DCREASON+2
Function Call: READ	Variable: GMRX Timeout: DTIME Line Location: DCREASON+3
Function Call: WRITE	Prompt: !!,"Select a number between 1 and "_I_" for the reason of this DCing.",!,"INFUSED is default.",! Line Location: DCREASON+4
Function Call: WRITE	Prompt: !,GDCREAS Line Location: ASKYN+0
Function Call: WRITE	Prompt: ?5,GN_".",?10,$P(Y,":",1,2) Line Location: WRITE+2
Function Call: WRITE	Prompt: ?40,GI_" mls" Line Location: WRITE+5
Function Call: WRITE	Prompt: ?40,$S(GI(1)="":"",GI(1)="S":"Small",GI(1)="M":"Medium",GI(1)="L":"Large",1:"") Line Location: WRITE+6
Function Call: WRITE	Prompt: " "_$P(^(0),"^"),! Line Location: WRITE+9
Function Call: WRITE	Prompt: ?40,$P(GMRDATA(+GN),"^",3)_" mls left Intake: "_$S($P(GMRDATA(+GN),"^",3)["*":"unknown",1:$P(GMRDATA(+GN),"^",4)_" mls"),! Line Location: WRITE+10
Function Call: WRITE	Prompt: ?40,"Total: "_+$P(^(0),"^",5)_" mls",! Line Location: WRITE+11
Function Call: WRITE	Prompt: ?40,$S($D(^GMRD(126.8,+$P(GY(3),"^"),0)):$P(^(0),"^"),1:"") Line Location: WRITE+12
Function Call: WRITE	Prompt: ?60,+$P(GY(3),"^",2)_" mls",! Line Location: WRITE+12
Function Call: WRITE	Prompt: ! Line Location: Q1+0