Routine: GMRYINFS

Information

GMRYINFS ;HIRMFO/YH-ADJUST INFUSION RATE ;4/5/94

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"* ADJUST INFUSION RATE *",! Line Location: INFUSE+1
Function Call: WRITE	Prompt: " started on "_$P(Y,":",1,2),! Line Location: INFUSE+4
Function Call: WRITE	Prompt: !,"The Date/Time has to be after the IV started",! Line Location: DT+1
Function Call: WRITE	Prompt: !!,"NO FUTURE DATE/TIME!!!",! Line Location: DT+2
Function Call: WRITE	Prompt: !!,"Rate was adjusted @"_$P(Y,":",1,2),! Line Location: DT+6
Function Call: READ	Variable: X Timeout: DTIME Line Location: RATE+0
Function Call: WRITE	Prompt: !,"Infusion rate(ml/hr)"_$S(GMRZ(3)=0:" UNKNOWN //",GMRZ(3)'="":" "_GMRZ(3)_" //",1:": ") S X="" R X:DTIME G:'$T!(X["^") Line Location: RATE+0