Routine: LRSORC1A

Package	Total	Call Graph
Kernel	3	^%ZISC $$HTE^XLFDT ($$CJ,$$TRIM)^XLFSTR
IHS Changes To Lab	1	LABHDR^BLRUTIL2
Lab Service	1	LRGLIN^LRX
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRSORC
Lab Service	1	LRSORC

Entry Points

Name	Comments	DBIA/ICR reference
CONTROL	;
SORT	;
END	;
HDR	;
CRITICL	;
RANGE	;
SUMMARY	;
INIT	;
PRNTST	;
PRINT	;
CONT
COM	;Print comments on specimen
WAIT	;

External References

Name	Field # of Occurrence
^%ZISC	END+2
LABHDR^BLRUTIL2	HDR+6
^DIR	WAIT+1
LRGLIN^LRX	HDR+17
$$HTE^XLFDT	HDR+14
$$CJ^XLFSTR	HDR+8, HDR+13, HDR+14
$$TRIM^XLFSTR	HDR+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SUMMARY+1
Function Call: WRITE	Prompt: ! Line Location: SUMMARY+2
Function Call: WRITE	Prompt: ?20,"END OF SPECIAL REPORT" Line Location: SUMMARY+3
Function Call: WRITE	Prompt: !!?30,"NO MATCHING DATA FOUND",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+17
Function Call: WRITE	Prompt: !,$E(PNM,1,22),?23,$E(SSN,1,11) Line Location: PRINT+23
Function Call: WRITE	Prompt: ?35,$E(LRLOC,1,12),?48,$E(LRAN,1,14) Condition for execution: LRDPF=2 Line Location: PRINT+23
Function Call: WRITE	Prompt: !,$E(PNM,1,22),?23,$E(SSN,1,11) Line Location: PRNTST+9
Function Call: WRITE	Prompt: ?35,$E(LRLOC,1,12),?48,$E(LRAN,1,14) Condition for execution: LRDPF=2 Line Location: PRNTST+9
Function Call: WRITE	Prompt: ?32,"Ther: ",LRTLO,"-" Line Location: PRNTST+32
Function Call: WRITE	Prompt: LRTHI Line Location: PRNTST+33
Function Call: WRITE	Prompt: ! Line Location: PRNTST+34
Function Call: WRITE	Prompt: !,"COMMENT(S): " Line Location: COM+1
Function Call: WRITE	Prompt: !,$E(PNM,1,22),?23,$E(SSN,1,11) Line Location: COM+7
Function Call: WRITE	Prompt: ?35,$E(LRLOC,1,12),?48,$E(LRAN,1,14) Condition for execution: LRDPF=2 Line Location: COM+7
Function Call: WRITE	Prompt: "SPECIAL REPORT: SEARCHING FOR CRITICAL FLAGS " Line Location: HDR+2
Function Call: WRITE	Prompt: LRDATE,?65,"Pg ",LRPAG,!,LRHDR2,! Line Location: HDR+3
Function Call: WRITE	Prompt: STR,!,$$CJ^XLFSTR(LRHDR2,IOM),! Line Location: HDR+13
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Print Date: "_$$HTE^XLFDT($H,"2DZ"),IOM),! Line Location: HDR+14
Function Call: WRITE	Prompt: ?31,"Ref. Range: ",LRRLO,"-",LRRHI Line Location: RANGE+1
Function Call: WRITE	Prompt: ?57,"Critical: ",LRCLO,"-",LRCHI Line Location: CRITICL+1
Function Call: WRITE	Prompt: !?10,"CONTINUED NEXT PAGE",! Line Location: CONT+0
Routine Call	DIR Line Location: WAIT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PRNTST+15, PRNTST+25, PRNTST+26
^LAB(61 - [#61]	PRINT+14
^TMP("LR"	END+3!, PRINT+2, PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+34 , COM+3, COM+14

Label References

Name	Line Occurrences
COM	PRNTST+35
CONT	PRNTST+7, COM+5
CONTROL	INIT+2
CRITICL	PRNTST+33, RANGE+2
END	SORT+6
HDR	SORT+3, SUMMARY+1, PRINT+17, PRNTST+8, COM+6
PRINT	SORT+4
PRNTST	PRINT+27
RANGE	PRNTST+31
SORT	CONTROL+1
SUMMARY	SORT+5
WAIT	SUMMARY+1, END+1, PRINT+17, PRNTST+7, COM+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END+4!
%H	END+4!
%ZIS	END+4!
AGE	END+5!
C	END+5!, COM+2, COM+3, COM+14
DFN	END+5!
DIC	END+5!
DIR	END+5!, WAIT+1!
DIR(0	WAIT+1*
DOB	END+5!
DTOUT	END+4!, WAIT+2
DUOUT	END+4!, WAIT+2
HRCN	END+10!, PRINT+13*, PRINT+24, PRNTST+10, COM+8
I	SUMMARY+2, END+5!, PRNTST+2, PRNTST+3*, PRNTST+4
IOF	SORT+1, SUMMARY+1, END+2, PRINT+17, PRNTST+8, COM+6
IOM	HDR+8, HDR+10, HDR+13, HDR+14
IOSL	SUMMARY+1, SUMMARY+2, PRINT+17, PRNTST+6, COM+4
IOST	SORT+1, SORT+2, SUMMARY+1, END+1, PRINT+17, PRNTST+7, COM+5
L0	END+5!
LRAA	END+6!
LRAAA	END+9!
LRAD	END+6!
LRAN	END+7!, PRINT+8, PRINT+9, PRINT+10, PRINT+24, PRNTST+3, PRNTST+4, PRNTST+10, PRNTST+34, COM+3 , COM+8, COM+14
LRCHI	PRNTST+1~, PRNTST+20*, CRITICL+1
LRCLO	PRNTST+1~, PRNTST+19*, CRITICL+1
LRCRTFLG	END+7!, PRNTST+5*, PRNTST+30
LRDASH	END+7!
LRDAT	END+7!
LRDATE	END+7!
LRDFN	END+6!
LRDPF	END+6!, PRINT+11*, PRINT+24, PRNTST+10, COM+8
LREDAT	END+8!
LREDT	END+8!
LREND	SORT+5, SUMMARY+1, END+1, END+6!, PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+17, PRNTST+3 , PRNTST+7, PRNTST+12, COM+3, COM+5, COM+13, WAIT+2*
LRFAN	END+6!
LRFLAG	PRNTST+1~, PRNTST+14*, PRNTST+17, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22
LRHDR2	END+9!, HDR+13
LRIDT	END+6!
LRLAN	END+6!
LRLCS	END+6!
LRLLOC	END+7!
LRLOC	END+8!, PRINT+13*, PRINT+24, PRNTST+10, COM+8
LRPAG	END+7!, HDR+1*, HDR+9, HDR+10
LRPDT	END+8!
LRPREC	END+8!, PRINT+10*, PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+16
LRPTS	END+8!
>> LRREF	PRNTST+15*, PRNTST+17, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22, PRNTST+30
LRRHI	PRNTST+1~, PRNTST+18*, RANGE+1
LRRLO	PRNTST+1~, PRNTST+17*, RANGE+1
LRSDAT	END+8!
LRSDT	END+8!
LRSPDAT	END+8!, PRINT+16*, PRINT+25, PRNTST+11, COM+9
>> LRSPEC	PRINT+14*, PRINT+26
>> LRSPNUM	PRINT+15*, PRNTST+15
LRSRT	END+7!
LRSUB1	END+6!, PRINT+1, PRINT+2, PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4 , PRNTST+34, COM+3, COM+14
LRSUB2	END+6!, PRINT+4, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+34, COM+3 , COM+14
LRSUB3	END+9!, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+34, COM+3, COM+14
LRTHI	PRNTST+1~, PRNTST+22*, PRNTST+31, PRNTST+33
LRTLO	PRNTST+1~, PRNTST+21*, PRNTST+31, PRNTST+32
LRTREC	END+8!, PRNTST+4*, PRNTST+5, PRNTST+13, PRNTST+14, PRNTST+17, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21 , PRNTST+22
LRTST	END+7!, PRNTST+5, PRNTST+25, PRNTST+26*, PRNTST+29
LRTVAL	END+7!, PRNTST+5*, PRNTST+29
LRTX	END+7!, PRNTST+13*, PRNTST+15, PRNTST+25, PRNTST+26
LRWRD	END+9!
PGLEN	HDR+7~, HDR+9*, HDR+10
PNM	END+5!, PRINT+13*, PRINT+24, PRNTST+10, COM+8
POP	END+4!
SEX	END+5!
SSN	END+5!
STR	HDR+7~, HDR+8, HDR+10, HDR+11*, HDR+13
T	END+5!
U	INIT+1*, PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRNTST+5, PRNTST+13, PRNTST+14, PRNTST+17 , PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22, PRNTST+25, PRNTST+26, PRNTST+30
>> VA("BID"	END+5!
>> VA("PID"	END+5!
VAERR	END+5!
VAR	PRNTST+1~, PRNTST+23*
X	END+5!
Y	END+5!
ZTDESC	END+4!
ZTIO	END+4!
ZTQUEUED	END+2, END+4!
ZTRTN	END+4!
ZTSAVE	END+4!
ZTSK	END+4!

Customize PDF page

Package: Lab Service

Routine: LRSORC1A

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: