Routine: GMRYINTK

Information

GMRYINTK ;HIRMFO/YH-PATIENT INTAKE ;11/6/96

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Are you sure you want to delete this record" Line Location: INTAKE+1
Function Call: WRITE	Prompt: !!,"Enter N(o) if you do not want to delete this record or '^' to quit.",! Condition for execution: %=0 Line Location: INTAKE+1
Function Call: WRITE	Prompt: ! Line Location: INTAKE+2
Function Call: WRITE	Prompt: !,"Enter "_GLABEL_" dated "_Y Line Location: INTAKE+2
Function Call: WRITE	Prompt: !,"Enter "_GLABEL_" dated "_Y Line Location: INTAKE+2
Function Call: WRITE	Prompt: !!,?5,"Total "_GLABEL_" intake for this time: ",$P(^GMR(126,DA(1),GNANS,DA,0),"^",5)_" mls" Line Location: INTAKE+10
Function Call: WRITE	Prompt: !!,GLABEL_" Entered on "_$P(Y,":",1,2)," has been deleted!!!",! Line Location: KILLRC+0
Function Call: WRITE	Prompt: ?5,$P(^(0),"^"),?20,$P(^(0),"^",2),?25,"mls",! Condition for execution: $D(^GMRD(126.8,+GTM,0)) Line Location: ITEM+0
Function Call: WRITE	Prompt: ! Line Location: ITEM+0
Function Call: READ	Variable: GTM(2) Timeout: DTIME Line Location: ITEM+1