Routine: LRSORA2

Package	Total	Call Graph
Lab Service	3	$$LOWCASE^LRAFUNC BUILD^LRSORA3 LRGLIN^LRX
VA FileMan	2	DD^%DT ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Lab Service	1	LRSORA

Entry Points

Name	Comments	DBIA/ICR reference
START	;
MAINLOOP	;
END	;
SET	;
PRTCONT	;
COND1	;
COND2	;
COND3	;
COND4	;
PAGE	;
NEWPAT	;
NEWSPEC	;
NEWTST	;
SAMETST	;
CHKPG	;
PRSPEC	;
PRTEST	;
COM	;Print comments on specimen
SUMMARY	;
HDR1	;
HDR2	;
WAIT
CHNCASE	;
LEGEND	;

External References

Name	Field # of Occurrence
DD^%DT	SET+15
^DIR	WAIT
$$LOWCASE^LRAFUNC	CHNCASE+1
BUILD^LRSORA3	START+1
LRGLIN^LRX	HDR1+8, LEGEND+1
$$FMTE^XLFDT	HDR1+6
$$NOW^XLFDT	HDR1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " COMMENT: ",@LRSORTI,! Line Location: SET+2
Function Call: WRITE	Prompt: ?2,$E(LRSPEC,1,10) Line Location: PRSPEC+1
Function Call: WRITE	Prompt: ?14,$S(LRTHER:"Th. Range ",1:"Ref. Range: "),LRLO Line Location: PRSPEC+2
Function Call: WRITE	Prompt: "-",LRHI," ",LRUNITS,! Line Location: PRSPEC+3
Function Call: WRITE	Prompt: ! Line Location: PRTEST+3
Function Call: WRITE	Prompt: ?4,$E(LRTEST,1,12),?14,LRAN,?30,$J(LRVAL,4) Line Location: PRTEST+5
Function Call: WRITE	Prompt: ?33,LRMRK,?40,$E(LRCDT,1,6)_" "_$E($P(LRCDT,",",2),2,5) Line Location: PRTEST+6
Function Call: WRITE	Prompt: " at ",$P(LRCDT,"@",2) Line Location: PRTEST+7
Function Call: WRITE	Prompt: ?64,LRLOC,! Line Location: PRTEST+8
Function Call: WRITE	Prompt: !," COMMENT(S): " Line Location: COM+1
Function Call: WRITE	Prompt: ! Line Location: SUMMARY+3
Function Call: WRITE	Prompt: !,?20,"END OF SPECIAL REPORT" Line Location: SUMMARY+4
Function Call: WRITE	Prompt: "SPECIAL REPORT",?31 Line Location: HDR1+4
Function Call: WRITE	Prompt: "Report Date: " Line Location: HDR1+5
Function Call: WRITE	Prompt: $$FMTE^XLFDT($$NOW^XLFDT,"") Line Location: HDR1+6
Function Call: WRITE	Prompt: !,LRHDR2,?71,"Pg ",$J(LRPAG,3) Line Location: HDR1+7
Function Call: WRITE	Prompt: ! Line Location: HDR1+8
Function Call: WRITE	Prompt: !,PNM,?28,SSN,?61,$E(LRWRD,1,16),! Line Location: HDR2+1
Function Call: WRITE	Prompt: ! Line Location: WAIT+0
Function Call: WRITE	Prompt: !,"Search Criteria:" Line Location: LEGEND+2
Function Call: WRITE	Prompt: !,%,") " Line Location: LEGEND+4
Function Call: WRITE	Prompt: LRCHNG," " Line Location: LEGEND+5
Function Call: WRITE	Prompt: $P(LRTST(%,2),U,3)," Specimen: " Line Location: LEGEND+6
Routine Call	DIR Line Location: WAIT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LR"	COM+3

Label References

Name	Line Occurrences
CHKPG	PRTCONT+3, COM+5, SUMMARY+1
CHNCASE	SET+6, LEGEND+4
COND1	PRTCONT+4
COND2	PRTCONT+5
COND3	PRTCONT+6, PRTCONT+7
COND4	PRTCONT+8
END	START+4, START+6
HDR1	PAGE+2
HDR2	NEWPAT+1
LEGEND	CHKPG+4, SUMMARY+2
MAINLOOP	START+4
NEWPAT	COND1+2, COND2+1
NEWSPEC	COND1+3, COND2+2, COND3+1
NEWTST	COND1+4, COND2+3, COND3+2, COND4+1
PAGE	COND1+1
PRSPEC	NEWSPEC+1, PRTEST+3
PRTCONT	MAINLOOP+5
PRTEST	NEWTST+1, SAMETST+1
SET	MAINLOOP+4
SUMMARY	START+5
WAIT	CHKPG+5, COM+5, SUMMARY+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR1+2, LEGEND+3, LEGEND+4, LEGEND+6, LEGEND+7
>> C	COM+2, COM+3
DIR	END+1!, WAIT!
DIR(0	WAIT*
>> DTOUT	WAIT
>> DUOUT	WAIT
>> I	SUMMARY+3*
IOF	START+3, PAGE+1, CHKPG+4
IOSL	CHKPG+3, COM+4, SUMMARY+1, SUMMARY+3
IOST	START+3, PAGE+1, CHKPG+4, CHKPG+5, COM+5, SUMMARY+1
LRAN	END+3!, SET+9*, PRTEST+5, COM+3
LRCDT	END+4!, SET+9, SET+15, PRTEST+6, PRTEST+7
>> LRCHKSP	HDR1+10*
LRCHNG	END+3!, SET+6, CHNCASE+1, LEGEND+4*, LEGEND+5
>> LRCNT	CHKPG+1*, CHKPG+3, SUMMARY+1
LRCOMX	END+2!, SET+1, SET+2, PRTEST+1, PRTEST+4*
LRCOUNT	END+4!, PRTCONT+2, COND1+4, COND2+3, COND3+2, COND4+1*
>> LREND	START+4, START+5, MAINLOOP+3, MAINLOOP+4, MAINLOOP+5, PRTCONT+1, PRTCONT+3, CHKPG+2, CHKPG+5, PRTEST+2 , PRTEST+9, COM+1, COM+3, COM+5, COM+7, SUMMARY+1, WAIT*
>> LRHDR2	HDR1+7
LRHI	END+3!, SET+7*, PRSPEC+3, PRSPEC+4
LRLO	END+3!, SET+7*, PRSPEC+2, PRSPEC+4
>> LRLOC	SET+4*, PRTEST+8
LRMRK	END+3!, SET+8*, PRTEST+6
LROLD	MAINLOOP+1, END+2!, SET+13
>> LRPAG	HDR1+3*, HDR1+7
>> LRPATCK	START+2, PRTCONT+5, NEWPAT+1
LRPREC	END+3!, END+4!, SET+3*, SET+4, SET+5, SET+7, SET+8, SET+9, SET+10, SET+12 , SET+14, PRTEST+3
LRSORTI	MAINLOOP+2, MAINLOOP+3, END+2!, SET+2, SET+3
LRSPCK	START+2, MAINLOOP+1, END+2!, PRTCONT+6, NEWSPEC+1*
>> LRSPEC	SET+5, SET+6, PRTCONT+6, NEWSPEC+1, PRSPEC+1
>> LRSUB1	COM+3
>> LRSUB2	COM+3
>> LRSUB3	COM+3
LRTEST	END+4!, SET+12*, PRTCONT+7, PRTCONT+8, NEWTST+1, PRTEST+5
>> LRTHER	SET+8*, PRSPEC+2
LRTOP	MAINLOOP+1, END+2!, SET+13, PAGE+2, CHKPG+5, PRTEST+9, HDR1+9*
>> LRTST	LEGEND+3
>> LRTST(	LEGEND+4, LEGEND+6, LEGEND+7
>> LRTST(0	HDR1+1*, HDR1+2
>> LRTSTCK	START+2, MAINLOOP+1, PRTCONT+7, PRTCONT+8, NEWTST+1*
LRTSTK	END+2!
LRUNITS	END+4!, SET+14*, PRSPEC+3, PRSPEC+4
LRUNITS(1	PRSPEC+4*, PRTEST+3
LRVAL	END+3!, SET+7*, PRTEST+5
LRWRD	END+3!, SET+10, SET+11, HDR2+1
NEWPG	START+2, END+4!, PRTCONT+4, COND1+1, CHKPG+3*
PNM	END+3!, SET+4*, HDR2+1
REFCK	MAINLOOP+1*, END+2!
>> SSN	SET+4*, SET+13, PRTCONT+5, NEWPAT+1, HDR2+1
U	SET+4, SET+5, SET+7, SET+8, SET+9, SET+10, SET+12, SET+14, PRSPEC+4, PRTEST+3 , LEGEND+4, LEGEND+6, LEGEND+7
>> Y	SET+15*

Customize PDF page

Package: Lab Service

Routine: LRSORA2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: