Routine: LRSPRPT

Call Graph Total: 20

Package	Total	Call Graph
Lab Service	11	(,F,P)^LRAPF INIT^LRAPSNMD MAIN^LRAPTIUP TIUCHK^LRAPUTL (,END)^LRSPRPT1 EN^LRSPRPT2 ^LRSPRPTM (D,L,L1,S,V,YN)^LRU (,D,EN2,SET)^LRUA ^LRUP EN1^LRUPS
VA Fileman	5	EN^DDIOL $$GET1^DIQ ^DIR ^DIWP ^DIWW
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	INP^VADPT

Package

Total

Call Graph

(,F,P)^LRAPF INIT^LRAPSNMD MAIN^LRAPTIUP TIUCHK^LRAPUTL (,END)^LRSPRPT1 EN^LRSPRPT2 ^LRSPRPTM (D,L,L1,S,V,YN)^LRU
(,D,EN2,SET)^LRUA ^LRUP EN1^LRUPS

VA Fileman

EN^DDIOL $$GET1^DIQ ^DIR ^DIWP ^DIWW

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Registration

INP^VADPT

Package	Total	Caller Graph
Lab Service	10	LRAPCUM LRAPDS LRAPFICH LRAPMOD LRAPQAFS LRAPQAM LRAPQAMR LRAPQAR LRAURPT LRSPT
Automated Lab Instruments	1	LAPFICH

Package

Total

Caller Graph

Lab Service

LRAPCUM LRAPDS LRAPFICH LRAPMOD LRAPQAFS LRAPQAM LRAPQAMR LRAPQAR
LRAURPT LRSPT

Automated Lab Instruments

LAPFICH

Entry Points

Name	Comments	DBIA/ICR reference
A	;
PSGL	;Single Report
CH	;
E	;
F	;
CONT	;
TOP	;
S	;
DEV	;from LRAPMOD
SUPM	;Print previous versions of supplementary reports
LST	;
PQUE	;Report from queue
QUE	;
SGL	;Print Single Report
W	;
FOC	;Print final office copy page (SNOMEDS)
GETP	;
SUPA	;Print supplementary report audit information
END	;
EN	;from LRSPT

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+8
^%ZISC	LST+6
^%ZTLOAD	DEV+7
EN^DDIOL	GETP+7
$$GET1^DIQ	FOC+9, FOC+10, FOC+11, FOC+12
^DIR	CONT+2
^DIWP	F+4, S+10, SUPM+17
^DIWW	F+5, S+12, SUPM+18
^LRAPF	F+3, EN+10, EN+22, EN+24, EN+27, EN+30, EN+35, EN+40, EN+45, EN+50 , EN+51, S+4, S+8, A+2, TOP+1, SUPM+5, SUPM+16
F^LRAPF	F+3, EN+22, EN+24, EN+27, EN+30, EN+35, EN+40, EN+45, EN+50, EN+51 , EN+57, S+4, S+8, A+2, TOP+1, SUPM+5, SUPM+16
P^LRAPF	EN+23
INIT^LRAPSNMD	FOC+18
MAIN^LRAPTIUP	PSGL+4, PQUE+9
TIUCHK^LRAPUTL	PQUE+7, SGL+6
^LRSPRPT1	EN+55
END^LRSPRPT1	LRSPRPT+7
EN^LRSPRPT2	CH+1
^LRSPRPTM	EN+32, EN+37, EN+42, EN+47
D^LRU	S+1, SUPA+13, SUPM+10
L^LRU	QUE+11
L1^LRU	QUE+11
S^LRU	QUE+11
V^LRU	END+1
YN^LRU	CH+3
^LRUA	EN+6, FOC+3
D^LRUA	EN+9
EN2^LRUA	LRSPRPT+6, SGL+8
SET^LRUA	QUE+11
^LRUP	FOC+4
EN1^LRUPS	GETP+1, SGL+3
INP^VADPT	EN+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," FINAL PATIENT REPORTS" Line Location: LRSPRPT+4
Function Call: WRITE	Prompt: !!,"Save final report list for reprinting " Line Location: CH+2
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: DEV+3
Function Call: WRITE	Prompt: !,"Request Queued, #",ZTSK Condition for execution: $D(ZTSK) Line Location: DEV+7
Function Call: WRITE	Prompt: ! Line Location: DEV+7
Function Call: WRITE	Prompt: !,LR("%") Line Location: W+1
Function Call: WRITE	Prompt: !,"Submitted by: ",LRW(5),?44,"Date obtained: ",LRTK Line Location: EN+11
Function Call: WRITE	Prompt: !,"Specimen (Received ",LRTK(1),"):" Line Location: EN+13
Function Call: WRITE	Prompt: W Line Location: EN+17
Function Call: WRITE	Prompt: !,"Brief Clinical History:" Line Location: EN+17
Function Call: WRITE	Prompt: W Line Location: EN+18
Function Call: WRITE	Prompt: !,"Preoperative Diagnosis:" Line Location: EN+18
Function Call: WRITE	Prompt: W Line Location: EN+19
Function Call: WRITE	Prompt: !,"Operative Findings:" Line Location: EN+19
Function Call: WRITE	Prompt: W Line Location: EN+20
Function Call: WRITE	Prompt: !,"Postoperative Diagnosis:" Line Location: EN+20
Function Call: WRITE	Prompt: !?27,"Surgeon/physician: ",LRMD Line Location: EN+21
Function Call: WRITE	Prompt: !,LR("%1") Condition for execution: LRA Line Location: EN+21
Function Call: WRITE	Prompt: ! Line Location: EN+28
Function Call: WRITE	Prompt: ?31,$S(LRSS="SP":"Pathology Resident: ",LRSS="CY":"Screened by: ",LRSS="EM":"Prepared by: ",1:" "),LRRMD Condition for execution: LRRMD]"" Line Location: EN+28
Function Call: WRITE	Prompt: !?3,"Date: ",Y Line Location: S+2
Function Call: WRITE	Prompt: " not verified" Line Location: S+3
Function Call: WRITE	Prompt: !?14,"+ SUPPLEMENTARY REPORT HAS BEEN ADDED/MODIFIED +" Line Location: SUPA+1
Function Call: WRITE	Prompt: !,"(Added/Last modified: " Line Location: SUPA+2
Function Call: WRITE	Prompt: Y,LRSGN,A,")" Line Location: SUPA+13
Function Call: WRITE	Prompt: !,?25,"*- NOT VERIFIED -*" Line Location: SUPA+15
Function Call: WRITE	Prompt: !,"Date ",Y2,Y,LRSGN,X Line Location: SUPM+10
Function Call: WRITE	Prompt: !?13,"==========Text below appears on final report==========" Line Location: SUPM+20
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Routine Call	%ZIS Line Location: DEV+8
Routine Call	DIR Line Location: CONT+2
Routine Call	%ZIS Line Location: DEV+2

