Routine: BLR6249R

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC $$FMTE^XLFDT ($$CJ,$$LJ,$$RJ,$$TRIM,$$UP)^XLFSTR
IHS Changes To Lab	2	(EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU $$GETACCCP^BLRUTIL3
VA Fileman	2	$$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK
Lab Service	1	^LRWU4

Entry Points

Name	Comments	DBIA/ICR reference
ONELRASI()	; EP - Initialization of variables
ONELRASB	; EP - Break out variables
PEP	; EP
EEP	; Ersatz EP
ONELRASL	; EP - Write a line of data
ONELRASR	; EP - Report on 1 Accession: INCOMING and OUTGOING messages
BREAKOUT	; EP - "Break Out" variables
HEADONE(HD1)	; EP -- Asks if user wants only 1 header line
TXNVARS	; EP - Setup variables at TXN level
INITVARS	; EP - Initialization
PRNTLINE	; EP - Print a line of data
EP	; EP

External References

Name	Field # of Occurrence
^%ZIS	INITVARS+24
^%ZISC	PEP+16
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	HEADONE+1, HEADONE+10
HEADERPG^BLRGMENU	PRNTLINE+5, ONELRASL+11
PRESSKEY^BLRGMENU	PEP+22, ONELRASI+9
$$GETACCCP^BLRUTIL3	ONELRASB+3
$$GET1^DIQ	INITVARS+3
^DIR	HEADONE+7
^LRWU4	ONELRASI+4
^XBFMK	HEADONE+3, HEADONE+9
$$FMTE^XLFDT	BREAKOUT+7
$$CJ^XLFSTR	INITVARS+7
$$LJ^XLFSTR	BREAKOUT+15
$$RJ^XLFSTR	BREAKOUT+9
$$TRIM^XLFSTR	INITVARS+1, ONELRASI+1
$$UP^XLFSTR	BREAKOUT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $J("",20),$C(13) Line Location: PEP+19
Function Call: WRITE	Prompt: !,?9,"No Messages in 62.49",! Line Location: PEP+20
Function Call: WRITE	Prompt: MSGNUM Line Location: PRNTLINE+7
Function Call: WRITE	Prompt: ?9,STATUS Line Location: PRNTLINE+8
Function Call: WRITE	Prompt: ?13,UID Line Location: PRNTLINE+9
Function Call: WRITE	Prompt: ?25,LRAS Line Location: PRNTLINE+10
Function Call: WRITE	Prompt: ?45,ENTRYDTT Line Location: PRNTLINE+11
Function Call: WRITE	Prompt: ?66,$E(INSTR,1,14) Line Location: PRNTLINE+12
Function Call: WRITE	Prompt: ! Line Location: PRNTLINE+13
Function Call: WRITE	Prompt: !! Line Location: ONELRASI+3
Function Call: WRITE	Prompt: !!,?4,"Accession Does not Exist.. Routine Ends." Line Location: ONELRASI+8
Function Call: WRITE	Prompt: TXN Line Location: ONELRASL+13
Function Call: WRITE	Prompt: ?9,$P(ENTRYDT,".") Line Location: ONELRASL+14
Function Call: WRITE	Prompt: ?19,$E(INSTR,1,13) Line Location: ONELRASL+15
Function Call: WRITE	Prompt: ?35,TYPE Line Location: ONELRASL+16
Function Call: WRITE	Prompt: ?40,$E(STATUS,1) Line Location: ONELRASL+17
Function Call: WRITE	Prompt: ?44,PID Line Location: ONELRASL+18
Function Call: WRITE	Prompt: ?54,DFN Line Location: ONELRASL+19
Function Call: WRITE	Prompt: ?64,LOGINP Line Location: ONELRASL+20
Function Call: WRITE	Prompt: ?74,ORDLOC Line Location: ONELRASL+21
Function Call: WRITE	Prompt: ! Line Location: ONELRASL+22
Routine Call	DIR Line Location: HEADONE+7
Routine Call	%ZIS Line Location: INITVARS+24

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.49 - [#62.49]	PEP+8, PEP+9, PEP+10, BREAKOUT+3, BREAKOUT+12, BREAKOUT+13, BREAKOUT+15, ONELRASR+7, ONELRASR+8, ONELRASR+10 , TXNVARS+2, TXNVARS+8, ONELRASL+1
^LR - [#63]	ONELRASB+9
^LRO(68 - [#68]	BREAKOUT+19, BREAKOUT+20, BREAKOUT+21, BREAKOUT+23, ONELRASI+5, ONELRASB+4

Label References

Name	Line Occurrences
$$ONELRASI	ONELRASR+5
BREAKOUT	PRNTLINE+1
HEADONE	INITVARS+10
INITVARS	PEP+6
ONELRASB	ONELRASL+9
ONELRASL	ONELRASR+11
PRNTLINE	PEP+12
TXNVARS	ONELRASR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLRVERN	PEP+2~, INITVARS+1, ONELRASR+1~, ONELRASI+1
CNT	PEP+1~, PEP+14, PEP+18, INITVARS+19, PRNTLINE+15, ONELRASR+2~, ONELRASR+7, ONELRASR+8, ONELRASR+10, ONELRASR+13 , ONELRASR+14, ONELRASI+28, ONELRASL+23
CNTINCOM	ONELRASR+2~, ONELRASI+28, TXNVARS+7
DAYSAGO2	ONELRASR+2~
>> DFN	ONELRASL+19, ONELRASB+9*
>> DIR("A"	HEADONE+4*
>> DIR("B"	HEADONE+5*
>> DIR(0	HEADONE+6*
DUZ(2	INITVARS+3
ENTRYDT	ONELRASR+2~, TXNVARS+5*, ONELRASL+14
ENTRYDTT	PEP+3~, PRNTLINE+11, BREAKOUT+9*
HD1	PEP+2~, INITVARS+10, HEADONE~, HEADONE+8*, PRNTLINE+5, ONELRASR+1~
HEADER	PEP+2~, ONELRASR+1~, ONELRASR+2~
HEADER(1	INITVARS+5, ONELRASI+11
HEADER(2	INITVARS+6, ONELRASI+12
HEADER(3	INITVARS+7, ONELRASI+13
HEADER(4	INITVARS+8, ONELRASI+14, ONELRASI+15, ONELRASI+16, ONELRASI+17, ONELRASI+18, ONELRASI+19, ONELRASI+20, ONELRASI+21, ONELRASI+22
HEADER(5	INITVARS+12, INITVARS+13, INITVARS+14, INITVARS+15, INITVARS+16, INITVARS+17
IEN	PEP+1~, PEP+8, PEP+9, PEP+10, INITVARS+19, BREAKOUT+3, BREAKOUT+12, BREAKOUT+13, BREAKOUT+15
IEN2	PEP+1~, BREAKOUT+1~, BREAKOUT+11, BREAKOUT+12, BREAKOUT+13, BREAKOUT+15
IEN3	PEP+1~
>> INCNT	INITVARS+19*
INDEXDT	ONELRASR+2~, ONELRASR+7, ONELRASR+8, ONELRASR+13, ONELRASR+14, ONELRASI+25
INSTALLN	ONELRASR+2~
INSTLLDT	ONELRASR+2~
INSTR	PEP+3~, PRNTLINE+3, PRNTLINE+12, BREAKOUT+8, ONELRASR+3~, ONELRASI+27!, TXNVARS+6, ONELRASL+15
IO	INITVARS+25
IOM	INITVARS+7
IOSL	INITVARS+26, ONELRASI+24
LABPATCH	ONELRASR+3~
LINES	PEP+2~, INITVARS+27, PRNTLINE+5, PRNTLINE+14, ONELRASR+1~, ONELRASI+24*, ONELRASL+11
>> LOGINP	ONELRASL+20, ONELRASB+7*
LRAA	PEP+3~, BREAKOUT+19*, BREAKOUT+20, BREAKOUT+21, BREAKOUT+23, ONELRASI+5, ONELRASB+3, ONELRASB+4
LRAD	PEP+3~, BREAKOUT+20*, BREAKOUT+21, BREAKOUT+23, ONELRASI+5, ONELRASB+3, ONELRASB+4
LRAN	PEP+3~, BREAKOUT+21*, BREAKOUT+23, ONELRASI+5, ONELRASB+3, ONELRASB+4
LRANYAA	PEP+4~
LRAS	PEP+3~, PRNTLINE+10, BREAKOUT+17, BREAKOUT+23, ONELRASR+3~, ONELRASI+5*, ONELRASI+7, ONELRASI+12, ONELRASL+7
>> LRDFN	ONELRASB+5*, ONELRASB+9
LRLL	PEP+4~
LRODT	ONELRASR+3~
LRPROF	PEP+4~
MAX	ONELRASR+3~, ONELRASR+7, ONELRASR+8, ONELRASR+10, ONELRASR+13, ONELRASR+14, ONELRASI+29*
MAXLINES	PEP+2~, INITVARS+26, INITVARS+27, PRNTLINE+5, ONELRASR+1~, ONELRASI+24, ONELRASL+11
MSGNUM	PEP+3~, PRNTLINE+7, BREAKOUT+5*
>> NOPG	ONELRASI+24*, ONELRASL+11
OBRCNT	ONELRASR+3~, ONELRASR+14, ONELRASI+28, ONELRASL+4
OBRLRAS	ONELRASR+10, ONELRASI+27!, TXNVARS+9, ONELRASL+5, ONELRASL+6, ONELRASL+7, ONELRASB+2, ONELRASB+3
OBRSTR	ONELRASR+3~, ONELRASL+1*, ONELRASL+2, ONELRASL+5, ONELRASL+6, ONELRASB+1, ONELRASB+2
OBRTXN	ONELRASR+3~, ONELRASR+10, TXNVARS+10, ONELRASL+1
>> ORDLOC	ONELRASL+21, ONELRASB+8*
>> OUTCNT	INITVARS+19*
PG	PEP+2~, INITVARS+20*, PRNTLINE+5, ONELRASR+1~, ONELRASL+11
>> PID	TXNVARS+8*, ONELRASL+18
>> PROV	ONELRASB+6*
QFLG	PEP+2~, PEP+8, INITVARS+22, PRNTLINE+5, ONELRASR+1~, ONELRASI+24, ONELRASL+11
REFLABIN	PEP+4~, INITVARS+3*, INITVARS+6, PRNTLINE+3
STATUS	PEP+3~, PRNTLINE+8, BREAKOUT+6, ONELRASR+3~, TXNVARS+4, ONELRASL+17
STR	PEP+1~, BREAKOUT+1~, BREAKOUT+3, BREAKOUT+5, BREAKOUT+6, BREAKOUT+7, BREAKOUT+8, ONELRASR+3~, TXNVARS+2, TXNVARS+3 , TXNVARS+4, TXNVARS+5, TXNVARS+6, ONELRASB+4*, ONELRASB+5, ONELRASB+6, ONELRASB+7, ONELRASB+8
>> STROBR	ONELRASB+1*
TXN	ONELRASR+3~, ONELRASR+8, ONELRASR+10, ONELRASI+26, ONELRASI+28*, TXNVARS+2, TXNVARS+8, ONELRASL+1, ONELRASL+13
TXNCNT	ONELRASR+3~, ONELRASR+13, ONELRASI+28, TXNVARS+1
TYPE	ONELRASR+3~, TXNVARS+3*, ONELRASL+16
UID	PEP+3~, PRNTLINE+9, BREAKOUT+11, BREAKOUT+12, BREAKOUT+15, BREAKOUT+17*, BREAKOUT+19, BREAKOUT+20, BREAKOUT+21
>> WOT	INITVARS+20*
X	BREAKOUT+1~, BREAKOUT+7, BREAKOUT+9, ONELRASB+3
>> Y	HEADONE+8

Marked Items

Customize PDF page

Package: IHS Changes To Lab

Routine: BLR6249R

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items