Routine: LRAPWU

Information

LRAPWU ;AVAMC/REG - AP WORKLOAD UTILITY ;8/12/95 19:30

Source file <LRAPWU.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!?20,"* No specimen entered *" Line Location: LRAPWU+2
Function Call: WRITE	Prompt: $C(7),!!,"* No blocks or preps entered for ",$P(^(0),U)," *" Line Location: F+0
Function Call: WRITE	Prompt: $C(7),!!,"No blocks or preps for ",$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U) Line Location: E+0
Function Call: WRITE	Prompt: $C(7),!!,"No stains for ",$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U)," ",$P(^(E,B,0),U) Line Location: X+0
Function Call: WRITE	Prompt: !?3,"Date/time prints made (" Line Location: EM+1
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: !?3,"Date/time ",$S(LRSS="EM":"grids scanned ",1:"slides examined")," (" Line Location: CK+0
Function Call: WRITE	Prompt: Y,") cannot be before",!?3,"Date/time ",$S(LRSS="EM":"grids prepared",1:"slides stained")," (" Line Location: CK1+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: CK1+1
Function Call: WRITE	Prompt: Y,")",$C(7),!!,"Press Return or Enter key: " Line Location: CK1+1
Function Call: WRITE	Prompt: !!,$P(^LR(LRDFN,LRSS,LRI,.1,A,0),U)," ",$P(^LR(LRDFN,LRSS,LRI,.1,A,E,B,0),U)," ",$P(^LAB(60,C,0),U) Line Location: C+0