Routine: LRVER

Package	Total	Call Graph
Lab Service	12	(,STD,STOP)^LRCAPV ^LRCAPV2 SLOWK^LRFASTS END^LRMIEDZ ^LRMIEDZ2 P15^LROE1 ^LRPARAM ^LRVER1 (,$$SELPL,CMTDSP,UID)^LRVERA ADATE^LRWU $$SELBY^LRWU4 (DUZ,PT)^LRX
VA Fileman	3	YMD^%DTC YN^DICN ^DIR
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Lab Service	4	LRENTER LRFASTS LRSTUF LRVR

Entry Points

Name	Comments	DBIA/ICR reference
LREND
SLOW
SLOQ	;
YN
REV	; Ask if user wants to review data before and after editing
WLN1
L10
L11
NEXT	;
DAT
QUIT	;
WLN	; I LRVBY=2 S:LRAN<1 LRUID="" S:$L(LRAN) LRUID=$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3)),"^") D UID^LRVERA G LREND:LRUID="" G WLN1
VERDIS	; Prevent test not selected by the user with verified data ; entered from being displayed on the editing screens.
EP	; EP -- IHS/OIT/MKK - LR5.21033

External References

Name	Field # of Occurrence
YMD^%DTC	DAT+2
$$ISPIMS^BLRUTIL	SLOQ+11
YN^DICN	YN
^DIR	WLN+8, REV+7, VERDIS+8
^LRCAPV	EP+16
STD^LRCAPV	QUIT+2
STOP^LRCAPV	SLOQ+1
^LRCAPV2	SLOQ+1
SLOWK^LRFASTS	L11
END^LRMIEDZ	SLOW+5
^LRMIEDZ2	SLOW+5
P15^LROE1	WLN1+17
^LRPARAM	EP+1
^LRVER1	L11, L11+1
^LRVERA	EP+11
$$SELPL^LRVERA	EP+13
CMTDSP^LRVERA	EP+8
UID^LRVERA	EP+11, WLN+1
ADATE^LRWU	DAT
$$SELBY^LRWU4	EP+10
DUZ^LRX	SLOW+3
PT^LRX	WLN1+4
$$FMTE^XLFDT	WLN1+15
$$NOW^XLFDT	WLN1+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Accession does not exist." Line Location: WLN1+0
Function Call: WRITE	Prompt: !,"Accession's LRDFN invalid." Line Location: WLN1+2
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: WLN1+5
Function Call: WRITE	Prompt: !,PNM,?30,HRCN Line Location: WLN1+7
Function Call: WRITE	Prompt: ! Line Location: WLN1+10
Function Call: WRITE	Prompt: !,">>>>ERROR - NO POINTER TO FILE #63 - PLEASE NOTIFY SYSTEM MANAGER<<<<<",! Line Location: WLN1+28
Function Call: WRITE	Prompt: !,">>>>ERROR - NO ENTRY IN FILE #63 - PLEASE NOTIFY SYSTEM MANAGER<<<<<",! Line Location: WLN1+31
Function Call: WRITE	Prompt: !,"This Order # has not been collected",$C(7) Line Location: WLN1+33
Function Call: WRITE	Prompt: !,"You cannot verify an accession which has not been collected.",$C(7) Line Location: WLN1+34
Function Call: WRITE	Prompt: !,"LAST IN WORK LIST" Line Location: NEXT+2
Routine Call	DIR Line Location: WLN+8 REV+7 VERDIS+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	SLOW+4, DAT+2
^LR - [#63]	WLN1+4, WLN1+30
^LRO(68 - [#68]	EP+16, SLOW, DAT+4, DAT+5, WLN+1, WLN1, WLN1+1, WLN1+3, WLN1+9, WLN1+11 , WLN1+13, WLN1+20, WLN1+22, WLN1+23, WLN1+26, LREND, NEXT+1, QUIT+2
^LRO(69 - [#69]	WLN1+33, WLN1+34
^TMP("LR"	LREND+1!, SLOQ+4!
^XTMP("LRCAP"	QUIT+1!

Label References

Name	Line Occurrences
@(	SLOQ+11
L10	L11+2
L11	DAT+3
LREND	WLN+1, WLN+9
NEXT	L11+1, WLN1, WLN1+2, WLN1+22, WLN1+24, WLN1+29, WLN1+32, WLN1+33, WLN1+34
QUIT	EP+5, EP+7, EP+12, EP+14, EP+16, SLOW+5, SLOW+7, DAT+3, L10+1
REV	EP+4
VERDIS	EP+6
WLN	L10+1, WLN+11, WLN1, WLN1+2, WLN1+22, WLN1+24, WLN1+27, WLN1+30, WLN1+33, WLN1+34
WLN1	DAT+3, WLN+1
YN	YN

Naked Globals

Name	Field # of Occurrence
^(	WLN1+1, WLN1+33
^(0	WLN1+1, WLN1+4, WLN1+9
^(1	SLOW+4
^(2	DAT+5, LREND*
^(3	DAT+4, WLN1+20*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	YN*, SLOQ+2!
%DT	WLN1+14~, SLOQ+4!
%DT("B"	WLN1+15*
%H	DAT+2*, SLOQ+4!
%X	SLOQ+4!
%Y	SLOQ+4!
A	SLOQ+2!
AGE	SLOQ+2!
B	SLOQ+4!
C	SLOQ+4!
D	SLOQ+4!
D0	SLOQ+5!
D1	SLOQ+2!
DA	SLOQ+4!
DFN	WLN1+4*, SLOQ+2!
DIC	EP+3!, L10!, SLOQ+2!
DIE	SLOQ+2!
DIR	WLN+4!, WLN+8!, SLOQ+2!, REV+1~, VERDIS+2~
DIR("?"	WLN+6, REV+4, REV+5, REV+6, VERDIS+5, VERDIS+6, VERDIS+7*
DIR("A"	WLN+6, REV+3, VERDIS+4*
DIR("B"	WLN+7, REV+2, VERDIS+3*
DIR(0	WLN+5, REV+2, VERDIS+3*
DIROUT	REV+1~, VERDIS+2~
DIRUT	WLN+4!, WLN+9, REV+1~, REV+8, VERDIS+2~, VERDIS+9
DL	SLOQ+2!
DLAYGO	SLOQ+2!
DOB	SLOQ+2!
DQ	SLOQ+2!
DR	SLOQ+2!, SLOQ+4!
DTOUT	WLN+4!, REV+1~, VERDIS+2~
DUOUT	EP+3!, YN*, WLN+4!, REV+1~, VERDIS+2~
DUZ	SLOW+3, QUIT+1
DUZ(2	EP+13, EP+15
DX	SLOQ+2!
G	SLOQ+4!
G1	SLOQ+4!
G2	SLOQ+4!
G4	SLOQ+4!
GLB	SLOQ+5!
HRCN	WLN1+7, SLOQ+9!
I	DAT+4*, SLOQ+2!
J	SLOQ+2!
LRA1	WLN1+14~, WLN1+16*, WLN1+18
LRA2	WLN1+14~, WLN1+16*, WLN1+18
LRA3	WLN1+14~, WLN1+16*, WLN1+18
LRAA	EP+9, EP+12, EP+16, SLOW, DAT+4, DAT+5, WLN+1, WLN1, WLN1+1, WLN1+3 , WLN1+9, WLN1+11, WLN1+13, WLN1+16, WLN1+18, WLN1+20, WLN1+22, WLN1+23, WLN1+26, LREND , NEXT+1, QUIT+2, SLOQ+5!
LRAB	L10!
LRACC	SLOQ+2!
LRACD	SLOQ+4!
LRAD	EP+9, DAT, DAT+1, DAT+4, DAT+5, WLN+1, WLN1, WLN1+1, WLN1+3, WLN1+9 , WLN1+11, WLN1+13, WLN1+16, WLN1+18, WLN1+20, WLN1+22, WLN1+23, WLN1+26, LREND, NEXT+1 , SLOQ+2!
LRAL	SLOQ+10!
LRALERT	SLOQ+10!
LRALL	SLOQ+2!
LRAN	EP+9, DAT+3, DAT+4, DAT+5, WLN+1, WLN+3, WLN+7, WLN+10, WLN+11, WLN1 , WLN1+1, WLN1+3, WLN1+9, WLN1+11, WLN1+13, WLN1+16, WLN1+18, WLN1+20, WLN1+22, WLN1+23 , WLN1+26, LREND, NEXT+1, NEXT+2, SLOQ+2!
LRAOD	SLOQ+4!
LRCDT	WLN1+11, WLN1+15, WLN1+19, WLN1+23, WLN1+24*, SLOQ+2!
LRCFL	SLOQ+5!
LRCMTDSP	SLOQ+5!
LRCNT	SLOQ+5!
LRCODE	SLOQ+5!
LRCODEN	SLOQ+5!
LRCSQ	QUIT+1!, QUIT+2
LRCSQQ	SLOQ+14!
LRCW	EP+2*, SLOQ+2!
LRCWT	SLOQ+5!
LRDAT	SLOQ+2!
LRDEL	L10!
LRDFN	WLN1+1*, WLN1+2, WLN1+4, WLN1+30, SLOQ+2!
LRDIYCNT	SLOQ+10!
LRDPF	WLN1+4*, WLN1+9, SLOQ+2!
LRDUZ	EP+15~
LRDUZ(2	EP+15*
LRDV	SLOQ+2!
LRDVF	SLOQ+2!
LREAL	SLOQ+2!
LREDIT	SLOQ+2!
LREDT	SLOQ+4!
LREND	EP+2, EP+5, EP+7, EP+16, DAT+3, L10+1, LREND+1, NEXT+2, SLOQ+2!, REV+8 , VERDIS+9*
LREXEC	SLOQ+4!
>> LRFASTS	L11
LRFLG	SLOQ+2!
LRFP	L10!
LRGVP	SLOQ+4!
LRI	SLOQ+5!
LRIDIV	SLOQ+12!
LRIDT	WLN1+26*, WLN1+27, WLN1+30, SLOQ+2!
LRINI	SLOQ+2!
LRIOZERO	SLOQ+4!
LRLCT	SLOQ+2!
LRLDT	L10!
LRLLOC	SLOQ+2!
LRM	LREND+1!, SLOQ+4!
LRMA	SLOQ+4!
LRMAX2	SLOQ+5!
LRMAXX	SLOQ+5!
LRMETH	SLOQ+2!
>> LRMIDEF	SLOW+4*
>> LRMIOTH	SLOW+4*
LRMX	SLOQ+5!
LRNAME	L10!, SLOQ+4!
LRNDISP	SLOQ+10!, VERDIS+10*
LRNG	L10!
LRNG2	SLOQ+2!
LRNG3	SLOQ+2!
LRNG4	SLOQ+3!
LRNG5	SLOQ+3!
LRNOCODE	SLOQ+10!
LRNOW	SLOQ+5!
LRNT	SLOQ+3!
LRNTN	SLOQ+3!
LRNX	SLOQ+3!
LRODT	WLN1+1*, WLN1+33, WLN1+34, SLOQ+3!
LRODTSV	SLOQ+5!
LROLLOC	SLOQ+12!
LRORD	WLN1+1*, LREND+1!, SLOQ+4!
LRORIFN	SLOQ+12!
LROUTINE	SLOQ+3!
LROWLE	SLOQ+3!
LRP	SLOQ+5!
LRPANEL	EP+2*, SLOQ+10!
>> LRPARAM	EP+16
LRPER	EP+3!, SLOQ+2!, REV+9*
LRPLOC	SLOQ+4!
LRPN	SLOQ+5!
LRPRAC	SLOQ+12!
>> LRPTP	SLOW+4*
LRQC	SLOQ+5!
LRRB	SLOQ+12!
LRREP	SLOQ+10!
LRSA	SLOQ+4!
LRSAMP	SLOQ+3!
LRSB	SLOQ+4!
LRSD	SLOQ+12!
LRSDT	SLOQ+4!
LRSET	L10!
LRSN	WLN1+1*, WLN1+33, WLN1+34, SLOQ+3!
LRSNSV	SLOQ+5!
LRSPEC	SLOQ+2!
LRSPN	SLOQ+5!
LRSS	SLOW*, SLOW+2, SLOW+7, SLOQ+3!
LRSSC	SLOQ+5!
LRSSCX	SLOQ+5!
LRSSP	SLOQ+3!
LRSSQ	SLOQ+4!
LRSTATUS	WLN1+16*, SLOQ+10!
LRSTD	SLOQ+5!
LRSUB	SLOQ+3!
LRSUFO	SLOQ+14!
LRT	SLOQ+5!
LRTEC	SLOW+3*, SLOQ+3!
LRTEST	L10!
LRTIM	SLOQ+10!
LRTIME	SLOQ+5!
LRTK	SLOQ+4!
LRTM60	DAT+2*, SLOQ+10!
LRTN	SLOQ+3!
LRTNSV	SLOQ+5!
LRTREA	SLOQ+12!
LRTS	SLOQ+3!
LRTT	SLOQ+12!
LRTX	L10!, SLOQ+4!
LRTY	SLOQ+5!
LRUID	EP+2, WLN+1, WLN1+3*, SLOQ+12!
LRUN	SLOQ+10!
LRURG	SLOQ+4!
LRUSI	SLOW+3, SLOQ+3!
LRUSNM	SLOQ+3!
LRVBY	EP+10~*, EP+11, EP+12, WLN+1
LRVERVER	L10!
LRVF	SLOQ+2!
LRVOL	SLOQ+4!
LRVRM	SLOQ+4!
LRWDTL	SLOQ+4!
LRWRD	WLN1+9, SLOQ+3!
LRX	SLOQ+10!
LRXD	SLOQ+3!
LRXDH	SLOQ+4!
LRXDP	SLOQ+3!
N	SLOQ+4!
NAME	SLOQ+14!
NODE	SLOQ+5!
NODE0	SLOQ+5!
NOW	SLOQ+5!
PNM	WLN1+7, SLOQ+3!
POP	SLOQ+4!
S	SLOQ+3!
S2	SLOQ+5!
SEX	SLOQ+3!
SSN	SLOQ+3!
T	L10!
T1	SLOQ+4!
U	EP+16, SLOW, SLOW+4, DAT+2, DAT+4, DAT+5, WLN1+1, WLN1+4, WLN1+9, WLN1+11 , WLN1+13, WLN1+20, WLN1+22, WLN1+23, WLN1+26, WLN1+34, LREND, QUIT+2
>> VA("BID"	SLOQ+3!
>> VA("PID"	SLOQ+3!
W	SLOQ+10!
X	EP+13, EP+14, EP+15, SLOW+3, DAT+2, SLOQ+3!, REV+1~, VERDIS+2~
X1	SLOQ+3!
X2	SLOQ+3!
X3	SLOQ+3!
X9	SLOQ+4!
Y	L10!, WLN+10, SLOQ+3!, SLOQ+5!, SLOQ+10!, REV+1~, REV+9, VERDIS+2~, VERDIS+10
Z	L10!, SLOQ+3!, SLOQ+10!
Z1	SLOQ+4!, SLOQ+10!
Z2	SLOQ+4!, SLOQ+10!
ZTSK	SLOQ+5!

Customize PDF page

Package: Lab Service

Routine: LRVER

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: