Routine: BLRUTIL3

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
MailMan	4	CHK^XMA21 ^XMB CHKGROUP^XMBGRP ^XMD
VA Fileman	4	^%DT FIND^DIC $$GET1^DIQ ^DIR
Kernel	3	($$DT,$$FMADD,$$FMTE,$$HTE,$$HTFM,$$NOW)^XLFDT $$UP^XLFSTR $$SETUP1^XQALERT
Lab Service	3	$$S^LR7OS LN^LR7OSAP $$FMT^LR7OSAP1
IHS Changes To Lab	2	HEADERPG^BLRGMENU $$ADDON^BLRUTIL

Package	Total	Caller Graph
IHS Changes To Lab	39	BLR35PST BLR36PST BLR6249R BLR7OGMP BLRAAORU BLRCCPED BLRENTRY BLRF44DR BLRKIDS2 BLRLDFIS BLRLINK BLRLINK3 BLRLINK4 BLRLINKU BLRLNKU2 BLRLROS BLRLTRRR BLRLUAC8 BLRMANP2 BLRMIEHR BLRMIRPT BLRNLINK BLRPCCST BLRPRE32 BLRPRE33 BLRPRE34 BLRPRE37 BLRPRE38 BLRPRE39 BLRPRE40 BLRPRE41 BLRPRE42 BLRPURGU BLRQINST BLRRLTDR BLRRLTDU BLRUTIL4 BLRUTIL6 BLRUTIL7
Lab Service	3	LR7OGM LR7OSUM1 LROS
IHS Laboratory Point of Care	2	BLRPOC2 BLRPOC3

Package

Total

Caller Graph

IHS Changes To Lab

BLR35PST  BLR36PST  BLR6249R  BLR7OGMP  BLRAAORU  BLRCCPED  BLRENTRY  BLRF44DR
BLRKIDS2  BLRLDFIS  BLRLINK  BLRLINK3  BLRLINK4  BLRLINKU  BLRLNKU2  BLRLROS
BLRLTRRR  BLRLUAC8  BLRMANP2  BLRMIEHR  BLRMIRPT  BLRNLINK  BLRPCCST  BLRPRE32
BLRPRE33  BLRPRE34  BLRPRE37  BLRPRE38  BLRPRE39  BLRPRE40  BLRPRE41  BLRPRE42
BLRPURGU  BLRQINST  BLRRLTDR  BLRRLTDU  BLRUTIL4  BLRUTIL6  BLRUTIL7

Lab Service

LR7OGM LR7OSUM1 LROS

IHS Laboratory Point of Care

BLRPOC2 BLRPOC3

Entry Points

Name	Comments	DBIA/ICR reference
SNDALERT(ALERTMSG,NOUSER)	; EP - LR5.21031 addes NOUSER parameter
DATE	; EP
BULTNS	; EP - Send PCC Bulletin
REVIDEO(STR)	; EP -- Write string in Reverse Video & BOLDED
TESTMAIL	; EP
INSTLRPL	; EP -- Line of Data
INSTLRPI	; EP -- Initialize variables
BLTXNSET	; EP
MAKE132	; EP - Force Screen to 132 Characters
REVBLINK(STR)	; EP - Print string in Bold, Blinking, Reverse Video
D2HBOLD(STR)	; EP - Write string DOUBLE HEIGHT & BOLDED
BOLDUNDR(STR)	; EP -- Write string BOLDED & UNDERLINED
INSTLRPT	; EP -- Report of ^BLRINSTL global
WRAP(ROOT,FMT)	; EP - Wrap text
GETACCCP(LRAS,LRAA,LRAD,LRAN)	; EP -- Take Accession # & break apart ; Parse and process user input. Cloned from LRWU4.
SENDMAIL(MAILMSG,MAILARRY,FROMWHOM,NOUSER)	; EP
BULTXSET	; EP
GETREFR(TESTNAME)	; EP
BLINKER(STR)	; EP -- Write string in BOLDED, UNDERLINED, & BLINKING
MAKE80	; EP - Force Screen to 80 Characters
BULTX(BULLETIN)
NINLMI(CHKDUZ)	; EP -- Check to see if DUZ is NOT part of LMI Mail Group
ALERT	; EP
MAILALMI(MESSAGE,MSGARRAY,FROMWHOM,NOUSER)	; EP - IHS/MSC/MKK - LR5.21031 adds the NOUSER parameter
ESIGINFO	; EP -- Rework of BLRUTIL ESIGINFO subroutine.

External References

Name	Field # of Occurrence
^%DT	GETACCCP+39, DATE+3
HEADERPG^BLRGMENU	INSTLRPL+1
$$ADDON^BLRUTIL	ESIGINFO+5
FIND^DIC	GETREFR+4
$$GET1^DIQ	GETREFR+11, GETREFR+12, GETREFR+13
^DIR	GETACCCP+51
$$S^LR7OS	WRAP+10
LN^LR7OSAP	WRAP+10
$$FMT^LR7OSAP1	WRAP+8
$$DT^XLFDT	SNDALERT+15, SENDMAIL+29
$$FMADD^XLFDT	SNDALERT+15, SENDMAIL+29
$$FMTE^XLFDT	ESIGINFO+38, BULTXSET+10, BLTXNSET+9
$$HTE^XLFDT	MAILALMI+26
$$HTFM^XLFDT	MAILALMI+20
$$NOW^XLFDT	SENDMAIL+10
$$UP^XLFSTR	ESIGINFO+24
CHK^XMA21	NINLMI+11
^XMB	BULTX+19
CHKGROUP^XMBGRP	NINLMI+4
^XMD	SENDMAIL+16, TESTMAIL+11
$$SETUP1^XQALERT	SNDALERT+9

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: D2HBOLD+1
Function Call: WRITE	Prompt: 27,"#3",27,"[1m",STR,! Line Location: D2HBOLD+2
Function Call: WRITE	Prompt: 27,"#4",27,"[1m",STR,! Line Location: D2HBOLD+3
Function Call: WRITE	Prompt: *27,"[0m",! Line Location: D2HBOLD+4
Function Call: WRITE	Prompt: 27,"[1;4m",STR,27,"[0m" Line Location: BOLDUNDR+1
Function Call: WRITE	Prompt: 27,"[1;7m",STR,27,"[0m" Line Location: REVIDEO+1
Function Call: WRITE	Prompt: ?56,"NOT E-SIG PARTICIPATING" Line Location: ESIGINFO+12
Function Call: WRITE	Prompt: ?53,"INACTIVE E-SIG PARTICIPANT" Line Location: ESIGINFO+13
Function Call: WRITE	Prompt: ?TAB,"E-SIG STATUS: ",REVSTS Line Location: ESIGINFO+29
Function Call: WRITE	Prompt: !?5,"SIGNING PHYSICIAN: " Line Location: ESIGINFO+35
Function Call: WRITE	Prompt: $P($G(^VA(200,$P(ESIGDSTR,U,2),0)),U) Line Location: ESIGINFO+36
Function Call: WRITE	Prompt: !?5,"DATE/TIME RESULT SIGNED: " Line Location: ESIGINFO+37
Function Call: WRITE	Prompt: $TR($$FMTE^XLFDT($P(ESIGDSTR,U,5),"2MZ"),"@"," ") Line Location: ESIGINFO+38
Function Call: WRITE	Prompt: 27,"[1;4;5m",STR,27,"[0m" Line Location: BLINKER+1
Function Call: WRITE	Prompt: !! Line Location: ALERT+1
Function Call: WRITE	Prompt: "Patient Name:",$P(XQADATA,"^"),! Line Location: ALERT+2
Function Call: WRITE	Prompt: " UID:",$P(XQADATA,"^",2),! Line Location: ALERT+3
Function Call: WRITE	Prompt: " TEST:",$P(XQADATA,"^",3),!! Line Location: ALERT+4
Function Call: WRITE	Prompt: 27,"[1;7;5m",STR,27,"[0m" Line Location: REVBLINK+1
Function Call: WRITE	Prompt: ?4,CP Line Location: INSTLRPL+3
Function Call: WRITE	Prompt: ?14,$G(^BLRINSTL("LAB PATCH",CP,"INSTALLED BY",CNT)) Line Location: INSTLRPL+4
Function Call: WRITE	Prompt: ?44,$TR($P($G(^BLRINSTL("LAB PATCH",CP,"INSTALLED BY",CNT,"DATE/TIME")),":",1,2),"@"," ") Line Location: INSTLRPL+5
Function Call: WRITE	Prompt: ! Line Location: INSTLRPL+6
Function Call: WRITE	Prompt: "Setting display to 132 column mode",! Line Location: MAKE132+1
Function Call: WRITE	Prompt: $C(27)_"[?3h",! Line Location: MAKE132+2
Function Call: WRITE	Prompt: "132 column mode active.",! Line Location: MAKE132+3
Function Call: WRITE	Prompt: $TR($J("",132)," ","*"),! Line Location: MAKE132+4
Function Call: WRITE	Prompt: ! Line Location: MAKE132+5
Function Call: WRITE	Prompt: "Setting display to 80 column mode",! Line Location: MAKE80+1
Function Call: WRITE	Prompt: $C(27)_"[?3l",! Line Location: MAKE80+2
Function Call: WRITE	Prompt: "80 column mode active.",! Line Location: MAKE80+3
Function Call: WRITE	Prompt: $TR($J("",80)," ","*"),! Line Location: MAKE80+4
Function Call: WRITE	Prompt: ! Line Location: MAKE80+5
Function Call: WRITE	Prompt: "XMZ:",XMZ,! Line Location: TESTMAIL+13
Function Call: WRITE	Prompt: "XMMG:",$G(XMMG),! Line Location: TESTMAIL+14
Routine Call	DIC Line Location: GETREFR+4
Routine Call	DIR Line Location: GETACCCP+51

FileNo	Call Tags
^LAB(60 - [#60]	FIND^DIC
60.01	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRALAB(9009027.1 - [#9009027.1]	ESIGINFO+12, ESIGINFO+13, ESIGINFO+21
^BLRINSTL("LAB PATCH"	INSTLRPT+6, INSTLRPT+7, INSTLRPI+4, INSTLRPI+5, INSTLRPI+6, INSTLRPI+8, INSTLRPI+9, INSTLRPI+10, INSTLRPL+4, INSTLRPL+5
^BLRTXLOG - [#9009022]	BULTXSET+3, BULTXSET+9, BULTXSET+12, BULTXSET+13, BULTXSET+15
^BLRUCUM - [#90475.3]	GETREFR+16
^DD(63.04	ESIGINFO+24
^DPT - [#2]	BULTXSET+5, BULTXSET+6, BLTXNSET+5, BLTXNSET+6
^LAB(60 - [#60]	BULTXSET+16, BLTXNSET+13, GETREFR+8
^LR - [#63]	ESIGINFO+18
^LRO(68 - [#68]	GETACCCP+11, GETACCCP+17, GETACCCP+44, ESIGINFO+16
^TMP("BLRUTIL3"	WRAP+5!, WRAP+10*
^VA(200 - [#200]	ESIGINFO+7, ESIGINFO+36
^XTMP(	SNDALERT+15, SNDALERT+16, SNDALERT+17, SNDALERT+18, SNDALERT+19, SNDALERT+20, SENDMAIL+29, SENDMAIL+30, SENDMAIL+31, SENDMAIL+34
^XTMP("BLRUTIL3"	MAILALMI+19, MAILALMI+20, MAILALMI+26, MAILALMI+27*

Name	Line Occurrences
$$NINLMI	SNDALERT+7, SENDMAIL+8
BLTXNSET	BULTX+8
BULTX	BULTNS+3, BULTNS+4
BULTXSET	BULTX+5
DATE	DATE+3
INSTLRPI	INSTLRPT+4
INSTLRPL	INSTLRPT+8
SENDMAIL	MAILALMI+17
SNDALERT	MAILALMI+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	GETACCCP+21~, GETACCCP+22, GETACCCP+33~, GETACCCP+38, DATE+3*, DATE+4!
%DT("A"	GETACCCP+22*
%DT("B"	GETACCCP+22*, DATE+3
ALERTMSG	SNDALERT~, SNDALERT+1, SNDALERT+18
>> APCDALVR("APCDDATE"	BLTXNSET+9
>> APCDALVR("APCDPAT"	BLTXNSET+3
ARRAY	SENDMAIL+19~, SENDMAIL+32, SENDMAIL+33, SENDMAIL+34
>> BLRACCN	BLTXNSET+12
>> BLRBUL	BULTNS+3
>> BLRLOGDA	BULTX+5, BULTX+8, BULTX+10, BULTXSET+3, BULTXSET+9, BULTXSET+12, BULTXSET+13, BULTXSET+15
>> BLRORD	BLTXNSET+11
>> BLRPCC	BULTNS+1, BULTX+12
>> BLRTEST	BLTXNSET+13
BULLETIN	BULTX~, BULTX+14
CCNT	WRAP+2~, WRAP+10
CHKDUZ	NINLMI~
CNT	INSTLRPT+1~, INSTLRPT+7, INSTLRPI+19, INSTLRPL+4, INSTLRPL+5
COLLDT	BULTXSET+1~, BULTXSET+9*, BULTXSET+10
CP	INSTLRPT+1~, INSTLRPT+6, INSTLRPT+7, INSTLRPI+19, INSTLRPL+3, INSTLRPL+4, INSTLRPL+5
DIFROM	SENDMAIL+1~, TESTMAIL+1~
DIR	GETACCCP+49~
DIR("A"	GETACCCP+50*
DIR(0	GETACCCP+50*
DIRUT	GETACCCP+49~, GETACCCP+52
DOCDUZ	ESIGINFO+1~
DOCIEN	ESIGINFO+1~, ESIGINFO+7*, ESIGINFO+10, ESIGINFO+12, ESIGINFO+13
DT	GETACCCP+34, GETACCCP+36, GETACCCP+37
DTOUT	GETACCCP+49~, DATE+1!
DTRANGE	INSTLRPI+1~
DUOUT	GETACCCP+25, GETACCCP+49~, DATE+1!
DUZ	MAILALMI+27, SNDALERT+7, NINLMI+9, SENDMAIL+8, TESTMAIL+9
DUZ(2	ESIGINFO+5
ESIGDSTR	ESIGINFO+1~, ESIGINFO+18*, ESIGINFO+20, ESIGINFO+21, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38
FIRST	INSTLRPI+1~, INSTLRPI+5*, INSTLRPI+6
FIRSTDT	INSTLRPI+1~, INSTLRPI+6*, INSTLRPI+12
FMT	WRAP~, WRAP+3*, WRAP+8
FROMWHOM	MAILALMI~, MAILALMI+14*, MAILALMI+17, SENDMAIL~, SENDMAIL+14
FRSTPTCH	INSTLRPI+1~, INSTLRPI+4*, INSTLRPI+5, INSTLRPI+6
GCNT	WRAP+2~, WRAP+4*, WRAP+10
HD1	INSTLRPT+2~, INSTLRPI+18*, INSTLRPL+1
HEADER	INSTLRPT+2~
HEADER(1	INSTLRPI+2*
HEADER(2	INSTLRPI+12*
HEADER(3	INSTLRPI+13*
HEADER(4	INSTLRPI+14, INSTLRPI+15, INSTLRPI+16*
IEN	GETREFR+1~, GETREFR+5*, GETREFR+6, GETREFR+8, GETREFR+11, GETREFR+12, GETREFR+13
INC	WRAP+2~
IOM	ESIGINFO+28, MAKE132+6, MAKE80+6
LABTIEN	BULTXSET+1~, BULTXSET+15*, BULTXSET+16
LAST	INSTLRPI+1~, INSTLRPI+9*, INSTLRPI+10
>> LASTDT	INSTLRPI+10*, INSTLRPI+12
LASTPTCH	INSTLRPI+1~, INSTLRPI+8*, INSTLRPI+9, INSTLRPI+10
LINES	INSTLRPT+2~, INSTLRPI+18, INSTLRPL+1, INSTLRPL+7
LRAA	GETACCCP~, GETACCCP+5, GETACCCP+11, GETACCCP+12, GETACCCP+17, GETACCCP+44, ESIGINFO+16
>> LRACC	GETACCCP+48, GETACCCP+55
LRAD	GETACCCP~, GETACCCP+5, GETACCCP+27, GETACCCP+32, GETACCCP+40, GETACCCP+41, GETACCCP+45
LRAN	GETACCCP~, GETACCCP+5, GETACCCP+56
LRAS	GETACCCP~, GETACCCP+3
>> LRBLNOW	SENDMAIL+10*
>> LRDFN	ESIGINFO+18
>> LRDOC	ESIGINFO+7
>> LREND	DATE+1*
LRI	WRAP+2~, WRAP+4, WRAP+6, WRAP+7, WRAP+9, WRAP+10
LRIDIV	GETACCCP+2~, GETACCCP+17*
>> LRIDT	ESIGINFO+18
LRINDX	WRAP+2~, WRAP+4, WRAP+7, WRAP+8
LRQUIT	GETACCCP+2~
>> LRSS	ESIGINFO+16*, ESIGINFO+18
LRTX	WRAP+2~
LRTX(	WRAP+10
LRX	GETACCCP+2~, GETACCCP+3, GETACCCP+7, GETACCCP+17
MAILARRY	MAILALMI+1~, MAILALMI+8*, MAILALMI+17, SENDMAIL~
MAILARRY(	SENDMAIL+33, SENDMAIL+34
MAILARRY(1	MAILALMI+11*
MAILARRY(2	MAILALMI+12*
MAILMSG	SENDMAIL~, SENDMAIL+12
MAXLINES	INSTLRPT+2~, INSTLRPI+18*, INSTLRPL+1
MESSAGE	GETREFR+1~, MAILALMI~, MAILALMI+5, MAILALMI+12, MAILALMI+17
MGRPIEN	NINLMI+1~, NINLMI+4, NINLMI+5, NINLMI+10
MSGARRAY	MAILALMI~, MAILALMI+8
MSGARRAY(1	MAILALMI+8, MAILALMI+10
NOUSER	MAILALMI~, MAILALMI+5, MAILALMI+17, SNDALERT~, SNDALERT+7, SENDMAIL~, SENDMAIL+8
NOW	MAILALMI+24~, MAILALMI+25*, MAILALMI+26, MAILALMI+27
PG	INSTLRPT+2~, INSTLRPI+18*, INSTLRPL+1
PTPTR	BULTXSET+1~, BULTXSET+3, BULTXSET+5, BULTXSET+6, BLTXNSET+1~, BLTXNSET+3, BLTXNSET+5, BLTXNSET+6
QFLG	INSTLRPT+2~, INSTLRPT+6, INSTLRPT+7, INSTLRPI+18*, INSTLRPL+1
REFH	GETREFR+1~, GETREFR+12*, GETREFR+18
REFL	GETREFR+1~, GETREFR+11*, GETREFR+18
REVIEWDV	ESIGINFO+1~, ESIGINFO+24*, ESIGINFO+25
REVSTS	ESIGINFO+2~, ESIGINFO+25*, ESIGINFO+28, ESIGINFO+29, ESIGINFO+33
ROOT	WRAP~, WRAP+1, WRAP+6, WRAP+7
SP	WRAP+2~
SPEC	GETREFR+1~, GETREFR+8*, GETREFR+9, GETREFR+11, GETREFR+12, GETREFR+13, GETREFR+18
STR	D2HBOLD~, D2HBOLD+2, D2HBOLD+3, BOLDUNDR~, BOLDUNDR+1, REVIDEO~, REVIDEO+1, BLINKER~, BLINKER+1, REVBLINK~ , REVBLINK+1, TESTMAIL+1~
STR(1	TESTMAIL+3*
SUBSCRPT	SNDALERT+13~, SNDALERT+14, SNDALERT+15, SNDALERT+16, SNDALERT+17, SNDALERT+18, SNDALERT+19, SNDALERT+20, SENDMAIL+19~, SENDMAIL+20 , SENDMAIL+29, SENDMAIL+30, SENDMAIL+31, SENDMAIL+34
TAB	ESIGINFO+1~, ESIGINFO+28*, ESIGINFO+29
TARGET	GETREFR+1~
TARGET("DILIST"	GETREFR+5
TESTNAME	GETREFR~, GETREFR+4
U	GETACCCP+17, GETACCCP+44, ESIGINFO+13, ESIGINFO+20, ESIGINFO+21, ESIGINFO+24, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38
UNITS	GETREFR+1~, GETREFR+13, GETREFR+16, GETREFR+18
WHEN	INSTLRPT+1~
WHO	INSTLRPT+1~
X	GETACCCP+38, GETACCCP+44, GETACCCP+45, GETACCCP+49~, DATE+3, WRAP+2~, WRAP+7, WRAP+8, SNDALERT+9, SNDALERT+11 , SENDMAIL+37!, TESTMAIL+16!
X1	GETACCCP+2~, GETACCCP+7*, GETACCCP+9, GETACCCP+11
X2	GETACCCP+2~, GETACCCP+7, GETACCCP+8, GETACCCP+20, GETACCCP+34, GETACCCP+35, GETACCCP+36, GETACCCP+37*, GETACCCP+38
X3	GETACCCP+2~, GETACCCP+7, GETACCCP+8, GETACCCP+20, GETACCCP+48, GETACCCP+53*, GETACCCP+55, GETACCCP+56
XMB	BULTX+1!, BULTX+14*, BULTX+22!
XMB(1	BULTXSET+5, BLTXNSET+5
XMB(2	BULTXSET+6, BLTXNSET+6
XMB(3	BULTXSET+10, BLTXNSET+9
XMB(4	BULTXSET+12, BLTXNSET+11
XMB(5	BULTXSET+13, BLTXNSET+12
XMB(6	BULTXSET+16, BLTXNSET+13
XMB(7	BULTX+10*
XMB(8	BULTX+12*
XMDUZ	BULTX+18, NINLMI+1~, NINLMI+9, SENDMAIL+14, SENDMAIL+37!, TESTMAIL+9, TESTMAIL+16!
>> XMMG	SENDMAIL+18, TESTMAIL+14
XMSUB	SENDMAIL+12, SENDMAIL+37!, TESTMAIL+7, TESTMAIL+16!
XMTEXT	SENDMAIL+13, SENDMAIL+37!, TESTMAIL+8, TESTMAIL+16!
XMY	SENDMAIL+3!, SENDMAIL+37!, TESTMAIL+5!, TESTMAIL+16!
XMY(	SENDMAIL+8*
XMY("G.LMI"	SENDMAIL+4, TESTMAIL+6
XMZ	SENDMAIL+15, SENDMAIL+18, SENDMAIL+37!, TESTMAIL+10, TESTMAIL+13, TESTMAIL+16!
XQA	SNDALERT+10!
XQA(	SNDALERT+7*
XQA("G.LMI"	SNDALERT+2*
>> XQADATA	ALERT+2, ALERT+3, ALERT+4
>> XQALERR	SNDALERT+20
XQAMSG	SNDALERT+1*, SNDALERT+10!
Y	GETACCCP+26, GETACCCP+27, GETACCCP+40, GETACCCP+49~, GETACCCP+52, GETACCCP+53, DATE+3, BULTX+2, NINLMI+10, SENDMAIL+37! , TESTMAIL+16!

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRUTIL3

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 44

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: