Routine: BLRSNOMU

Package	Total	Call Graph
IHS Changes To Lab	2	(EEP,PRESSKEY)^BLRGMENU EN^BLRSNO
IHS VA Utilities	2	^XBCLS ^XBFMK
Kernel	2	($$DT,$$FMTE,$$HTFM)^XLFDT ($$CJ,$$LJ)^XLFSTR
Lab Service	2	^LRKILL ^LRLTR2
VA Fileman	2	(FILE,UPDATE)^DIE ^DIR
IHS Standard Terminology	1	$$SEARCH^BSTSAPI
Registration	1	SET^VALM10

Entry Points

Name	Comments	DBIA/ICR reference
BIGWORD(LRLTR)	; EP
TEXTPOVI(DFN)	; EP - Use Text & BSTS Database
PEP	; EP
EEP	; Ersatz EP
STORDIAG	; EP - Store the Same ICD code on ALL tests in an order
GETSDIAG(LRORD,LRODT,TESTIEN)	; EP - Get & Store Diagnosis
B1	; EP
B2	; EP
FATALERR	; EP - Hard Crash the process
ERRMSG(MSG)	; EP - Error occurred during a DIE call
MAKEDIR	; EP - Create DIR array for ICD Codes
EP	; EP

External References

Name	Field # of Occurrence
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	TEXTPOVI+15, TEXTPOVI+80
EN^BLRSNO	TEXTPOVI+27
$$SEARCH^BSTSAPI	TEXTPOVI+19
FILE^DIE	STORDIAG+18
UPDATE^DIE	STORDIAG+24
^DIR	TEXTPOVI+10, TEXTPOVI+77
^LRKILL	FATALERR+20
^LRLTR2	BIGWORD+3
SET^VALM10	TEXTPOVI+35
^XBCLS	FATALERR+9
^XBFMK	TEXTPOVI+7, TEXTPOVI+81, STORDIAG+13, MAKEDIR+1
$$DT^XLFDT	ERRMSG+36
$$FMTE^XLFDT	TEXTPOVI+65
$$HTFM^XLFDT	ERRMSG+33, ERRMSG+36
$$CJ^XLFSTR	FATALERR+7, FATALERR+13
$$LJ^XLFSTR	TEXTPOVI+35, TEXTPOVI+66

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: TEXTPOVI+6
Function Call: WRITE	Prompt: !!,?4,"Invalid. Must Enter a Clinical Indication.",! Line Location: TEXTPOVI+14
Function Call: WRITE	Prompt: !!,?9,"No entries found in the IHS STANDARD TERMINOLOGY database. Try Again." Line Location: TEXTPOVI+20
Function Call: WRITE	Prompt: !! Line Location: TEXTPOVI+76
Function Call: WRITE	Prompt: !!,?4,"Invalid. Must Select an Entry.",! Line Location: TEXTPOVI+79
Function Call: WRITE	Prompt: ROWSTARS,! Line Location: FATALERR+10
Function Call: WRITE	Prompt: ROWSTARS,! Line Location: FATALERR+11
Function Call: WRITE	Prompt: SPACERLN,! Line Location: FATALERR+12
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(STR,IOM),"@ "," *") Line Location: FATALERR+13
Function Call: WRITE	Prompt: SPACERLN,! Line Location: FATALERR+14
Function Call: WRITE	Prompt: ROWSTARS,! Line Location: FATALERR+15
Function Call: WRITE	Prompt: ROWSTARS,! Line Location: FATALERR+16
Function Call: WRITE	Prompt: !!,"Occurring in " Line Location: FATALERR+18
Function Call: WRITE	Prompt: X,"..." Line Location: FATALERR+18
Function Call: WRITE	Prompt: 1/0 Line Location: FATALERR+23
Function Call: WRITE	Prompt: ! Line Location: B1+4
Function Call: WRITE	Prompt: ! Line Location: B2+1
Function Call: WRITE	Prompt: ! Line Location: B2+2
Function Call: WRITE	Prompt: " " Line Location: B2+2
Function Call: WRITE	Prompt: " " Line Location: B2+2
Routine Call	DIE Line Location: STORDIAG+24
Routine Call	DIE Line Location: STORDIAG+18
Routine Call	DIR Line Location: TEXTPOVI+10 TEXTPOVI+77

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETSDIAG+3
^LRO(69 - [#69]	STORDIAG+10, STORDIAG+12
^TMP("BLRSNO"	TEXTPOVI+25!
^TMP("LRLTR"	BIGWORD+3, B1+2, B2+2
^XTMP("BLRSNOMU"	ERRMSG+34, ERRMSG+35!, ERRMSG+36, ERRMSG+38

Label References

Name	Line Occurrences
$$TEXTPOVI	GETSDIAG+5
B2	B1+3
BIGWORD	FATALERR+22
ERRMSG	STORDIAG+19, STORDIAG+25
FATALERR	GETSDIAG+7, TEXTPOVI+22
MAKEDIR	TEXTPOVI+43, TEXTPOVI+69
STORDIAG	GETSDIAG+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BELOW	MAKEDIR+8, MAKEDIR+12, MAKEDIR+13
BLRSNOX	TEXTPOVI+25!
BLRSNOX(	TEXTPOVI+36*
>> BOOM	TEXTPOVI+42
>> CNT	TEXTPOVI+24, TEXTPOVI+33, TEXTPOVI+35, TEXTPOVI+36, TEXTPOVI+38, TEXTPOVI+47, TEXTPOVI+48, TEXTPOVI+53, TEXTPOVI+56, TEXTPOVI+60 , TEXTPOVI+61, TEXTPOVI+62, TEXTPOVI+66, TEXTPOVI+67, MAKEDIR+9, MAKEDIR+10, MAKEDIR+12
>> DEBUG	TEXTPOVI+64, TEXTPOVI+65
DESCIEN	STORDIAG+1~
DFN	GETSDIAG+1, GETSDIAG+3, GETSDIAG+5, TEXTPOVI~, TEXTPOVI+1
>> DILOCKTM	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> DIR	TEXTPOVI+44, TEXTPOVI+71, TEXTPOVI+83*
>> DIR("A"	TEXTPOVI+9, MAKEDIR+16
>> DIR("L"	MAKEDIR+3, MAKEDIR+4, MAKEDIR+5, MAKEDIR+7, MAKEDIR+12, MAKEDIR+15
>> DIR(0	TEXTPOVI+8, MAKEDIR+2
>> DIRUT	TEXTPOVI+13, TEXTPOVI+78
>> DIRZERO	TEXTPOVI+55, TEXTPOVI+61, MAKEDIR+2
>> DIRZERO(	TEXTPOVI+66*, MAKEDIR+10, MAKEDIR+12
>> DISYS	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
DT	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
DTIME	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
DUZ	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1, ERRMSG+15
DUZ(2	ERRMSG+16
ERRS	STORDIAG+1~, STORDIAG+14!, STORDIAG+19, STORDIAG+22!, STORDIAG+25
FDA	STORDIAG+1~, STORDIAG+14!, STORDIAG+22!
FDA(	STORDIAG+16, STORDIAG+17, STORDIAG+23*
>> HRCN	GETSDIAG+1, TEXTPOVI+1, MAKEDIR+3
ICDCODE	TEXTPOVI+56, TEXTPOVI+57, TEXTPOVI+58, TEXTPOVI+59, TEXTPOVI+61, TEXTPOVI+63, TEXTPOVI+67, STORDIAG+1~, STORDIAG+3*, STORDIAG+20 , STORDIAG+23
ICDCODES	TEXTPOVI+46!
ICDCODES(	TEXTPOVI+51, TEXTPOVI+52*, TEXTPOVI+57, TEXTPOVI+58, TEXTPOVI+59
ICDDESC	TEXTPOVI+58, TEXTPOVI+64, TEXTPOVI+65, TEXTPOVI+67, STORDIAG+1~, STORDIAG+4, STORDIAG+6, STORDIAG+16
ICDIEN	STORDIAG+1~
>> ICDINDEX(	TEXTPOVI+67*, TEXTPOVI+85
ICDSTR	STORDIAG+1~
IENS	STORDIAG+1~, STORDIAG+14!, STORDIAG+15*, STORDIAG+16, STORDIAG+17, STORDIAG+23
IN	TEXTPOVI+17!, TEXTPOVI+18*, TEXTPOVI+19
IO	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> IOBS	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
IOF	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
IOM	GETSDIAG+1, TEXTPOVI+1, FATALERR+6, FATALERR+7, FATALERR+13, BIGWORD+1
ION	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> IOS	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
IOSL	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
IOST	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> IOT	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> IOXY	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
LATEST	STORDIAG+1~
LRCNT	ERRMSG+1~, ERRMSG+13, ERRMSG+15, ERRMSG+16, ERRMSG+17, ERRMSG+22, ERRMSG+24, ERRMSG+28*
>> LRDFN	GETSDIAG+3*
LRJ0	B1+4!
LRJ02	B1+4!
LRLT	B1+4!
LRLT1	B1+2, B1+4!, B2+2
LRLT2	B1+4!, B2+2*
LRLT3	B1+4!, B2+2*
LRLTR	BIGWORD~, BIGWORD+1, B1+1
LRLTX	B1+1, B1+2, B1+4!, B2+2
LRLTY	B1+1*, B1+2, B1+4!
LRMTXT	ERRMSG+1~, ERRMSG+38
LRMTXT(	ERRMSG+15, ERRMSG+16, ERRMSG+17, ERRMSG+22, ERRMSG+24, ERRMSG+28
LRMTXT(1	ERRMSG+7*
LRMTXT(2	ERRMSG+8*
LRMTXT(3	ERRMSG+9*
LRMTXT(4	ERRMSG+10*
LRMTXT(5	ERRMSG+12*
LRODT	GETSDIAG~, GETSDIAG+1, STORDIAG+10, STORDIAG+12, STORDIAG+15
LRORD	GETSDIAG~, GETSDIAG+1, STORDIAG+10
LRSN	STORDIAG+1~, STORDIAG+9, STORDIAG+10, STORDIAG+12, STORDIAG+15
LRTST	STORDIAG+1~, STORDIAG+11, STORDIAG+12, STORDIAG+15
>> MAXSEARCH	TEXTPOVI+39*
MESSAGE	ERRMSG+1~, ERRMSG+5*
MSG	ERRMSG~, ERRMSG+7, ERRMSG+38
NOWDTIME	ERRMSG+1~, ERRMSG+33*, ERRMSG+34, ERRMSG+38
>> NUM	TEXTPOVI+24, TEXTPOVI+30, TEXTPOVI+31, TEXTPOVI+35, TEXTPOVI+36, TEXTPOVI+47, TEXTPOVI+48, TEXTPOVI+49, TEXTPOVI+51, TEXTPOVI+52
>> OUT	TEXTPOVI+18*, TEXTPOVI+19
>> PNM	GETSDIAG+1, TEXTPOVI+1, MAKEDIR+3
>> PROBSTR	GETSDIAG+5*, GETSDIAG+7, STORDIAG+3, STORDIAG+4, STORDIAG+5, STORDIAG+7
>> PROVNARR	STORDIAG+5, STORDIAG+6, STORDIAG+16
ROWSTARS	FATALERR+1~, FATALERR+6*, FATALERR+10, FATALERR+11, FATALERR+15, FATALERR+16
>> SNOMED	TEXTPOVI+59, TEXTPOVI+67, STORDIAG+7, STORDIAG+17
>> SORTDATE	TEXTPOVI+65
SPACER	FATALERR+1~, FATALERR+5*, FATALERR+7
SPACERLN	FATALERR+1~, FATALERR+7*, FATALERR+12, FATALERR+14
STR	TEXTPOVI+62, TEXTPOVI+63, TEXTPOVI+64, TEXTPOVI+65, TEXTPOVI+66, FATALERR+1~, FATALERR+3*, FATALERR+4, FATALERR+13
STRLEN	FATALERR+1~, FATALERR+4*, FATALERR+5
TAB	ERRMSG+1~, ERRMSG+3*, ERRMSG+28
TESTIEN	GETSDIAG~, GETSDIAG+1
>> TMPDIR	TEXTPOVI+44, TEXTPOVI+71, TEXTPOVI+83
U	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> VALMCNT	TEXTPOVI+38*
VARS	TEXTPOVI+17!
VARS(	TEXTPOVI+30, TEXTPOVI+31, TEXTPOVI+35, TEXTPOVI+48, TEXTPOVI+49, TEXTPOVI+51, TEXTPOVI+52
VARS("A"	TEXTPOVI+39
>> WHATSEL	TEXTPOVI+41*, TEXTPOVI+42, TEXTPOVI+43
WOTARR1	ERRMSG+1~, ERRMSG+20*, ERRMSG+21, ERRMSG+22, ERRMSG+23
WOTARR2	ERRMSG+1~, ERRMSG+23, ERRMSG+24
WOTVAR	ERRMSG+1~, ERRMSG+27*, ERRMSG+28
>> X	TEXTPOVI+11, TEXTPOVI+13, TEXTPOVI+18, TEXTPOVI+22, FATALERR+18, B2+2, ERRMSG+21*, ERRMSG+22
>> XPARSYS	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> XQXFLG	GETSDIAG+1, TEXTPOVI+1, BIGWORD+1
>> Y	TEXTPOVI+4, TEXTPOVI+5, TEXTPOVI+11, TEXTPOVI+16, TEXTPOVI+19, TEXTPOVI+20, TEXTPOVI+74, TEXTPOVI+75, TEXTPOVI+78, TEXTPOVI+82 , TEXTPOVI+85

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSNOMU

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: