Routine: LRVERA

Information

LRVERA ;VA/DALOI/JMC - READ ACCESSION/UID ;JUL 06, 2010 3:14 PM

Source Information

Source file <LRVERA.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Lab Service	1	($$CHECKUID,$$UID,EN)^LRWU4
Toolkit	1	GETLST^XPAR

Caller Graph

Caller Graph Total: 14

Package	Total	Caller Graph
Lab Service	14	LRCAPES LRFAST LRFASTS LRGP1 LRHYPH0 LROE LRSTUF1 LRVER LRVER3 LRVER4 LRVER5 LRVR LRVR3 LRVR4

Entry Points

Name	Comments	DBIA/ICR reference
ACC	; Prompt for accession selection
RFLAG(FLAG)	; Ask user for referral high/low/critical flag in case they ; don't have values to calculate. ; Call with FLAG = current abnormal flag if any
UID	; Prompt for UID selection
PLOK(LRX,LRY,LRZ,LR60)	; Check if user is editing results that appear to have ; been performed by a lab different from the one they selected and. ; ask if changing performing lab is ok.
SELPL(LR4)	; Select the performing laboratory to store with test results. ; Call with LR4 = default institution, usually value of DUZ(2)
DSPCMT	; Display comments stored in file #63
CMTDSP	; Determine if display of previous results should include associated comments.	ICR #5578 Status: Withdrawn Usage: Private
DCOM	; From above and LRVR4 - display comments
CHKCDSP()	; Check if previous comment should display when test on user's list ; is present on test profile selected for this accession.
SCRNPL()	; Screen performing laboratory ; Called by DIC("S") lookup above when selecting performing laboratory

External References

Name	Field # of Occurrence
^DIC	SELPL+11
$$GET1^DIQ	SELPL+9, PLOK+16, PLOK+17
^DIR	PLOK+20, RFLAG+14, DSPCMT+7
$$CHECKUID^LRWU4	UID+9
$$UID^LRWU4	UID+7
EN^LRWU4	ACC+1
GETLST^XPAR	CMTDSP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: UID+4
Function Call: WRITE	Prompt: !,"No accession on file for this UID." Line Location: UID+11
Function Call: WRITE	Prompt: " (",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^"),")" Line Location: UID+18
Function Call: WRITE	Prompt: ! Line Location: PLOK+20
Function Call: WRITE	Prompt: !,"* Comments for Previous Accession "_$P($G(Z2),"^",6)_" *" Line Location: DCOM+9
Function Call: WRITE	Prompt: !,"* Comments for Current Accession "_$G(LRACC)_" *" Line Location: DCOM+15
Function Call: WRITE	Prompt: !,"COMMENTS: ",$P(^LR(LRDFN,LRSS,DA,1,I,0),"^") Line Location: DSPCMT+5
Function Call: WRITE	Prompt: ! Line Location: DSPCMT+9
Routine Call	DIC Line Location: SELPL+11
Routine Call	DIR Line Location: PLOK+20 RFLAG+14 DSPCMT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls, GET1^DIQ
^LAB(60 - [#60]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.9 - [#62.9]	SCRNPL+5
^LR - [#63]	DCOM+3, DCOM+8, DCOM+13, DCOM+14, DSPCMT+3, DSPCMT+5
^LRO(68 - [#68]	UID+18
^TMP("LR"	CMTDSP+5!, CMTDSP+10*, CHKCDSP+5, CHKCDSP+8, CHKCDSP+9
^TMP("LRXPAR"	CMTDSP+5!, CMTDSP+7, CMTDSP+10, CMTDSP+11!

Label References

Name	Line Occurrences
DSPCMT	DCOM+10, DCOM+17

Naked Globals

Name	Field # of Occurrence
^(	CMTDSP+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DCOM+5~, DCOM+10, DCOM+17, DSPCMT+3, DSPCMT+5
DIC	SELPL+5~, SELPL+6*
DIC("A"	SELPL+8*
DIC("B"	SELPL+9*
DIC("S"	SELPL+10*
DIC(0	SELPL+6*
DIR	PLOK+11~, RFLAG+8~, DSPCMT+1~
DIR("?"	RFLAG+13*
DIR("A"	PLOK+16, PLOK+17, PLOK+18, RFLAG+10
DIR("B"	PLOK+18, RFLAG+11, RFLAG+12*
DIR(0	PLOK+19, RFLAG+9, DSPCMT+7*
DIROUT	RFLAG+8~
DIRUT	PLOK+11~, RFLAG+8~, RFLAG+15, DSPCMT+1~, DSPCMT+3, DSPCMT+6
DTOUT	SELPL+5~, PLOK+11~, RFLAG+8~, DSPCMT+1~
DUOUT	SELPL+5~, PLOK+11~, DSPCMT+1~
DUZ(2	SCRNPL+4, SCRNPL+5
ERR	CMTDSP+2~, CMTDSP+6
FLAG	RFLAG~, RFLAG+12
I	CMTDSP+2~, CMTDSP+9, CMTDSP+10, CHKCDSP+3~, CHKCDSP+6, CHKCDSP+7, CHKCDSP+8, CHKCDSP+9, DSPCMT+1~, DSPCMT+2* , DSPCMT+3*, DSPCMT+5
IOST	DSPCMT+6
LR4	SELPL~, SELPL+9, SELPL+12, SELPL+13, SELPL+15
LR60	PLOK~, PLOK+16
>> LRAA	UID+8, UID+17, UID+18
>> LRACC	DCOM+15
>> LRAD	UID+8, UID+17, UID+18
>> LRAN	UID+8, UID+17, UID+18
>> LRCMTDSP	DCOM+8, DCOM+14
>> LRDFN	DCOM+3, DCOM+8, DCOM+13, DCOM+14, DSPCMT+3, DSPCMT+5
>> LRIDT	DCOM+3, DCOM+13, DCOM+17
>> LRLCT	DCOM+16, DSPCMT+4, DSPCMT+6, DSPCMT+8, DSPCMT+9
>> LRLDT	DCOM+3, DCOM+8, DCOM+10, DCOM+14, CHKCDSP+5
>> LRM(	CHKCDSP+7, CHKCDSP+8, CHKCDSP+9
LRQUIT	UID+2~, UID+5, UID+6, UID+8, UID+10*
>> LRSS	DCOM+3, DCOM+8, DCOM+13, DCOM+14, DSPCMT+3, DSPCMT+5
>> LRUID	UID+7, UID+8, UID+12, UID+17*
LRX	UID+2~, UID+7*, UID+8, UID+9, UID+17, SCRNPL+2~, PLOK~, PLOK+13, PLOK+14, PLOK+15 , PLOK+16
LRY	UID+2~, UID+5, UID+9, UID+10, UID+16, UID+17, PLOK~, PLOK+14, PLOK+17
LRZ	PLOK~, PLOK+15, PLOK+17
OK	SCRNPL+2~, SCRNPL+3, SCRNPL+4, SCRNPL+5, SCRNPL+6, PLOK+11~, PLOK+12, PLOK+19, PLOK+21, PLOK+22 , CHKCDSP+3~, CHKCDSP+4, CHKCDSP+7, CHKCDSP+8, CHKCDSP+9*, CHKCDSP+10
X	SELPL+5~, PLOK+11~, RFLAG+8~, DSPCMT+1~
Y	SELPL+5~, SELPL+12, SELPL+13, SCRNPL+4, SCRNPL+5, PLOK+11~, PLOK+21, RFLAG+8~, RFLAG+15*, RFLAG+16 , DSPCMT+1~
>> Z2	DCOM+9

Customize PDF page

Package: Lab Service

Routine: LRVERA

Call Graph Total: 5

Caller Graph Total: 14