Routine: LRRP2

Package	Total	Call Graph
Lab Service	10	^LRAIPRIV (,END)^LRDPA EN1^LRMIPC EN^LRPARAM ^LRRK CH^LRRP FOOT^LRRP1 IO^LRWU ^LRWU3 (DT,PT)^LRX
Kernel	4	^%ZISC ($$FMTE,$$HTE,$$NOW)^XLFDT ($$LJ,$$UP)^XLFSTR ($$NAME,$$PADD,NAME,PADD)^XUAF4
IHS Changes To Lab	2	$$ISPIMS^BLRUTIL LABHDR^BLRUTIL2
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Lab Service	18	LRAC 1 PAGE LRAC DISCHARGE LRAC MANUAL LRAC PT LRACM2 LRGEN LRRD LRRMM LRRP1 LRRP2 LRRP3 LRRP4 LRRS LRRS13 LRRSP LRTASK CUM LRTASK DAILY INTERIM 1 LRTASK DAILY INTERIM 2
IHS Changes To Lab	1	BLRMIIBL
Mental Health Social Services	1	AMHLEE
Surgery	1	SRO-LRRP

Entry Points

Name	Comments	DBIA/ICR reference
SUM	;ENTRY POINT FROM SUM^LRACM2- PRINT A FULL PATIENT SUMMARY
GEN2
AI3	;
AIDQUE	;
DS	;from LRRD, LRRS
DQ	;tasked from LRVER3 thru LRTP for IMMEDIATE INTERIM REPORTING
BEGIN
AIDQ	;tasked from LRTASK DAILY INTERIM,LRTASK CUM
SWITCH		ICR #559 Status: Active Usage: Private
QUIT	;
PRT	; Print sorted data
INIT
AI3SET
GEN	;from LRGEN test overflow
CH	;Also used by DVBC Package	ICR #710 Status: Active Usage: Private
END
GDQ	;dequeued
START
CUM	;ENTRY POINT FOR CUMULATIVE OPTIONS- LRAC PT,LRAC 1 PAGE, LRAC MANUAL
ASKPG
EN69	;entry point for surgery pkg
SDQ	; dequeued
MI	;Also used by DVBC package	ICR #710 Status: Active Usage: Private
PLSPG	;PRINT LAST PAGE WITH PERFORMING LAB SITE NAMES AND ADDRESSES -- EP
GENP
AI2	;
LASTFOOT	; EP
SITELIST	; EP
OR	;OE/RR entry point

External References

