Routine: LRSOR

Entry Points

Name	Comments	DBIA/ICR reference
LRC	;NON SMAC CHEMISTRIES
LRCC
LROK
LPA	;
LPT
LPT1
LPB
LPC
WAIT
HEAD
LRR	;RADIO IMMUNO ASSAY / NUCLEAR ENDOCRINOLOGY
LRP	;SURGICAL PATHOLOGY
MIC	;MICROBIOLOGY
HIS	;HISTOLOGY & CYTOLOGY
SER	;SEROLOGY
LUR	;URINALYSIS
HEM	;HEMATOLOGY
DIFF	;DIFFERENTIAL
LRA	;LISTS ALL LAB RESULTS
DONE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DATA",! Line Location: LRC+1
Function Call: WRITE	Prompt: !! Line Location: LRCC+1
Function Call: READ	Formatting: ! Prompt: "Starting Date: N//" Variable: X Timeout: DTIME Line Location: LPT+0
Function Call: WRITE	Prompt: !,"First data of any kind on ",$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) Line Location: LPT+2
Function Call: READ	Formatting: ! Prompt: "Number of days to check for data: 20//" Variable: X Timeout: DTIME Line Location: LPT1+0
Function Call: WRITE	Prompt: !,"Type a number between 1 and 99999." Line Location: LPT1+0
Function Call: WRITE	Prompt: ! Line Location: LPB+0
Function Call: WRITE	Prompt: !,"DATE&TIME: ",Y Line Location: LPC+2
Function Call: WRITE	Prompt: ?35,"METHOD/SITE: ",$P(Z,U,8) Condition for execution: $L($P(Z,U,8)) Line Location: LPC+2
Function Call: WRITE	Prompt: ?55,"ACC: ",$P(Z,U,6) Line Location: LPC+2
Function Call: WRITE	Prompt: !,"SPECIMEN: ",$S($D(^LAB(61,+X,0)):$P(^(0),U,1),1:"??"),!?2 Line Location: LPC+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: WAIT+0
Function Call: WRITE	Prompt: !,PNM," ",SSN," PRESS '^' TO STOP " Line Location: WAIT+0
Function Call: WRITE	Prompt: !! Line Location: WAIT+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST)="P" Line Location: WAIT+1
Function Call: WRITE	Prompt: !!,"WORK COPY ONLY - DO NOT FILE",!,PNM,?30,SSN,?50,LRDT0,! Line Location: HEAD+0
Routine Call	%ZIS Line Location: LPT1+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	LPC+3
^LR - [#63]	LRCC+1, LROK, LPT+1, LPT1+3, LPB, LPC, LPC+1

Name	Line Occurrences
DONE	LRSOR+2, LRCC, LRCC+2, LPB+1, LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1 , HEM+1, DIFF+1, LRA+1
HEAD	LPT1+3
HEM	LRC+3
LPA	LRCC, LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1, HEM+1, DIFF+1, LRA+1
LPB	LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1, HEM+1, DIFF+1, LRA+1
LPC	LPB
LPT	LPT
LPT1	LPT1, LPT1+1
LRA	LRSOR+2
LROK	LRCC+1
LRR	LRC+3
WAIT	LRCC+1, LPC+4

Name	Field # of Occurrence
>> %DT	LPT, LPT1+1
%ZIS	LPT1+2!
>> DA	LRCC+1, LPC+1
>> DFN	LPT1+3*
>> DIC	LRCC, LPA+1, LPT1+3, LPB
>> DR	LRCC+1, LPC+4
DTIME	LRC+2, LPT, LPT1, WAIT
DX	LPC+4!
IO	LPT1+3
IOF	WAIT+1
IOSL	WAIT+1
IOST	WAIT, WAIT+1
>> LRDFN	LRSOR+2, LRC+1, LRCC+1, LROK, LPA+1, LPA+2, LPT+1, LPT1+3, LPB, LPC , LPC+1
>> LRDPF	LPT1+3*
LRDR	LPC*, DONE!
LRDR1	LPC, LRR+1, SER+1, LUR+1, HEM+1, DIFF+1, LRA+1, DONE!
LRDR2	LPC, LRR+1, SER+1, LUR+1, HEM+1, DIFF+1, LRA+1, DONE!
>> LRDT0	HEAD
>> LREDT	LPA+1
>> LREND	LRCC+1, LPA+1, LPT1+3, LPB, WAIT*
>> LRIDT	LRCC+1, LROK, LPB, LPC, LPC+1
LRIDTE	LPA+1, LPT+1, LPB, DONE!
LRIDTS	LPA+1, LPT1+1, LPB, DONE!
>> LRMETH	LRCC+1*
>> LROK	LRCC+1, LROK*
>> LRPRETTY	LPA+1
>> LRSDT	LPA+1
>> LRSS	LPB, LPC, LPC+1, LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1, HEM+1* , DIFF+1, LRA+1
>> LRZX	LROK*
>> PNM	WAIT, HEAD
>> POP	LRCC, LPA+2*, LPT1+2, LRR+1, LRP+1, MIC+1, HIS+1, SER+1, LUR+1, HEM+1 , DIFF+1, LRA+1
>> Q	LRCC, LPA+1, LPT1+3, LPB
>> SSN	WAIT, HEAD
U	LRCC+1, LROK, LPT1+3, LPB, LPC+1, LPC+2, LPC+3
>> X	LRC+2, LRC+3, LPT, LPT+1, LPT+2, LPT1, LPT1+1, LPC+1, LPC+3, WAIT*
>> Y	LPT, LPT+1, LPT1+1, LPC+1, LPC+2
>> Z	LPC+1*, LPC+2