Routine: LRAPS

Information

LRAPS ;AVAMC/REG/CYM - AP PATIENT SCREEN DISPLAY ;8/6/97 14:06 ;

Source file <LRAPS.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?15,"DISPLAY cum path data summary for a patient" Line Location: LRAPS+4
Function Call: WRITE	Prompt: ! Line Location: GETP+0
Function Call: WRITE	Prompt: !!,"Is this the patient " Line Location: GETP+1
Function Call: WRITE	Prompt: $C(7),!!,"No tissue pathology results for this patient.",!! Line Location: GETP+2
Function Call: WRITE	Prompt: ! Line Location: M+0
Function Call: READ	Formatting: !! Prompt: "'^' TO STOP: " Variable: LRA("A") Timeout: DTIME Line Location: M+1
Function Call: WRITE	Prompt: $C(7) Line Location: M+1
Function Call: WRITE	Prompt: @IOF,$E(LRP,1,30),?31,SSN,?50,"DOB: ",DOB,?68,"LOC: ",$E(LRLLOC,1,5) Line Location: HDR+0