Routine: FHASE2

Information

FHASE2 ; HISC/REL - Patient Encounter Inquiry ;4/27/93 10:08

Source file <FHASE2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!?5," [ Patient has expired. ]" Line Location: FHASE2+3
Function Call: WRITE	Prompt: !!,"No Encounters on file for this patient." Line Location: FHASE2+4
Function Call: WRITE	Prompt: ! Line Location: FHASE2+5
Function Call: WRITE	Prompt: ! Line Location: FHASE2+6
Function Call: WRITE	Prompt: !!,"No Encounters recorded since ",STRT Line Location: Q1+4
Function Call: WRITE	Prompt: ! Line Location: QT+0
Function Call: WRITE	Prompt: !!,$E(DTP,1,9)," " Line Location: LST+1
Function Call: WRITE	Prompt: Y Line Location: LST+1
Function Call: WRITE	Prompt: Y Line Location: LST+1
Function Call: WRITE	Prompt: !,"Clinician: ",Y Line Location: LST+2
Function Call: WRITE	Prompt: ?40,"Location: ",Y Line Location: LST+3
Function Call: WRITE	Prompt: !?11,Y Line Location: LST+4
Function Call: WRITE	Prompt: !?11,$S(Y="G":"Group",1:"Individual") Line Location: LST+5
Function Call: WRITE	Prompt: ", ",Y," collateral" Line Location: LST+5
Function Call: WRITE	Prompt: "s" Condition for execution: Y>1 Line Location: LST+5
Function Call: READ	Formatting: !! Prompt: "Press RETURN to continue " Variable: QT Timeout: DTIME Line Location: HDR+2
Function Call: WRITE	Prompt: !,DTP,?13,"P A T I E N T D I E T E T I C E N C O U N T E R S",?73,"Page ",PG Line Location: H1+1
Function Call: WRITE	Prompt: !!,PID,?18,NAM Line Location: H1+2