Routine: BLRF60SR

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ($$CJ,$$TRIM,$$UP)^XLFSTR
IHS Changes To Lab	2	(EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU $$BADSTUFQ^BLRUTIL7
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Laboratory Point of Care	1	$$ISPANEL^BLRPOC
IHS VA Utilities	1	^XBFMK

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ($$CJ,$$TRIM,$$UP)^XLFSTR

IHS Changes To Lab

(EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU $$BADSTUFQ^BLRUTIL7

VA Fileman

$$GET1^DIQ ^DIR

IHS Laboratory Point of Care

$$ISPANEL^BLRPOC

IHS VA Utilities

^XBFMK

Name	Comments	DBIA/ICR reference
GETINIT()	; EP - Initialization
PEP	; EP
EEP	; Ersatz EP
SETBLRVS(TWO)	; EP - Set the BLRVERN variable(s)
FOUNDIT(F60IEN,FOUNDIT,CNT)	; EP - Write out the entry
SEARCH(SRCHSTR,F60IEN,F60CNT,CNT)	; EP - Search for the string
EP	; EP

External References

Name	Field # of Occurrence
^%ZIS	GETINIT+17
^%ZISC	PEP+10
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	GETINIT+5, GETINIT+16
HEADERPG^BLRGMENU	FOUNDIT+1
PRESSKEY^BLRGMENU	PEP+12
$$ISPANEL^BLRPOC	SEARCH+17, FOUNDIT+4
$$BADSTUFQ^BLRUTIL7	GETINIT+10
$$GET1^DIQ	SEARCH+22, SEARCH+23, FOUNDIT+5, FOUNDIT+6, FOUNDIT+7
^DIR	GETINIT+9
^XBFMK	GETINIT+6
$$CJ^XLFSTR	GETINIT+14
$$TRIM^XLFSTR	FOUNDIT+5
$$UP^XLFSTR	GETINIT+12, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,F60CNT," File 60 entries analyzed." Line Location: PEP+7
Function Call: WRITE	Prompt: !!,?9,$S(CNT:CNT,1:"No")," File 60 entr",$S(CNT=1:"y",1:"ies")," matched." Line Location: PEP+8
Function Call: WRITE	Prompt: ?4,F60IEN Line Location: FOUNDIT+3
Function Call: WRITE	Prompt: ?14,$S($$ISPANEL^BLRPOC(F60IEN):"YES",1:"") Line Location: FOUNDIT+4
Function Call: WRITE	Prompt: ?20,$$TRIM^XLFSTR($P($$GET1^DIQ(60,F60IEN,3),"("),"LR"," ") Line Location: FOUNDIT+5
Function Call: WRITE	Prompt: ?29,$E($$GET1^DIQ(60,F60IEN,.01),1,38) Line Location: FOUNDIT+6
Function Call: WRITE	Prompt: ?69,$$GET1^DIQ(60.01,+$O(^LAB(60,F60IEN,1,0))_","_F60IEN,95.3) Line Location: FOUNDIT+7
Function Call: WRITE	Prompt: ! Line Location: FOUNDIT+8
Routine Call	DIR Line Location: GETINIT+9
Routine Call	%ZIS Line Location: GETINIT+17

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
60.01	GET1^DIQ
60.02	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PEP+5, SEARCH+21, FOUNDIT+7

Name	Line Occurrences
$$GETINIT	PEP+3
FOUNDIT	SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24
SEARCH	PEP+5
SETBLRVS	GETINIT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRVERN	SETBLRVS+1*
>> BLRVERN2	SETBLRVS+2*
CNT	PEP+5, PEP+8, GETINIT+26, SEARCH~, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24, FOUNDIT~ , FOUNDIT+11
>> DILOCKTM	PEP+1
>> DIR("A"	GETINIT+8*
>> DIR(0	GETINIT+7*
>> DIRUT	GETINIT+10
>> DISYS	PEP+1
DT	PEP+1
DTIME	PEP+1
DUZ	PEP+1
F602DESC	SEARCH+19~, SEARCH+23*, SEARCH+24
F602IEN	SEARCH+19~
F60CNT	PEP+5, PEP+7, GETINIT+26, SEARCH~, SEARCH+1
F60IEN	PEP+5, GETINIT+28, SEARCH~, SEARCH+2, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+17, SEARCH+21 , SEARCH+22, SEARCH+23, SEARCH+24, FOUNDIT~, FOUNDIT+3, FOUNDIT+4, FOUNDIT+5, FOUNDIT+6, FOUNDIT+7
>> F60IEN2	SEARCH+22*
F60PANEL	SEARCH+19~, SEARCH+20, SEARCH+21, SEARCH+22, SEARCH+23
FOUNDIT	SEARCH+5, SEARCH+6, SEARCH+7, SEARCH+9, SEARCH+10, SEARCH+11, SEARCH+12, SEARCH+14, SEARCH+21, SEARCH+24 , FOUNDIT~, FOUNDIT+10*
>> FRSTPART	SEARCH+3*, SEARCH+10
>> GLOVAR	SEARCH+2*, SEARCH+3, SEARCH+4
>> HEADER(	GETINIT+20, GETINIT+21, GETINIT+22, GETINIT+23, GETINIT+24*
>> HEADER(1	GETINIT+3*
>> HEADER(2	GETINIT+13, GETINIT+14
>> HEADER(3	GETINIT+14*
IO	PEP+1, GETINIT+18
>> IOBS	PEP+1
IOF	PEP+1
IOM	PEP+1
ION	PEP+1
>> IOS	PEP+1
IOSL	PEP+1, GETINIT+25
IOST	PEP+1
>> IOT	PEP+1
>> IOXY	PEP+1
>> LINES	GETINIT+25, FOUNDIT+1, FOUNDIT+9
>> MAXLINES	GETINIT+25*, FOUNDIT+1
>> NEXTLINE	GETINIT+13, GETINIT+14, GETINIT+20*, GETINIT+21, GETINIT+22, GETINIT+23, GETINIT+24
>> PG	GETINIT+26*, FOUNDIT+1
>> QFLG	PEP+5, GETINIT+27*, SEARCH+10, FOUNDIT+1
>> SCRCHSTR	GETINIT+14
SRCHSTR	PEP+5, GETINIT+12*, GETINIT+13, SEARCH~, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24
>> STR1	SEARCH+4, SEARCH+6, SEARCH+7, SEARCH+10, SEARCH+11, SEARCH+12
TWO	SETBLRVS~, SETBLRVS+2
U	PEP+1
>> X	GETINIT+12
>> XPARSYS	PEP+1
>> XQXFLG	PEP+1
>> Y	GETINIT+10

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRF60SR

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items