Routine: LRWLST1

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
IHS Changes To Lab	4	^BLREVTQ REFLAB68^BLRLINKU ENTRYAUD^BLRUTIL IHSCOLS^BLRUTIL6
VA Fileman	4	$$FIND1^DIC (FILE,UPDATE,WP)^DIE $$GET1^DIQ ^DIR
Lab Service	3	PSET^LRPEND (,SICA)^LRWLST11 ($$LRUID,INF,PT)^LRX
Kernel	2	$$FMADD^XLFDT $$UP^XLFSTR
Automated Lab Instruments	1	EN^LA7ADL
MailMan	1	SENDMSG^XMXAPI

Package	Total	Caller Graph
Lab Service	2	LRWLST LRWLST11
IHS Changes To Lab	1	BLRAG05B

Package

Total

Caller Graph

Lab Service

LRWLST LRWLST11

IHS Changes To Lab

BLRAG05B

Entry Points

Name	Comments	DBIA/ICR reference
STORACCS(LRODT,LRSN,LRUID)	; EP
GETLOCK(LRAA,LRAD)	; Obtain lock on zeroth node of this accession date ; Call with LRAA = ien of entry in file #68 ; LRAD = accession date in fileman format
UPD696	; Update file #69.6 if LEDI referral patient and no existing entry
SETAN(LRAA,LRAD,LRAN)	; Create stub entry in file #68 for this acession.
MAILALRT(MSGN)	; Send mail message alert when FileMan DBS errors returned - IHS/MSC/MKK - LR5.21031 ; ----- BEGIN IHS/MSC/MKK - LR5.21031 ; Known VA Bug. Ignore for now. See LR5.2331.
EP	; EP
CHECK68(LRAA,LRAD)	; Check for/set header node of ^LRO(68) 68.01 subfile.
SPLIT	;
ST2	; Find next available node in LR global
ASK	; ; Don't ask if tasked or a "silent" call
GTWLN	;
IHSLOG	; EP -- Create entry for PCC transfer ; Q:'BLRLOG
STWLN	; Set accession number

External References

Name	Field # of Occurrence
^BLREVTQ	IHSLOG+4
REFLAB68^BLRLINKU	STORACCS+12
ENTRYAUD^BLRUTIL	STWLN+100
IHSCOLS^BLRUTIL6	STWLN+88
$$FIND1^DIC	UPD696+6, STORACCS+21
FILE^DIE	STWLN+47
UPDATE^DIE	STWLN+89, ST2+24, CHECK68+15, SETAN+17, STORACCS+29
WP^DIE	EP+7
$$GET1^DIQ	STORACCS+3, STORACCS+4, STORACCS+5, STORACCS+7, STORACCS+17, STORACCS+18
^DIR	ASK+10, ASK+28
EN^LA7ADL	SPLIT+11, SPLIT+20
PSET^LRPEND	UPD696+7
^LRWLST11	SPLIT+11, SPLIT+20
SICA^LRWLST11	SPLIT+12, SPLIT+20
$$LRUID^LRX	STWLN+94
INF^LRX	ASK+24
PT^LRX	ASK+21
$$FMADD^XLFDT	ST2+11, ST2+14
$$UP^XLFSTR	MAILALRT+3
SENDMSG^XMXAPI	MAILALRT+39

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ACCESSION: ",LRACC," <",LRUID,">" Line Location: STWLN+98
Function Call: WRITE	Prompt: !,"This accession number may be already assigned either in this " Line Location: ASK+14
Function Call: WRITE	Prompt: !,"area or a common accession area." Line Location: ASK+15
Function Call: WRITE	Prompt: !,"THIS NUMBER BELONGS TO ",!,PNM," SSN: ",SSN Line Location: ASK+22
Function Call: WRITE	Prompt: !,"THIS NUMBER BELONGS TO ",!,PNM," HRCN: ",HRCN Line Location: ASK+23
Function Call: WRITE	Prompt: !!?5,"Accession area ",$P(^LRO(68,LRAA,0),"^")," is locked by another user.",!,$C(7) Line Location: GETLOCK+6
Routine Call	DIE Line Location: STWLN+89 ST2+24 CHECK68+15 SETAN+17 STORACCS+29
Routine Call	DIC Line Location: UPD696+6 STORACCS+21
Routine Call	DIE Line Location: STWLN+47
Routine Call	DIR Line Location: ASK+10 ASK+28
Routine Call	DIE Line Location: EP+7

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
^LR - [#63]	GET1^DIQ
^LAB(64.061 - [#64.061]	FIND1^DIC
69.01	GET1^DIQ, WP^DIE
^BLRRLO - [#9009026.3]	FIND1^DIC
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRRLO - [#9009026.3]	STORACCS+25
^DPT - [#2]	STWLN+38
^LAB(69.9 - [#69.9]	GTWLN+17
^LR - [#63]	STWLN+4, ST2+10, ST2+12, ST2+13, ST2+36, ASK+20
^LR("A"	GTWLN+15
^LRO(68 - [#68]	STWLN+7, STWLN+10, STWLN+106, GTWLN+5, GTWLN+10, GTWLN+12, GTWLN+15, GTWLN+21, ASK+13, ASK+16 , ASK+20, ASK+33, CHECK68+10, CHECK68+12, CHECK68+13*, GETLOCK+4, GETLOCK+6, MAILALRT+9, STORACCS+13
^LRO(69 - [#69]	STWLN+13, STWLN+28, STWLN+79, STWLN+83, STWLN+84
^LRO(69.6 - [#69.6]	EP+5, UPD696+4
^SC - [#44]	STWLN+16, STWLN+39
^TMP("LR"	EP+12!
^TMP("LRWLST1"	EP+13!, STWLN+101*
^XTMP("BLRLINKU"	STORACCS+15

Label References

Name	Line Occurrences
ASK	GTWLN+17
CHECK68	STWLN+2, GTWLN+8
GETLOCK	STWLN+1, GTWLN+7
GTWLN	SPLIT+5, SPLIT+18
IHSLOG	SPLIT+11, SPLIT+20
MAILALRT	STWLN+49, STWLN+91, ST2+26, CHECK68+17, SETAN+23
SETAN	STWLN+7, GTWLN+19
SPLIT	EP+2
ST2	SPLIT+11, SPLIT+20
STORACCS	STWLN+96
STWLN	SPLIT+11, SPLIT+20
UPD696	STWLN+104

Name	Field # of Occurrence
^(0	STWLN+4, STWLN+13
^(3	STWLN+13*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRGUI	STWLN+101
>> BLRLOG	IHSLOG+2
>> BLROPT	IHSLOG+4
>> BPCACC	STWLN+101*
DA	EP+9!
DFN	STWLN+4, STWLN+38, ASK+18~, ASK+20, STORACCS+18*
DIC	EP+9!
DIE	EP+9!
>> DILOCKTM	STORACCS+1
DIR	ASK+4~, ASK+7!, ASK+26!
DIR("A"	ASK+9, ASK+27
DIR("B"	ASK+9, ASK+27
DIR(0	ASK+8, ASK+27
DIROUT	ASK+4~
DIRUT	ASK+4~, ASK+11, ASK+29
>> DISYS	STORACCS+1
DLAYGO	EP+9!
DR	EP+9!
DT	EP+2, STORACCS+1
DTIME	STORACCS+1
DTOUT	ASK+4~
DUOUT	ASK+4~
DUZ	STWLN+42, MAILALRT+24, MAILALRT+39, STORACCS+1
DUZ(2	STWLN+44, MAILALRT+25
ERRS	STORACCS+27!
FDA	STWLN+20~, STWLN+81~, ST2+2~, CHECK68+11~, SETAN+6~, STORACCS+27!
FDA(	STWLN+85, STORACCS+28
FDA(1	STWLN+22, STWLN+23, STWLN+24, STWLN+25, STWLN+26, STWLN+27, STWLN+28, STWLN+32, STWLN+33, STWLN+40 , STWLN+42, STWLN+43, STWLN+44, STWLN+45, CHECK68+14*
FDA(2	SETAN+10*
FDA(63	ST2+19, ST2+20, ST2+21, ST2+22, ST2+23*
FDAIEN	STWLN+81~, ST2+2~, CHECK68+11~, SETAN+6~
FDAIEN(1	STWLN+84, ST2+18, CHECK68+14, SETAN+9
HRCN	ASK+19~, ASK+23
IO	STORACCS+1
>> IOBS	STORACCS+1
IOF	STORACCS+1
IOM	STORACCS+1
ION	STORACCS+1
>> IOS	STORACCS+1
IOSL	STORACCS+1
IOST	STORACCS+1
>> IOT	STORACCS+1
>> IOXY	STORACCS+1
J	MAILALRT+7~, MAILALRT+29, MAILALRT+30, MAILALRT+31, MAILALRT+32
LR68	MAILALRT+7~, MAILALRT+9*
LR6802	STWLN+20~, STWLN+21, STWLN+22, STWLN+23, STWLN+24, STWLN+25, STWLN+26, STWLN+27, STWLN+28, STWLN+32 , STWLN+33, STWLN+40, STWLN+42, STWLN+43, STWLN+44, STWLN+45, STWLN+85, SETAN+6~, SETAN+8, SETAN+10
>> LR696	EP+5
LR696IEN	UPD696+1!, UPD696+3, UPD696+4, UPD696+5
LRAA	SPLIT+1~, SPLIT+7, SPLIT+8, SPLIT+9, SPLIT+15, SPLIT+16, SPLIT+17, SPLIT+18, IHSLOG+4, STWLN+1 , STWLN+2, STWLN+7, STWLN+10, STWLN+21, STWLN+94, STWLN+106, CHECK68~, CHECK68+10, CHECK68+12, CHECK68+13 , CHECK68+14, GETLOCK~, GETLOCK+4, GETLOCK+6, SETAN~, SETAN+8, MAILALRT+9, STORACCS+13*, STORACCS+15
>> LRACC	IHSLOG+4, STWLN+10*, STWLN+43, STWLN+101, ST2+20
LRAD	EP+2*, IHSLOG+4, STWLN+1, STWLN+2, STWLN+7, STWLN+10, STWLN+21, STWLN+24, STWLN+94, STWLN+106 , GTWLN+7, GTWLN+8, GTWLN+10, GTWLN+12, GTWLN+15, GTWLN+19, GTWLN+21, ASK+13, ASK+16, ASK+20 , ASK+33, CHECK68~, CHECK68+10, CHECK68+12, CHECK68+13, CHECK68+14, GETLOCK~, GETLOCK+4, SETAN~, SETAN+8 , MAILALRT+9
LRAN	IHSLOG+4, STWLN+7, STWLN+10, STWLN+21, STWLN+94, GTWLN+4, GTWLN+10, GTWLN+12, GTWLN+15, GTWLN+19 , ASK+8, ASK+9, ASK+30*, SETAN~, SETAN+9, MAILALRT+9
LRANX	ASK+4~, ASK+12*, ASK+13, ASK+16, ASK+20, ASK+30
>> LRASIEN	STORACCS+25*
>> LRCAPLOC	STWLN+16, STWLN+17, STWLN+45
>> LRCDT	UPD696+7, ST2+9, ST2+11, ST2+14, ST2+19
LRCNT	MAILALRT+7~, MAILALRT+20, MAILALRT+24, MAILALRT+25, MAILALRT+26, MAILALRT+31, MAILALRT+32
LRDFN	STWLN+4, STWLN+22, ST2+10, ST2+12, ST2+13, ST2+19, ST2+20, ST2+21, ST2+22, ST2+23 , ST2+36, ASK+17, ASK+18~, ASK+20, ASK+25, SETAN+10, STORACCS+17, STORACCS+18
LRDFNX	ASK+17~*, ASK+25
LRDIE	EP+6~, STWLN+20~, ST2+2~, CHECK68+11~, SETAN+6~
LRDIE(	STWLN+91, MAILALRT+3
LRDIE(1	STWLN+49, CHECK68+17
LRDIE(2	SETAN+16!, SETAN+18, SETAN+23
LRDIE(63	ST2+26
LRDPF	STWLN+4, STWLN+23, STWLN+31, STWLN+37, ASK+18~, ASK+20
>> LREND	SPLIT+3, SPLIT+6, SPLIT+18, STWLN+9, GTWLN+17, ASK+6, ASK+11, ASK+29, ASK+33
LRI	STWLN+81~, STWLN+82, STWLN+83, STWLN+84, STWLN+85, STWLN+91
>> LRIDT	ST2+5, ST2+7, ST2+8, ST2+12*, ST2+18, ST2+36
LRIXX	EP+9!
>> LRLABKY	ASK+8
>> LRLBLBP	STWLN+9*
>> LRLLOC	STWLN+27
LRLOCKOK	SETAN+13~, SETAN+14, SETAN+15, SETAN+18, SETAN+19!
LRLOOPCT	SETAN+13~, SETAN+15*, SETAN+19!
LRMTXT	MAILALRT+7~
LRMTXT(	MAILALRT+24, MAILALRT+25, MAILALRT+26, MAILALRT+31, MAILALRT+32*
LRMTXT(1	MAILALRT+11*
LRMTXT(2	MAILALRT+12*
LRMTXT(3	MAILALRT+17, MAILALRT+18
LRMTXT(4	MAILALRT+19*
>> LRNCWL	GTWLN+17
LRNM	EP+11!
>> LRNT	STWLN+13, UPD696+7, ST2+21
LRODT	EP+7, IHSLOG+4, STWLN+13, STWLN+25, STWLN+28, STWLN+79, STWLN+83, STWLN+84, STWLN+96, UPD696+7 , STORACCS~, STORACCS+1, STORACCS+3, STORACCS+7, STORACCS+17
LROK	ASK+4~, ASK+5, ASK+6, ASK+16, ASK+25, ASK+30*
>> LROLLOC	STWLN+16, STWLN+33, STWLN+39
>> LRORDR	EP+10
>> LRORDRR	EP+5, UPD696+2
>> LROT	UPD696+7
>> LRPHSET	STWLN+101, GTWLN+17
>> LRPRAC	STWLN+12, STWLN+13, STWLN+32
>> LRQUIET	STWLN+101, ASK+2, GETLOCK+5
>> LRRSITE("RSITE"	UPD696+7
>> LRRSITE("SDT"	UPD696+7
>> LRRSITE("SMID"	UPD696+4
>> LRRSTAT(0	UPD696+6*, UPD696+7
>> LRSAMP	UPD696+7
>> LRSD("RPSITE"	UPD696+7
>> LRSD("RUID"	UPD696+4, UPD696+7
LRSN	EP+7, IHSLOG+4, STWLN+13, STWLN+26, STWLN+28, STWLN+79, STWLN+83, STWLN+84, STWLN+96, STORACCS~ , STORACCS+1, STORACCS+3, STORACCS+7, STORACCS+17
>> LRSPEC	UPD696+7
>> LRSS	SPLIT+9, SPLIT+17, STWLN+9*, ST2+5, ST2+10, ST2+12, ST2+13, ST2+17, ST2+21, ST2+22 , ST2+23, ST2+36, GTWLN+12, GTWLN+15
>> LRTREA	STWLN+38, STWLN+39, STWLN+40
LRTSTS	EP+11!
LRTSTS(	EP+2, SPLIT+4, SPLIT+8, SPLIT+9, SPLIT+16, SPLIT+17, SPLIT+18
LRUID	SPLIT+11, SPLIT+20, STWLN+94*, STWLN+96, STWLN+101, STORACCS~, STORACCS+1, STORACCS+10, STORACCS+13, STORACCS+28
>> LRUNQ	SPLIT+3, SPLIT+15
>> LRWLC	EP+1, EP+2, SPLIT+4, SPLIT+8, SPLIT+9, SPLIT+16, SPLIT+17, SPLIT+18, GTWLN+5, GTWLN+7 , GTWLN+8, GTWLN+10, GTWLN+12, GTWLN+15, GTWLN+19, GTWLN+21, ASK+13, ASK+16, ASK+20, ASK+33
LRX	SPLIT+1~, STWLN+81~, STWLN+84, STWLN+85, ST2+2~, ST2+17, ST2+19, ST2+20, ST2+21, ST2+22 , ST2+23, ST2+24
LRXIDT	ST2+2~, ST2+9*, ST2+10, ST2+12, ST2+13
MSGN	MAILALRT~, MAILALRT+3, MAILALRT+17, MAILALRT+18, MAILALRT+35
>> ORDERN	STORACCS+7*, STORACCS+8, STORACCS+21
>> ORDIEN	STORACCS+21*, STORACCS+23, STORACCS+25, STORACCS+28
>> ORDLINST	STORACCS+4*, STORACCS+5, STORACCS+15
>> ORDLOC	STORACCS+3*, STORACCS+4
PNM	ASK+18~, ASK+23
SSN	ASK+18~
SSN(2	UPD696+7
U	STWLN+4, STWLN+9, STWLN+10, STWLN+13, STWLN+16, STWLN+38, STWLN+39, UPD696+7, GTWLN+10, GTWLN+17 , ASK+8, ASK+13, ASK+20, STORACCS+1
X	STWLN+28, GTWLN+1~, GTWLN+5, ASK+4~, CHECK68+11~, CHECK68+12, CHECK68+13, MAILALRT+7~, MAILALRT+30, MAILALRT+31 , STORACCS+13*
XMINSTR	MAILALRT+7~, MAILALRT+39
XMINSTR("ADDR	FLAGS" , MAILALRT+38*
XMINSTR("FROM"	MAILALRT+37*
XMSUB	MAILALRT+7~, MAILALRT+35*, MAILALRT+39
XMTO	MAILALRT+7~, MAILALRT+39
XMTO("G.LMI"	MAILALRT+36*
>> XPARSYS	STORACCS+1
>> XQXFLG	STORACCS+1
Y	ASK+4~, ASK+12, ASK+30
>> ZTQUEUED	ASK+2, GETLOCK+5

Customize PDF page

Package: Lab Service

Routine: LRWLST1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: