Routine: BLRALBR

Package	Total	Call Graph
IHS Changes To Lab	5	(EN,INIT)^BLRAL1 (CH,MI)^BLRALBD (,CSUP,PATS,PSUR)^BLRALBL REVW^BLRALFN1 EN^BLRASP
Kernel	1	SIG^XUSESIG
Registration	1	RE^VALM4
VA Fileman	1	^DIR

Package

Total

Call Graph

IHS Changes To Lab

(EN,INIT)^BLRAL1 (CH,MI)^BLRALBD (,CSUP,PATS,PSUR)^BLRALBL REVW^BLRALFN1 EN^BLRASP

SIG^XUSESIG

RE^VALM4

^DIR

Name	Comments	DBIA/ICR reference
AGN
PATS	; Patient Sort Display
EN	;
QUT	; Quit
FIX	;FIX ACC NUMBER
REV	; Review Selected Lab Result
FIX1
NEXT	; Get the next accession from the list
RBLD	; Rebuild list
EXT	;exit without update ;
EXIT
CSUB	; Check Subordinate Provider Results
BLD	;S ACC=$E($G(^TMP("BLRALST1",$J,BLRAV,0)),5,18)
BLD1	; Set the reviewed flag
PREV	; Get the previous accession from the list
COTH	; Check Other Provider Results

External References

Name	Field # of Occurrence
EN^BLRAL1	EN+18, COTH+5, CSUB+5, PATS+4
INIT^BLRAL1	BLD1+5, RBLD+6
CH^BLRALBD	BLD+18
MI^BLRALBD	BLD+19
^BLRALBL	EN+16
CSUP^BLRALBL	CSUB+4
PATS^BLRALBL	PATS+3
PSUR^BLRALBL	COTH+4
REVW^BLRALFN1	BLD1+1
EN^BLRASP	AGN+4
^DIR	REV+4
RE^VALM4	NEXT+2, NEXT+6, PREV+2, PREV+6
SIG^XUSESIG	EN+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"YOU ARE NOT SET UP AS A PARTICIPATING PHYSICIAN FOR THE LAB ELECTRONIC",! Line Location: EN+3
Function Call: WRITE	Prompt: "SIGNATURE MODULE. PLEASE CONTACT YOUR SITE MANAGER.",!! Line Location: EN+4
Function Call: WRITE	Prompt: !!,"You have 60 seconds before timeout to enter your electronic" Line Location: EN+7
Function Call: WRITE	Prompt: !,"signature for verification!!",!! Line Location: EN+8
Function Call: WRITE	Prompt: !!," YOU ARE AN INACTIVE PHYSICIAN FOR THE LAB ESIG MODULE.",! Line Location: EN+14
Function Call: WRITE	Prompt: " PLEASE CONTACT YOUR SITE MANAGER.",!! Line Location: EN+15
Routine Call	DIR Line Location: REV+4

Name	Line Occurrences (* Changed, ! Killed)
^BLRALAB(9009027.1 - [#9009027.1]	EN+2, EN+13
^TMP("BLRA"	BLD+5, BLD+6, BLD+7, BLD+10, BLD+12, BLD+13, BLD+15, COTH+2!, CSUB+2!, PATS+1!
^TMP("BLRALST1"	BLD1+4!, RBLD+5!
^TMP("BLRASEL"	REV+10!, REV+13*, AGN, NEXT+1, PREV+1

Name	Line Occurrences
AGN	AGN+1, AGN+6
BLD	AGN+3, NEXT+4, PREV+4
BLD1	AGN+5, EXIT
EXT	REV+5, REV+6, REV+7
FIX1	FIX1+1
RBLD	AGN

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AA	REV+12, REV+13, REV+14, REV+15, FIX1, FIX1+1
>> ACC	FIX+1, FIX1, FIX1+2
>> ACN	BLD+13*, BLD+15
>> BB	REV+12, FIX1+2
BENDT	EN+20!
>> BLDATA	BLD+15*, BLD+16
BLRA0	EN+20!
BLRAAB	EN+20!
BLRABC	EN+20!
BLRACCN	EN+20!
BLRADATA	EN+20!
BLRADATE	BLD+3!, BLD+4, BLD+6, BLD+7, BLD+10, BLD+12, BLD+13, BLD+17!
>> BLRADSP	BLD+20
BLRADT	EN+20!
BLRADTT	EN+20!
BLRADUZ	EN+21!
BLRAFLG	BLD+3!, BLD+4, BLD+6, BLD+7, BLD+10, BLD+14, BLD+17!
BLRAFN	REV+14*, PREV+2, RBLD+1!
BLRALFN	REV+15*, AGN+1, NEXT+2, PREV+2, RBLD+1!
BLRALINE	EN+21!
BLRALNUM	EN+21!
BLRALVAR	EN+21!
BLRANC	EN+21!
BLRAOPH	EN+21!
BLRAP	EN+21!
BLRAPD	EN+22!
BLRAPFL	EN+22!
BLRAPIEN	EN+22!
BLRAPNM	EN+22!
BLRAPRG	EN+22!, RBLD+2*, RBLD+3
BLRAPT	BLD+3!, BLD+4, BLD+7, BLD+10, BLD+12, BLD+13, BLD+17!
BLRAQFL	EN+22!, REV+1, AGN+1, QUT+1
BLRARPHY	EN+22!
BLRAS	EN+23!
BLRASCR	EN+17, EN+23!, COTH+3, CSUB+3, PATS+2, RBLD+2
BLRASRT	EN+23!
BLRASTA	EN+23!
BLRASTAT	EN+23!
BLRASUB	EN+17!, AGN+2!, BLD1+3, BLD1+6!, NEXT+1, PREV+1, RBLD+4
BLRAT	BLD+3!, BLD+4, BLD+5, BLD+6, BLD+7, BLD+10, BLD+12, BLD+13, BLD+17!
>> BLRAV	REV+18, AGN, AGN+1, BLD+12, NEXT+1, NEXT+2, PREV+1, PREV+2*
BLRCRC	EN+23!
BLRCRTL	EN+23!
BLRIDT	EN+24!
BLRSS	EN+24!, BLD+9, BLD+10, BLD+12, BLD+13
BLRVD	EN+24!
BSTDT	EN+24!
>> CC	REV+11*, REV+12
DIR	REV+2~, REV+4!
DIR("A"	REV+3*
DIR(0	REV+4*
DIRUT	REV+5!
DTOUT	EN+24!, REV+6, QUT+1*
>> DUOUT	REV+6
DUZ	EN+2, EN+13
>> EXIT	EXT+2*
>> JJ	REV+12*, REV+14
>> LEN	FIX+1, FIX1, FIX1+1, FIX1+2
>> LRDFN	BLD+16*
LRDPF	BLD+17!, NEXT+3!, PREV+3!
>> LRIDT	BLD+16*
>> LRSS	BLD+16*, BLD+18, BLD+19
U	EN+13, BLD+12, BLD+13, BLD+16, QUT+1
>> VALMBCK	EXT+1, NEXT+2, PREV+2*
>> VALMBG	NEXT+5, PREV+5
>> VALMCNT	REV+4, BLD+20*
VALMHDR	NEXT+3!, PREV+3!
>> VALMSG	NEXT+2, PREV+2
>> X1	EN+11
>> Y	REV+7
>> Y(	REV+11, REV+12

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRALBR

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: