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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICDEXLK2

Package: DRG Grouper

Routine: ICDEXLK2


Information

ICDEXLK2 ;SLC/KER - ICD Extractor - Lookup, SBR/Ask/One/Mul ;12/19/2014

Source Information

Source file <ICDEXLK2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
DRG Grouper 3 ($$CODEC,$$FILE,$$ICDDX,$$ICDOP,$$IMP,$$LD,$$ROOT,$$SD,$$STATCHK,$$VST,PAR)^ICDEX  (FND,SEL)^ICDEXLK5  ($$RET,PA,SAV)^ICDEXLK6  
VA FileMan 3 CLRMSG^DDS  HLP^DDSMSG  ^DIR  
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
DRG Grouper 3 ICDEX  ICDEXLK  ICDEXLK5  

Entry Points

Name Comments DBIA/ICR reference
ASK ; Ask for Selection
SBR ; Space-Bar Return DIC(0) not contain "A"
ONE(X) ; One Entry Found
ONERS(X) ; One Entry Found Roll and Scroll
ONESM(X) ; One Entry Found ScreenMan
MUL(X) ; Multiple Entries Found
MULRS(X) ; Multiple Entries Found Roll and Scroll
MULRSW ; Write Multiple Roll and Scroll
MULRSS(LEX,LS) ; Select Multiple Roll and Scroll
MULRSSH ; Select Multiple Help Roll and Scroll
MULSM(X) ; Multiple Entries Found ScreenMan
MULSMW ; Write Multiple ScreenMan
MULSMS(LEX,LS) ; Select Multiple ScreenMan
MULQ ; Quit Multiple
INP(X,VER,CDT) ; Get User Input
INPH(X) ; Input Help
INPH2(X) ; Input Help
INPRE(X) ; Input Pre-Processing
OUT(X,Y,FMT,ARY) ; Output Array
TM(X,Y) ; Trim Y
X(SEL,SUB) ; Set X
Y(ROOT,IEN,CDT,FMT) ; Set Y
SH ; Show TMP

External References

Name Field # of Occurrence
CLRMSG^DDS ONESM+10, MULSM+15, MULSM+16, MULSMS+8
HLP^DDSMSG ONESM+7, MULSMS+5
^DIR ONERS+25, MULRSS+9, INP+23
$$CODEC^ICDEX ONESM+3, MULSM+6, Y+28
$$FILE^ICDEX INPRE+7, OUT+3, Y+26
$$ICDDX^ICDEX Y+37
$$ICDOP^ICDEX Y+38
$$IMP^ICDEX Y+24, Y+33
$$LD^ICDEX INP+15, OUT+6, Y+39
$$ROOT^ICDEX MULRSW+3, INP+3, Y+25
$$SD^ICDEX OUT+5, Y+29, Y+31
$$STATCHK^ICDEX INP+13, INPRE+14
$$VST^ICDEX ONESM+4, MULSM+7
PAR^ICDEX ONERS+5, ONERS+8, ONERS+13, MULRSW+13, MULRSW+18, MULRSW+21, OUT+8
FND^ICDEXLK5 SBR+4
SEL^ICDEXLK5 SBR+5
$$RET^ICDEXLK6 SBR+2, INP+8, INPRE+8
PA^ICDEXLK6 INPH+6, INPH+10, INPH2+11, INPH2+22
SAV^ICDEXLK6 ASK+6, ASK+14, SBR+9
$$DT^XLFDT Y+24
$$FMTE^XLFDT Y+33
$$UP^XLFSTR INP+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONERS+20
Function Call: WRITE
  • Prompt: !,DIR("A",LN2)
  • Line Location: ONERS+24
Function Call: READ
  • Variable: ANS
  • Timeout: 300
  • Line Location: ONESM+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MULRS+10
Function Call: WRITE
  • Prompt: !,$J(ENT,5),".",?TAB
  • Line Location: MULRSW+4
Function Call: WRITE
  • Prompt: $P(NR,"^",1)," "
  • Line Location: MULRSW+9
Function Call: WRITE
  • Prompt: $P($G(@(RT_+IEN_",0)")),"^",1)
  • Line Location: MULRSW+11
Function Call: WRITE
  • Prompt: $G(TXT(1))
  • Line Location: MULRSW+15
Function Call: WRITE
  • Prompt: !,?IND,$G(TX2(ICDI))
  • Line Location: MULRSW+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ICDI>1
  • Line Location: MULRSW+22
Function Call: WRITE
  • Prompt: ?IND,$G(TXT(ICDI))
  • Line Location: MULRSW+22
Function Call: WRITE
  • Prompt: !,$G(HLP)
  • Line Location: MULRSSH+1
Function Call: READ
  • Variable: ANS
  • Timeout: 300
  • Line Location: MULSMS+6
Function Call: WRITE
  • Prompt: !,?4,$G(TXT(TMP))
  • Line Location: INPH+7
Function Call: WRITE
  • Prompt: !,?4,$G(TXT(TMP))
  • Line Location: INPH+11
Function Call: WRITE
  • Prompt: !,?4,$G(TXT(TMP))
  • Line Location: INPH2+12
Function Call: WRITE
  • Prompt: !,?4,$G(TXT(TMP))
  • Line Location: INPH2+23
Function Call: WRITE
  • Prompt:
  • Condition for execution: '$D(@NN) ! Q:'$D(@NN)
  • Line Location: SH+3
Function Call: WRITE
  • Prompt: !,NN,"=",@NN
  • Line Location: SH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SH+4
Routine Call
  • DDS
  • Line Location:
    • ONESM+10
    • MULSM+15
    • MULSM+16
    • MULSMS+8
Routine Call
  • DIR
  • Line Location:
    • ONERS+25
    • MULRSS+9
    • INP+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( ASK+4, ASK+12, ASK+15!, SBR+2!, SBR+5, SBR+7, SBR+11!, ONERS+2, ONESM+2, MULRS+3
, MULRS+6, MULRSS+3, MULSM+3, MULSM+5, X+2, SH+1

Label References

Name Line Occurrences
$$MUL ASK+9
$$MULRS MUL+1
$$MULRSS MULRS+9, MULRS+10
$$MULSM MUL+1
$$MULSMS MULSM+10, MULSM+13
$$ONE ASK+9, SBR+5
$$ONERS ONE+1
$$ONESM ONE+1
$$TM INP+31
MULQ MULRS+4, MULRS+11, MULSM+3, MULSM+14, MULSM+17
MULRSW MULRS+8
MULSMW MULSM+9
X ASK+3, ASK+11, SBR+6
Y ASK+4, ASK+12, SBR+7, MULRSW+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS ASK+1~, ASK+9*, ASK+10, ASK+11, ASK+12, ASK+15, SBR+1~, SBR+5*, SBR+11, ONESM+1~
, ONESM+8*, ONESM+9, ONESM+11*, MULSMS+1~, MULSMS+6*, MULSMS+7, MULSMS+8*
ARY OUT~, OUT+1!, OUT+8
ARY(1 OUT+7*
CDT INP~, INP+2*, INP+9, INP+13, INPRE+10, INPRE+14, OUT+5, OUT+6, Y~, Y+23*
, Y+24*, Y+29, Y+37, Y+38, Y+39
CODE ONESM+1~, ONESM+3*, ONESM+5, MULSM+1~, MULSM+5~, MULSM+6*, MULSM+8, INP+10~, INP+11*, INP+13
, INPRE+7~, INPRE+11~, INPRE+12*, INPRE+14, Y+21~, Y+28*, Y+34, Y+36*, Y+37, Y+38
, Y+40
CT ONERS+1~, ONERS+10~, ONERS+11*, ONERS+14~*, ONERS+17~*, ONERS+18, ONERS+19*
CTR MULSM+1~, MULSM+4*, MULSMW+1~*, MULSMW+2, MULSMS+1~, MULSMS+4*
>> DDS ONE+1, MUL+1, INP+30
>> DIC MULRS+2, MULSM+2
>> DIC("W" MULRSW+6, MULRSW+9, MULRSW+10
>> DIC(0 ASK+2, ASK+6, ASK+7, ASK+14, SBR+9, ONERS+2, MULRS+2, MULRSW+5, MULRSW+16, MULRSW+17
, INP+1, INP+30, Y+35, Y+40, Y+41
>> DICR("1" MULSM+15*
>> DICR(1 ONERS+21, ONERS+22
>> DICR(2 ONERS+21
DIR ONERS+1~, MULRSS+1~, INP+1~
DIR("?" MULRSS+8*, INP+19*, INP+20*
DIR("??" MULRSS+8*, INP+19*, INP+21*
DIR("A" ONERS+15*, ONERS+17, ONERS+18*, ONERS+19*, ONERS+24, MULRSS+4*, MULRSS+5*, INP+17*
DIR("B" ONERS+20*, INP+16*, INP+28
DIR("PRE" MULRSS+7*, INP+18*
DIR(0 ONERS+20*, MULRSS+9*, INP+22*
DIRA INP+1~, INP+4*, INP+5*, INP+6*, INP+7*, INP+17
DIRB MULRSS+1~, INP+1~, INP+4*, INP+16, INP+17
DIROUT ONERS+1~, ONERS+25!, ONERS+26, ONESM+1~, MULRSS+1~, MULRSS+9!, MULRSS+11, MULSMS+1~, INP+1~, INP+23!
, INP+25
DIRUT ONERS+1~, ONERS+25!, ONESM+1~, MULRSS+1~, MULRSS+9!, MULSMS+1~, INP+1~, INP+23!
DTOUT ONERS+25!, MULRSS+1~, MULRSS+9!, MULRSS+10, MULRSS+11, MULSMS+1~, INP+1~, INP+23!, INP+25
DUOUT ONERS+25!, ONERS+26, MULRSS+1~, MULRSS+9!, MULRSS+10, MULSM+11, MULSMS+1~, INP+1~, INP+23!, INP+25
ENT MULRS+1~, MULRS+3*, MULRS+5*, MULRS+6, MULRS+8, MULRS+9, MULRS+10, MULRSW+4, MULSM+1~, MULSM+2*
, MULSM+4*, MULSM+5, MULSM+9, MULSM+10, MULSM+12, MULSM+13, MULSMW+1, MULSMW+2
EXIT MULRS+1~, MULRS+3*, MULRS+5, MULRS+9*, MULRS+10*, MULRSS+1, MULRSS+10*, MULSM+1~, MULSM+2*, MULSM+4
, MULSM+10*, MULSM+12, MULSM+13*, MULSM+14, MULSMS+1
FDAT Y+21~, Y+37*, Y+38*, Y+41
FI INPRE+7~*, INPRE+8
FILE SBR+1, SBR+2, ONESM+3, ONESM+4, MULSM+6, MULSM+7, INP+1~, INP+3*, INP+5, INP+6
, INP+8, INP+15, INPH+1~*, INPH+2, INPH2+1~*, INPH2+2, INPRE+8, OUT+1~, OUT+3*, OUT+5
, OUT+6, Y+21~, Y+26*, Y+28, Y+29, Y+31, Y+37, Y+38
FMT OUT~, OUT+4*, OUT+5, OUT+6, OUT+7, OUT+8, Y~, Y+30*, Y+35, Y+40
, Y+41
HLP MULRSS+1~, MULRSS+6*, MULRSSH+1
ICD10 Y+21~, Y+24*, Y+31
>> ICDCDT ASK+4, ASK+12, SBR+4, SBR+7, ONESM+4, MULRSW+7, MULSM+7, INP+15
>> ICDDIC0 INPH2+7, INPH2+18
>> ICDDICA INP+4
>> ICDDICB INP+4
>> ICDDICN MULRS+2
>> ICDFMT ONERS+4, ONERS+12
ICDI ONERS+1~, ONERS+5*, ONERS+6, ONERS+8*, ONERS+9*, ONERS+10, ONERS+11, ONERS+13~*, ONERS+14, ONERS+16*
, ONERS+17, ONERS+18, MULRSW+2~, MULRSW+13~*, MULRSW+14, MULRSW+18*, MULRSW+19*, MULRSW+21*, MULRSW+22
>> ICDISF MULRSW+6, MULRSW+10
ICDMENU ONESM+1~, ONESM+7*, MULSM+1~, MULSM+11!, MULSM+15!, MULSMS+2, MULSMS+5*, MULSMS+6!
ICDMENU( MULSMW+2*, MULSMS+4*
ICDMENU(" " MULSMW+1, MULSMS+4
ICDMENU(1 ONESM+6*
ICDMENU(2 ONESM+6*
>> ICDOFND ASK+1*, ASK+2, ASK+3*, ASK+7, ASK+9, SBR+6*, Y+22
>> ICDOINP MULSM+15*
>> ICDOREV ASK+3*, SBR+6*, ONE+1*, ONERS+1*, ONESM+1*, ONESM+7*, MULRS+8*, MULSM+9*
>> ICDOSEL ASK+3*, ASK+8*, ASK+9*, ASK+11*, SBR+6*, Y+22
>> ICDOTIM ONERS+25*, ONESM+8*, ONESM+9, MULRSS+10*, MULSMS+6*, INP+25*, INP+26
>> ICDOUPA ONERS+26*, ONESM+8*, ONESM+9*, ONESM+10, MULRSS+10*, MULRSS+11*, MULSM+13, MULSMS+7*, INP+25*, INP+26
>> ICDOUT SBR+4, MULRSW+4, MULRSW+12
ICDPR ONERS+1~, ONERS+21*, ONERS+22*, ONERS+23
>> ICDSYS SBR+3, SBR+4
>> ICDVER SBR+4
>> ICDX INP+27*
IEN ONERS+1~, ONERS+3*, ONERS+22, ONESM+1~, ONESM+3*, ONESM+4, MULRS+1~, MULRS+6~, MULRS+7*, MULRSW+1
MULRSW+7, MULRSW+8, MULRSW+11, MULSM+1~, MULSM+5~, MULSM+6*, MULSM+7, OUT+1~*, OUT+4, OUT+5
, OUT+6, X+1~, X+2*, Y~, Y+23*, Y+27, Y+28, Y+29, Y+31, Y+34
, Y+39
IN INPRE+1~*, INPRE+2, INPRE+3
IN1 INPRE+1~, INPRE+3*, INPRE+4, INPRE+5, INPRE+6
IN2 INPRE+1~, INPRE+3*, INPRE+4, INPRE+5, INPRE+6
IND MULRSW+2~*, MULRSW+4*, MULRSW+5*, MULRSW+17*, MULRSW+19, MULRSW+22
INP ASK+5, ASK+13, ASK+15!, SBR+8, SBR+11!, INP+27*
>> INP1 INP+27*
>> INP2 INP+27*
ITEM ONESM+1~, ONESM+2*, ONESM+3, MULRS+1~, MULRS+6~*, MULRS+7, MULSM+1~, MULSM+5~*, MULSM+6
LAST MULRSS+2~*, MULRSS+3, MULSMS+1~, MULSMS+2*
LEN MULRS+1~, MULRS+2*, MULRS+8, MULRS+9, MULRS+10, MULRSW+2~, MULRSW+13~, MULRSW+16~*, MULRSW+18, MULSM+1~
, MULSM+3*, MULSM+10, MULSM+12
LEX MULRSS~, MULRSS+2, MULRSS+11*, MULRSS+12, MULSMS~, MULSMS+2
LN ONERS+1~, ONERS+24*
LN2 ONERS+1~, ONERS+24~*
LONG Y+21~, Y+39*, Y+41
LS MULRSS~, MULRSS+2, MULSMS~, MULSMS+2
MAX MULRS+1~, MULRS+3*, MULRS+8*, MULRS+9, MULRS+10, MULRSS+2~*, MULRSS+3, MULRSS+6, MULRSS+9, MULSM+2~*
, MULSM+9*, MULSM+10, MULSM+13, MULSMS+1~, MULSMS+2*, MULSMS+3, MULSMS+8
NC SH+1~, SH+2*, SH+3
ND INPRE+7~
NEXT MULRSS+2~, MULRSS+3*, MULRSS+4, MULRSS+5
NN SH+1~, SH+2*, SH+3*
NODE0 Y+21~, Y+27*, Y+35, Y+36
NR MULRSW+2~, MULRSW+7~, MULRSW+8*, MULRSW+9
OUT SBR+1~, INPRE+7~
PMT MULSMS+1~, MULSMS+3*, MULSMS+4
RAN MULRSS+2~, MULRSS+3*, MULRSS+4, MULRSS+5
ROOT ASK+4, ASK+6, ASK+12, ASK+14, SBR+1, SBR+2, SBR+3, SBR+4, SBR+5, SBR+7
SBR+9, MULRS+1~, MULRS+2*, MULRSW+1, MULRSW+3, MULRSW+7, MULSM+2~*, INP+1~, INP+3*, INP+9
, INP+11, INP+12, INPRE+4, INPRE+5, INPRE+6, INPRE+7, INPRE+10, INPRE+12, INPRE+13, OUT+1~*
, OUT+2, OUT+3, OUT+4, Y~, Y+23*, Y+25*, Y+26, Y+27, Y+39
RT MULRSW+2~, MULRSW+3*, MULRSW+8, MULRSW+11
SB INPRE+7~, INPRE+8*, INPRE+9, INPRE+10, INPRE+12, INPRE+13, INPRE+15*
SBI SBR+1~, SBR+2*, SBR+3, SBR+4
SBR INP+1~, INP+8*, INP+9, INP+11, INP+12, INP+14*, INP+15, INP+29
SBS SBR+1~, SBR+3*
SBT INP+1~, INP+8*, INP+15*, INP+29
SEL MULRS+1~, MULRS+3*, MULRS+4*, MULRS+5, MULRS+9*, MULRS+10*, MULSM+2~*, MULSM+3*, MULSM+4, MULSM+10*
, MULSM+12, MULSM+13*, MULQ+1, X~, X+1*, X+2
SHORT Y+21~, Y+29*, Y+30, Y+31*, Y+32*, Y+33*
SP ONERS+8~*, ONERS+11
STA INP+10~, INP+13*, INP+14, INPRE+7~, INPRE+11~, INPRE+14*, INPRE+15
SUB ASK+3, ASK+4, ASK+11, ASK+12, ASK+15, SBR+1~, SBR+2*, SBR+5, SBR+6, SBR+7
SBR+11, ONERS+2, ONESM+2, MULRS+3, MULRS+6, MULRSS+3, MULSM+3, MULSM+5, X~, X+1*
, X+2, SH+1~*, SH+2
SYS INP+10~, INP+12*, INP+13, INPRE+7~, INPRE+11~, INPRE+13*, INPRE+14
TAB MULRSW+2~*, MULRSW+4, MULRSW+5, MULRSW+17
TERM OUT+1~, OUT+5*, OUT+6*, OUT+7
TEXT ONERS+1~, ONERS+2*, ONERS+3*, ONERS+5, ONESM+1~, ONESM+3*, ONESM+5*, ONESM+6, MULRS+1~, MULRS+6~
, MULRS+7*, MULRSW+1, MULRSW+13, MULRSW+20, MULSM+2~, MULSM+5~, MULSM+6*, MULSM+8*, MULSM+9, MULSMW+1
MULSMW+2
TMP INPH+1~, INPH+4*, INPH+5*, INPH+6, INPH+7*, INPH+8*, INPH+9*, INPH+10, INPH+11*, INPH2+1~
, INPH2+4*, INPH2+5*, INPH2+6*, INPH2+8*, INPH2+9*, INPH2+10*, INPH2+11, INPH2+12*, INPH2+13*, INPH2+14*
, INPH2+15*, INPH2+16*, INPH2+17*, INPH2+19*, INPH2+20*, INPH2+21*, INPH2+22, INPH2+23*
TOT MULRS+1~, MULRS+3*, MULRS+4, MULRS+5, MULRS+8, MULSM+2~, MULSM+3*, MULSM+4, MULSM+9
TX ONERS+1~, ONERS+5!, ONERS+13!
TX( ONERS+11*, ONERS+14*, ONERS+16, ONERS+17, ONERS+18
TX(" " ONERS+11, ONERS+14
TX(1 ONERS+7*
TX2 ONERS+5!, ONERS+7, ONERS+8, MULRSW+2~, MULRSW+13!, MULRSW+15, MULRSW+18
TX2( ONERS+9, ONERS+10, ONERS+11, MULRSW+19
TX2(1 ONERS+6*, MULRSW+14*
TXT ONERS+1~, ONERS+5, ONERS+13, MULRSW+2~, MULRSW+13, MULRSW+21, INPH+1~, INPH+6, INPH+10, INPH2+1~
, INPH2+11, INPH2+22
TXT( ONERS+6, ONERS+13, ONERS+14, MULRSW+14, MULRSW+21, MULRSW+22, INPH+7, INPH+11, INPH2+12, INPH2+23
TXT(1 ONERS+3*, ONERS+5*, ONERS+7, MULRSW+13*, MULRSW+15, MULRSW+20*, INPH+6*, INPH+10*, INPH2+11*, INPH2+22*
TYPE INPH+1~, INPH+2*, INPH+3, INPH+8, INPH+9, INPH2+1~, INPH2+2*, INPH2+3, INPH2+13, INPH2+14
, INPH2+15, INPH2+21
U ONERS+3, ONESM+3, MULRS+3*, MULRS+7, MULRSS+11, MULSM+3*, MULSM+6
VER INP~, INP+2*, INP+9, INPH+5, INPH+9, INPH2+9, INPH2+20, INPRE+9, INPRE+10
VST ONESM+1~, ONESM+4*, ONESM+5, MULSM+2~, MULSM+5~, MULSM+7*, MULSM+8
X ASK+1!, ASK+3!, ASK+5*, ASK+13*, ASK+15!, SBR+8*, SBR+10*, SBR+11!*, ONE~, ONE+1*
, ONE+2, ONERS~, ONESM~, ONESM+8*, ONESM+9*, ONESM+10*, ONESM+11*, ONESM+12, MUL~, MUL+1*
, MUL+2, MULRS~, MULRS+12, MULRSS+2~, MULRSS+10*, MULRSS+11*, MULSM~, MULSMS+1~, MULSMS+6*, MULSMS+7*
, MULSMS+8*, MULSMS+9, MULQ+1*, MULQ+2, INP~, INP+3, INP+23!, INP+24, INP+27*, INP+28*
, INP+29*, INP+30, INP+31*, INP+32, INPH~, INPH+1, INPH2~, INPH2+1, INPRE~, INPRE+1
, INPRE+4, INPRE+5*, INPRE+6, INPRE+9*, INPRE+15*, INPRE+16, OUT~, OUT+1, TM~, TM+2*
, TM+3*, TM+4, X+1!, X+2*
Y ASK+1!, ASK+3!, ASK+5, ASK+6, ASK+8!*, ASK+13, ASK+14, ASK+15!, SBR+1!*, SBR+8
SBR+9, SBR+10, SBR+11!*, ONERS+1~, ONERS+25*, ONERS+26*, ONERS+27, MULRS+1~, MULRSW+2~, MULRSW+7~
, MULRSS+2~, MULRSS+10*, MULRSS+11*, MULSM+2~, INP+22~, INP+24*, INP+27*, INP+31, OUT~, OUT+1
, TM~, TM+1*, TM+2, TM+3, Y+21!*, Y+22*, Y+34*
Y(0 Y+35*, Y+40*, Y+41*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All