Routine: LRSORA2

Name	Comments	DBIA/ICR reference
COND4	;
COND1	;
COND3	;
COND2	;
PRTCONT	;
COM	;Print comments on specimen
LEGEND	;
SET	;
HDR2	; ; W !,PNM,?28,SSN,?61,$E(LRWRD,1,16),!
HDR1	;
NEWSPEC	;
MAINLOOP	;
PRSPEC	;
CHNCASE	;
NEWPAT	; ; D HDR2 S LRPATCK=SSN
END	;
NEWTST	;
SUMMARY	;
START	;
SAMETST	;
CHKPG	;
WAIT
PRTEST	;
PAGE	;

Name	Field # of Occurrence
DD^%DT	SET+17
LABHDR^BLRUTIL2	HDR1+1
^DIR	WAIT
$$LOWCASE^LRAFUNC	CHNCASE+1
BUILD^LRSORA3	START+1
LRGLIN^LRX	HDR1+9, LEGEND+1
$$FMTE^XLFDT	HDR1+7
$$NOW^XLFDT	HDR1+7

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: ?4,$E(LRTEST,1,12),?14,LRAN,?30,$J(LRVAL,4) Line Location: PRTEST+4
Function Call: WRITE	Prompt: ?33,LRMRK,?40,$E(LRCDT,1,6)_" "_$E($P(LRCDT,",",2),2,5) Line Location: PRTEST+5
Function Call: WRITE	Prompt: " at ",$P(LRCDT,"@",2) Line Location: PRTEST+6
Function Call: WRITE	Prompt: ?64,LRLOC,! Line Location: PRTEST+7
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+5
Function Call: WRITE	Prompt: "Report Date: " Line Location: HDR1+6
Function Call: WRITE	Prompt: $$FMTE^XLFDT($$NOW^XLFDT,"") Line Location: HDR1+7
Function Call: WRITE	Prompt: !,LRHDR2,?71,"Pg ",$J(LRPAG,3) Line Location: HDR1+8
Function Call: WRITE	Prompt: ! Line Location: HDR1+9
Function Call: WRITE	Prompt: !,PNM,?28,SSN,?61,$E(LRWRD,1,16),! Line Location: HDR2+1
Function Call: WRITE	Prompt: !,PNM,?28,HRCN,?61,$E(LRWRD,1,16),! Line Location: HDR2+2
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

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

Label References

Name	Line Occurrences
CHKPG	PRTCONT+3, COM+5, SUMMARY+1
CHNCASE	SET+7, LEGEND+4
COND1	PRTCONT+4
COND2	PRTCONT+6
COND3	PRTCONT+7, PRTCONT+8
COND4	PRTCONT+9
END	START+4, START+6
HDR1	PAGE+2
HDR2	NEWPAT+2
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
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+3, LEGEND+3, LEGEND+4, LEGEND+6, LEGEND+7
>> C	COM+2, COM+3
DIR	END+1!, WAIT!
DIR(0	WAIT*
>> DTOUT	WAIT
>> DUOUT	WAIT
>> HRCN	SET+5*, SET+15, PRTCONT+6, NEWPAT+2, HDR2+2
>> 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+10*, PRTEST+4, COM+3
LRCDT	END+4!, SET+10, SET+17, PRTEST+5, PRTEST+6
>> LRCHKSP	HDR1+11*
LRCHNG	END+3!, SET+7, CHNCASE+1, LEGEND+4*, LEGEND+5
>> LRCNT	CHKPG+1*, CHKPG+3, SUMMARY+1
LRCOMX	END+2!, SET+1, SET+2, PRTEST+1, PRTEST+3*
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+8, COM+1, COM+3, COM+5, COM+7, SUMMARY+1, WAIT*
>> LRHDR2	HDR1+8
LRHI	END+3!, SET+8*, PRSPEC+3
LRLO	END+3!, SET+8*, PRSPEC+2
>> LRLOC	SET+4*, PRTEST+7
LRMRK	END+3!, SET+9*, PRTEST+5
LROLD	MAINLOOP+1, END+2!, SET+15
>> LRPAG	HDR1+4*, HDR1+8
>> LRPATCK	START+2, PRTCONT+6, NEWPAT+2
LRPREC	END+3!, END+4!, SET+3*, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SET+11 , SET+13, SET+16
LRSORTI	MAINLOOP+2, MAINLOOP+3, END+2!, SET+2, SET+3
LRSPCK	START+2, MAINLOOP+1, END+2!, PRTCONT+7, NEWSPEC+1*
>> LRSPEC	SET+6, SET+7, PRTCONT+7, NEWSPEC+1, PRSPEC+1
>> LRSUB1	COM+3
>> LRSUB2	COM+3
>> LRSUB3	COM+3
LRTEST	END+4!, SET+13*, PRTCONT+8, PRTCONT+9, NEWTST+1, PRTEST+4
>> LRTHER	SET+9*, PRSPEC+2
LRTOP	MAINLOOP+1, END+2!, SET+15, PAGE+2, CHKPG+5, PRTEST+8, HDR1+10*
>> LRTST	LEGEND+3
>> LRTST(	LEGEND+4, LEGEND+6, LEGEND+7
>> LRTST(0	HDR1+2*, HDR1+3
>> LRTSTCK	START+2, MAINLOOP+1, PRTCONT+8, PRTCONT+9, NEWTST+1*
LRTSTK	END+2!
LRUNITS	END+4!, SET+16*, PRSPEC+3
LRVAL	END+3!, SET+8*, PRTEST+4
LRWRD	END+3!, SET+11, SET+12, HDR2+2
NEWPG	START+2, END+4!, PRTCONT+4, COND1+1, CHKPG+3*
PNM	END+3!, SET+4*, HDR2+2
REFCK	MAINLOOP+1*, END+2!
>> SSN	SET+4*
U	SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SET+11, SET+13, SET+16, LEGEND+4 , LEGEND+6, LEGEND+7
>> Y	SET+17*

Customize PDF page

Package: Lab Service

Routine: LRSORA2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: