Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRSNOMU

Package: IHS Changes To Lab

Routine: BLRSNOMU


Information

BLRSNOMU ; IHS/OIT/MKK - IHS Lab SNOMED Utilities ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <BLRSNOMU.m>

Call Graph

Call Graph Total: 12

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All