FileNo	Call Tags
^LR - [#63]	GET1^DIQ
^LRT(67 - [#67]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	F+2, F+4, EN+4, EN+14, EN+29, EN+32, EN+34, EN+37, EN+39, EN+42 , EN+44, EN+47, EN+50, EN+53, EN+54, S+5, S+7, S+10, SGL+4, A+1 , A+3, SUPA+3, SUPA+6, SUPA+8, SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15, FOC+4 , FOC+6, FOC+14
^LRO(69.2 - [#69.2]	GETP+2, GETP+3, GETP+8, GETP+9, GETP+10, QUE+9, QUE+10, PQUE+2, PQUE+6, LST+2! , LST+3, EN+3
^UTILITY($J	E+1!, SUPM+11!
^VA(200 - [#200]	SUPA+11, SUPM+9

Label References

Name	Line Occurrences
A	EN+13
CH	LRSPRPT+7
CONT	PSGL+8, PSGL+13, PSGL+17, PSGL+24, PQUE+15, PQUE+20, PQUE+25, PQUE+32
DEV	SGL+9
E	F+1, S+6
EN	PSGL+15, PQUE+22
END	DEV+3, LST+8
F	EN+17, EN+18, EN+19, EN+20, EN+33, EN+38, EN+43, EN+48
FOC	PSGL+11, PSGL+22, PQUE+17, PQUE+29
GETP	GETP+2, GETP+3, GETP+11
LST	PSGL+1
S	EN+54
SGL	LRSPRPT+7, SGL+4
SUPA	S+5
SUPM	SUPA+16
TOP	F+4
W	EN+12, EN+17, EN+18, EN+19, EN+20, EN+25

Name	Field # of Occurrence
^(0	GETP+9*, QUE+10, SUPA+7, SUPA+9, SUPA+11, SUPM+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CH+1, CH+3*, LST+7!
>> %ZIS	DEV+2*
>> A	F+2, F+4, A+1, A+3, SUPA+3, SUPA+4, SUPA+7, SUPA+9, SUPA+10, SUPA+11* , SUPA+13, SUPM+3*, SUPM+4, SUPM+14, SUPM+15
>> A2	SUPA+9*, SUPA+10
>> AGE	FOC+17
>> B	S+6, S+7, S+10, SUPA+3, SUPA+4, SUPA+6, SUPA+8, SUPM+13, SUPM+14, SUPM+15
>> DFN	FOC+9
DIR	LST+7!, CONT+1!
DIR(0	CONT+1*
DIRUT	LST+7!
>> DIWF	E+2, S+9, SUPM+12*
>> DIWL	E+2, SUPM+12
>> DIWR	E+2, SUPM+12
>> DOB	FOC+17
DTOUT	LST+7!, CONT+3
DUOUT	LST+7!
IO	QUE+1
IO("Q"	DEV+4, DEV+8!
IOF	PSGL+14, PSGL+21, PQUE+21, PQUE+23, LST+5
IOM	CH+6, E+2, SUPM+12
IOSL	F+3, EN+22, EN+24, EN+27, EN+30, EN+35, EN+40, EN+45, EN+51, S+4 , S+8, A+2, SUPM+5, SUPM+16
IOST	PSGL+8, PSGL+13, PSGL+14, PSGL+17, PSGL+21, PSGL+24, PQUE+11, PQUE+15, PQUE+18, PQUE+20 , PQUE+21, PQUE+23, PQUE+24, PQUE+25, PQUE+30, PQUE+32, LST+5
>> LR(	QUE+9, EN+3, EN+31, EN+36, EN+41, EN+46, EN+50
>> LR("%"	W+1
>> LR("%1"	EN+21
>> LR("DIWF"	QUE+9*, E+2
>> LR("DVD"	CH+5!, CH+6*, PQUE+11, PQUE+18, PQUE+24, PQUE+30
>> LR("F"	PSGL+7, PSGL+8, PSGL+13, PSGL+17, PSGL+24, PQUE+5!, PQUE+14, PQUE+15, PQUE+20, PQUE+25 , PQUE+32, EN+11*
>> LR("Q"	PSGL+6, PSGL+8, PSGL+9, PSGL+10, PSGL+12, PSGL+13, PSGL+17, PSGL+18, PSGL+19, PSGL+23* , PSGL+24, PQUE+2, PQUE+13, PQUE+15, PQUE+16, PQUE+19, PQUE+20, PQUE+25, PQUE+26, PQUE+31* , PQUE+32, F+2, F+3, F+5, EN+10, EN+13, EN+17, EN+18, EN+19, EN+20 , EN+22, EN+24, EN+27, EN+29, EN+30, EN+33, EN+34, EN+35, EN+38, EN+39 , EN+40, EN+43, EN+44, EN+45, EN+48, EN+50, EN+51, EN+53, EN+55, S+4 , S+7, S+8, S+10, S+11, A+1, A+2, SUPA+3, SUPA+5, SUPM+3, SUPM+5 , SUPM+14, SUPM+16, SUPM+18, SUPM+19, CONT+3*
>> LR("R"	S+3
>> LR("SPSM"	EN+2*
>> LR(0	EN+32, EN+37, EN+42, EN+47
>> LRA	QUE+10*, EN+12, EN+17, EN+18, EN+19, EN+20, EN+21, EN+25
>> LRAA	GETP+2, GETP+3, GETP+8, GETP+9, GETP+10, QUE+9, QUE+10, PQUE+2, PQUE+6, LST+2 , LST+3, EN+3, FOC+18
LRADC	FOC+1~, FOC+6, FOC+14, FOC+18
>> LRAN	GETP+1, GETP+2, GETP+8, GETP+9, PQUE+1, PQUE+2, PQUE+6, SGL+3, FOC+18
LRAP	LRSPRPT+5!, PSGL+1, PSGL+2, PSGL+7!, PSGL+16!, LST+1!, SGL+7*, FOC+2
>> LRAPX	LRSPRPT+7
>> LRAPX(1	CH+1, SGL+2
LRCTR	FOC+1~
>> LRDEM	FOC+18
>> LRDEM("AGE"	FOC+17*
>> LRDEM("AUDT"	FOC+10*
>> LRDEM("AUTYP"	FOC+11*
>> LRDEM("DOB"	FOC+17*
>> LRDEM("DTH"	FOC+7, FOC+9
>> LRDEM("PNM"	FOC+16*
>> LRDEM("PRO"	FOC+12, FOC+15
>> LRDEM("SEX"	FOC+17*
>> LRDEM("SSN"	FOC+16*
>> LRDFN	GETP+8, PSGL+2, PQUE+6, PQUE+7, F+2, F+4, EN+4, EN+14, EN+29, EN+32 , EN+34, EN+37, EN+39, EN+42, EN+44, EN+47, EN+50, EN+53, EN+54, S+5 , S+7, S+10, SGL+4, SGL+6, SGL+7, A+1, A+3, SUPA+3, SUPA+6, SUPA+8 , SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15, FOC+4, FOC+6, FOC+10, FOC+11, FOC+12 , FOC+14, FOC+18
>> LRDPF	FOC+7, FOC+9
LRFFF	QUE+2~, QUE+7, QUE+8, PSGL+5, PQUE+4, PQUE+10, PQUE+33, LST+5
>> LRFOC	QUE+5*, QUE+8, PSGL+10, PSGL+19, PQUE+4, PQUE+11, PQUE+16, PQUE+24, PQUE+27
>> LRI	GETP+8, PSGL+2, PQUE+6, PQUE+7, F+2, F+4, EN+4, EN+14, EN+29, EN+32 , EN+34, EN+37, EN+39, EN+42, EN+44, EN+47, EN+50, EN+53, EN+54, S+5 , S+7, S+10, SGL+4, SGL+6, SGL+7, A+1, A+3, SUPA+3, SUPA+6, SUPA+8 , SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15, FOC+14, FOC+18
>> LRMD	EN+21, FOC+15
LRO	EN+4!, EN+57*
LRO(68	LRSPRPT+4
>> LRP	FOC+16
LRPMD	LST+1!
>> LRPRAC	EN+7*, EN+8, EN+9
>> LRPRAC(1	EN+8, EN+9
>> LRPRE	EN+2, EN+56
LRPTR	PSGL+3, PSGL+4, PQUE+7, PQUE+8, PQUE+9, PQUE+12!, SGL+1~, SGL+6
>> LRQ	EN+5*
>> LRQ(9	SUPA+16
>> LRQUIT	QUE+6, PSGL+6, PSGL+12, PSGL+23, PQUE+3, PQUE+13, PQUE+19, PQUE+31
>> LRRC	EN+26
LRRMD	LST+1!, EN+28
>> LRS(99	LRSPRPT+5!
LRSAV	LRSPRPT+5!, CH+3, LST+2, LST+4!, SGL+7
>> LRSF	FOC+18
LRSF515	QUE+4*, END+2!
>> LRSGN	SUPA+7, SUPA+9, SUPA+13, SUPM+6, SUPM+8, SUPM+10
>> LRSS	PQUE+7, F+2, F+4, EN+4, EN+14, EN+28, EN+29, EN+32, EN+34, EN+37 , EN+39, EN+42, EN+44, EN+47, EN+50, EN+53, EN+54, S+5, S+7, S+10 , SGL+4, SGL+6, A+1, A+3, SUPA+3, SUPA+6, SUPA+8, SUPA+15, SUPM+3, SUPM+4 , SUPM+14, SUPM+15, FOC+3, FOC+4, FOC+5, FOC+6, FOC+13, FOC+14, FOC+18
>> LRT	SUPM+4, SUPM+6, SUPM+8, SUPM+15, SUPM+17
>> LRTK	EN+11
>> LRTK(1	EN+13
LRV	LST+4!, F+2, F+4, EN+13, EN+17, EN+18, EN+19, EN+20, EN+33, EN+38* , EN+43, EN+48, EN+53*, EN+54, S+5, S+7, S+10, A+1, A+3, SUPA+3 , SUPA+6, SUPA+8, SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15
LRW	LST+4!
LRW(5	EN+11
LRZ	LST+4!, F+2, F+5, S+7, S+12, SUPM+14*, SUPM+18
MSG	GETP+7!
MSG(1	GETP+4, GETP+5
MSG(2	GETP+6*
>> POP	DEV+3
>> SEX	FOC+17
>> SSN	FOC+16
U	QUE+10, EN+32, EN+37, EN+47, S+1, S+5, CONT+3
>> VADM(6	FOC+7
>> VAIN(2	EN+7
X	GETP+9, PQUE+6, LST+7!, F+4, EN+9, EN+54, S+1, S+3, S+10, TOP+1 , SUPM+6, SUPM+8, SUPM+9, SUPM+10, SUPM+17, CONT+3, FOC+4*
Y	LST+7!, S+1, S+2, SUPA+7, SUPA+9, SUPA+13, SUPM+6, SUPM+8*, SUPM+10
>> Y2	SUPM+6, SUPM+8, SUPM+10
>> Z	TOP+1*
>> ZTDESC	DEV+5*
>> ZTQUEUED	LST+6
>> ZTREQ	LST+6*
>> ZTRTN	DEV+6*
>> ZTSAVE("LR*"	DEV+6*
ZTSK	DEV+7, DEV+8!

Customize PDF page

Package: Lab Service

Routine: LRSPRPT

Information

Source Information