Routine: BLRRLTDU

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ($$HTE,$$HTFM)^XLFDT $$CJ^XLFSTR
IHS Changes To Lab	3	(ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,MENUDRVR,PRESSKEY)^BLRGMENU PEP^BLRRLTDR ($$GETACCCP,SENDMAIL)^BLRUTIL3
VA Fileman	2	$$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK
Lab Service	1	^LRPARAM

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRMANP2 BLRRLTDR

Entry Points

Name	Comments	DBIA/ICR reference
TXNSURPT	; EP - Report on Reference Lab Unsuccessful updates
DEBUGRPT	; EP - Debug the XTMPRPT report
XTMPIRPT	; EP - There are 100 Entries in ^XTMP Issues node - Send Report to LMI Mail Group and CLEAR ^XTMP Issues
STORTXNS(F60IEN,LRAS,TYPE)	; EP - Set data when Reference Lab update successful
TXNURPTL	; EP - Line of Data
XTMPNSET(F60IEN,MSG)	; EP - Set data in ^XTMP when "Not Performed" update successful
TXNURPTI()	; EP - Initialization
XTMPNRPT	; EP - Report on Successfully Updated Entries
EEP	; Ersatz EP
REPORTS	; EP - Reports Menu
TXNSRPTI()	; EP - Initialization
TXNSRPTB()	; EP - "Break out" variables for report
XTMPNRPL	; EP - Line of Data
XTMPNRPI()	; EP - Initialization
TXNSRPTL	; EP - Line of Data
DEBUG	; EP - Debug BLRRLTDR
TXNURPTB	; EP - Break out data
TXNSREPT	; EP - Report on Reference Lab successful updates
XTMPISET(MSG,RTN)	; EP - Set data in ^XTMP when there are issues

External References

Name	Field # of Occurrence
^%ZIS	TXNSRPTI+18, XTMPNRPI+29, TXNURPTI+16
^%ZISC	TXNSREPT+15, XTMPNRPT+16, TXNSURPT+13
ADDTMENU^BLRGMENU	REPORTS+5, REPORTS+6, REPORTS+7
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	TXNSRPTI+7, XTMPNRPI+7, TXNURPTI+7
HEADERPG^BLRGMENU	TXNSRPTL+3, XTMPNRPL+1, TXNURPTL+1
HEADONE^BLRGMENU	TXNSRPTI+8, XTMPNRPI+8, TXNURPTI+8
LINEWRAP^BLRGMENU	TXNURPTL+10
MENUDRVR^BLRGMENU	REPORTS+10
PRESSKEY^BLRGMENU	TXNSREPT+17, TXNSRPTI+21, XTMPNRPT+20, XTMPNRPI+12, XTMPNRPI+33, TXNSURPT+15, TXNURPTI+19, DEBUGRPT+5, DEBUG+12
PEP^BLRRLTDR	DEBUG+15
$$GETACCCP^BLRUTIL3	STORTXNS+10
SENDMAIL^BLRUTIL3	XTMPIRPT+32
$$GET1^DIQ	TXNSRPTB+3, TXNSRPTB+4, XTMPNRPT+8, XTMPNRPI+3, XTMPNRPL+7, XTMPIRPT+6, XTMPIRPT+21
^DIR	DEBUG+9
^LRPARAM	DEBUG+4
^XBFMK	DEBUG+6
$$HTE^XLFDT	TXNSRPTB+1, XTMPNRPL+4, XTMPIRPT+27, TXNURPTB+1
$$HTFM^XLFDT	STORTXNS+5, STORTXNS+6, XTMPNSET+5, XTMPNSET+6, XTMPISET+5, XTMPISET+6, DEBUGRPT+9
$$CJ^XLFSTR	TXNSRPTI+11, XTMPNRPI+21, XTMPIRPT+6, XTMPIRPT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"Device Issue. POP postive. Routine Ends." Line Location: TXNSRPTI+20
Function Call: WRITE	Prompt: EXTDATE Line Location: TXNSRPTL+5
Function Call: WRITE	Prompt: ?25,TYPEDESC Line Location: TXNSRPTL+6
Function Call: WRITE	Prompt: ?32,LRAS Line Location: TXNSRPTL+7
Function Call: WRITE	Prompt: ?52,F60IEN Line Location: TXNSRPTL+8
Function Call: WRITE	Prompt: ?62,F60DESC Line Location: TXNSRPTL+9
Function Call: WRITE	Prompt: ! Line Location: TXNSRPTL+10
Function Call: WRITE	Prompt: !,?4,"No entries in ^XTMP(""BLRRLTDS"",""UID""). Routine Ends." Line Location: XTMPNRPI+11
Function Call: WRITE	Prompt: !,?4,"Issue opening device. Routine Ends." Line Location: XTMPNRPI+32
Function Call: WRITE	Prompt: 1/0 Line Location: XTMPNRPI+34
Function Call: WRITE	Prompt: UID Line Location: XTMPNRPL+3
Function Call: WRITE	Prompt: ?14,$$HTE^XLFDT(HDATE,"2MZ") Line Location: XTMPNRPL+4
Function Call: WRITE	Prompt: ?30,MSGDUZ Line Location: XTMPNRPL+5
Function Call: WRITE	Prompt: ?37,F60IEN Line Location: XTMPNRPL+6
Function Call: WRITE	Prompt: ?47,$E($$GET1^DIQ(60,F60IEN,"NAME"),1,18) Line Location: XTMPNRPL+7
Function Call: WRITE	Prompt: ?67,$G(^XTMP("BLRRLTDS","UID",UID,"DUZ",MSGDUZ,HDATE,F60IEN)) Line Location: XTMPNRPL+8
Function Call: WRITE	Prompt: ! Line Location: XTMPNRPL+9
Function Call: WRITE	Prompt: !!,?4,"Device Issue. POP postive. Routine Ends." Line Location: TXNURPTI+18
Function Call: WRITE	Prompt: UID Line Location: TXNURPTL+5
Function Call: WRITE	Prompt: ?14,DUZVAR Line Location: TXNURPTL+6
Function Call: WRITE	Prompt: ?24,DATETIME Line Location: TXNURPTL+7
Function Call: WRITE	Prompt: ?42,RTN Line Location: TXNURPTL+8
Function Call: WRITE	Prompt: ?52,MESSAGE,! Line Location: TXNURPTL+9
Function Call: WRITE	Prompt: !!,?4,"Will not K ^XTMP(""BLRRLTDI"") nor reset it because MU testing has begun on this UCI." Line Location: DEBUGRPT+4
Function Call: WRITE	Prompt: !!,?4,"No/Invalid Entry. Routine Ends." Line Location: DEBUG+11
Routine Call	DIR Line Location: DEBUG+9
Routine Call	%ZIS Line Location: TXNSRPTI+18 XTMPNRPI+29 TXNURPTI+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^LAB(60 - [#60]	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LRO(68 - [#68]	STORTXNS+12, STORTXNS+16, STORTXNS+17, XTMPNSET+9, XTMPISET+9
^XTMP("BLRRLTDI"	XTMPISET+3, XTMPISET+7, XTMPISET+10, XTMPISET+11, XTMPISET+14, XTMPIRPT+18, XTMPIRPT+20, XTMPIRPT+23, XTMPIRPT+24, XTMPIRPT+34! , TXNSURPT+5, TXNSURPT+7, TXNSURPT+9, TXNURPTB+2, DEBUGRPT+7!, DEBUGRPT+9, DEBUGRPT+23, DEBUGRPT+24, DEBUGRPT+28
^XTMP("BLRRLTDS"	XTMPNSET+3, XTMPNSET+7, XTMPNSET+10, XTMPNSET+11*, XTMPNRPT+5, XTMPNRPT+7, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPI+10, XTMPNRPL+8
^XTMP("BLRRLTMR"	STORTXNS+3, STORTXNS+7, STORTXNS+19, TXNSREPT+5, TXNSREPT+7, TXNSREPT+9, TXNSREPT+11
^XTMP("BLRTRACE"	DEBUG+3!

Label References

Name	Line Occurrences
$$TXNSRPTB	TXNSRPTL+1
$$TXNSRPTI	TXNSREPT+3
$$TXNURPTI	TXNSURPT+3
$$XTMPNRPI	XTMPNRPT+3
TXNSRPTL	TXNSREPT+11
TXNURPTB	TXNURPTL+3
TXNURPTL	TXNSURPT+9
XTMPIRPT	XTMPISET+14, DEBUGRPT+31
XTMPNRPL	XTMPNRPT+12

Naked Globals

Name	Field # of Occurrence
^(	STORTXNS+12
^(3	STORTXNS+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRVERN	TXNSRPTI+1, XTMPNRPI+1, TXNURPTI+1, REPORTS+3
>> BLRVERN2	TXNSRPTI+2, TXNURPTI+2
>> CNT	TXNSREPT+13, TXNSRPTI+26, TXNSRPTL+12, XTMPNRPT+14, XTMPNRPI+39, XTMPNRPL+11, TXNSURPT+11, TXNURPTI+24, TXNURPTL+11, DEBUGRPT+21* , DEBUGRPT+22, DEBUGRPT+27, DEBUGRPT+29*
>> DATETIME	TXNURPTL+7, TXNURPTB+1*
>> DILOCKTM	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> DIR("A"	DEBUG+8*
>> DIR(0	DEBUG+7*
>> DIRUT	DEBUG+10
>> DISYS	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
DT	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUGRPT+9, DEBUG+1, REPORTS+1
DTIME	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
DUZ	STORTXNS+1, TXNSREPT+1, XTMPNSET+10, XTMPNRPT+1, XTMPISET+10, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
DUZ(2	XTMPNRPI+3, XTMPIRPT+6
>> DUZVAR	TXNSURPT+6, TXNSURPT+7, TXNSURPT+9, TXNURPTL+6, TXNURPTB+2
>> ERR	DEBUGRPT+21, DEBUGRPT+28
>> ERRMAX	DEBUGRPT+12, DEBUGRPT+13, DEBUGRPT+14, DEBUGRPT+15, DEBUGRPT+16, DEBUGRPT+17, DEBUGRPT+18*, DEBUGRPT+28
>> ERRMSG(	DEBUGRPT+12, DEBUGRPT+13, DEBUGRPT+14, DEBUGRPT+15, DEBUGRPT+16, DEBUGRPT+17, DEBUGRPT+18*, DEBUGRPT+28
>> EXTDATE	TXNSRPTL+5, TXNSRPTB+1*
>> F60DESC	TXNSRPTL+9, TXNSRPTB+3, TXNSRPTB+4
F60IEN	STORTXNS~, STORTXNS+1, STORTXNS+19, TXNSREPT+10, TXNSREPT+11, TXNSRPTL+8, TXNSRPTB+3, TXNSRPTB+4, XTMPNSET~, XTMPNSET+10 , XTMPNRPT+11, XTMPNRPT+12, XTMPNRPL+6, XTMPNRPL+7, XTMPNRPL+8
>> FAKEDUZ	DEBUGRPT+26*, DEBUGRPT+28
>> FAKERTN	DEBUGRPT+27*, DEBUGRPT+28
>> HDATE	XTMPNRPT+9, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPL+4, XTMPNRPL+8, XTMPIRPT+22, XTMPIRPT+23, XTMPIRPT+24, XTMPIRPT+27, TXNSURPT+8* , TXNSURPT+9*, TXNURPTB+1, TXNURPTB+2
>> HEADER(1	TXNSRPTI+4, XTMPNRPI+3, TXNURPTI+4*
>> HEADER(2	TXNSRPTI+5, XTMPNRPI+4, TXNURPTI+5*
>> HEADER(3	TXNSRPTI+10, XTMPNRPI+5
>> HEADER(4	TXNSRPTI+11, XTMPNRPI+21, TXNURPTI+10, TXNURPTI+11, TXNURPTI+12, TXNURPTI+13, TXNURPTI+14*
>> HEADER(5	TXNSRPTI+12, TXNSRPTI+13, TXNSRPTI+14, TXNSRPTI+15, TXNSRPTI+16, XTMPNRPI+22, XTMPNRPI+23, XTMPNRPI+24, XTMPNRPI+25, XTMPNRPI+26 , XTMPNRPI+27*
>> HEADONE	TXNSRPTI+8, TXNSRPTL+3, XTMPNRPI+8, XTMPNRPL+1, TXNURPTI+8
IO	STORTXNS+1, TXNSREPT+1, TXNSRPTI+23, XTMPNRPT+1, XTMPNRPI+36, XTMPIRPT+1, TXNSURPT+1, TXNURPTI+21, DEBUGRPT+1, DEBUG+1 , REPORTS+1
>> IOBS	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
IOF	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
IOM	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, XTMPIRPT+14, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
ION	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> IOS	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
IOSL	STORTXNS+1, TXNSREPT+1, TXNSRPTI+25, XTMPNRPT+1, XTMPNRPI+38, XTMPIRPT+1, TXNSURPT+1, TXNURPTI+23, DEBUGRPT+1, DEBUG+1 , REPORTS+1
IOST	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> IOT	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> IOXY	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> LA76249	DEBUG+14*
>> LINES	TXNSRPTI+25, TXNSRPTL+3, TXNSRPTL+11, XTMPNRPI+38, XTMPNRPL+1, XTMPNRPL+10, TXNURPTI+23, TXNURPTL+1, TXNURPTL+9
>> LRAA	STORTXNS+10, STORTXNS+12, STORTXNS+15, STORTXNS+16, STORTXNS+17, XTMPNSET+9, XTMPISET+9
>> LRAD	STORTXNS+10, STORTXNS+12, STORTXNS+15, STORTXNS+16, XTMPNSET+9, XTMPISET+9
>> LRAN	STORTXNS+10, STORTXNS+12, STORTXNS+15, STORTXNS+16, XTMPNSET+9, XTMPISET+9
LRAS	STORTXNS~, STORTXNS+1, STORTXNS+10, STORTXNS+19, TXNSREPT+8, TXNSREPT+9, TXNSREPT+11, TXNSRPTL+7
>> LRDFN	STORTXNS+14, STORTXNS+16, STORTXNS+19
>> LREND	STORTXNS+20, XTMPNSET+12, XTMPISET+12*
>> LRIDT	STORTXNS+14, STORTXNS+16, STORTXNS+19
>> LRPARAM	DEBUG+4
>> LRSS	STORTXNS+14, STORTXNS+17, STORTXNS+19
>> MAXLINES	TXNSRPTI+25, TXNSRPTL+3, XTMPNRPI+38, XTMPNRPL+1, TXNURPTI+23*, TXNURPTL+1
>> MESSAGE	XTMPIRPT+32, TXNURPTL+9, TXNURPTL+10, TXNURPTB+4*
>> MESSAGE(	XTMPIRPT+26, XTMPIRPT+27, XTMPIRPT+28, XTMPIRPT+29, XTMPIRPT+30*
>> MESSAGE(1	XTMPIRPT+6*, XTMPIRPT+32
>> MESSAGE(2	XTMPIRPT+7*
>> MESSAGE(3	XTMPIRPT+8*
>> MESSAGE(4	XTMPIRPT+9, XTMPIRPT+10, XTMPIRPT+11, XTMPIRPT+12, XTMPIRPT+13*
>> MESSAGE(5	XTMPIRPT+14*
MSG	XTMPNSET~, XTMPNSET+10, XTMPISET~, XTMPISET+10
>> MSGDUZ	XTMPNRPT+6, XTMPNRPT+7, XTMPNRPT+8, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPL+5, XTMPNRPL+8, XTMPIRPT+19, XTMPIRPT+20, XTMPIRPT+21 , XTMPIRPT+23, XTMPIRPT+24, XTMPIRPT+28
>> MSGL	XTMPIRPT+17, XTMPIRPT+25, XTMPIRPT+26, XTMPIRPT+27, XTMPIRPT+28, XTMPIRPT+29, XTMPIRPT+30
>> NAMEDUZ	XTMPNRPT+8, XTMPIRPT+21
>> ORDER	STORTXNS+12*, STORTXNS+19
>> PG	TXNSRPTI+26, TXNSRPTL+3, XTMPNRPI+39, XTMPNRPL+1, TXNURPTI+24*, TXNURPTL+1
>> POP	TXNSRPTI+19, XTMPNRPI+31, TXNURPTI+17
>> QFLG	TXNSREPT+5, TXNSREPT+7, TXNSREPT+9, TXNSREPT+11, TXNSREPT+13, TXNSREPT+17, TXNSRPTI+26, TXNSRPTL+3, XTMPNRPT+5, XTMPNRPT+7 , XTMPNRPT+10, XTMPNRPT+12, XTMPNRPT+14, XTMPNRPT+18, XTMPNRPI+40, XTMPNRPL+1, TXNSURPT+5, TXNSURPT+7, TXNSURPT+9, TXNSURPT+11 , TXNSURPT+15, TXNURPTI+24*, TXNURPTL+1
RTN	XTMPISET~, XTMPISET+10, TXNURPTL+8, TXNURPTB+3*
STR	STORTXNS+3, STORTXNS+4, STORTXNS+5, STORTXNS+6, STORTXNS+7, XTMPNSET+1~, XTMPNSET+3, XTMPNSET+4, XTMPNSET+5, XTMPNSET+6 , XTMPNSET+7, XTMPISET+1~, XTMPISET+3, XTMPISET+4, XTMPISET+5, XTMPISET+6, XTMPISET+7, XTMPIRPT+24, XTMPIRPT+29, XTMPIRPT+30 , TXNURPTB+2*, TXNURPTB+3, TXNURPTB+4
>> THEN	TXNSREPT+5, TXNSREPT+7, TXNSREPT+9, TXNSREPT+11, TXNSRPTI+27, TXNSRPTB+1, TXNURPTI+24*
TYPE	STORTXNS~, STORTXNS+1, STORTXNS+19, TXNSREPT+6, TXNSREPT+7, TXNSREPT+9, TXNSREPT+11, TXNSRPTB+2
>> TYPEDESC	TXNSRPTL+6, TXNSRPTB+2*
U	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
UID	STORTXNS+12, STORTXNS+19, XTMPNSET+1~, XTMPNSET+9, XTMPNSET+10, XTMPNRPT+5, XTMPNRPT+7, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPI+39 , XTMPNRPL+3, XTMPNRPL+8, XTMPISET+1~, XTMPISET+9, XTMPISET+10, XTMPIRPT+17, XTMPIRPT+18, XTMPIRPT+20, XTMPIRPT+23, XTMPIRPT+24 , XTMPIRPT+26, TXNSURPT+5, TXNSURPT+7, TXNSURPT+9, TXNURPTI+24, TXNURPTL+5, TXNURPTB+2, DEBUGRPT+23, DEBUGRPT+28
>> X	STORTXNS+10*, DEBUG+14
>> XPARSYS	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> XQXFLG	STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLTDU

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items