Routine: LRAPT

Information

LRAPT ;AVAMC/REG/WTY - AP PATIENT RPT ;9/22/00

Source file <LRAPT.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?28,"Cum path data summaries" Line Location: LRAPT+10
Function Call: WRITE	Prompt: !!?14,"1. DISPLAY cum path data summary for A patient" Line Location: ASK+0
Function Call: WRITE	Prompt: !?14,"2. PRINT cum path data summary for patient(s)",! Line Location: ASK+1
Function Call: READ	Prompt: "Select (1-2): " Variable: X Timeout: DTIME Line Location: ASK+2
Function Call: WRITE	Prompt: $C(7),!!,"Answer 1 or 2",! Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"NO PATHOLOGY ENTRIES IN LAB FILE !",! Line Location: AU+1
Function Call: WRITE	Prompt: !,"ANATOMIC PATHOLOGY" Line Location: H+2
Function Call: WRITE	Prompt: !,LRAA(1)," QA from ",LRSTR," to ",LRLST Condition for execution: $D(LR("W")) Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !,LRP,?32,SSN,?52,"DOB:",DOB Line Location: H1+0