Routine: LRAUMLK

Information

LRAUMLK ;VAMC/MLK - AUTOPSY SLIDE LABELS; Jan 15, 2025@01:48

Source file <LRAUMLK.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?25,"Autopsy Slide Labels" Line Location: LRAUMLK+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+1
Function Call: WRITE	Prompt: " ",LR(2)+1700 Line Location: ASK+2
Function Call: READ	Formatting: !! Prompt: "Enter Autopsy Case number: " Variable: X Timeout: DTIME Line Location: R+0
Function Call: WRITE	Prompt: $C(7),!!,"Autopsy not entered",! Line Location: R+1
Function Call: WRITE	Prompt: " Answer 'Y' or 'N'" Line Location: R1+0
Function Call: READ	Prompt: ! Variable: "Enter total number of blocks Timeout: ",BLKS:DTIME Line Location: R2+0
Function Call: WRITE	Prompt: "Answer 'Y' or 'N'" Line Location: ADDL+0
Function Call: READ	Formatting: ! Prompt: "Enter Block #: " Variable: BLK Timeout: DTIME Line Location: ADDL1+0
Function Call: READ	Formatting: ! Prompt: "Enter # of slides for this block/stain: 1//" Variable: TS Timeout: DTIME Line Location: SLIDE+0
Function Call: WRITE	Prompt: @IOF Line Location: QUE+0
Function Call: WRITE	Prompt: !,X,?10,X,?20,X,?30,X,?40,X,?50,X Line Location: PL1+0
Function Call: WRITE	Prompt: ! Line Location: PL2+0
Function Call: WRITE	Prompt: ?B*10,$S($D(^TMP($J,I,B+1)):$P(^TMP($J,I,B+1),U,C),1:"") Line Location: PL2+0
Function Call: WRITE	Prompt: !,X,?10,X+1,?20,X+2,?30,X+3,?40,X+4,?50,X+5 Line Location: PL3+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter numbers only",! Line Location: HELP+0