Routine: LRSORC1A

Information

LRSORC1A ;DALISC/DRH - LRSORC Continued ;APR 2, 2025@11:54

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	^%ZISC
Lab Service	1	LRGLIN^LRX
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRSORC

Entry Points

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

External References

Name	Field # of Occurrence
^%ZISC	END+2
^DIR	WAIT+1
LRGLIN^LRX	HDR+4

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+16
Function Call: WRITE	Prompt: ?32,"Ther: ",LRTLO,"-" Line Location: PRNTST+33
Function Call: WRITE	Prompt: LRTHI Line Location: PRNTST+34
Function Call: WRITE	Prompt: ! Line Location: PRNTST+35
Function Call: WRITE	Prompt: !,"COMMENT(S): " Line Location: COM+1
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: ?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+16, PRNTST+26, PRNTST+27
^LAB(61 - [#61]	PRINT+13
^TMP("LR"	END+3!, PRINT+2, PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+35 , COM+3, COM+14

Label References

Name	Line Occurrences
COM	PRNTST+36
CONT	PRNTST+7, COM+5
CONTROL	INIT+2
CRITICL	PRNTST+34, RANGE+2
END	SORT+6
HDR	SORT+3, SUMMARY+1, PRINT+16, PRNTST+8, COM+6
PRINT	SORT+4
PRNTST	PRINT+26
RANGE	PRNTST+32
SORT	CONTROL+1
SUMMARY	SORT+5
WAIT	SUMMARY+1, END+1, PRINT+16, 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
I	SUMMARY+2, END+5!, PRNTST+2, PRNTST+3*, PRNTST+4
IOF	SORT+1, SUMMARY+1, END+2, PRINT+16, PRNTST+8, COM+6
IOSL	SUMMARY+1, SUMMARY+2, PRINT+16, PRNTST+6, COM+4
IOST	SORT+1, SORT+2, SUMMARY+1, END+1, PRINT+16, 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+23, PRNTST+3, PRNTST+4, PRNTST+10, PRNTST+35, COM+3 , COM+8, COM+14
LRCHI	PRNTST+1~, PRNTST+21*, CRITICL+1
LRCLO	PRNTST+1~, PRNTST+20*, CRITICL+1
LRCRTFLG	END+7!, PRNTST+5*, PRNTST+31
LRDASH	END+7!
LRDAT	END+7!
LRDATE	END+7!, HDR+3
LRDFN	END+6!
LRDPF	END+6!, PRINT+11*, PRINT+23, 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+16, PRNTST+3 , PRNTST+7, PRNTST+13, COM+3, COM+5, COM+13, WAIT+2*
LRFAN	END+6!
LRFLAG	PRNTST+1~, PRNTST+15*, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22, PRNTST+23, PRNTST+31
LRHDR2	END+9!, HDR+3
LRIDT	END+6!
LRLAN	END+6!
LRLCS	END+6!
LRLLOC	END+7!
LRLOC	END+8!, PRINT+12*, PRINT+23, PRNTST+10, COM+8
LRPAG	END+7!, HDR+1*, HDR+3
LRPDT	END+8!
LRPREC	END+8!, PRINT+10*, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15
LRPTS	END+8!
>> LRREF	PRNTST+16*, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22, PRNTST+23, PRNTST+31
LRRHI	PRNTST+1~, PRNTST+19*, RANGE+1
LRRLO	PRNTST+1~, PRNTST+18*, RANGE+1
LRSDAT	END+8!
LRSDT	END+8!
LRSPDAT	END+8!, PRINT+15*, PRINT+25, PRNTST+12, COM+9
>> LRSPEC	PRINT+13*, PRINT+25
>> LRSPNUM	PRINT+14*, PRNTST+16
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+35, COM+3, COM+14
LRSUB2	END+6!, PRINT+4, PRINT+5, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+35, COM+3 , COM+14
LRSUB3	END+9!, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRNTST+3, PRNTST+4, PRNTST+35, COM+3, COM+14
LRTHI	PRNTST+1~, PRNTST+23*, PRNTST+32, PRNTST+34
LRTLO	PRNTST+1~, PRNTST+22*, PRNTST+32, PRNTST+33
LRTREC	END+8!, PRNTST+4*, PRNTST+5, PRNTST+14, PRNTST+15, PRNTST+18, PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22 , PRNTST+23, PRNTST+31
LRTST	END+7!, PRNTST+5, PRNTST+26, PRNTST+27*, PRNTST+30
LRTVAL	END+7!, PRNTST+5*, PRNTST+30
LRTX	END+7!, PRNTST+14*, PRNTST+16, PRNTST+26, PRNTST+27
LRWRD	END+9!
PNM	END+5!, PRINT+12*, PRINT+23, PRNTST+10, COM+8
POP	END+4!
SEX	END+5!
SSN	END+5!, PRINT+12*, PRINT+23, PRNTST+10, COM+8
T	END+5!
U	INIT+1*, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRNTST+5, PRNTST+14, PRNTST+15, PRNTST+18 , PRNTST+19, PRNTST+20, PRNTST+21, PRNTST+22, PRNTST+23, PRNTST+26, PRNTST+27, PRNTST+31
>> VA("BID"	END+5!
>> VA("PID"	END+5!
VAERR	END+5!
VAR	PRNTST+1~, PRNTST+24*
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: 3

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: