Routine: LRVR3

Package	Total	Call Graph
Lab Service	8	BAWRK^LRBEBA $$CHKINP^LRBEBA4 LOOK^LRCAPV1 LRORU3^LRVER3 VER^LRVER3A $$CHKCDSP^LRVERA ^LRVR4 PT^LRX
VA Fileman	4	YN^DICN $$GET1^DID $$GET1^DIQ ^DIR
Kernel	2	$$NOW^XLFDT $$UP^XLFSTR

Package	Total	Caller Graph
Lab Service	6	LRGV2 LRLLS LRLLS3 LRVER5 LRVR2 LRVRPOC

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN	; ; R !,"Approve for release by entering your initials: ",LRINI:DTIME
ZAPALL(LRLL,LAIEN)	;Clean up
ZAP2	;Clear ^LAH(
EDIT
V11	;Still locked from V1 L ^LR(LRDFN,LRSS,LRIDT)
LKCHK
LINKOK
V1
A3
LINK	; Check and save link
TNR	; List tests not reviewed and ask if user wants to delete.
READ	;
ZAP	; from LRLLS3

External References

Name	Field # of Occurrence
YN^DICN	A3+12, LINK+16
$$GET1^DID	TNR+19
$$GET1^DIQ	TNR+18
^DIR	TNR+26
BAWRK^LRBEBA	A3+1
$$CHKINP^LRBEBA4	A3
LOOK^LRCAPV1	A3+4
LRORU3^LRVER3	V11+10
VER^LRVER3A	A3+2
$$CHKCDSP^LRVERA	V1+9
^LRVR4	EDIT+6
PT^LRX	LINK+11
$$NOW^XLFDT	V11+3
$$UP^XLFSTR	AGAIN+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," This entry is being edited by someone else." Line Location: V1+4
Function Call: WRITE	Prompt: !,"NO DATA TO APPROVE" Line Location: EDIT+8
Function Call: WRITE	Prompt: !,$P(^DD(63.04,I,0),U) Line Location: EDIT+10
Function Call: WRITE	Prompt: !,"Have not been reviewed and have data. Not approved." Line Location: EDIT+11
Function Call: WRITE	Prompt: !,$C(7),"ENTERED BUT NOT APPROVED" Line Location: EDIT+12
Function Call: WRITE	Prompt: !,"Approve for release by entering your initials: " Line Location: AGAIN+6
Function Call: READ	Timeout: TEXT="^" Variable: TEXT#1 S Line Location: AGAIN+8
Function Call: WRITE	Prompt: $C(8),"*" Line Location: AGAIN+8
Function Call: READ	Timeout: TEXT="^" Variable: TEXT#1 S Line Location: AGAIN+9
Function Call: WRITE	Prompt: $C(8),"*" Line Location: AGAIN+9
Function Call: WRITE	Prompt: !!?5,$C(7),"Nothing verified!" Line Location: AGAIN+13
Function Call: WRITE	Prompt: !,$C(7),"Please enter your correct initials" Line Location: AGAIN+15
Function Call: WRITE	Prompt: !!?5,$C(7),"Nothing verified!" Line Location: AGAIN+16
Function Call: WRITE	Prompt: !,"Purge data from sequence number(s): " Line Location: A3+10
Function Call: WRITE	Prompt: " ",I Line Location: A3+11
Function Call: WRITE	Prompt: !,$C(7),"WARNING - NO MATCHING ACCESSION WAS FOUND.",!,"You may need to Clear instrument/worklist data,",!,"or correctly identify the sample to the system." Line Location: LINK+2
Function Call: WRITE	Prompt: !,PNM,?30,SSN,!,$C(7) Line Location: LINK+3
Function Call: WRITE	Prompt: !,$C(7),"WARNING - NO MATCHING ACCESSION WAS FOUND." Line Location: LINK+7
Function Call: WRITE	Prompt: !,"You may need to Clear instrument/worklist data," Line Location: LINK+8
Function Call: WRITE	Prompt: !,"or correctly identify the sample to the system." Line Location: LINK+9
Function Call: WRITE	Prompt: !,PNM,?30,HRCN,!,$C(7) Line Location: LINK+12
Function Call: WRITE	Prompt: !,"Test(s) Not Reviewed:",! Line Location: TNR+13
Function Call: WRITE	Prompt: $$GET1^DIQ(60,LR60_",",.01) Line Location: TNR+18
Function Call: WRITE	Prompt: $$GET1^DID(63.04,I,"","LABEL") Line Location: TNR+19
Function Call: WRITE	Prompt: " = "_$P(X,"^")_" "_$P(X,"^",2)_" "_$P($P(X,"^",5),"!",7),! Line Location: TNR+20
Function Call: WRITE	Prompt: !!,"Press ENTER or RETURN to continue: " Line Location: READ+1
Routine Call	DIR Line Location: TNR+26

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
63.04	GET1^DID

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.04	EDIT+10
^LAB(60 - [#60]	TNR+17
^LAH(	V1+12, V1+14, V1+20, V1+22, EDIT, EDIT+3, EDIT+4!, EDIT+5, EDIT+7, EDIT+8 , V11+6!, A3+8, LINKOK!, LINKOK+1, LKCHK, ZAPALL+4, ZAPALL+5!, ZAPALL+6!, ZAPALL+7!, ZAPALL+8! , ZAPALL+10, ZAPALL+12!, ZAPALL+18, ZAPALL+20, ZAPALL+21, ZAPALL+22!, ZAPALL+24!, ZAPALL+27, ZAPALL+28, ZAPALL+29 , ZAPALL+30, TNR+6, TNR+7, TNR+8!, TNR+11, TNR+15, TNR+16
^LAH("LA7 AMENDED RESULTS"	ZAPALL+14, ZAPALL+15!
^LR - [#63]	V11+8*, LINK+10, TNR+8
^LRO(68 - [#68]	V11+8, A3+4, LINK+1
^TMP("LR"	V1+15, V11+5

Label References

Name	Line Occurrences
AGAIN	AGAIN+15
LINK	V1+6
LINKOK	LINK+1
LKCHK	V1+6, LINK+1
READ	AGAIN+13, AGAIN+16
TNR	A3+6
V1	LRVR3+3
ZAPALL	A3+8, A3+15, ZAP+1, ZAP2+1, TNR+28

Naked Globals

Name	Field # of Occurrence
^(	V11+5, V11+8*
^(0	LINK+1, LINK+10, LKCHK

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A3+12, LINK+16
ANSWER	AGAIN+5~, AGAIN+7, AGAIN+9, AGAIN+10
CNT	EDIT+13~, AGAIN+15
>> DFN	LINK+10*
DIR	TNR+2~
DIR("?"	TNR+23, TNR+24, TNR+25*
DIR("A"	TNR+22*
DIR("B"	TNR+22*
DIR(0	TNR+22*
DIROUT	TNR+2~
DIRUT	TNR+2~, TNR+26
DTIME	READ+1
DUOUT	TNR+2~
DUZ(2	A3+6
>> HRCN	LINK+6, LINK+12, LINK+13*
I	EDIT+10, A3+11, ZAP+1, ZAP2+1, ZAPALL+1~, ZAPALL+13, ZAPALL+14, ZAPALL+15, TNR+2~, TNR+5* , TNR+6, TNR+7, TNR+8, TNR+14, TNR+15*, TNR+16, TNR+17, TNR+19
LAIEN	A3+13~, A3+14, A3+15, ZAPALL~, ZAPALL+2, ZAPALL+4, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8 , ZAPALL+10, ZAPALL+12, ZAPALL+15, ZAPALL+18, ZAPALL+20, ZAPALL+21, ZAPALL+22, ZAPALL+24
LR60	TNR+2~, TNR+17*, TNR+18
>> LRAA	A3+4, LINKOK+1, LKCHK
>> LRAD	LINKOK+1, LKCHK
>> LRAN	LINKOK+1, LKCHK
>> LRBETST	A3+1
>> LRBEY	A3+1
>> LRCMTDSP	V1+9*
LRCORECT	V11+1~*
>> LRDFN	V1+2, V11+8, A3, LINK+1, TNR+8
>> LRDPF	A3, LINK+6, LINK+10, LINK+13
>> LRDUZ(2	A3+6
>> LREDIT	EDIT+2*
>> LRGVP	EDIT+9, LINK+16
>> LRIDT	V1+2, V11+8, TNR+8
>> LRINI	AGAIN+10, AGAIN+13, AGAIN+14, AGAIN+15, AGAIN+16
>> LRLABKY	EDIT+12
>> LRLK	LINK+1, LINKOK, LKCHK*
LRLKOK	LRVR3+5!, V1+6!, LINK+1, LINKOK+1, LKCHK
LRLL	V1+12, V1+14, V1+20, V1+22, EDIT, EDIT+3, EDIT+4, EDIT+5, EDIT+7, EDIT+8 , V11+6, A3+8, A3+15, ZAP+1, LINKOK, LINKOK+1, LKCHK, ZAP2+1, ZAPALL~, ZAPALL+2 , ZAPALL+4, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8, ZAPALL+10, ZAPALL+12, ZAPALL+15, ZAPALL+18, ZAPALL+20 , ZAPALL+21, ZAPALL+22, ZAPALL+24, ZAPALL+27, ZAPALL+28, ZAPALL+29, ZAPALL+30, TNR+6, TNR+7, TNR+8 , TNR+11, TNR+15, TNR+16, TNR+28
LRLOCKER	LRVR3+4!, V1+1, V1+2*, V1+3
LRNOVER	LRVR3+5!, V1+15
LRNOVER(	V1+15*, EDIT+10
LRNOVER(0	EDIT+11
LRNOW	V11+3~*, V11+8
LRNUF	EDIT+4!
>> LRODT	A3, A3+1
>> LRORU3	V11+10
>> LRPARAM	A3+4
>> LRPRGSQ	A3+9
>> LRPRGSQ(	A3+11, A3+15
LRSA	LRVR3+5!, V1+7!
LRSB	LRVR3+5!, V1+7!
LRSB(	V1+14, EDIT+7, V11+5, V11+8
LRSB(0	V11+10
LRSBCOM	LRVR3+5!, V1+7!, A3+3!
LRSBCOM(	V1+22*
>> LRSN	A3+1
>> LRSQ	V1+12, V1+14, V1+20, V1+22, EDIT, EDIT+3, EDIT+4, EDIT+5, EDIT+7, EDIT+8 , V11+6, A3+8, LINKOK, LINKOK+1, LKCHK, TNR+6, TNR+7, TNR+8, TNR+11, TNR+15 , TNR+16, TNR+28
>> LRSS	V1+2, V11+8, A3, A3+6, TNR+8
>> LRTN	V1*
>> LRUSI	AGAIN+14, AGAIN+15, AGAIN+16
>> LRVF	V11+8
>> LRVTS(	V1+15, V11+5
LRX	V1+10~, V1+11, V1+12, V1+13, V1+14, V1+15, V1+17, V1+20, V1+21, V1+22 , EDIT+3, EDIT+5, EDIT+7, V11+2~, V11+4, V11+5*, V11+6, V11+8
NODE	ZAPALL+1~, ZAPALL+4*, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8
NODE("U"	ZAPALL+10*, ZAPALL+11, ZAPALL+12, ZAPALL+14, ZAPALL+15
>> PNM	LINK+6, LINK+12, LINK+13*
S1	LINK+6*, LINK+13, LINK+16!
S2	LINK+6*, LINK+13, LINK+16!
S3	LINK+6*, LINK+13, LINK+16!
SEG	ZAPALL+1~, ZAPALL+17, ZAPALL+18, ZAPALL+20, ZAPALL+21
>> SEGID	ZAPALL+19, ZAPALL+20, ZAPALL+21, ZAPALL+22
STEP	AGAIN+5~, AGAIN+9*
SUB	ZAPALL+1~, ZAPALL+21*, ZAPALL+22
TEXT	AGAIN+5~, AGAIN+9*
U	EDIT+10, EDIT+12, V11+8, V11+10, A3+4, LINK+1, LINK+10, LINKOK, LINKOK+1, LKCHK , ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8, ZAPALL+10, ZAPALL+21
X	EDIT+1~, LINK+1, LINK+10, TNR+2~, TNR+7, TNR+8, TNR+16, TNR+20, READ+1~
X(	EDIT+3*, EDIT+5!
Y	TNR+2~, TNR+28
>> ZTQUEUED	A3+6, A3+9

Customize PDF page

Package: Lab Service

Routine: LRVR3

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: