Routine: LRVER3

Information

LRVER3 ;DALOI/CJS/JAH - DATA VERIFICATION ; 03-Oct-2016 10:28 ; MKK

Source Information

Source file <LRVER3.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Lab Service	11	BAWRK^LRBEBA $$CHKINP^LRBEBA4 LOOK^LRCAPV1 ^LRDIDLE0 $$NLT^LRVER1 V7^LRVER2 VER^LRVER3A (,WT)^LRVER4 $$CHKCDSP^LRVERA COM^LRVR4 RANGE^LRWU2
Kernel	3	(T0,T1)^%ZOSV $$NOW^XLFDT ($$CJ,$$UP)^XLFSTR
Automated Lab Instruments	2	$$DEFCODE^LA7VHLU5 SET^LA7VMSG
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Lab Service	7	LRGV LRSTUF2 LRVER2 LRVER4 LRVER5 LRVR3 LRVR4
IHS Laboratory Point of Care	1	BLRPOC2

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN	; ; R !,"Approve for release by entering your initials: ",LRINI:DTIME
LRORU3	;
CHG	; Check for changes, save results and create audit trail
READ	;
GETINITS(PROMPT)	; EP - Get Initials. Mask User input.
V11
L10	;
EP	; EP - LR5.21031
V1
SET	;
EXIT
RONLT	; (R)esolve (O)rder NLT code from file #68 original ordered test or ; use default when not specified for file #60 test.
V9
NOW
DIDLE	; ; Check if no previous result or pending result - no audit trail needed
NOVER

External References

Name	Field # of Occurrence
T0^%ZOSV	V11
T1^%ZOSV	V11+9
$$GET1^DIQ	SET+18
$$DEFCODE^LA7VHLU5	RONLT+15
SET^LA7VMSG	SET+21
BAWRK^LRBEBA	V11+2
$$CHKINP^LRBEBA4	V11+1
LOOK^LRCAPV1	V11+4
^LRDIDLE0	NOW+2
$$NLT^LRVER1	RONLT+10
V7^LRVER2	L10+3
VER^LRVER3A	V11+3
^LRVER4	L10+12
WT^LRVER4	V1+13, V1+25
$$CHKCDSP^LRVERA	L10+4
COM^LRVR4	V1+16
RANGE^LRWU2	V1+4, V9+3
$$NOW^XLFDT	L10+22, CHG+2, NOW
$$CJ^XLFSTR	NOVER+2, NOVER+3, NOVER+4, NOVER+5, NOVER+6
$$UP^XLFSTR	AGAIN+13, CHG+16, CHG+17, CHG+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," This entry is being edited by someone else." Line Location: V1+3
Function Call: WRITE	Prompt: !,?3,$P(^LAB(60,I,0),"^"),?25," ",$P(LRX,"^",6) Line Location: V1+12
Function Call: WRITE	Prompt: !,I," ",LRNAME(I) Line Location: V1+19
Function Call: WRITE	Prompt: !?15 Line Location: V1+28
Function Call: WRITE	Prompt: @LRVIDO Condition for execution: IOST["C-" Line Location: V1+28
Function Call: WRITE	Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U) Line Location: V1+29
Function Call: WRITE	Prompt: @LRVIDOF Condition for execution: IOST["C-" Line Location: V1+30
Function Call: WRITE	Prompt: !,$C(7) Line Location: V1+30
Function Call: READ	Prompt: "TEST #(s) (or ""ALL""): " Formatting: !! Timeout: DTIME Variable: X Line Location: V9+1
Function Call: WRITE	Prompt: !,"Enter for example 1,2,5-9." Line Location: V9+2
Function Call: WRITE	Prompt: !,"Test Not Reviewed: ",$P(^DD(63.04,I,0),U) Line Location: NOVER+1
Function Call: WRITE	Prompt: " = "_$P(LRSB(I),U)_" "_$P(LRSB(I),U,2) Condition for execution: $D(LRSB(I))#2 Line Location: NOVER+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("The above test(s) have results already entered,",80) Line Location: NOVER+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("but you did not select them for review.",80) Line Location: NOVER+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Accession NOT approved. ",80),$C(7) Line Location: NOVER+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You must review all results before ANY can be released.",80),!! Line Location: NOVER+5
Function Call: WRITE	Prompt: @LRVIDO Condition for execution: $E(IOST,1,2)="C-" Line Location: NOVER+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Suggest you select 'ALL' tests for verification/review. ",80) Line Location: NOVER+6
Function Call: WRITE	Prompt: @LRVIDOF Condition for execution: $E(IOST,1,2)="C-" Line Location: NOVER+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Suggest you select 'ALL' tests for verification/review. ",80) Line Location: NOVER+6
Function Call: WRITE	Prompt: !,"Has not been reviewed and has data. Not approved.",! Line Location: NOVER+7
Function Call: WRITE	Prompt: !,$C(7),"ENTERED BUT NOT APPROVED",! Line Location: NOVER+8
Function Call: WRITE	Prompt: !?5,"Nothing verified ",$C(7),! Line Location: NOVER+9
Function Call: WRITE	Prompt: !!?5,$C(7),"Nothing verified!" Line Location: AGAIN+7
Function Call: WRITE	Prompt: !!?5,$C(7),"* Nothing verified! *" Line Location: AGAIN+10
Function Call: WRITE	Prompt: *7,! Line Location: AGAIN+10
Function Call: WRITE	Prompt: !,$C(7),"Please enter your correct initials" Line Location: AGAIN+14
Function Call: WRITE	Prompt: !!?5,$C(7),"Nothing verified!" Line Location: AGAIN+15
Function Call: WRITE	Prompt: !!,"Press ENTER or RETURN to continue: " Line Location: READ+1
Function Call: WRITE	Prompt: !! Line Location: CHG+22
Function Call: WRITE	Prompt: @LRVIDO Condition for execution: IOST["C-" Line Location: CHG+22
Function Call: WRITE	Prompt: "Approve update of data by entering your initials: " Line Location: CHG+22
Function Call: WRITE	Prompt: @LRVIDO Condition for execution: IOST["C-" Line Location: CHG+22
Function Call: WRITE	Prompt: !,$C(7),"No updating occurred ",! Line Location: CHG+30
Function Call: WRITE	Prompt: !! Line Location: CHG+36
Function Call: WRITE	Prompt: ! Line Location: NOW+1
Function Call: READ	Timeout: TEXT="^" Variable: TEXT#1 S Line Location: GETINITS+5
Function Call: WRITE	Prompt: $C(8),"*" Line Location: GETINITS+5
Function Call: READ	Timeout: TEXT="^" Variable: TEXT#1 S Line Location: GETINITS+6
Function Call: WRITE	Prompt: $C(8),"*" Line Location: GETINITS+6

FileNo	Call Tags
^LAM - [#64]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.04	NOVER+1
^LAB(60 - [#60]	V1+12, SET+10
^LAB(62.05 - [#62.05]	V1+29
^LAM("C"	SET+18
^LR - [#63]	L10+6, L10+25, L10+30, CHG+33, CHG+34, DIDLE+5, NOW+4
^LRO(68 - [#68]	V1+9, V1+10, V1+20, V1+21, V11+4, V11+7, RONLT+8
^TMP("LR"	V11+7, SET+8

Label References

Name	Line Occurrences
$$GETINITS	AGAIN+4, CHG+25
AGAIN	AGAIN+14
CHG	L10+28
DIDLE	CHG+35
EXIT	V1+16, V9+3, L10+15, L10+17, L10+28, L10+31, NOVER, NOVER+7, NOVER+8, NOVER+9 , AGAIN+10, AGAIN+15
L10	V1+4, V1+32
LRORU3	V11+8
READ	AGAIN+10, AGAIN+15
V1	EP+1, L10+31
V11	L10+30, L10+31
V9	V9+2

Name	Field # of Occurrence
^(	L10+8, L10+9, V11+7*
^(0	L10+30*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANSWER	GETINITS+1~, GETINITS+4, GETINITS+6, GETINITS+7
CNT	NOVER+10~, AGAIN+14
DTIME	V9+1, READ+1
>> I	V1+8, V1+9, V1+10, V1+12, V1+18, V1+19, V1+20, V1+21, NOVER+1
IOST	V1+28, V1+30, NOVER+6, CHG+22
LR60	RONLT+3~, RONLT+4, RONLT+7, RONLT+8, RONLT+9, RONLT+10, RONLT+12*
LR64	SET+1~, SET+18*
LR7V	SET+1~, SET+19!, SET+20*, SET+21
>> LRAA	V1+9, V1+10, V1+20, V1+21, V11+4, RONLT+8
>> LRAD	V1+9, V1+10, V1+20, V1+21, RONLT+8
>> LRAL	V1+22*, V1+24
>> LRALERT	V1+5, V1+24, V1+27, V1+29
>> LRALL	V1+5, V1+19, V9*, V9+1
>> LRAN	V1+9, V1+10, V1+20, V1+21, RONLT+8
>> LRBEY	V11+2
LRCHG	L10+21, L10+28!, CHG+3*, CHG+4, CHG+7, CHG+8, CHG+10, CHG+12, CHG+13, CHG+14 , CHG+16, CHG+17, CHG+18, CHG+19
>> LRCMTDSP	L10+4*
LRCORECT	L10+1~, NOW+5
>> LRDFN	V1+1, L10+6, L10+25, L10+30, V11+1, V11+7, CHG+33, CHG+34, DIDLE+5, NOW+4 , SET+21
LRDN	SET+1~, SET+5, SET+6, SET+7, SET+8, SET+12, SET+13
>> LRDPF	V11+1
>> LREDIT	L10+11*
>> LREND	L10+28, CHG+20, CHG+21, CHG+28, CHG+29, CHG+30
LRF	L10+30!, DIDLE+4*
>> LRGVP	V1+4, L10+15, L10+31
>> LRIDT	V1+1, L10+6, L10+25, L10+30, V11+7, CHG+33, CHG+34, DIDLE+5, NOW+4, SET+21
>> LRINI	AGAIN+4, AGAIN+10, AGAIN+13, AGAIN+14, AGAIN+15, CHG+25, CHG+28, CHG+29
>> LRLABKY	NOVER+8
>> LRLCT	V1+5, V1+13, V1+25*
LRLOCKER	EP+2!, V1, V1+1*, V1+2
>> LRNAME(	V1+18, V1+19, V1+20, V1+21
>> LRNOVER	L10+10
>> LRNOVER(	L10+10*, NOVER+1
>> LRNOVER(0	NOVER, NOVER+7
LRNOW	L10+22~, L10+24, CHG+2, CHG+10, CHG+19
>> LRNOW7	NOW*
>> LRNTN	V1+4, V1+16, V1+18, V1+32, L10+31
>> LRNX	L10+2*
>> LRODT	V11+1, V11+2, SET+21
>> LROK	NOW+3
>> LRORD(0	L10+17
LRORU3	L10+5!, V11+8, SET+21
LROTA	SET+1~
LROTA(	SET+12, SET+13, SET+17, SET+20
>> LROUTINE	V1+5
>> LRPARAM	V1+27, V11+4
LRSA	L10+5!, L10+30, L10+31, NOW+3!
LRSA(	CHG+4, CHG+7, CHG+8, CHG+12, CHG+13, CHG+14, CHG+16, CHG+18, CHG+19, CHG+33! , CHG+35, DIDLE+2, SET+13
LRSB	L10+5!, L10+6, L10+7, L10+8, L10+9, L10+10, L10+23, L10+24, L10+25, CHG+32* , CHG+33, CHG+34, CHG+35, DIDLE+2, RONLT+4, RONLT+15, RONLT+17
LRSB(	L10+9, L10+23, L10+24, L10+25, NOVER+1, CHG+3, CHG+10, CHG+12, CHG+13, CHG+14 , CHG+17, CHG+19, CHG+32, CHG+34, RONLT+4, RONLT+17*, SET+6, SET+7, SET+8
LRSB(0	NOVER+9, V11+8
>> LRSN	V11+2
>> LRSPEC	RONLT+15
>> LRSS	V1+1, L10+6, L10+25, L10+30, V11+1, CHG+33, CHG+34, DIDLE+5, NOW+4, RONLT+15 , SET+21
LRT	SET+1~, SET+8*, SET+10, SET+12
>> LRTEST	V11+2
LRTPN	SET+1~, SET+18*, SET+21
LRTPNN	SET+1~, SET+8, SET+9, SET+12, SET+13, SET+16, SET+17*, SET+18, SET+20, SET+21
>> LRTS	RONLT+4
LRTYPE	SET+1~, SET+10*, SET+11
LRUP	L10+28!, CHG+1, CHG+4, CHG+9, CHG+12, CHG+13, CHG+18, CHG+20
>> LRUSI	AGAIN+13, AGAIN+14, AGAIN+15, CHG+28, CHG+29
>> LRVF	L10+21, L10+31, V11+7, V11+10*
>> LRVIDO	V1+28, NOVER+6, CHG+22
>> LRVIDOF	V1+30, NOVER+6, CHG+22
LRX	V1+10, V1+11, V1+12, V1+21, V1+22, V1+23, V11+5~, V11+6, V11+7, CHG+15~ , CHG+16, CHG+18, RONLT+3~, RONLT+8, RONLT+9, RONLT+12
LRY	CHG+15~, CHG+17, CHG+18, RONLT+3~, RONLT+4, RONLT+11, RONLT+15, RONLT+17
PROMPT	GETINITS~, GETINITS+3
STEP	GETINITS+1~, GETINITS+6*
>> T1	V1+32*
TEXT	GETINITS+1~, GETINITS+6*
U	V1+22, V1+23, V1+27, V1+29, V9+1, V9+3, L10+9, L10+24, L10+30, NOVER+1 , NOVER+8, V11+4, V11+8, CHG+10, CHG+19, RONLT+4, RONLT+17, SET+8, SET+10, SET+21
X	V1+4, V9+1, V9+2, V9+3, L10+30, READ+1~, RONLT+3~, RONLT+10*, RONLT+11, SET+1~
>> X9	V1+32*, V9+3, L10+2
>> XRT0	V11+9
>> XRTL	V11
>> XRTN	V11+9*

Customize PDF page

Package: Lab Service

Routine: LRVER3

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: