Routine: LRAPSA

Information

LRAPSA ;AVAMC/REG - TISSUE STAIN LIST ;8/12/95 13:19 ;

Source file <LRAPSA.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," STAIN LIST" Line Location: LRAPSA+3
Function Call: WRITE	Prompt: !!,"Stain list date: ",LRD," OK " Line Location: LRAPSA+4
Function Call: WRITE	Prompt: ! Line Location: A+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(LRA,"^") Line Location: W+3
Function Call: WRITE	Prompt: !,LRA Line Location: AU+0
Function Call: WRITE	Prompt: !,LRSS(LRSS,E),!?3,LRA(1),?16,"Stain/Procedure" Line Location: B+0
Function Call: WRITE	Prompt: !?16,$P(^LAB(60,C,0),U),?47 Line Location: C+0
Function Call: WRITE	Prompt: $J(X,5) Condition for execution: X Line Location: C+0
Function Call: WRITE	Prompt: ?52,"/",Z Condition for execution: Z Line Location: C+0
Function Call: WRITE	Prompt: ?59,Y Line Location: C+0
Function Call: WRITE	Prompt: !,LRO(68)," (",LRABV,")",$S(LRSS="SP":" BLOCKS",LRSS="CY":" PROCEDURES",1:""),"/STAINS",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !!,LRAN,?16,LRA(6)," ",LRP," ",SSN Line Location: H1+0
Function Call: WRITE	Prompt: !,LRA Line Location: H2+0
Function Call: WRITE	Prompt: !!?3,LRA(1),?16,"Stain/Procedure" Line Location: H3+0