Routine: BLRALUT1

Information

BLRALUT1 ;DAOU/ALA-Lab ES Utility

Source file <BLRALUT1.m>

Package	Total	Caller Graph
IHS Changes To Lab	4	BLRALAF BLRALFN BLRALFN1 BLRDIAG1
Lab Service	2	MICROBIOLOGY mul

Name	Comments	DBIA/ICR reference
HEAD	; Privacy warning message
SX	;EP ; Set review cross-reference ; ^LR("BLRA",BLRARPHY,BLRARFL,-LRIDT,LRDFN) ; BLRARPHY = Responsible Physician ; BLRARFL = Review Status ; 0 = Not Reviewed ; 1 = Reviewed, not signed ; 2 = Reviewed, signed ; LRIDT = Reverse Date ; LRDFN = Lab Patient
TEXT	;;WARNING: RESTRICTED GOVERNMENT PATIENT DATA, UNAUTHORIZED
H1
FND	; Find results
ALT	; Generate alert message
KX	;EP ; Kill review cross-reference ; ^LR("BLRA",BLRARPHY,BLRARFL,-LRIDT,LRDFN) ; BLRARPHY = Responsible Physician ; BLRARFL = Review Status ; LRIDT = Reverse Date ; LRDFN = Lab Patient

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"You have "_BLRANC_" Lab Results to Review" Line Location: ALT+26
Function Call: WRITE	Prompt: !,?10," with "_BLRCRC_" CRITICAL"_$S(BLRCRC=1:"",1:"s") Line Location: ALT+28
Function Call: WRITE	Prompt: !,?10 Line Location: ALT+31
Function Call: WRITE	Prompt: BX_" with "_BLRABC_" ABNORMAL"_$S(BLRABC=1:"",1:"s") Line Location: ALT+32
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !?80-$L(BLRAX)\2,BLRAX Line Location: H1+1

Name	Line Occurrences (* Changed, ! Killed)
^BLRALAB(9009027.1 - [#9009027.1]	ALT+5, ALT+8, ALT+19, ALT+20, ALT+21
^LR - [#63]	FND+14, FND+15
^LR("BLRA"	SX+15*, KX+12!, FND+2, FND+4, FND+6, FND+10

Name	Line Occurrences
FND	ALT+15, ALT+23
H1	HEAD+2

Name	Field # of Occurrence
>> BENDT	ALT+21*, ALT+22, ALT+23
>> BLRABC	ALT+15, ALT+30, ALT+32, FND+15
>> BLRADUZ	ALT+15, ALT+18, ALT+19*, ALT+20, ALT+21, FND+2, FND+4, FND+6, FND+10
>> BLRAJ	HEAD+2*
>> BLRANC	ALT+15, ALT+25, ALT+26, FND+13
>> BLRAP	FND+5, FND+6, FND+10, FND+14, FND+15
>> BLRARFL	SX+11, SX+15, KX+8, KX+12
>> BLRARPHY	SX+11, SX+15, KX+8, KX+12
>> BLRAS	FND+1, FND+2, FND+4, FND+6, FND+10
>> BLRAX	H1*, H1+1
>> BLRCRC	ALT+15, ALT+27, ALT+28, ALT+31, FND+14
>> BLRIDT	FND+11*, FND+14, FND+15
>> BLRSS	FND+9, FND+10, FND+14, FND+15
>> BLRVD	FND+3, FND+4, FND+6, FND+10, FND+11
>> BSTDT	ALT+20*, ALT+22, ALT+23
>> BX	ALT+26, ALT+29, ALT+32
DT	ALT+23
DUZ	ALT+5, ALT+8, ALT+15, ALT+19, ALT+20, ALT+21
IOF	HEAD+1
>> LRDFN	SX+11, SX+15, KX+8, KX+12
>> LRIDT	SX+11, SX+15, KX+8, KX+12
>> LRSS	SX+15, KX+12
U	ALT+8, ALT+20, ALT+21, FND+14, FND+15

Name	Field # of Occurrence
$T(TEXT+BLRAJ	H1