Routine: BLRNLOIN

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT ($$CJ,$$LJ,$$TRIM,$$UP)^XLFSTR
IHS VA Utilities	3	^XBCLS ^XBFMK $$LOC^XBFUNC
IHS Changes To Lab	1	HEADERPG^BLRGMENU
Registration	1	KVA^VADPT
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT ($$CJ,$$LJ,$$TRIM,$$UP)^XLFSTR

IHS VA Utilities

^XBCLS ^XBFMK $$LOC^XBFUNC

HEADERPG^BLRGMENU

KVA^VADPT

^DIR

Name	Comments	DBIA/ICR reference
DEVRPTIN	; EP -- Initialize variables
REPORTIT	; EP -- Report the data
NCNTLNCI
EEP	; Ersatz EP
ADDLINE(ADDSTR,LN)	; EP
BUILDARY	; EP -- Build the output array
OKAYGO()	; EP
BLREND	; EP
PRESSIT	; EP
REPORT	; EP - Results
DEVRPT	; EP
ADDLNCJ(MIDSTR,LN,LEFTSTR,RGHTSTR)	; EP
EP	; EP -- Main Entry Point
NCNTLNC	; EP -- Compile listing of tests without LOINC codes

External References

Name	Field # of Occurrence
^%ZIS	REPORTIT+2
^%ZISC	REPORTIT+10, DEVRPT+11, BLREND+3
^%ZTLOAD	REPORTIT+10
HEADERPG^BLRGMENU	DEVRPT+5
^DIR	OKAYGO+10, PRESSIT+4
KVA^VADPT	BLREND+4
^XBCLS	NCNTLNCI+3
^XBFMK	OKAYGO+6, PRESSIT+1
$$LOC^XBFUNC	BUILDARY+3
$$HTE^XLFDT	ADDLNCJ+5, ADDLNCJ+8
$$CJ^XLFSTR	NCNTLNCI+4, ADDLNCJ+2
$$LJ^XLFSTR	ADDLINE+2
$$TRIM^XLFSTR	ADDLNCJ+11
$$UP^XLFSTR	OKAYGO+11, ADDLNCJ+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EEP+1
Function Call: WRITE	Prompt: ">>>>>>>>>>>>" Line Location: EEP+2
Function Call: WRITE	Prompt: " USE LABEL " Line Location: EEP+3
Function Call: WRITE	Prompt: "<<<<<<<<<<<<" Line Location: EEP+4
Function Call: WRITE	Prompt: !! Line Location: EEP+5
Function Call: WRITE	Prompt: !,"All Tests in File 60 Have LOINC Codes.",! Line Location: EP+8
Function Call: WRITE	Prompt: "Program Finished",!! Line Location: EP+9
Function Call: WRITE	Prompt: "." Line Location: NCNTLNC+5
Function Call: WRITE	Prompt: ! Line Location: NCNTLNC+6
Function Call: WRITE	Prompt: ! Line Location: NCNTLNCI+1
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Going through LAB TEST FILE (# 60)",IOM),!! Line Location: NCNTLNCI+4
Function Call: WRITE	Prompt: !! Line Location: OKAYGO+1
Function Call: WRITE	Prompt: "There are ",CNTNLOI," Lab Tests WITHOUT LOINC codes" Line Location: OKAYGO+2
Function Call: WRITE	Prompt: !! Line Location: OKAYGO+3
Function Call: WRITE	Prompt: ?5,"The Detailed report will be approximately ",(CNTNLOI\55)," printed pages long" Line Location: OKAYGO+4
Function Call: WRITE	Prompt: !! Line Location: OKAYGO+5
Function Call: WRITE	Prompt: !! Line Location: OKAYGO+12
Function Call: WRITE	Prompt: ?10,"Program exiting",! Line Location: OKAYGO+13
Function Call: WRITE	Prompt: !!,?10,"DEVICE could not be selected. Output will be to the screen.",!! Line Location: REPORTIT+4
Function Call: WRITE	Prompt: !,"Request ",$S($G(ZTSK):"Queued - Task #"_ZTSK,1:"NOT Queued"),!! Line Location: REPORTIT+11
Function Call: WRITE	Prompt: $G(LRLRPT(J)) Line Location: DEVRPT+8
Function Call: WRITE	Prompt: @IOF Line Location: BLREND+1
Routine Call	DIR Line Location: OKAYGO+10 PRESSIT+4
Routine Call	%ZIS Line Location: REPORTIT+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	NCNTLNC+3, NCNTLNC+9, NCNTLNC+14, NCNTLNC+19, NCNTLNC+20, NCNTLNC+26

Label References

Name	Line Occurrences
$$OKAYGO	REPORT+4
ADDLINE	BUILDARY+8, BUILDARY+9, BUILDARY+10, BUILDARY+16, BUILDARY+18, BUILDARY+19, BUILDARY+20, BUILDARY+22, BUILDARY+23, BUILDARY+25 , BUILDARY+26, BUILDARY+29, BUILDARY+30
ADDLNCJ	BUILDARY+3, BUILDARY+4, BUILDARY+5, BUILDARY+6, BUILDARY+7, BUILDARY+11
BLREND	REPORTIT+12
BUILDARY	REPORT+6
DEVRPTIN	DEVRPT+1
NCNTLNC	EP+5
NCNTLNCI	NCNTLNC+1
PRESSIT	EP+10, EP+14
REPORT	EP+12
REPORTIT	REPORT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	REPORTIT+1*
ADDSTR	ADDLINE~, ADDLINE+2
>> CNT	DEVRPTIN+1*
CNTLOINC	EP+1~, NCNTLNC+23, NCNTLNCI+2, BUILDARY+25
CNTLT	EP+1~, NCNTLNC+11, NCNTLNCI+2, BUILDARY+22
CNTNLOI	EP+1~, EP+7, NCNTLNC+28, NCNTLNCI+2, OKAYGO+2, OKAYGO+4, BUILDARY+19
CNTZZ	EP+1~, NCNTLNC+14, NCNTLNCI+2, BUILDARY+28, BUILDARY+29
>> DIR("A"	OKAYGO+7, PRESSIT+2
>> DIR("B"	OKAYGO+8*
>> DIR(0	OKAYGO+9, PRESSIT+3
>> DUOUT	OKAYGO+11
>> FLAG	NCNTLNC+18, NCNTLNC+19, NCNTLNC+20, NCNTLNC+23, NCNTLNCI+2*
HEADER	REPORT+2~, DEVRPTIN+5!
HEADER(	DEVRPTIN+6*
IO	DEVRPT+3
IO("Q"	REPORTIT+6
IOF	BLREND+1
IOM	NCNTLNCI+4, BUILDARY+11, ADDLNCJ+2, ADDLNCJ+8, ADDLINE+2
IOSL	DEVRPTIN+2
IOST	BLREND+1
>> J	DEVRPT+4, DEVRPT+7, DEVRPT+8, DEVRPTIN+6, DEVRPTIN+8*
LABTNME	EP+3~, NCNTLNC+26, NCNTLNC+27, BUILDARY+13, BUILDARY+14*, BUILDARY+15, BUILDARY+16
LEFTSTR	ADDLNCJ~, ADDLNCJ+5, ADDLNCJ+11
LINES	REPORT+2~, DEVRPT+5, DEVRPT+9, DEVRPTIN+3
LN	REPORT+1~, BUILDARY+2, BUILDARY+3, BUILDARY+4, BUILDARY+5, BUILDARY+6, BUILDARY+7, BUILDARY+8, BUILDARY+9, BUILDARY+10 , BUILDARY+11, BUILDARY+16, BUILDARY+18, BUILDARY+19, BUILDARY+20, BUILDARY+22, BUILDARY+23, BUILDARY+25, BUILDARY+26, BUILDARY+29 , BUILDARY+30, ADDLNCJ~, ADDLNCJ+1, ADDLNCJ+2, ADDLNCJ+5, ADDLNCJ+8, ADDLNCJ+11, ADDLINE~, ADDLINE+1*, ADDLINE+2
LRLRPT	REPORT+1~
LRLRPT(	ADDLNCJ+2, ADDLNCJ+5, ADDLNCJ+8, ADDLNCJ+11, ADDLINE+2*, DEVRPT+4, DEVRPT+8, DEVRPTIN+6
MAXLINES	REPORT+2~, DEVRPT+5, DEVRPTIN+2*, DEVRPTIN+3
MIDSTR	ADDLNCJ~, ADDLNCJ+2
NOLOINC	EP+3~
NOLOINC(	NCNTLNC+27*, BUILDARY+14, BUILDARY+15
PG	REPORT+2~, DEVRPT+5, DEVRPTIN+1*
>> POP	REPORTIT+3
PTRLOINC	EP+1~
QFLAG	REPORT+2~, DEVRPT+4, DEVRPT+5, DEVRPTIN+4*
QFLG	EP+2~
RGHTSTR	ADDLNCJ~, ADDLNCJ+8, ADDLNCJ+11
SITESPEC	EP+2~, NCNTLNC+18, NCNTLNC+19, NCNTLNC+20
STR	EP+2~
TAB	REPORT+1~, BUILDARY+1*, BUILDARY+9, BUILDARY+10, BUILDARY+22, BUILDARY+25, BUILDARY+29
>> TEST	NCNTLNC+3, NCNTLNC+9, NCNTLNC+14, NCNTLNC+19, NCNTLNC+20, NCNTLNC+26, NCNTLNC+27, NCNTLNCI+2, BUILDARY+15*, BUILDARY+16
TFLAG	REPORT+1~
>> X	OKAYGO+11
>> ZTDESC	REPORTIT+7*
>> ZTQUEUED	BLREND+2
>> ZTREQ	BLREND+2*
>> ZTRTN	REPORTIT+7*
>> ZTSAVE("CNT*"	REPORTIT+9*
>> ZTSAVE("LR*"	REPORTIT+8*
>> ZTSK	REPORTIT+11

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRNLOIN

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: