Routine: BLRUTIL2

Package	Total	Call Graph
Kernel	6	^%ZIS ^%ZISC ($$HTE,$$NOW)^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR $$NAME^XUAF4 $$KSP^XUPARAM
IHS Changes To Lab	1	(BLRGSHSH,HEADERDT,HEADERPG,HEADONE,LINEWRAP,PRESSKEY)^BLRGMENU
IHS VA Utilities	1	$$LOC^XBFUNC
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Lab Service	6	LRMIPSU LRRP1 LRRP2 LRSORA2 LRSORC1A LRSORD1A

Entry Points

Name	Comments	DBIA/ICR reference
ERRTRAPR	; EP -- Quick & Dirty Error Trap Report
ACTIVE(XUDA)	; EP - Get if a user is active.
REPORT2(USER)	; EP
CHKTHL7	; EP
REPORT3(VARIABLE)	; EP
REPORT4(LABEL)	; EP -- Only print certain "LABELS"
LABHDR	; EP -- Display Header for Lab Report(s)
BLRHEADR(LINE1,LINE2,LINE3)	; EP -- Generic HEADER array
SUBLINE(WOT,STR)	; EP - Line of Data
NOBLRENT	; EP -- Header if the BLR MASTER FILE address fields ARE blank
NOW24TIM()
SUBNODES	; EP
STREETAD	; EP -- Get Street Address
HDRBLREN	; EP -- Header if BLR MASTER FILE address fields ARE NOT blank
PURGBLRE	; EP
NOWTIME()

External References

Name	Field # of Occurrence
^%ZIS	REPORT2+5, REPORT3+24, REPORT4+26
^%ZISC	REPORT2+19, REPORT3+41, REPORT4+47
BLRGSHSH^BLRGMENU	CHKTHL7+23, ERRTRAPR+19
HEADERDT^BLRGMENU	REPORT3+10, REPORT4+11
HEADERPG^BLRGMENU	REPORT3+30, REPORT4+35
HEADONE^BLRGMENU	REPORT3+11, REPORT4+12
LINEWRAP^BLRGMENU	SUBLINE+6
PRESSKEY^BLRGMENU	REPORT4+49
$$GET1^DIQ	LABHDR+1, HDRBLREN+10, HDRBLREN+26, STREETAD+1, STREETAD+5, STREETAD+6, STREETAD+7, STREETAD+8, STREETAD+13, STREETAD+14 , STREETAD+15, STREETAD+16, STREETAD+17
$$LOC^XBFUNC	BLRHEADR+3
$$HTE^XLFDT	BLRHEADR+6, NOWTIME+2, NOW24TIM+1, CHKTHL7+19, ERRTRAPR+25
$$NOW^XLFDT	PURGBLRE+3
$$CJ^XLFSTR	BLRHEADR+3, BLRHEADR+5, BLRHEADR+13, BLRHEADR+17, HDRBLREN+22, HDRBLREN+27, NOBLRENT+13, NOBLRENT+22, NOBLRENT+26, NOBLRENT+27 , NOBLRENT+30, REPORT4+15
$$TRIM^XLFSTR	BLRHEADR+8
$$UP^XLFSTR	NOWTIME+4, CHKTHL7+15, CHKTHL7+19
$$NAME^XUAF4	NOBLRENT+10
$$KSP^XUPARAM	NOBLRENT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CJ^XLFSTR($$LOC^XBFUNC,IOM) Line Location: BLRHEADR+2
Function Call: WRITE	Prompt: $$CJ^XLFSTR($$LOC^XBFUNC,IOM),! Line Location: BLRHEADR+3
Function Call: WRITE	Prompt: TMPLN,! Line Location: BLRHEADR+9
Function Call: WRITE	Prompt: $$CJ^XLFSTR(LINE2,IOM),! Line Location: BLRHEADR+13
Function Call: WRITE	Prompt: $$CJ^XLFSTR(LINE3,IOM),! Line Location: BLRHEADR+17
Function Call: WRITE	Prompt: TSK Line Location: CHKTHL7+24
Function Call: WRITE	Prompt: ?10,SDATE,$J(STIME,9) Line Location: CHKTHL7+25
Function Call: WRITE	Prompt: ?30,$P(ZERO,"^",2) Line Location: CHKTHL7+26
Function Call: WRITE	Prompt: ?40,$E($G(^%ZTSK(TSK,.03)),1,40) Line Location: CHKTHL7+27
Function Call: WRITE	Prompt: ! Line Location: CHKTHL7+28
Function Call: WRITE	Prompt: ETD Line Location: ERRTRAPR+24
Function Call: WRITE	Prompt: ?10,$$HTE^XLFDT(ETD,"2DZ") Line Location: ERRTRAPR+25
Function Call: WRITE	Prompt: ?25,$J(ETN,3) Line Location: ERRTRAPR+29
Function Call: WRITE	Prompt: ?30,$P($G(^%ZTER(1,ETD,1,ETN,"ZE")),"^",2) Line Location: ERRTRAPR+30
Function Call: WRITE	Prompt: ?50,$P($G(^%ZTER(1,ETD,1,ETN,"ZE")),">",1),">" Line Location: ERRTRAPR+31
Function Call: WRITE	Prompt: ! Line Location: ERRTRAPR+32
Function Call: WRITE	Prompt: ! Line Location: ERRTRAPR+33
Function Call: WRITE	Prompt: ! Line Location: ERRTRAPR+34
Function Call: WRITE	Prompt: "Printed at:" Line Location: HDRBLREN+12
Function Call: WRITE	Prompt: ?70,"Page "_LRPG Line Location: HDRBLREN+13
Function Call: WRITE	Prompt: ! Line Location: HDRBLREN+14
Function Call: WRITE	Prompt: STR,! Line Location: HDRBLREN+23
Function Call: WRITE	Prompt: !,STR,! Line Location: HDRBLREN+24
Function Call: WRITE	Prompt: ! Line Location: HDRBLREN+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("<UNKNOWN INSTITUTION>",IOM),! Line Location: NOBLRENT+13
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(STRN,IOM),! Line Location: NOBLRENT+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(STRN,IOM) Line Location: NOBLRENT+26
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(STRA1,IOM),! Line Location: NOBLRENT+27
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(STRN_" "_STRA1,IOM),! Line Location: NOBLRENT+30
Function Call: WRITE	Prompt: @IOF Line Location: REPORT2+6
Function Call: WRITE	Prompt: !,ENTRYNUM,?15,LABEL,?67,NOW Line Location: REPORT2+11
Function Call: WRITE	Prompt: !,?20,"BLRIDS:",BLRIDS,"; BLRACCN=",BLRACCN Line Location: REPORT2+17
Function Call: WRITE	Prompt: USER Line Location: REPORT3+33
Function Call: WRITE	Prompt: ?9,NOW Line Location: REPORT3+34
Function Call: WRITE	Prompt: ?24,$J(ENTRYNUM,3) Line Location: REPORT3+35
Function Call: WRITE	Prompt: ?29,$E(LABEL,1,28) Line Location: REPORT3+36
Function Call: WRITE	Prompt: ?59,$E(VALUE,1,19) Line Location: REPORT3+37
Function Call: WRITE	Prompt: ! Line Location: REPORT3+38
Function Call: WRITE	Prompt: USER Line Location: REPORT4+38
Function Call: WRITE	Prompt: ?9,NOW Line Location: REPORT4+39
Function Call: WRITE	Prompt: ?24,$J(ENTRYNUM,3) Line Location: REPORT4+40
Function Call: WRITE	Prompt: ?29,VARIABLE Line Location: REPORT4+41
Function Call: WRITE	Prompt: ?39,$E(VALUE,1,40) Line Location: REPORT4+42
Function Call: WRITE	Prompt: ! Line Location: REPORT4+43
Function Call: WRITE	Prompt: ?39,WOT,! Line Location: SUBLINE+1
Function Call: WRITE	Prompt: ?49,STR,! Line Location: SUBLINE+4
Function Call: WRITE	Prompt: !!,"Purging BLRENTRY global",!,?5 Line Location: PURGBLRE+5
Function Call: WRITE	Prompt: "." Line Location: PURGBLRE+11
Function Call: WRITE	Prompt: "*" Line Location: PURGBLRE+14
Routine Call	%ZIS Line Location: REPORT2+5 REPORT3+24 REPORT4+26

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTER(1 - [#3.075]	ERRTRAPR+23, ERRTRAPR+27, ERRTRAPR+30, ERRTRAPR+31
^%ZTSK - [#14.4]	CHKTHL7+13, CHKTHL7+15, CHKTHL7+18, CHKTHL7+27
^BLRENTRY	REPORT2+8, REPORT2+9, REPORT2+10, REPORT2+13, REPORT2+14, REPORT3+26, REPORT3+27, REPORT3+28, REPORT3+29, REPORT3+32 , REPORT4+29, REPORT4+30, REPORT4+31, REPORT4+32, REPORT4+34, REPORT4+37, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8 , SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17, PURGBLRE+8, PURGBLRE+10, PURGBLRE+13!
^VA(200 - [#200]	ACTIVE+2, ACTIVE+3, ACTIVE+5, ACTIVE+13

Label References

Name	Line Occurrences
$$NOWTIME	BLRHEADR+7
HDRBLREN	LABHDR+1
NOBLRENT	LABHDR+3
STREETAD	NOBLRENT+18
SUBLINE	SUBNODES+5, SUBNODES+8, SUBNODES+11, SUBNODES+14, SUBNODES+17
SUBNODES	REPORT4+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ACTIVE+1~, ACTIVE+6*
BLRACCN	REPORT2+1~, REPORT2+12, REPORT2+16, REPORT2+17, REPORT3+1~, REPORT4+1~
BLRIDS	REPORT2+1~, REPORT2+12, REPORT2+15, REPORT2+17, REPORT3+1~, REPORT4+1~
CITY	NOBLRENT+2~, STREETAD+6, STREETAD+15, STREETAD+21
CNT	CHKTHL7+1~, CHKTHL7+3, CHKTHL7+23, CHKTHL7+29, CHKTHL7+31, CHKTHL7+32, ERRTRAPR+5~, ERRTRAPR+26, ERRTRAPR+28, ERRTRAPR+33 , REPORT2+1~, REPORT2+4*
CNTTSK	CHKTHL7+1~, CHKTHL7+3, CHKTHL7+14, CHKTHL7+32
DT	ACTIVE+6, ACTIVE+20
DTT	PURGBLRE+1~, PURGBLRE+9, PURGBLRE+10, PURGBLRE+11, PURGBLRE+12, PURGBLRE+13
DUZ(2	LABHDR+1, HDRBLREN+5, NOBLRENT+4
ENTRYNUM	REPORT2+2~, REPORT2+7, REPORT2+9, REPORT2+10, REPORT2+11, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25, REPORT3+28 , REPORT3+29, REPORT3+32, REPORT3+35, REPORT4+3~, REPORT4+28, REPORT4+31, REPORT4+32, REPORT4+34, REPORT4+37, REPORT4+40 , SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
ETD	ERRTRAPR+1~, ERRTRAPR+22, ERRTRAPR+23, ERRTRAPR+24, ERRTRAPR+25, ERRTRAPR+27, ERRTRAPR+30, ERRTRAPR+31
ETN	ERRTRAPR+2~, ERRTRAPR+26, ERRTRAPR+27, ERRTRAPR+29, ERRTRAPR+30, ERRTRAPR+31
HDRONE	REPORT3+3~, REPORT3+11, REPORT3+30, REPORT4+4~, REPORT4+12, REPORT4+35
HEADER	CHKTHL7+1~, ERRTRAPR+6~, REPORT3+5~, REPORT4+6~
HEADER(1	CHKTHL7+4, ERRTRAPR+8, REPORT3+7, REPORT4+8
HEADER(2	CHKTHL7+5, ERRTRAPR+9, REPORT3+8, REPORT4+9
HEADER(3	CHKTHL7+6, ERRTRAPR+10, REPORT3+13, REPORT4+15
HEADER(4	CHKTHL7+7, CHKTHL7+8, CHKTHL7+9, CHKTHL7+10, CHKTHL7+11, ERRTRAPR+11, ERRTRAPR+12, REPORT3+14, REPORT4+16*
HEADER(5	ERRTRAPR+13, ERRTRAPR+14, ERRTRAPR+15, ERRTRAPR+16, ERRTRAPR+17, REPORT3+15, REPORT3+16, REPORT3+17, REPORT3+18, REPORT3+19 , REPORT4+17, REPORT4+18, REPORT4+19, REPORT4+20, REPORT4+21*
INACTDT	ACTIVE+12~, ACTIVE+15*, ACTIVE+20
INSTHDR	NOBLRENT+1~
INSTNUM	HDRBLREN+1~, HDRBLREN+5, HDRBLREN+10, HDRBLREN+26, NOBLRENT+1~, NOBLRENT+4, NOBLRENT+8*, NOBLRENT+10, NOBLRENT+15, STREETAD+1 , STREETAD+5, STREETAD+6, STREETAD+7, STREETAD+8, STREETAD+13, STREETAD+14, STREETAD+15, STREETAD+16, STREETAD+17
INTRPTH2	HDRBLREN+2~, HDRBLREN+26*, HDRBLREN+27
IOF	REPORT2+6
IOM	BLRHEADR+3, BLRHEADR+5, BLRHEADR+7, BLRHEADR+13, BLRHEADR+17, HDRBLREN+22, HDRBLREN+27, NOBLRENT+13, NOBLRENT+22, NOBLRENT+25 , NOBLRENT+26, NOBLRENT+27, NOBLRENT+29, NOBLRENT+30, REPORT4+15
LABEL	REPORT2+2~, REPORT2+7, REPORT2+10, REPORT2+11, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25, REPORT3+29, REPORT3+32 , REPORT3+36, REPORT4~, REPORT4+15, REPORT4+33
LINE1	BLRHEADR~, BLRHEADR+5
LINE2	BLRHEADR~, BLRHEADR+11, BLRHEADR+13
LINE3	BLRHEADR~, BLRHEADR+15, BLRHEADR+17
LINES	REPORT3+3~, REPORT3+21, REPORT3+30, REPORT3+39, REPORT4+4~, REPORT4+23, REPORT4+35, REPORT4+44, SUBLINE+1, SUBLINE+4
MAXERRPD	ERRTRAPR+3~, ERRTRAPR+21*, ERRTRAPR+27
MAXLINES	REPORT3+3~, REPORT3+21, REPORT3+30, REPORT4+4~, REPORT4+23, REPORT4+35
NERRSPD	ERRTRAPR+4~
NOW	REPORT2+2~, REPORT2+7, REPORT2+8, REPORT2+9, REPORT2+10, REPORT2+11, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25* , REPORT3+27, REPORT3+28, REPORT3+29, REPORT3+32, REPORT3+34, REPORT4+3~, REPORT4+28, REPORT4+30*, REPORT4+31, REPORT4+32 , REPORT4+34, REPORT4+37, REPORT4+39, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13 , SUBNODES+14, SUBNODES+16, SUBNODES+17
ONE	CHKTHL7+1~, CHKTHL7+15*, CHKTHL7+16
PG	REPORT3+3~, REPORT3+22, REPORT3+30, REPORT4+4~, REPORT4+24, REPORT4+35
>> POP	REPORT2+5, REPORT3+24, REPORT4+26
PROVINFO	ACTIVE+12~, ACTIVE+13*, ACTIVE+14, ACTIVE+15
QFLG	REPORT3+3~, REPORT3+22, REPORT3+26, REPORT3+27, REPORT3+28, REPORT3+29, REPORT3+30, REPORT4+4~, REPORT4+24, REPORT4+29 , REPORT4+30, REPORT4+31, REPORT4+32, REPORT4+34, REPORT4+35, REPORT4+49
SDATE	CHKTHL7+1~, CHKTHL7+19, CHKTHL7+20, CHKTHL7+21, CHKTHL7+25
SRCLABEL	REPORT4+3~, REPORT4+28, REPORT4+32, REPORT4+33, REPORT4+34, REPORT4+37, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8 , SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
STATE	NOBLRENT+2~, STREETAD+7, STREETAD+16, STREETAD+21
STIME	CHKTHL7+1~, CHKTHL7+20*, CHKTHL7+25
STR	CHKTHL7+1~, HDRBLREN+3~, HDRBLREN+10, HDRBLREN+22, HDRBLREN+24, NOBLRENT+1~, SUBNODES+1~, SUBLINE~, SUBLINE+2, SUBLINE+4 , SUBLINE+6
STRA1	NOBLRENT+1~, NOBLRENT+21, NOBLRENT+25, NOBLRENT+27, NOBLRENT+29, NOBLRENT+30, STREETAD+1, STREETAD+4, STREETAD+12, STREETAD+13 , STREETAD+19, STREETAD+21
STRA2	NOBLRENT+1~, STREETAD+5, STREETAD+14, STREETAD+19
STRN	NOBLRENT+1~, NOBLRENT+10, NOBLRENT+12, NOBLRENT+15, NOBLRENT+22, NOBLRENT+25, NOBLRENT+26, NOBLRENT+29, NOBLRENT+30
STRO	NOBLRENT+1~
STRT	NOBLRENT+1~
>> SUB1	SUBNODES+3, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16 , SUBNODES+17
SUB2	SUBNODES+1~, SUBNODES+6, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
SUB3	SUBNODES+1~, SUBNODES+9, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
SUB4	SUBNODES+1~, SUBNODES+12, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
SUB5	SUBNODES+1~, SUBNODES+15, SUBNODES+16, SUBNODES+17
TMPLN	BLRHEADR+1~, BLRHEADR+5, BLRHEADR+6, BLRHEADR+7, BLRHEADR+8, BLRHEADR+9
TODAY	PURGBLRE+1~, PURGBLRE+3*, PURGBLRE+11, PURGBLRE+12
TSK	CHKTHL7+1~, CHKTHL7+3, CHKTHL7+13, CHKTHL7+15, CHKTHL7+18, CHKTHL7+24, CHKTHL7+27
U	ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6
USER	REPORT2~, REPORT2+8, REPORT2+9, REPORT2+10, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25, REPORT3+26, REPORT3+27 , REPORT3+28, REPORT3+29, REPORT3+32, REPORT3+33, REPORT4+3~, REPORT4+28, REPORT4+29, REPORT4+30, REPORT4+31, REPORT4+32 , REPORT4+34, REPORT4+37, REPORT4+38, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13 , SUBNODES+14, SUBNODES+16, SUBNODES+17
>> VALUE	REPORT2+14, REPORT2+15, REPORT2+16, REPORT3+32, REPORT3+37, REPORT4+37*, REPORT4+42
VARIABLE	REPORT2+2~, REPORT2+7, REPORT2+13, REPORT2+14, REPORT2+15, REPORT2+16, REPORT3~, REPORT3+14, REPORT3+32, REPORT4+34* , REPORT4+37, REPORT4+41, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14 , SUBNODES+16, SUBNODES+17
WHO	PURGBLRE+1~, PURGBLRE+7, PURGBLRE+8, PURGBLRE+10, PURGBLRE+13
WOT	SUBLINE~, SUBLINE+1
WRIORDRS	ACTIVE+12~, ACTIVE+14*, ACTIVE+17
X	NOWTIME+1~, NOWTIME+2, NOWTIME+3, NOWTIME+4*, NOWTIME+5
X1	ACTIVE+1~, ACTIVE+2*, ACTIVE+3, ACTIVE+4, ACTIVE+6
X2	ACTIVE+1~, ACTIVE+2, ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6*, ACTIVE+9, ACTIVE+17
XUDA	ACTIVE~, ACTIVE+2, ACTIVE+3, ACTIVE+5, ACTIVE+13
ZERO	CHKTHL7+1~, CHKTHL7+18*, CHKTHL7+19, CHKTHL7+26
ZIP	NOBLRENT+2~, STREETAD+8, STREETAD+17, STREETAD+21

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRUTIL2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: