Routine: LRAUSTA

Information

LRAUSTA ;AVAMC/REG/CYM - AUTOPSY STATUS LIST ;3/11/98 10:27 ;

Source file <LRAUSTA.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,LRO(68)," STATUS LIST" Line Location: LRAUSTA+2
Function Call: WRITE	Prompt: $C(7),!!,"No entries for ",LRO(68)," (",LRABV,") in ",H(1)+1700 Line Location: YR+0
Function Call: READ	Formatting: ! Prompt: "Start with Acc #: " Variable: N(1) Timeout: DTIME Line Location: N1+0
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!" Line Location: N1+0
Function Call: READ	Formatting: ! Prompt: "Go to Acc #: LAST // " Variable: N(2) Timeout: DTIME Line Location: N2+0
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!",!! Line Location: N2+0
Function Call: WRITE	Prompt: !!,$P(W,"^",6),?10,$E(P,1,14),?25,P(9),?30,LRLLOC,?36,$J(LRAUDT,8),?47,$J(LRPAD,8),?58,$J(LRFAD,8),?69,$J(LRAUCOMP,8) Line Location: WRT+3
Function Call: WRITE	Prompt: !?36,$P(^(0),"^") Line Location: WRT+4
Function Call: WRITE	Prompt: !?36,$P(^(0),"^") Line Location: WRT+5
Function Call: WRITE	Prompt: !,LRABV," Autopsy Status List",?36,"\|--------------- Date --------------\|",!,"Acc#",?12,"Patient",?25,"ID",?30,"Loc",?36,"Autopsy",?49,"PAD",?59,"FAD",?68,"Completed",!?36,"Pathologist(s)",!,LR("%") Line Location: H+1