Routine: LRAPST1

Information

LRAPST1 ;AVAMC/REG/WTY - AUTOPSY TISSUE STAIN LOOK-UP ;9/25/00

Source file <LRAPST1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(LRB,U) Line Location: LRAPST1+3
Function Call: WRITE	Prompt: ! Line Location: LRAPST1+4
Function Call: WRITE	Prompt: !,LRSS(LRSS,E) Condition for execution: F=1 Line Location: T+0
Function Call: WRITE	Prompt: !?3,$P(LRB(1),U),?21,"Stain/Procedure" Line Location: T+0
Function Call: WRITE	Prompt: ?59,Y Line Location: T+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?16,$S($D(^LAB(60,C,0)):$P(^(0),U),1:C),?47 Line Location: W+0
Function Call: WRITE	Prompt: $J(X,5) Condition for execution: X Line Location: W+0
Function Call: WRITE	Prompt: ?52,"/",Z Condition for execution: Z Line Location: W+0
Function Call: WRITE	Prompt: ?59,Y Line Location: W+0
Function Call: WRITE	Prompt: $C(7),!!,"No autopsy # for ",LRP Line Location: AU+3
Function Call: WRITE	Prompt: !,"Autopsy performed: ",Y," Acc # ",LREP Line Location: AU+4