Routine: BLRUTIL5

Package	Total	Call Graph
IHS Changes To Lab	2	(HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU $$ADDON^BLRUTIL
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
IHS VA %Utilities	1	($$ERR,$$KILLOK)^ZIBGCHAR

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRUTIL

Entry Points

Name	Comments	DBIA/ICR reference
NOCOLRPT	; EP - Report on ^TMP("BLRUTIL4",$J,"NOCOLLDT"
INSTLRPL	; EP -- Line of Data
GETTESTS	; EP
FIXCH
INSTLRPI	; EP -- Initialize variables
PAT10FIX(BORDDATE,EORDDATE)	; EP
FIXMI	; EP
GETMISS(UID,FLAG)	; EP
NOCOLLDT	; EP - "Quick & Dirty" Routine to determine if Accession file has no DRAW DATE but an Accession Number
INSTLRPT	; EP -- Report of ^BLRINSTL global
ESIGINFO	; EP -- Rework of BLRUTIL ESIGINFO subroutine.
COLSAMP	;^LAB(60,1,3,1,0)=3^SUPERBILL^LAVENDER^

External References

Name	Field # of Occurrence
HEADERDT^BLRGMENU	NOCOLRPT+11
HEADERPG^BLRGMENU	INSTLRPL+1
PRESSKEY^BLRGMENU	NOCOLLDT+37, NOCOLRPT+33
$$ADDON^BLRUTIL	ESIGINFO+5
$$FMTE^XLFDT	ESIGINFO+38
$$UP^XLFSTR	ESIGINFO+24
$$ERR^ZIBGCHAR	PAT10FIX+4
$$KILLOK^ZIBGCHAR	PAT10FIX+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(BLR,U,2)))_" "_BLR Line Location: PAT10FIX+4
Function Call: WRITE	Prompt: !,"PARENT: ",SEQNUM Line Location: PAT10FIX+20
Function Call: WRITE	Prompt: !,"MISSING ""ORU"" NODE IN FILE 63"_"^LR("_LRDFN_",""CH"","_LRIDT_",0)" Line Location: FIXCH+12
Function Call: WRITE	Prompt: !,"PROBLEM WITH UID ",LRUID," ""C"" X-REF IN LRO(68" Line Location: FIXCH+18
Function Call: WRITE	Prompt: CNT Line Location: COLSAMP+7
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: ?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: !!,?4,"Compilation Begins" Line Location: NOCOLLDT+6
Function Call: WRITE	Prompt: " >",UID,"< " Line Location: NOCOLLDT+24
Function Call: WRITE	Prompt: !!,?4,"Number of Accessions Analyzed = ",CNT,! Line Location: NOCOLLDT+33
Function Call: WRITE	Prompt: LRAA Line Location: NOCOLRPT+24
Function Call: WRITE	Prompt: ?5,LRAD Line Location: NOCOLRPT+25
Function Call: WRITE	Prompt: ?14,LRAN Line Location: NOCOLRPT+26
Function Call: WRITE	Prompt: ?24,UID Line Location: NOCOLRPT+27
Function Call: WRITE	Prompt: ?39,LABARRT Line Location: NOCOLRPT+28
Function Call: WRITE	Prompt: ?54,LRDFN Line Location: NOCOLRPT+29
Function Call: WRITE	Prompt: ?64,LRIDT Line Location: NOCOLRPT+30
Function Call: WRITE	Prompt: ! Line Location: NOCOLRPT+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRALAB(9009027.1 - [#9009027.1]	ESIGINFO+12, ESIGINFO+13, ESIGINFO+21
^BLRINSTL("LAB PATCH"	INSTLRPT+5, INSTLRPT+6, INSTLRPI+5, INSTLRPI+6, INSTLRPI+7, INSTLRPI+9, INSTLRPI+10, INSTLRPI+11, INSTLRPL+4, INSTLRPL+5
^BLRPAR(	PAT10FIX+20, PAT10FIX+24
^BLRTXLOG - [#9009022]	PAT10FIX+16, PAT10FIX+17
^BLRTXLOG("AOT"	PAT10FIX+8, PAT10FIX+10, PAT10FIX+12, PAT10FIX+14
^DD(63.04	ESIGINFO+24
^LAB(60 - [#60]	GETTESTS+3, GETTESTS+4, COLSAMP+3, COLSAMP+4, COLSAMP+6
^LAB(62 - [#62]	COLSAMP+5
^LR - [#63]	FIXCH+2, FIXCH+4, FIXCH+7, FIXCH+11, FIXCH+13, FIXCH+14, FIXCH+19, FIXMI+4, FIXMI+6, FIXMI+9 , FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, ESIGINFO+18
^LRO(68 - [#68]	GETMISS+1, GETMISS+2, GETMISS+3, GETMISS+5, GETMISS+6, GETMISS+7, FIXMI+29, FIXMI+38*, GETTESTS+2, ESIGINFO+16 , NOCOLLDT+8, NOCOLLDT+10, NOCOLLDT+12, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLRPT+20
^TMP("BLRUTIL4"	NOCOLLDT+4!, NOCOLLDT+26*, NOCOLLDT+41!, NOCOLRPT+14, NOCOLRPT+16, NOCOLRPT+18, NOCOLRPT+19
^VA(200 - [#200]	ESIGINFO+7, ESIGINFO+36

Label References

Name	Line Occurrences
COLSAMP	GETTESTS+6
GETMISS	FIXCH+17
GETTESTS	FIXMI+34
INSTLRPI	INSTLRPT+3
INSTLRPL	INSTLRPT+7
NOCOLRPT	NOCOLLDT+39

Naked Globals

Name	Field # of Occurrence
^(3	NOCOLRPT+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACCAREA	GETMISS+1, GETMISS+2, GETMISS+3, GETMISS+5, GETMISS+6, GETMISS+7, GETMISS+8, FIXMI+21, FIXMI+24, FIXMI+29 , FIXMI+38, GETTESTS+2
>> ACCDAT	GETMISS+2*, GETMISS+3, GETMISS+5, GETMISS+6, GETMISS+7, GETMISS+8
>> ACCDT	FIXMI+20*, FIXMI+24, FIXMI+29, FIXMI+38, GETTESTS+2
>> ACCESSN	FIXCH+20, GETMISS+7, FIXMI+17, FIXMI+18, FIXMI+19, FIXMI+27
>> ACCNUM	GETMISS+3, GETMISS+5, GETMISS+6, GETMISS+7, GETMISS+8, FIXMI+18, FIXMI+24, FIXMI+29, FIXMI+38, GETTESTS+2
>> ACCYR	FIXMI+19*, FIXMI+20
>> BADCNT	NOCOLLDT+7, NOCOLLDT+27, NOCOLLDT+34, NOCOLLDT+35, NOCOLLDT+39
BLR	PAT10FIX+2~, PAT10FIX+3*, PAT10FIX+4, PAT10FIX+5
>> BLRVERN	INSTLRPI+1, NOCOLLDT+3
BORDDATE	PAT10FIX~, PAT10FIX+7
>> CNT	FIXMI+36, GETTESTS+7, COLSAMP+3, COLSAMP+6, COLSAMP+7, INSTLRPT+6, INSTLRPI+20, INSTLRPL+4, INSTLRPL+5, NOCOLLDT+7 , NOCOLLDT+18*, NOCOLLDT+19, NOCOLLDT+33
>> COLIEN	COLSAMP+4*, COLSAMP+5
>> COLSAMP	COLSAMP+2, COLSAMP+3, COLSAMP+4
>> COUNT	FIXCH, FIXCH+8, FIXMI+1, FIXMI+10
>> CP	INSTLRPT+5, INSTLRPT+6, INSTLRPI+21, INSTLRPL+3, INSTLRPL+4, INSTLRPL+5
>> CPTCODE	PAT10FIX+23*
>> DILOCKTM	INSTLRPT+1, NOCOLLDT+1
>> DISYS	INSTLRPT+1, NOCOLLDT+1
DOCDUZ	ESIGINFO+1~
DOCIEN	ESIGINFO+1~, ESIGINFO+7*, ESIGINFO+10, ESIGINFO+12, ESIGINFO+13
DT	INSTLRPT+1, NOCOLLDT+1
DTIME	INSTLRPT+1, NOCOLLDT+1
DUZ	INSTLRPT+1, NOCOLLDT+1
DUZ(2	ESIGINFO+5
EORDDATE	PAT10FIX~, PAT10FIX+8
ESIGDSTR	ESIGINFO+1~, ESIGINFO+18*, ESIGINFO+20, ESIGINFO+21, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38
>> FIRST	INSTLRPI+6*, INSTLRPI+7
>> FIRSTDT	INSTLRPI+7*, INSTLRPI+13
FLAG	FIXCH+16, FIXCH+17, FIXCH+18, GETMISS~, GETMISS+1, GETMISS+2, GETMISS+3
>> FRSTPTCH	INSTLRPI+5*, INSTLRPI+6, INSTLRPI+7
>> GCOLSAMP	FIXMI+37, FIXMI+38, COLSAMP+1, COLSAMP+6
>> GPROV	FIXCH+21, GETMISS+5, FIXMI+28, FIXMI+30
>> GSPEC	FIXCH+22, GETMISS+6, FIXMI+29, FIXMI+31
>> HD1	INSTLRPI+19*, INSTLRPL+1
>> HEADER(1	INSTLRPI+3, NOCOLRPT+1
>> HEADER(2	INSTLRPI+13, NOCOLRPT+2
>> HEADER(3	INSTLRPI+14, NOCOLRPT+3, NOCOLRPT+4, NOCOLRPT+5, NOCOLRPT+6, NOCOLRPT+7, NOCOLRPT+8, NOCOLRPT+9
>> HEADER(4	INSTLRPI+15, INSTLRPI+16, INSTLRPI+17*
IO	INSTLRPT+1, NOCOLLDT+1
>> IOBS	INSTLRPT+1, NOCOLLDT+1
IOF	INSTLRPT+1, NOCOLLDT+1
IOM	INSTLRPT+1, ESIGINFO+28, NOCOLLDT+1, NOCOLLDT+30, NOCOLLDT+31
ION	INSTLRPT+1, NOCOLLDT+1
>> IOS	INSTLRPT+1, NOCOLLDT+1
IOSL	INSTLRPT+1, NOCOLLDT+1
IOST	INSTLRPT+1, NOCOLLDT+1
>> IOT	INSTLRPT+1, NOCOLLDT+1
>> IOXY	INSTLRPT+1, NOCOLLDT+1
>> LABARRT	NOCOLRPT+21*, NOCOLRPT+28
>> LAST	INSTLRPI+10*, INSTLRPI+11
>> LASTDT	INSTLRPI+11*, INSTLRPI+13
>> LASTPTCH	INSTLRPI+9*, INSTLRPI+10, INSTLRPI+11
>> LINES	INSTLRPI+19, INSTLRPL+1, INSTLRPL+7
>> LOGREC0	PAT10FIX+16*, PAT10FIX+22
>> LOGREC1	PAT10FIX+17*, PAT10FIX+18, PAT10FIX+19, PAT10FIX+23
>> LRAA	ESIGINFO+16, NOCOLLDT+7, NOCOLLDT+8, NOCOLLDT+10, NOCOLLDT+12, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLLDT+26, NOCOLRPT+13* , NOCOLRPT+14*, NOCOLRPT+16, NOCOLRPT+18, NOCOLRPT+19, NOCOLRPT+20, NOCOLRPT+24
>> LRAD	NOCOLLDT+9, NOCOLLDT+10, NOCOLLDT+12, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLLDT+26, NOCOLRPT+15, NOCOLRPT+16, NOCOLRPT+18 , NOCOLRPT+19, NOCOLRPT+20, NOCOLRPT+25
>> LRAN	NOCOLLDT+11, NOCOLLDT+12, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLLDT+26, NOCOLRPT+17, NOCOLRPT+18, NOCOLRPT+19, NOCOLRPT+20 , NOCOLRPT+26
>> LRCOL	FIXMI+15*
>> LRDFN	FIXCH+1, FIXCH+2, FIXCH+4, FIXCH+7, FIXCH+10, FIXCH+11, FIXCH+12, FIXCH+13, FIXCH+14, FIXCH+19 , FIXMI+2, FIXMI+4, FIXMI+6, FIXMI+9, FIXMI+12, FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, ESIGINFO+18 , NOCOLRPT+20*, NOCOLRPT+29
>> LRDOC	ESIGINFO+7
>> LRIDT	FIXCH+3, FIXCH+4, FIXCH+7, FIXCH+10, FIXCH+11, FIXCH+12, FIXCH+13, FIXCH+14, FIXCH+19, FIXMI+5* , FIXMI+6, FIXMI+9, FIXMI+12, FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, ESIGINFO+18, NOCOLRPT+22, NOCOLRPT+30
>> LRNODE	FIXCH+10, FIXCH+23, FIXMI+12, FIXMI+23, FIXMI+32, FIXMI+37*
>> LRPROV	FIXCH+13, FIXCH+21, FIXMI+13, FIXMI+30
>> LRSPEC	FIXCH+14, FIXCH+22, FIXMI+14, FIXMI+31
>> LRSS	ESIGINFO+16*, ESIGINFO+18
>> LRTST	GETTESTS+1, GETTESTS+2, GETTESTS+3, GETTESTS+4, GETTESTS+5, COLSAMP+3, COLSAMP+4, COLSAMP+6
>> LRUID	FIXCH+11*, FIXCH+12, FIXCH+17, FIXCH+18
>> MAXLINES	INSTLRPI+19*, INSTLRPL+1
>> NODE	FIXCH+20, GETMISS+8, FIXMI+24, FIXMI+27, FIXMI+28
>> NOPARENT	PAT10FIX+18*, PAT10FIX+20, PAT10FIX+24
>> ORDDATE	PAT10FIX+7, PAT10FIX+8, PAT10FIX+10, PAT10FIX+12, PAT10FIX+14
>> PANEL	PAT10FIX+9, PAT10FIX+10, PAT10FIX+12, PAT10FIX+14
>> PG	INSTLRPI+19*, INSTLRPL+1
>> QFLG	INSTLRPT+5, INSTLRPT+6, INSTLRPI+19*, INSTLRPL+1
REVIEWDV	ESIGINFO+1~, ESIGINFO+24*, ESIGINFO+25
REVSTS	ESIGINFO+2~, ESIGINFO+25*, ESIGINFO+28, ESIGINFO+29, ESIGINFO+33
>> SEQNUM	PAT10FIX+13, PAT10FIX+14, PAT10FIX+16, PAT10FIX+17, PAT10FIX+20, PAT10FIX+21, PAT10FIX+24
>> STATUS	PAT10FIX+22*
>> STR3	NOCOLRPT+20*, NOCOLRPT+21, NOCOLRPT+22
TAB	ESIGINFO+1~, ESIGINFO+28*, ESIGINFO+29
>> TARDATE	FIXCH+1, FIXMI+2, FIXMI+3*
>> TESTPTR	PAT10FIX+11, PAT10FIX+12, PAT10FIX+14
>> TSTNAME	GETTESTS+3*
U	PAT10FIX+4, PAT10FIX+6, PAT10FIX+18, PAT10FIX+22, PAT10FIX+23, FIXCH, FIXCH+7, FIXCH+13, FIXCH+14, GETMISS+5 , GETMISS+6, GETMISS+7, FIXMI+1*, FIXMI+9, FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, FIXMI+28, FIXMI+29 , FIXMI+37, FIXMI+38, GETTESTS+3, GETTESTS+4, COLSAMP+4, COLSAMP+5, COLSAMP+6, INSTLRPT+1, ESIGINFO+13, ESIGINFO+20 , ESIGINFO+21, ESIGINFO+24, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38, NOCOLLDT+1
UID	GETMISS~, GETMISS+1, GETMISS+2, GETMISS+3, NOCOLLDT+15, NOCOLLDT+16, NOCOLLDT+23, NOCOLLDT+24, NOCOLLDT+26, NOCOLRPT+19 , NOCOLRPT+27
>> WOTCOL	NOCOLLDT+29*, NOCOLLDT+30, NOCOLLDT+31
>> XPARSYS	INSTLRPT+1, NOCOLLDT+1
>> XQXFLG	INSTLRPT+1, NOCOLLDT+1

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRUTIL5

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items