Name	Field # of Occurrence
^%ZISC	QUIT+2, DQ+1
$$ISPIMS^BLRUTIL	PRT+4
LABHDR^BLRUTIL2	PLSPG+31
$$GET1^DIQ	CUM+9, ASKPG+4, PLSPG+7, LASTFOOT+3
^DIR	ASKPG+10
^LRAIPRIV	PLSPG+29
^LRDPA	BEGIN, SUM+1
END^LRDPA	OR+3
EN1^LRMIPC	MI+21
EN^LRPARAM	INIT, OR+1
^LRRK	END, QUIT+2, EN69+1, GEN+1, OR+4
CH^LRRP	CH+11
FOOT^LRRP1	PRT+27, PRT+33, MI+19, DQ+1
IO^LRWU	ASKPG+13, GENP+2
^LRWU3	START+4, GENP+1
DT^LRX	OR+3
PT^LRX	SDQ+1, GDQ+1, AI2+3, DQ+1
$$FMTE^XLFDT	PLSPG+33
$$HTE^XLFDT	PRT+8
$$NOW^XLFDT	PLSPG+33
$$LJ^XLFSTR	SITELIST+12
$$UP^XLFSTR	PLSPG+33
$$NAME^XUAF4	SITELIST+13, LASTFOOT+10
$$PADD^XUAF4	SITELIST+15, LASTFOOT+10
NAME^XUAF4	SITELIST+8
PADD^XUAF4	SITELIST+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO LAB DATA ON THIS PATIENT!",$C(7) Line Location: START+0
Function Call: WRITE	Prompt: !!,"Too many tests! Will use alternate format. May show extra tests.",! Line Location: GENP+0
Function Call: WRITE	Prompt: !!?10,"No Interim report Patients to Print " Line Location: PRT+7
Function Call: WRITE	Prompt: !?20,$$HTE^XLFDT($H),!! Line Location: PRT+8
Function Call: WRITE	Prompt: @IOF Line Location: PLSPG+9
Function Call: WRITE	Prompt: !,PNM,?30,$G(HRCN),?50,$$FMTE^XLFDT($$NOW^XLFDT,"5FMPZ") Line Location: PLSPG+15
Function Call: WRITE	Prompt: !!,"PERFORMING LAB SITES" Line Location: PLSPG+17
Function Call: WRITE	Prompt: !!!! Line Location: PLSPG+18
Function Call: WRITE	Prompt: ! Line Location: PLSPG+29
Function Call: WRITE	Prompt: "Printed at: ",?65,"page ",LRPG Line Location: PLSPG+30
Function Call: WRITE	Prompt: !,$E(PNM,1,38) Line Location: PLSPG+32
Function Call: WRITE	Prompt: ?45,"Print date: ",$$UP^XLFSTR($$FMTE^XLFDT($$NOW^XLFDT,"5FMPZ")) Line Location: PLSPG+33
Function Call: WRITE	Prompt: !!,"PERFORMING LAB SITES" Line Location: PLSPG+34
Function Call: WRITE	Prompt: !!,"REFERRING LAB SITE(S)" Line Location: PLSPG+35
Function Call: WRITE	Prompt: !! Line Location: PLSPG+36
Function Call: WRITE	Prompt: "[",LRPLS,"] ",$$NAME^XUAF4(LRPLS)," " Line Location: SITELIST+9
Function Call: WRITE	Prompt: "[",LRPLS,"]" Line Location: SITELIST+11
Function Call: WRITE	Prompt: $$LJ^XLFSTR("["_LRPLS_"]",8) Line Location: SITELIST+12
Function Call: WRITE	Prompt: $P(X,U)," ",$P(X,U,2),", ",$P(X,U,3)," ",$P(X,U,4) Line Location: SITELIST+16
Function Call: WRITE	Prompt: !,?10,ADDRESS Line Location: SITELIST+25
Function Call: WRITE	Prompt: ADDRESS Line Location: SITELIST+26
Function Call: WRITE	Prompt: ! Line Location: LASTFOOT+11
Function Call: WRITE	Prompt: ! Line Location: LASTFOOT+13
Function Call: WRITE	Prompt: !!,PNM,?30," HRCN:",HRCN,?54,LRDT0 Line Location: LASTFOOT+15
Routine Call	DIR Line Location: ASKPG+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRSITE - [#9009029]	AIDQ+7
^LAB(64.6 - [#64.6]	AIDQUE+4, AIDQUE+6
^LR - [#63]	START, SDQ+2, GDQ+3, GEN2, GEN2+1, GEN2+2, PRT+24, PRT+26, AI2+2, AI2+3 , AI3+10, AI3+11, AI3+12, AI3+13, AI3+14, AI3+25, CH+1, CH+6, CH+7, CH+8 , CH+9, MI+10, DS+1, DQ+1
^LRO(69 - [#69]	AI2+2, AI3+9
^TMP("LR"	GENP+2!, GDQ+2, GDQ+4!, GEN2, CH+6!, MI+17
^TMP($J	AIDQUE+3!, PRT+6, PRT+11, PRT+13, PRT+15, PRT+17, PRT+19, AI3SET+6*, AIDQ+10!
^VA(200 - [#200]	AI3SET, AI3SET+2

Label References

Name	Line Occurrences
@(	PRT+4
AI2	AIDQUE+5, AIDQUE+6, AIDQUE+7
AI3	AI2+4
AI3SET	AI3+12, AI3+15, AI3+25
AIDQUE	AIDQ+9
BEGIN	BEGIN
CH	SWITCH, SWITCH+1, SWITCH+3, GEN2, GEN2+1, PRT+24, DQ+1
END	BEGIN, SUM+1
GEN2	GDQ+3
GENP	GEN+1
INIT	BEGIN, SUM+1, AIDQUE+1, GEN+1, DS+1, DQ+1
LASTFOOT	SDQ+4
MI	SWITCH, SWITCH+2, SWITCH+4, PRT+28
PLSPG	SDQ+6, PRT+27, PRT+31
QUIT	PRT+9, PRT+34
SDQ	DS+1
SITELIST	LASTFOOT+14
START	BEGIN, SUM+1, EN69+1, OR+4
SWITCH	SDQ+2

Naked Globals

Name	Field # of Occurrence
^(	GEN2+2, PRT+20, PRT+22, AI3+14, CH+9, MI+17*
^(0	AI2+3, AI3+10, DS+1, DQ+1
^(1	MI+17*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ASKPG+12*
A	MI+24!
ADDRESS	SITELIST+19~, SITELIST+22*, SITELIST+25, SITELIST+26
>> AGE	PRT+20, PRT+22, AI3SET+6
COL	SITELIST+19~, SITELIST+24*, SITELIST+25, SITELIST+26
>> DFN	AI2+3, DS+1, DQ+1, OR+3
DIC	BEGIN!, SUM+1!, OR+3!
DIR	ASKPG+10!
DIR("A"	ASKPG+9*
DIR("B"	ASKPG+9*
DIR(0	ASKPG+9*
DUZ("AG"	PLSPG+29
DUZ(2	CUM+9, ASKPG+4, AIDQ+7, PLSPG+7, LASTFOOT+3
>> HRCN	PRT+22*, AI3+7, AI3SET+6, LASTFOOT+15
>> I	LASTFOOT+13*
IO	SDQ+1, GDQ+1, PRT+4
IOF	PLSPG+21
IOM	SITELIST+25, SITELIST+26, LASTFOOT+10
IOSL	LASTFOOT+12, LASTFOOT+13
IOST	PLSPG+21, PLSPG+25
IRPTADDP	ASKPG+3~, ASKPG+4*, ASKPG+5, ASKPG+6
>> J	MI+9*, MI+10
KILL	OR+1*, OR+5, OR+6!
LASTPAGE	PLSPG+20~, PLSPG+37*
>> LR0	CH+6*, CH+7, CH+8, CH+10
>> LRAA	CH+10*
>> LRAAO	CH+10*
LRBLOOD	OR+5!
LRCAN	GEN2+1, GEN2+2, AI3+1~, AI3+14, AI3+15, CH+4~, CH+8, CH+9*
>> LRCDT	CH+10, MI+16, MI+17
>> LRCNIDT	SDQ+2*, SWITCH, SWITCH+1, SWITCH+2, SWITCH+3
>> LRCUM	START+2
>> LRCW	INIT+1, OR+2
>> LRDFN	BEGIN, SUM+1, START, SDQ+2, GDQ+3, GEN2, GEN2+1, GEN2+2, PRT+16, PRT+17 , PRT+19, PRT+24, PRT+26, AI2+2*, AI2+3, AI3+9, AI3+10, AI3+11, AI3+12, AI3+13 , AI3+14, AI3+25, AI3SET+6, CH+1, CH+6, CH+7, CH+8, CH+9, MI+10, DS+1 , DQ+1, OR+3
>> LRDPF	AI2+3, DS+1, DQ+1, OR+3
LRDT0	OR+5!, LASTFOOT+15
LREDT	START+2, START+4, START+5, SDQ+2, SWITCH, SWITCH+1, SWITCH+2, SWITCH+3, SWITCH+4, GENP+1 , GDQ+3, GDQ+4!
>> LREND	START+4, START+6, SDQ+2, GENP+1, GDQ+3, PRT+4, PRT+11, PRT+13, PRT+15, PRT+17 , PRT+19, AI2+3, AI3+1, MI+25, INIT+1, OR+2
>> LRFOOT	PRT+20, PRT+22, PRT+25, MI+19, MI+23, INIT+1, OR+2
LRH	MI+18, MI+24!, AIDQ+1~, AIDQ+2
>> LRHF	PRT+17, MI+23, INIT+1, OR+2, PLSPG+22*
LRIDT	START+2, START+5, SDQ+2, SWITCH, SWITCH+1, SWITCH+2, SWITCH+3, SWITCH+4, GDQ+3, GDQ+4! , GEN2, GEN2+1, GEN2+2, PRT+18, PRT+19, PRT+20, PRT+22, PRT+24, PRT+26, AI3+9* , AI3+10, AI3+11, AI3+12, AI3+13, AI3+14, AI3+25, AI3SET+6, CH+1, CH+6, CH+7 , CH+8, CH+9, MI+10, MI+16
LRIRAP	LASTFOOT+1~, LASTFOOT+3*, LASTFOOT+4
>> LRJ0	PLSPG+21
>> LRJ02	PLSPG+21, PLSPG+22*
LRLAB	START+1, AIDQUE+2, GEN+1, AIDQ+1~, DQ+1
>> LRLABKY	START+1, AIDQUE+2, GEN+1
>> LRMNIDT	SDQ+2*, SWITCH, SWITCH+1, SWITCH+2, SWITCH+3, SWITCH+4
>> LRND	AI3+10*, AI3+12, AI3SET, AI3SET+2
>> LROC	AIDQUE+4, AIDQUE+5, AIDQUE+6, AIDQUE+7, PRT+10, PRT+11, PRT+13, PRT+15, PRT+17, PRT+19 , AI2+1, AI2+2, AI3+9, AI3SET+6, CH+10
>> LROCE	AIDQUE+4*, AIDQUE+6
>> LRONESPC	INIT+1, OR+2
>> LRONETST	INIT+1, OR+2
LRORD	GENP+2!
LRPARAM	OR+1, OR+5!
>> LRPG	INIT+1, PLSPG+23, PLSPG+24*, PLSPG+30
>> LRPHY	PRT+12, PRT+13, PRT+15, PRT+17, PRT+19, AI3SET, AI3SET+2, AI3SET+6
LRPLASMA	OR+5!
LRPLS	INIT+2!, SITELIST+2, SITELIST+3, SITELIST+12, SITELIST+13, SITELIST+15
LRPLS(	SITELIST+3, LASTFOOT+8
LRPRTPG	BEGIN, CUM+1, CUM+9, ASKPG, ASKPG+5, ASKPG+6, ASKPG+9, ASKPG+11, PRT+27, PRT+31 , AIDQ+1~, AIDQ+2, AIDQ+7*
LRSB	OR+5!
LRSDT	START+5, GENP+1*, GDQ+3, GDQ+4!
LRSERUM	OR+5!
>> LRSPEC	CH+10*
>> LRSS	PRT+20, PRT+22, PRT+27, PRT+31, CH+10, MI+18
>> LRSSN	PRT+14, PRT+15, PRT+17, PRT+19, AI3+7*, AI3SET+6
>> LRSTOP	SDQ+2, GDQ+3, MI+19, MI+25, INIT+1, OR+2*
LRSUB	GDQ+2*, GDQ+4!
>> LRTC	CH+10*
>> LRTN	GEN2*
LRTP	CH+6!, OR+3!*, OR+5!
LRTSTS	GENP+2!, GDQ+4!
LRUNKNOW	OR+5!
LRURINE	OR+5!
LRWRDVEW	AIDQ+1~, AIDQ+2*
MITEST	MI+7~, MI+8, MI+9, MI+10, MI+11
NUMSITES	LASTFOOT+6~, LASTFOOT+7, LASTFOOT+9, LASTFOOT+10*, LASTFOOT+12, LASTFOOT+13
>> ORVP	OR+1, OR+3
>> PNM	PRT+20, PRT+22, AI3+7, AI3SET+6, PLSPG+32, LASTFOOT+15
>> SEX	PRT+20, PRT+22, AI3SET+6
>> SSN	PRT+20*
TMP	AI3+3~, AI3+24, AI3+25, AI3SET+2
U	GEN2+1, PRT+20, PRT+22, AI2+3, AI3+12, AI3+25, AI3SET, AI3SET+2, AI3SET+6, CH+7 , CH+8, CH+10, MI+10, DS+1, DQ+1, SITELIST+22
VA	PRT+4!
>> VAERR	AI2+4
WOTSITE	LASTFOOT+6~, LASTFOOT+7, LASTFOOT+8, LASTFOOT+10
>> X	GDQ+2, PLSPG+27, PLSPG+28, SITELIST+15*, SITELIST+22
>> Y	ASKPG+11
Z	MI+24!
>> ZTQUEUED	SDQ+1, GDQ+1, QUIT+1, DQ+1
>> ZTREQ	SDQ+1, GDQ+1, QUIT+1, DQ+1
>> ZTRTN	ASKPG+12, GENP+2
>> ZTSAVE("DFN"	ASKPG+12, GENP+2
>> ZTSAVE("LR*"	ASKPG+12*
>> ZTSAVE("^TMP(""LR"",$J,"	GENP+2*

Marked Items

Name	Field # of Occurrence
$T(NAME^XUAF4	SITELIST+8
$T(PADD^XUAF4	SITELIST+8

Customize PDF page

Package: Lab Service

Routine: LRRP2

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 21

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items