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, Ask ;04/21/2014

Source Information

Source file <ICDEXLK2.m>

Call Graph

Call Graph Total: 7

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 1 ($$DT,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
DRG Grouper 3 ICDEX  ICDEXLK  ICDEXLK5  

Entry Points

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

External References

Name Field # of Occurrence
CLRMSG^DDS ONESM+8, MULSM+20, MULSMS+6
HLP^DDSMSG ONESM+8, MULSMS+5
^DIR ONERS+23, 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+12, MULRSW+15, MULRSW+18, 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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONERS+20
Function Call: WRITE
  • Prompt: !,DIR("A",LN2)
  • Line Location: ONERS+22
Function Call: READ
  • Timeout: 300
  • Variable: ANS
  • 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+8
Function Call: WRITE
  • Prompt: $P($G(@(RT_+IEN_",0)")),"^",1)
  • Line Location: MULRSW+10
Function Call: WRITE
  • Prompt: $G(TXT(1))
  • Line Location: MULRSW+14
Function Call: WRITE
  • Prompt: !,?IND,$G(TX2(ICDI))
  • Line Location: MULRSW+16
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ICDI>1
  • Line Location: MULRSW+19
Function Call: WRITE
  • Prompt: ?IND,$G(TXT(ICDI))
  • Line Location: MULRSW+19
Function Call: WRITE
  • Prompt: !,$G(HLP)
  • Line Location: MULRSSH+1
Function Call: READ
  • Timeout: 300
  • Variable: ANS
  • 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+8
    • MULSM+20
    • MULSMS+6
Routine Call
  • DIR
  • Line Location:
    • ONERS+23
    • 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+15
$$ONE ASK+9, SBR+5
$$ONERS ONE+1
$$ONESM ONE+1
$$TM INP+29
MULQ MULRS+4, MULRS+11, MULSM+3, MULSM+17, MULSM+21
MULRSW MULRS+8
MULSMW MULSM+9
X ASK+3, ASK+11, SBR+6
Y ASK+4, ASK+12, SBR+7, MULRSW+6

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+10, ONESM+11, ONESM+12*, MULSMS+1~, MULSMS+6*, MULSMS+8, MULSMS+9, MULSMS+10*
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
>> DIC MULRS+2, MULSM+2
>> DIC("S" ONERS+26
>> DIC("W" MULRSW+5, MULRSW+8, MULRSW+9
>> DIC(0 ASK+2, ASK+6, ASK+7, ASK+14, SBR+9, ONERS+2, MULRS+2, INP+1, INP+29, Y+35
, Y+40, Y+41
>> DICR("1" MULSM+18*
>> DICR(1 ONERS+21, ONERS+26
>> 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+22, MULRSS+4*, MULRSS+5*, INP+17*
DIR("B" ONERS+20*, INP+16*, INP+26
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+23!, ONESM+7!, ONESM+11*, MULRSS+9!, MULRSS+11*, MULRSS+12*, MULSM+11*, MULSM+14, MULSM+16*, MULSMS+9*
, INP+23!, INP+25
DIRUT ONERS+23!, ONESM+7!, ONESM+9*, ONESM+10*, ONESM+11*, MULRSS+9!, MULRSS+11*, MULRSS+12*, MULRSS+13*, MULSMS+7*
, MULSMS+9*, INP+23!
DTOUT ONERS+23!, ONERS+27, ONESM+7!, ONESM+9*, MULRSS+9!, MULRSS+14, MULRSS+15, MULSMS+7*, INP+23!, INP+30
DUOUT ONERS+23!, ONESM+7!, ONESM+10*, ONESM+11*, MULRSS+9!, MULRSS+11*, MULRSS+12*, MULRSS+13*, MULSM+11*, MULSM+12
, MULSM+14, MULSM+16*, MULSMS+8*, MULSMS+9*, INP+23!, INP+25, INP+30*
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+13, MULSM+15, MULSMW+1, MULSMW+2
EXIT MULRS+1~, MULRS+3*, MULRS+5, MULRS+9*, MULRS+10*, MULRSS+1, MULRSS+14*, MULSM+1~, MULSM+2*, MULSM+4
, MULSM+11*, MULSM+13, MULSM+16*, MULSM+17, 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
>> FND ASK+1*, ASK+2, ASK+7, ASK+9
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+6, 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+12~*, MULRSW+13, MULRSW+15*, MULRSW+16*, MULRSW+18*, MULRSW+19
>> ICDISF MULRSW+5, MULRSW+9
ICDMENU ONESM+1~, ONESM+7*, ONESM+8, MULSM+1~, MULSM+12!, MULSM+18!, MULSMS+1, MULSMS+5*, MULSMS+6!
ICDMENU( MULSMW+2*, MULSMS+4*
ICDMENU(" " MULSMW+1, MULSMS+4
ICDMENU(1 ONESM+6*
ICDMENU(2 ONESM+6*
>> ICDOFND ASK+3*, SBR+6*, Y+22
>> ICDOINP MULSM+18*
>> ICDOREV ASK+3*, SBR+6*, ONE+1*, ONERS+1*, ONESM+1*, ONESM+8*, MULRS+8*, MULSM+9*
>> ICDOSEL ASK+3*, ASK+8*, ASK+9*, ASK+11*, SBR+6*, Y+22
>> ICDOUPA ONERS+24*, ONERS+25*, MULRSS+10*, INP+24*
>> ICDOUT SBR+4, MULRSW+4, MULRSW+11
ICDQUASR ONERS+21~*
>> ICDSYS SBR+3, SBR+4
>> ICDVER SBR+4
>> ICDX ONERS+26
IEN ONERS+1~, ONERS+3*, ONERS+21, ONESM+1~, ONESM+3*, ONESM+4, MULRS+1~, MULRS+6~, MULRS+7*, MULRSW+1
, MULRSW+6, MULRSW+7, MULRSW+10, 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+16, MULRSW+19
INP ASK+5, ASK+13, ASK+15!, SBR+8, SBR+11!
ITEM ONESM+1~, ONESM+2*, ONESM+3, MULRS+1~, MULRS+6~*, MULRS+7, MULSM+1~, MULSM+5~*, MULSM+6
LAST MULRSS+1~, MULRSS+2*, MULRSS+3, MULSMS+1~, MULSMS+2*
LEN MULRS+1~, MULRS+2*, MULRS+8, MULRS+9, MULRS+10, MULSM+1~, MULSM+3*, MULSM+10, MULSM+13
LEX MULRSS~, MULRSS+2, MULRSS+15*, MULRSS+16, MULSMS~, MULSMS+2
LN ONERS+1~, ONERS+22*
LN2 ONERS+1~, ONERS+22~*
LONG Y+21~, Y+39*, Y+41
LS MULRSS~, MULRSS+2, MULRSS+11, MULRSS+12, MULSMS~, MULSMS+2
MAX MULRS+1~, MULRS+3*, MULRS+8*, MULRS+9, MULRS+10, MULRSS+1~, MULRSS+2*, MULRSS+3, MULRSS+6, MULRSS+9
, MULSM+2~*, MULSM+9*, MULSM+10, MULSM+15, MULSMS+1~, MULSMS+2*, MULSMS+3, MULSMS+10
NC SH+1~, SH+2*, SH+3
ND INPRE+7~
NEXT MULRSS+1~, 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+6~, MULRSW+7*, MULRSW+8
OUT SBR+1~, INPRE+7~
PMT MULSMS+1~, MULSMS+3*, MULSMS+4
RAN MULRSS+1~, 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+6, 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+7, MULRSW+10
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+28
SBS SBR+1~, SBR+3*
SBT INP+1~, INP+8*, INP+15*, INP+28
SEL MULRS+1~, MULRS+3*, MULRS+4*, MULRS+5, MULRS+9*, MULRS+10*, MULSM+2~*, MULSM+3*, MULSM+4, MULSM+10*
, MULSM+11, MULSM+13, MULSM+15*, MULSM+16, 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
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+12, MULRSW+17, 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, MULRSS+11, MULRSS+12, 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+12!, MULRSW+14, MULRSW+15
TX2( ONERS+9, ONERS+10, ONERS+11, MULRSW+16
TX2(1 ONERS+6*, MULRSW+13*
TXT ONERS+1~, ONERS+5, ONERS+13, MULRSW+2~, MULRSW+12, MULRSW+18, INPH+1~, INPH+6, INPH+10, INPH2+1~
, INPH2+11, INPH2+22
TXT( ONERS+6, ONERS+13, ONERS+14, MULRSW+13, MULRSW+18, MULRSW+19, INPH+7, INPH+11, INPH2+12, INPH2+23
TXT(1 ONERS+3*, ONERS+5*, ONERS+7, MULRSW+12*, MULRSW+14, MULRSW+17*, 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+15, MULSM+3*, MULSM+6, INP+30
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~, ONERS+24, ONERS+25, ONERS+27, ONESM~, ONESM+9*, ONESM+10*, ONESM+11*, ONESM+12*
, ONESM+13, MUL~, MUL+1*, MUL+2, MULRS~, MULRS+12, MULRSS+1~, MULRSS+10, MULRSS+11*, MULRSS+12*
, MULRSS+13*, MULRSS+14*, MULRSS+15, MULSM~, MULSMS+1~, MULSMS+6*, MULSMS+7*, MULSMS+8*, MULSMS+9*, MULSMS+10*
, MULSMS+11, MULQ+1*, MULQ+2, INP~, INP+3, INP+23!, INP+24, INP+25, INP+26*, INP+27*
, INP+28*, INP+29*, INP+30*, INP+31, 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+26, ONERS+27, MULRS+1~, MULRSW+2~, MULRSW+6~, MULRSS+1~
, MULRSS+11*, MULRSS+12*, MULRSS+13*, MULRSS+14*, MULRSS+15, MULSM+2~, INP+22~, 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