Routine: LRU

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIE
Kernel	2	^%ZIS $$FMTE^XLFDT
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL
Lab Service	1	D^LRU

Package	Total	Caller Graph
Lab Service	359	DONATION OR DEFERRAL DATE LR7OSAP LR7OSBB1 LR7OSBR LR7OSMZ1 LRAPAUPT LRAPBS1 LRAPDPT LRAPED LRAPJNC LRAPLG LRAPONC LRAPQACD LRAPQACN LRAPQAMR LRAPQOR1 LRAPQOR2 LRAPQOR3 LRAPSA LRAPSE LRAPSEM2 LRAPSL LRAPSM LRAPSM1 LRAPST LRAPTT1 LRAPWA LRAPWE LRAPWEA LRAPWU LRAUS LRAUSTA LRBLDA LRBLDC LRBLDCR LRBLDCU LRBLDK LRBLDL LRBLDMV LRBLDP LRBLDPA1 LRBLDPA2 LRBLDR LRBLDRR1 LRBLDT LRBLDW LRBLDX LRBLJA LRBLJB LRBLJC LRBLJD LRBLJD1 LRBLJDA LRBLJDM LRBLJDP LRBLJI LRBLJL LRBLJM LRBLJM1 LRBLJP LRBLJR LRBLJT LRBLJU LRBLJUT LRBLJW LRBLPBR1 LRBLPCS LRBLPCS1 LRBLPD1 LRBLPED1 LRBLPIT LRBLPRA LRBLQPR LRBLRCT LRBLTXA LRDPA2 LRMISEZ2 LRMISEZ3 LROW2P LRRMM LRUCLR LRUD1 LRUFILE LRULB1 LRUMD LRUPAD1 LRUPUM LRUSP LRUTAD ^LR CYTOPATHOLOGY EM LR7OGM LR7OSAP1 LR7OSAP2 LR7OSBR1 LR7OSMZ2 LR7OSMZ3 LR7OSMZ4 LRAP LRAPA LRAPAP LRAPAUA LRAPAUL LRAPAULC LRAPAUSR LRAPBK LRAPBR LRAPBR1 LRAPBR4 LRAPBR5 LRAPBS LRAPC LRAPCUM LRAPCWK LRAPD LRAPDA LRAPDAC LRAPDEL LRAPDS LRAPEDC LRAPFICH LRAPFTS LRAPH LRAPHDR LRAPKOPT LRAPL LRAPLG1 LRAPLG2 LRAPM LRAPMOD LRAPMRL LRAPMV LRAPOLD LRAPP LRAPPA LRAPPF LRAPPF1 LRAPPF2 LRAPQ LRAPQAC LRAPQAFS LRAPQAM LRAPQAR LRAPQAT LRAPQOR LRAPR LRAPREF LRAPRES LRAPRES2 LRAPS LRAPS1 LRAPS2 LRAPS3 LRAPSEM LRAPSEM1 LRAPSL1 LRAPSNMD LRAPST1 LRAPT LRAPT1 LRAPT2 LRAPT3 LRAPTT LRAPUTL LRAPV LRAPWR LRAPWR1 LRAPWSPG LRAPX LRARCAM6 LRARCAM8 LRARCAM9 LRAUAW LRAUDA LRAUL LRAUMLK LRAURPT LRAURV LRAUSICD LRAUSM LRBLA LRBLA1 LRBLA2 LRBLAA LRBLB LRBLC LRBLCMV LRBLD LRBLDA1 LRBLDAA LRBLDAL LRBLDED LRBLDEL LRBLDELT LRBLDEX LRBLDEX1 LRBLDL1 LRBLDLG LRBLDPA LRBLDPAW LRBLDPH LRBLDPL LRBLDR1 LRBLDRR LRBLDSC LRBLDTA LRBLDUC LRBLJCK LRBLJED LRBLJL1 LRBLJLA LRBLJLG LRBLJLG1 LRBLJPA LRBLJPA1 LRBLJPH LRBLJPP LRBLJRB LRBLJSH LRBLJTS LRBLJTS1 LRBLJU1 LRBLJX LRBLP LRBLPA LRBLPAB LRBLPB LRBLPBR LRBLPC LRBLPCSS LRBLPD LRBLPE LRBLPE1 LRBLPED LRBLPEW LRBLPH LRBLPLOGIN LRBLPOST LRBLPP LRBLPQA LRBLPR LRBLPR1 LRBLPSI LRBLPT LRBLPT1 LRBLPTR LRBLPTR1 LRBLPUS LRBLPUS1 LRBLPUS2 LRBLPX LRBLPX1 LRBLQ LRBLQST LRBLS LRBLSET LRBLST LRBLSTR LRBLSUM LRBLTA LRBLTA1 LRBLTX LRBLU LRBLVAL LRBLW LRBLWDS LRCAPAM5 LRCAPAM6 LRCAPAM8 LRCAPAM9 LRCAPAUD LRCAPPH LRCYPCT LRDPA1 LRMINEW LRMIPSU LRMIPSZ LRMIPSZ1 LRMIPSZ2 LRMIPSZ3 LRMIPSZ4 LRMIPSZ5 LRMIS LRMISEZ LRMISEZ4 LRMITRZ LRMITRZ3 LRMIVER LROR4 LROR4A LROR4B LRSMAC LRSPDA LRSPRPT LRSPRPT1 LRSPRPT2 LRSPRPTM LRSPS LRSPSICD LRSPSICP LRSPT LRU LRUA LRUBL LRUBYDIV LRUC LRUCE LRUCHGDIV LRUCN LRUCNBB LRUD LRUDEL LRUDIT LRUDPT LRUE LRUER LRUET LRUL LRULA LRULB LRULEN LRUMD1 LRUMD2 LRUMDF LRUMDM LRUMDP LRUMDS LRUMDU LRUMDU1 LRUMI LRUPA LRUPA1 LRUPA2 LRUPAC LRUPACA LRUPACS LRUPACT LRUPAD LRUPAD2 LRUPQ LRUPQ1 LRUPS LRUPT LRUQ LRUR LRUSNOM LRUTELL LRUTL LRUTRAN LRUTT LRUTW LRUV LRUW LRUWG LRUWL LRX SURGICAL PATHOLOGY ^LRD(65
IHS Changes To Lab	12	BLRALBM BLRALBM1 BLRALBM2 BLRALBM3 BLRERRTR BLRESIGR BLRLAHGU BLRLUAC1 BLRLUAC2 BLRMIIBL BLRMIRPT BLRUER
Automated Lab Instruments	1	LAPFICH
IHS View Patient Record	1	BVPRP
Patient Chart	1	BPCLOPRT

Entry Points

Name	Comments	DBIA/ICR reference
A	; Returns Date in format mm/dd/yyyy with time if a time is passed.
DUZ2	;Allow user to change Division [DUZ(2)] value
YN
SSNFM
L1
INSN()	;Set primary institution number from ^XMB
DA	; Returns date in eye-readable month format
DT	; If Blood Bank maintain existing display, else display 4 digit year.
LRAD
RX
H
CK
B	;D LRU S %DT="AEX",%DT(0)="-N",%DT("A")="Start with Date TODAY// " D ^%DT K %DT I X="" S Y=DT W H(10)
D	; Returns date in eye-readable month format
FRE
F	;
I
LOCK	;Set and kill lock for ^DIE call. If lock fails LR("CK")=1 is set.
K
M
L
S
T	; Returns the Month/Day
V
XR
WAIT
INS()	;Set institution Name from ^XMB
H1
SSN	;

External References

Name	Field # of Occurrence
^%DT	LRU+14, F+1, B+2, B+7
^%ZIS	I
$$ISPIMS^BLRUTIL	SSN+11
^DIC	DUZ2+9
^DIE	LOCK+3
D^LRU	F+1, B+10, LRAD
$$FMTE^XLFDT	A+1, D+1, DA+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY!" Line Location: CK+2
Function Call: WRITE	Prompt: !,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ Line Location: F+5
Function Call: READ	Prompt: "'^' TO STOP: " Formatting: ! Timeout: DTIME Variable: X Line Location: M+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: M+0
Function Call: WRITE	Prompt: H(10) Line Location: B+0
Function Call: WRITE	Prompt: H(10) Line Location: B+2
Function Call: WRITE	Prompt: H(10) Line Location: B+5
Function Call: WRITE	Prompt: H(10) Line Location: B+7
Function Call: WRITE	Prompt: "? ",$P("YES// ^NO// ","^",%) Line Location: YN+0
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:99999) Variable: %Y Line Location: RX+0
Function Call: WRITE	Prompt: $C(7) Line Location: RX+0
Function Call: WRITE	Prompt: $C(7),!?4,"ANSWER 'YES', 'NO', '^', '@'",!?4,"or press RETURN key to accept default response (if one)" Line Location: RX+3
Function Call: WRITE	Prompt: !! Line Location: RX+3
Function Call: WRITE	Prompt: ! Condition for execution: $X>73 Line Location: RX+4
Function Call: WRITE	Prompt: $P(" (YES)^ (NO)","^",%) Line Location: RX+4
Function Call: WRITE	Prompt: !!,"..." Line Location: WAIT+0
Function Call: WRITE	Prompt: $P("HMMM^EXCUSE ME ^SORRY","^",$R(3)+1),", ",$P("THIS MAY TAKE A WHILE^LET ME PUT YOU ON 'HOLD' ^HOLD ON^JUST A MOMENT PLEASE^I'M WORKING AS FAST AS I CAN^LET ME THINK ABOUT THAT ","^",$R(6)+1)_"..." Line Location: WAIT+1
Function Call: WRITE	Prompt: !,$C(7),"TO SORT IN SEQUENCE, STARTING FROM A CERTAIN NAME,",!?7,"TYPE THAT NAME" Line Location: H+0
Function Call: WRITE	Prompt: !,$C(7),"TO SORT ONLY UP TO A CERTAIN NAME,",!?7,"TYPE THAT NAME" Line Location: H1+0
Function Call: WRITE	Prompt: !,"You are not a valid user.",!!,$C(7) Line Location: DUZ2+2
Function Call: WRITE	Prompt: !?5,"You do not currently have a valid Division assigned.",!,"Log off the system and try again.",!!,$C(7) Line Location: DUZ2+4
Function Call: WRITE	Prompt: !,"You have only one Division Defined in the New Person file, change not possible.",!! Line Location: DUZ2+6
Function Call: WRITE	Prompt: !?5,"Division is now set to [ ",$P($G(^DIC(4,DUZ(2),99)),U)_" "_$P($G(^DIC(4,DUZ(2),0)),U)," ]",! Line Location: DUZ2+13
Routine Call	DIE Line Location: LOCK+3
Routine Call	DIC Line Location: DUZ2+9
Routine Call	%ZIS Line Location: I

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	INS+2, DUZ2+3, DUZ2+12, DUZ2+13
^LR - [#63]	SSN+2
^LRO(68 - [#68]	LRAD
^TMP("LR"	V+13!
^TMP("LRBL"	V+8!
^TMP($J	V+8!
^UTILITY($J	V+7!
^VA(200 - [#200]	DUZ2+2, DUZ2+5
^XMB(1 - [#4.3]	INS+2, INSN+2

Label References

Name	Line Occurrences
$$INS	S
@(	SSN+11
A	DT+2
CK	LOCK+3
D	LRU+14
FRE	LOCK+3, CK
I	L, L1
K	V
LRU	B+2
SSNFM	SSN+5
YN	RX+3

Naked Globals

Name	Field # of Occurrence
^(0	SSN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	YN, RX+1, RX+2, RX+3*, RX+4, V+1!
%DT	LRU+14, F+1, B+2!, B+7!
%DT("A"	B+2, B+7
%DT(0	B+2*
%X	V+3!
%Y	RX*, RX+1, RX+2, RX+3, V+3!
A	K!
AGE	V+1!
B	K!
C	K!
D	K!
D0	V+8!
D1	V+12!
DA	CK, V+8!, V+10!
DE	V+10!
DFN	SSN+11, V+1!
DG	V+10!
DI	V+12!
DIC	V+1!, DUZ2+1~, DUZ2+7!*, DUZ2+9!
DIC("S"	DUZ2+8*, DUZ2+9!
DIC(0	DUZ2+7*
DIE	LOCK+2, CK, V+1!
DIR	V+11!
DIRUT	V+11!
DIWF	V+7!, V+8!
DIWL	V+7!
DIWR	V+7!
DLAYGO	V+1!
DOB	V+8!
DQ	V+8!
DR	V+1!
DT	B+2, B+7
DTIME	M, RX
>> DTOUT	RX*
DUZ	DUZ2+2, DUZ2+5
DUZ("AG"	SSNFM+1
DUZ(2	DUZ2+3, DUZ2+12, DUZ2+13*
DX	V+8!
E	K!
F	K!
G	K!
H	K!
H(10	LRU+14*, B+2, B+7
HCRN	V+15!
>> HRCN	SSN+5*
I	SSN+7~, K!, DUZ2+1~, DUZ2+5*, DUZ2+6
IOF	F+3, F+4
IOM	F+5, L, L1
>> IOP	I*
IOST	F+3
J	K!
K	K!
L	K!
LR	V+4!, V+8!
LR("%"	L!*
LR("%1"	YN, RX+3, RX+4!, L1!
LR("CK"	LOCK+2, LOCK+3!, CK+2
LR("F"	F+3
LR("Q"	M, S
LRA	V+4!
LRAA	V+9!, LRAD
LRABO	V+9!
LRABV	V+2!
LRAC	V+6!
LRAD	V+2!, LRAD*
LRADM	V+2!, V+11!
LRADX	V+2!
LRAN	V+8!
LRAP	V+3!
LRAPX	V+12!
LRAU	V+6!
LRAWRD	V+2!
LRAX	V+2!
LRB	V+4!
LRBL	V+3!
LRBLT	V+11!
LRC	V+4!
LRCAP	V+7!
LRCAPA	V+7!
LRCAPLOC	V+7!
LRCPT	V+3!
LRCS	V+10!
LRD	V+4!
LRDATE	V+11!
LRDFN	SSN+2, V+8!
LRDPAF	V+2!
LRDPF	SSN+2*, SSN+5, V+9!
LRDTI	V+3!
LRE	V+4!
LREND	V+9!
LREP	V+3!
LREXP	V+9!
LRF	V+4!
LRFLN	V+6!
LRFNAM	V+2!
LRFND	V+4!
LRG	V+4!
LRH	V+4!
LRH(0	LRAD*
LRI	V+4!
LRID	V+3!
LRIDT	V+4!
LRIFN	V+10!
LRJ	V+4!
LRK	V+5!
LRL	V+5!
LRLDT	B+9*, B+10, V+1!
LRLIDT	V+6!
LRLLOC	V+9!
LRLOKVAR	LOCK+1~, CK*, CK+3!, FRE!, V+12!
LRLST	B+10*, V+1!
LRM	V+5!
LRMD	V+2!
LRN	V+5!
LRND	V+6!
LRNO	V+6!
LRNOP	V+12!
LRO	V+5!
LRODT	V+3!
LROLLOC	V+11!
LROPT	V+9!
LRP	V+5!
LRPABO	V+10!
LRPF	V+2!
LRPFN	V+3!
LRPMD	V+4!
LRPPT	V+4!
LRPRAC	V+7!
LRPRH	V+10!
LRPTF	V+11!
LRQ	F+1, F+5, V+5!, S
LRQ(1	F+5, S*
LRQA	V+11!
LRR	V+5!
LRRB	V+12!
LRRC	V+10!
LRRH	V+9!
LRRMD	V+7!
LRS	V+5!
LRSA	V+10!
LRSAV	V+3!
LRSD	V+11!
LRSDT	B+4, B+9, B+10, V+1!
LRSET	V+12!
LRSF	V+8!
LRSIT	V+10!
LRSN	V+3!
LRSOP	V+9!
LRSS	F+3, F+4, DT+1, XR, V+10!
LRST	V+6!
LRSTR	B+10*, V+1!
LRSVC	V+3!
LRT	V+5!
LRTK	V+6!
LRTOD	V+9!
LRTREA	V+12!
LRTS	V+11!
LRU	V+5!
LRV	V+5!
LRW	V+5!
LRWARD	V+11!
LRWD	V+12!
LRWHN	V+10!
LRWHO	V+1!
LRWRD	V+12!
LRWW	V+6!
LRX	V+5!
LRXR	XR*, V+1!
LRXREF	XR*, V+2!
LRY	V+5!
LRZ	V+5!
M	K!
N	SSN+7~, K!
O	K!
P	K!
PNM	V+10!
POP	V+10!
Q	K!
R	K!
S	K!
SEX	V+8!
SSN	SSN+1, SSNFM, SSNFM+1, SSNFM+2*, V+9!
SSN(1	SSN+1, SSNFM+1, SSNFM+2*
SSN(2	SSN+1, SSNFM
T	K!
U	SSN+2, INS+2, INSN+2, DUZ2+12, DUZ2+13
V	K!
VA	V+11!
VA("BID"	SSN+5*
VA("PID"	SSN+5*
VADM	V+12!
VAIN	V+12!
W	K!
X	LRU+14, F+1, M, SSN+7~, B+2, B+7, B+9, K!, LRAD, DUZ2+1~ , DUZ2+5
Y	LRU+14, F+5, T+1, A+1, A+2, A+3, D+1, DA+1, DT+1, SSN+7~ , B+2, B+4, B+7, B+9, B+10, K!, LRAD, INS+1~, INS+2, INS+3 , INSN+1~, INSN+2*, INSN+3, DUZ2+1~, DUZ2+10, DUZ2+13
Z	K!
ZTDESC	V+6!
ZTREQ	V+13!
ZTRTN	V+1!, V+6!
ZTSAVE	V+6!
ZTSK	V+5!

Customize PDF page

Package: Lab Service

Routine: LRU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 374

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: