Routine: LRAPC

Information

LRAPC ;AVAMC/REG - ANAT TOPOGRAPHY COUNTS ;8/14/95 08:36 ;

Source file <LRAPC.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,LRO(68)," (",LRABV,") TOPOGRAPHY COUNTS",!! Line Location: LRAPC+2
Function Call: WRITE	Prompt: !!,"TOPOGRAPHY (Organ/Tissue)" Line Location: LRAPC+4
Function Call: WRITE	Prompt: ! Line Location: LRAPC+5
Function Call: WRITE	Prompt: !?2,"T-",T,$E(".....",1,5-$L(T)),?14,$J(O(T),5),?22 Line Location: TOT+0
Function Call: WRITE	Prompt: $J(O(T)/C(2)*100,5,2),"%" Condition for execution: C(2) Line Location: TOT+0
Function Call: WRITE	Prompt: !!,"# Patients: ",A,!,"# accessions: ",C(1),!,"# organ/tissues: ",C(2),!,"% = % of organ/tissues" Line Location: TOT+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Choice #",$J(B,2),": Select 1 or more characters of the code: " Line Location: ASK+0
Function Call: WRITE	Prompt: !,LRO(68)," (",LRABV,") TOPOGRAPHY COUNTS" Line Location: H+1
Function Call: WRITE	Prompt: !,"Topography",?14,"Count",?22,"From:",LRSTR," To:",LRLST,!,LR("%") Line Location: H+2