Routine: BLRPST

Package	Total	Call Graph
Kernel	5	^%ZIS ENDR^%ZISS ($$DT,$$FMADD,$$FMTE,$$HTE)^XLFDT ($$CJ,$$UP)^XLFSTR $$SETUP1^XQALERT
VA Fileman	3	DD^%DT (NOW,YX)^%DTC ^DIR
IHS VA Utilities	2	^XBFMK $$LOC^XBFUNC
MailMan	2	CHK^XMA21 CHKGROUP^XMBGRP

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRDSP

Name	Comments	DBIA/ICR reference
HDR	;
NINLMI(CHKDUZ)	; EP -- Check to see if DUZ is NOT part of LMI Mail Group
DSP	;
ALERT	; EP
INIT	; EP
KILL	; EP
ENT	; EP
SNDALERT(ALERTMSG)	; EP - Send alert to LMI group AND User ; Per Kernel Developer's Guide, NEW all Alert variables
EP	; EP

Name	Field # of Occurrence
DD^%DT	HDR+1
NOW^%DTC	HDR+1
YX^%DTC	DSP+32
^%ZIS	INIT+3
ENDR^%ZISS	ALERT+2
^DIR	DSP+108, DSP+114
^XBFMK	DSP+104, DSP+110
$$LOC^XBFUNC	HDR+7
$$DT^XLFDT	SNDALERT+25
$$FMADD^XLFDT	SNDALERT+25
$$FMTE^XLFDT	DSP+54, DSP+67, DSP+81
$$HTE^XLFDT	HDR+9
$$CJ^XLFSTR	HDR+7, HDR+8, HDR+9, HDR+10
$$UP^XLFSTR	HDR+9
CHK^XMA21	NINLMI+11
CHKGROUP^XMBGRP	NINLMI+4
$$SETUP1^XQALERT	SNDALERT+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Last Entry Assigned" Line Location: DSP+44
Function Call: WRITE	Prompt: ?22,$J($FN(BLRLEA,","),11) Line Location: DSP+50
Function Call: WRITE	Prompt: ?35,$J($FN(BLRLTA,","),11) Line Location: DSP+51
Function Call: WRITE	Prompt: ?50,$J($FN(BLRLSQA,","),11) Line Location: DSP+52
Function Call: WRITE	Prompt: !!,"Last Entry Processed" Line Location: DSP+57
Function Call: WRITE	Prompt: ?22,$J($FN(BLRLEP,","),11) Line Location: DSP+63
Function Call: WRITE	Prompt: ?35,$J($FN(BLRLTP,","),11) Line Location: DSP+64
Function Call: WRITE	Prompt: !!,"Now Processing Entry" Line Location: DSP+71
Function Call: WRITE	Prompt: ?35,$J($FN(BLRLTP+1,","),11) Line Location: DSP+77
Function Call: WRITE	Prompt: ?50,$J($FN(BLRNSQP,","),10) Line Location: DSP+78
Function Call: WRITE	Prompt: ?50,$J($FN(BLRNSQP,","),11) Line Location: DSP+79
Function Call: WRITE	Prompt: !! Line Location: DSP+89
Function Call: WRITE	Prompt: "Processor is not running due to 'LAB LOG TRANSACTION' is off" Condition for execution: BLRF Line Location: DSP+89
Function Call: WRITE	Prompt: !! Line Location: DSP+90
Function Call: WRITE	Prompt: "Processor is not running. The 'LAB LOG TO PCC' is off" Condition for execution: BLRF Line Location: DSP+90
Function Call: WRITE	Prompt: "!" Line Location: DSP+90
Function Call: WRITE	Prompt: !," -- Halted by user" Line Location: DSP+91
Function Call: WRITE	Prompt: " -- " Condition for execution: BLRF Line Location: DSP+92
Function Call: WRITE	Prompt: " disabled" Line Location: DSP+92
Function Call: READ	Prompt: "Press Enter to exit: " Formatting: !! Timeout: DTIME,! Variable: BLR Line Location: DSP+99
Function Call: WRITE	Prompt: ! Line Location: DSP+99
Function Call: READ	Prompt: "Press Enter to continue: " Formatting: !! Timeout: 5,! Variable: BLR Line Location: DSP+100
Function Call: WRITE	Prompt: ! Line Location: DSP+109
Function Call: WRITE	Prompt: @IOF,?33,"Processor Status",!,$J("",75-$L(BLRDTM)/2),Y Line Location: HDR+2
Function Call: WRITE	Prompt: !!,BLRHDR Line Location: HDR+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR($$LOC^XBFUNC,IOM),! Line Location: HDR+7
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Processor Status",IOM),! Line Location: HDR+8
Function Call: WRITE	Prompt: $$CJ^XLFSTR($$UP^XLFSTR($$HTE^XLFDT($H)),IOM),!! Line Location: HDR+9
Function Call: WRITE	Prompt: $$CJ^XLFSTR(BLRHDR,IOM) Line Location: HDR+10
Function Call: WRITE	Prompt: !!,?40,"Entry Position",?59,"IHS Lab Transaction" Line Location: HDR+12
Function Call: WRITE	Prompt: !,?28,"Event",?43,"in Queue",?61,"Sequence Number",!,BLRLN Line Location: HDR+13
Function Call: WRITE	Prompt: !! Line Location: HDR+18
Function Call: WRITE	Prompt: ?38,"Entry #" Line Location: HDR+19
Function Call: WRITE	Prompt: ?50,"==== IHS Lab Transaction ====" Line Location: HDR+20
Function Call: WRITE	Prompt: ! Line Location: HDR+21
Function Call: WRITE	Prompt: ?28,"Event" Line Location: HDR+22
Function Call: WRITE	Prompt: ?38,"in Queue" Line Location: HDR+23
Function Call: WRITE	Prompt: ?51,"Sequence #" Line Location: HDR+24
Function Call: WRITE	Prompt: ?65,"Date" Line Location: HDR+25
Function Call: WRITE	Prompt: ?74,"Time" Line Location: HDR+26
Function Call: WRITE	Prompt: !,BLRLN Line Location: HDR+27
Function Call: WRITE	Prompt: !,IORVON,"THERE IS SOMETHNG WRONG WITH THE PCC LINK!" Line Location: ALERT+3
Function Call: WRITE	Prompt: !,"TOO MANY ERRORS HAVE BEEN FOUND IN THE ERROR LOG!" Line Location: ALERT+4
Function Call: WRITE	Prompt: !,IOBON,"THE PCC LINK IS BEING TURNED OFF!!",IOBOFF Line Location: ALERT+5
Function Call: WRITE	Prompt: !,IORVON,"CALL YOUR SITE MANAGER IMMEDIATELY!",IORVOFF Line Location: ALERT+6
Routine Call	DIR Line Location: DSP+108 DSP+114
Routine Call	%ZIS Line Location: INIT+3

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	INIT+2
^BLRLOCK - [#9009023]	DSP+84, DSP+97
^BLRSITE - [#9009029]	DSP+1, DSP+11, DSP+16, DSP+19, DSP+22, DSP+27
^BLRTXLOG - [#9009022]	DSP+53, DSP+66, DSP+80
^XTMP(	SNDALERT+25, SNDALERT+26, SNDALERT+27, SNDALERT+28, SNDALERT+29, SNDALERT+30

Name	Line Occurrences
$$NINLMI	SNDALERT+9
DSP	EP+4, ENT+1
HDR	DSP+43
INIT	EP+3, ENT+1
KILL	EP+5, ENT+1
SNDALERT	ALERT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+1, KILL+1!
%DT	HDR+1*, KILL+1!
%H	DSP+32*, KILL+1!
%I	KILL+1!
ALERTMSG	SNDALERT~, SNDALERT+5, SNDALERT+28
BLR	DSP+115*, DSP+118, KILL+1!
BLRCNT	DSP+117, DSP+118, INIT+1, KILL+1!
BLRDTM	HDR+1*, KILL+1!
BLRED	DSP+32*, DSP+40, KILL+1!
BLREDH	DSP+3, DSP+8, DSP+22, DSP+32, DSP+39, DSP+40, KILL+1!
BLRF	EP+4, DSP+84, DSP+87, DSP+89, DSP+90, DSP+103, DSP+116, DSP+117, DSP+118, INIT+1 , KILL+1!
BLRHDR	DSP+39, DSP+40, HDR+10, KILL+1!
BLRLEA	DSP+24*, DSP+50, DSP+70, DSP+75, KILL+1!
BLRLEDH	DSP+32, INIT+2, KILL+1!
BLRLEP	DSP+25*, DSP+63, DSP+70, DSP+75, KILL+1!
BLRLN	INIT+1*, HDR+27, KILL+1!
>> BLRLOG	DSP+4*, DSP+87, DSP+89
BLRLPDH	DSP+32, INIT+2, KILL+1!
BLRLSQA	DSP+16, DSP+29, DSP+52, DSP+53, KILL+1!
BLRLSQP	DSP+19, DSP+30, DSP+65, DSP+66, DSP+80, KILL+1!
BLRLTA	DSP+12*, DSP+16, DSP+27, DSP+29, DSP+51, DSP+70, DSP+76, KILL+1!
BLRLTP	DSP+13*, DSP+19, DSP+27, DSP+30, DSP+64, DSP+70, DSP+76, DSP+77, KILL+1!
>> BLRNPMT	DSP+98
BLRNSQP	DSP+27*, DSP+79, KILL+1!
BLRPCC	DSP+5*, DSP+87, DSP+90, KILL+1!
BLRPD	DSP+32*, DSP+39, DSP+40, KILL+1!
BLRPDH	DSP+2, DSP+7, DSP+11, DSP+16, DSP+19, DSP+27, DSP+32, DSP+39, DSP+40, KILL+1!
BLRSITE	DSP+1, DSP+11, DSP+16, DSP+19, DSP+22, DSP+27, INIT+2*, KILL+1!
BLRSTOP	DSP+6*, DSP+87, DSP+91, KILL+1!
BLRX	DSP+1, DSP+2, DSP+3, DSP+4, DSP+5, DSP+6, DSP+11, DSP+12, DSP+13, DSP+22* , DSP+24, DSP+25, KILL+1!
CHKDUZ	NINLMI~
DATETIME	EP+1~, DSP+53, DSP+54, DSP+66, DSP+67, DSP+80*, DSP+81
>> DIR("A"	DSP+106, DSP+112
>> DIR("T"	DSP+107, DSP+113
>> DIR(0	DSP+105, DSP+111
DTIME	DSP+118
DUZ	SNDALERT+9, NINLMI+9
>> IOBOFF	ALERT+5
>> IOBON	ALERT+5
IOF	INIT+3, HDR+6
IOM	HDR+7, HDR+8, HDR+9, HDR+10
IOP	INIT+3*!
>> IORVOFF	ALERT+6
>> IORVON	ALERT+3, ALERT+6
MGRPIEN	NINLMI+1~, NINLMI+4, NINLMI+5, NINLMI+10
SUBSCRPT	SNDALERT+15~, SNDALERT+16*, SNDALERT+25, SNDALERT+26, SNDALERT+27, SNDALERT+28, SNDALERT+29, SNDALERT+30
U	DSP+2, DSP+3, DSP+4, DSP+5, DSP+6, DSP+12, DSP+13, DSP+24, DSP+25, INIT+1* , INIT+2
X	DSP+115, ALERT+1, KILL+1!, SNDALERT+11, SNDALERT+12
XMDUZ	NINLMI+1~, NINLMI+9*
XQA	SNDALERT+2~
XQA(	SNDALERT+9*
XQA("G.LMI"	SNDALERT+6*
XQAARCH	SNDALERT+2~
XQACNDEL	SNDALERT+2~
XQADATA	SNDALERT+2~
XQAFLG	SNDALERT+2~
XQAGUID	SNDALERT+2~
XQAID	SNDALERT+2~
>> XQALERR	SNDALERT+30
XQAMSG	SNDALERT+2~, SNDALERT+5*
XQAOPT	SNDALERT+2~
XQAREVUE	SNDALERT+3~
XQAROU	SNDALERT+3~
XQASUPV	SNDALERT+3~
XQASURO	SNDALERT+3~
XQATEXT	SNDALERT+3~
Y	DSP+32, HDR+1, KILL+1!, NINLMI+10

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPST

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: