Routine: LRSOR

Information

LRSOR ; IHS/DIR/AAB - SOME SPECIAL OUTPUT ROUTINES 2/6/91 15:19 ; [ 11/13/97 9:46 AM ]

Source Information

Source file <LRSOR.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	3	EN^LRDIQ ^LRDPA (DD,DT,PT)^LRX
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	^%DT

Entry Points

Name	Comments	DBIA/ICR reference
LRA	;LISTS ALL LAB RESULTS
LRC	;NON SMAC CHEMISTRIES
HIS	;HISTOLOGY & CYTOLOGY
LRCC
SER	;SEROLOGY
LROK
MIC	;MICROBIOLOGY
LPT
LPT1
HEAD	;W !!,"WORK COPY ONLY - DO NOT FILE",!,PNM,?30,SSN,?50,LRDT0,! Q
LRP	;SURGICAL PATHOLOGY
LRR	;RADIO IMMUNO ASSAY / NUCLEAR ENDOCRINOLOGY
DONE
DIFF	;DIFFERENTIAL
HEM	;HEMATOLOGY
LUR	;URINALYSIS
LPC
LPB
LPA	;
WAIT	;I $E(IOST,1,2)="C-" W !,PNM," ",SSN," PRESS '^' TO STOP " R X:DTIME S:$L(X) LREND=".^"[X Q

External References

Name	Field # of Occurrence
^%DT	LPT, LPT1+1
^%ZIS	LPT1+2
^%ZISC	DONE
EN^LRDIQ	LRCC+1, LPC+4
^LRDPA	LRSOR+3
DD^LRX	LPC+1
DT^LRX	LPT1+3
PT^LRX	LPT1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DATA",! Line Location: LRC+1
Function Call: WRITE	Prompt: !! Line Location: LRCC+1
Function Call: READ	Prompt: "Starting Date: N//" Formatting: ! Timeout: DTIME Variable: X 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	Prompt: "Number of days to check for data: 20//" Formatting: ! Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: X Line Location: WAIT+0
Function Call: WRITE	Prompt: !,PNM," ",SSN," PRESS '^' TO STOP " Line Location: WAIT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: WAIT+1
Function Call: WRITE	Prompt: !,PNM," ",HRCN," PRESS '^' TO STOP " Line Location: WAIT+1
Function Call: WRITE	Prompt: !! Line Location: WAIT+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST)="P" Line Location: WAIT+2
Function Call: WRITE	Prompt: !!,"WORK COPY ONLY - DO NOT FILE",!,PNM,?30,HRCN,?50,LRDT0,! Line Location: HEAD+1
Routine Call	%ZIS Line Location: LPT1+2

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
DONE	LRSOR+3, 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+3
LROK	LRCC+1
LRR	LRC+3
WAIT	LRCC+1, LPC+4

Naked Globals

Name	Field # of Occurrence
^(	LRCC+1
^(0	LPT1+3, LPC+3
^(40	LRCC+1

Local Variables

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+1
DX	LPC+4!
>> HRCN	WAIT+1, HEAD+1
IO	LPT1+3
IOF	WAIT+2
IOSL	WAIT+2
IOST	WAIT+1, WAIT+2
>> LRDFN	LRSOR+3, 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+1
>> LREDT	LPA+1
>> LREND	LRCC+1, LPA+1, LPT1+3, LPB, WAIT+1*
>> 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+1, HEAD+1
>> 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
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+1*
>> Y	LPT, LPT+1, LPT1+1, LPC+1, LPC+2
>> Z	LPC+1*, LPC+2

Customize PDF page

Package: Lab Service

Routine: LRSOR

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed