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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICDEXLK6

Package: DRG Grouper

Routine: ICDEXLK6


Information

ICDEXLK6 ;SLC/KER - ICD Extractor - Lookup, Miscellaneous ;12/19/2014

Source Information

Source file <ICDEXLK6.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIM  $$GET1^DIQ  ^DIR  ^DIWP  
DRG Grouper 2 ($$CS,$$FILE,$$IMP,$$LD,$$ROOT,$$SD,$$SNAM,$$SYS,PAR)^ICDEX  LK^ICDEXLK  
Kernel 2 ($$DT,$$FMADD,$$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 ICDEXLK  ICDEXLK2  ICDEXLK5  

Entry Points

Name Comments DBIA/ICR reference
DX9 ; Fileman Lookup ICD-9 Diagnosis (interactive)
DX10 ; Fileman Lookup ICD-10 Diagnosis (interactive)
DX ; Fileman Lookup Diagnosis (interactive)
PR9 ; Fileman Lookup ICD-9 Procedures (interactive)
PR10 ; Fileman Lookup ICD-10 Procedures (interactive)
PR ; Fileman Lookup Procedure (interactive)
DIM(X) ; Check MUMPS Code
FILE(FILE,SYS) ; File
FILT(X) ; File Transform
FILN(X) ; File Number
FILH ; File Help
SYS(FILE,SYS) ; System
CDT(CDT,SYS) ; Date
CDTT(X) ; Date Transform
CDTH ; Date Help
DIC0(X) ; Correct DIC(0) for a versioned file
DICU ; Undo DIC
DIE ; Set for DIE call
DICS(ICDS) ; Check DIC("S")
SAV(X,DIC) ; Save Defaults
RET(DIC) ; Retrieve Defaults
PA(ICD,X) ; Parse Array
OUT(X,Y,Z,ARY) ; Output Array
XT(X) ; Input Transform for X
TM(X,Y) ; Trim Y

External References

Name Field # of Occurrence
^DIM DIM+1, DICS+2
$$GET1^DIQ FILH+4, SAV+4, RET+4
^DIR FILE+6, CDT+10
^DIWP PA+3
$$CS^ICDEX SYS+4
$$FILE^ICDEX FILE+1, FILE+2, SYS+1, SYS+2, SAV+3, RET+3, OUT+3
$$IMP^ICDEX CDT+2, CDT+3
$$LD^ICDEX OUT+6
$$ROOT^ICDEX SAV+2, RET+2
$$SD^ICDEX OUT+5
$$SNAM^ICDEX DX+14, PR+14
$$SYS^ICDEX FILE+2, SYS+1, CDT+2
PAR^ICDEX OUT+8
LK^ICDEXLK DX+18, PR+18
$$DT^XLFDT DX+13, PR+13, CDT+3, CDT+6, SAV+6
$$FMADD^XLFDT CDT+3, SAV+6
$$FMTE^XLFDT CDT+6, CDTH+4
$$UP^XLFSTR FILT+1, FILN+1, CDT+6, CDTT+1, CDTH+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,FI,?16,CD,?20,NM,?41,RT
  • Line Location: FILH+5
Function Call: WRITE
  • Prompt: !,?5,"Enter a date to be used to determine the appropriate codes"
  • Line Location: CDTH+1
Function Call: WRITE
  • Prompt: !,?5,"and terms that were in use on the date specified. ",!
  • Line Location: CDTH+2
Function Call: WRITE
  • Prompt: !,?5,"Date must be from ",BEG," to ",END,!
  • Line Location: CDTH+6
Function Call: WRITE
  • Prompt: !,?5,"Examples of Valid Dates:",!
  • Line Location: CDTH+7
Function Call: WRITE
  • Prompt: !,?9,MO," ",DY," ",YR," or "
  • Line Location: CDTH+8
Function Call: WRITE
  • Prompt: DY," ",MO," ",$S($L(YR)=2:YR,$L(YR)=4:$E(YR,3,4),1:"")," or "
  • Line Location: CDTH+9
Function Call: WRITE
  • Prompt: +($E(LO,6,7)),"/",$E(LO,4,5),"/",$E((1700+$E(LO,1,3)),3,4)," or "
  • Line Location: CDTH+10
Function Call: WRITE
  • Prompt: $E(LO,4,5),$E(LO,6,7),$E((1700+$E(LO,1,3)),3,4)
  • Line Location: CDTH+11
Function Call: WRITE
  • Prompt: !,?5,"Examples of Valid Dates:",!
  • Line Location: CDTH+13
Function Call: WRITE
  • Prompt: !,?9,"JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057"
  • Line Location: CDTH+14
Function Call: WRITE
  • Prompt: !,?9," T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc."
  • Line Location: CDTH+15
Function Call: WRITE
  • Prompt: !,?9," T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc.",!
  • Line Location: CDTH+16
Function Call: WRITE
  • Prompt: !,?5,"This date is sometimes called the 'versioning date' (VistA) or"
  • Line Location: CDTH+17
Function Call: WRITE
  • Prompt: !,?5,"the 'date service was provided to the patient' (HIPAA)"
  • Line Location: CDTH+18
Routine Call
  • DIR
  • Line Location:
    • FILE+6
    • CDT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC - [#1] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^ICD9 - [#80] Classic Fileman Calls
^ICD0 - [#80.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( SAV+8*, RET+6
^ICDS - [#80.4] DX+14, PR+14, SYS+4
^ICDS("F" DX+11, PR+11, FILE+1, FILE+2, FILE+3, FILN+2, FILH+1, FILH+2, SYS+2, SYS+3
^UTILITY($J PA+1!, PA+4, PA+5, PA+6!
^XTMP( SAV+7*, SAV+8*, RET+6

Label References

Name Line Occurrences
$$DIM DX+17, PR+17
$$FILN FILE+3, SYS+2
$$TM SAV+5, RET+5, PA+5, XT+1
DX DX9+6, DX10+6
PR PR9+6, PR10+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY OUT~, OUT+1!, OUT+8
ARY(1 OUT+7*
BEG CDTH+4~*, CDTH+5, CDTH+6
CD FILH+3~*, FILH+5
CDT CDT~, CDT+2*, CDT+4*, CDT+5, OUT+5, OUT+6
CHR DIC0+16~*, DIC0+17, DIC0+18*
COM SAV+1~, SAV+5*, SAV+7, RET+1~, RET+5*
CUR SAV+1~, SAV+6*, SAV+7, RET+1~
DIC DX+10*, DX+18!, PR+10*, PR+18!, SAV~, SAV+1, SAV+2, RET~, RET+1, RET+2
DIC("A" DX+16*, PR+16*, DICU+2*, DIE+1*, DIE+2*
DIC("B" DICU+3*
DIC("S" DX+17!, PR+17!, DICU+4*
DIC("W" DX+17!, PR+17!, DICU+1*
DIC(0 DX+10*, PR+10*, DICU+5*, DICU+6*
DIE DIE+1, DIE+3~
DINUM DIC0+16!
DIP DIE+1, DIE+3~
DIR FILE+4~, SYS+1~, CDT+1~
DIR("?" FILE+5*, CDT+9*
DIR("??" FILE+5*, CDT+9*
DIR("A" FILE+5*, CDT+8*
DIR("B" CDT+6*
DIR("PRE" FILE+5*, CDT+9*
DIR(0 FILE+4*, CDT+7*
DIROUT FILE+4~, SYS+1~, CDT+1~
DIRUT FILE+4~, SYS+1~, CDT+1~
DIW PA+1~
DIWF PA+1~, PA+3*
DIWI PA+1~
DIWL PA+1~, PA+3*
DIWR PA+1~
DIWT PA+1~
DIWTC PA+1~
DIWX PA+1~
DLAYGO DIC0+16!
DN PA+1~
DTOUT FILE+4~, SYS+1~, CDT+1~
DUOUT FILE+4~, SYS+1~, CDT+1~
DUZ SAV+1, SAV+4, SAV+8, RET+1, RET+4
DY CDTH+4~, CDTH+5*, CDTH+8, CDTH+9
DZ DIE+3~
END CDTH+4~*, CDTH+6
FI FILH+2~*, FILH+3, FILH+4, FILH+5
FILE FILE~, FILE+1, FILE+3, SYS~, SYS+1, SYS+2, SYS+3*, SYS+4, SAV+1~, SAV+3*
, SAV+5, RET+1~, RET+3*, RET+5, OUT+1~, OUT+3*, OUT+5, OUT+6
FMT OUT+1~*, OUT+4*, OUT+5, OUT+6, OUT+7, OUT+8
FUT SAV+1~, SAV+6*, SAV+7, RET+1~
HI CDT+1~, CDT+3*, CDT+4, CDT+5, CDT+6, CDT+7, CDTH+3, CDTH+4, CDTH+12
ICD PA~, PA+1, PA+2, PA+4!, PA+6*
ICD( PA+3, PA+5*
ICD(" " PA+2
ICDC PA+1~, PA+2*, PA+4*, PA+5*, PA+6
>> ICDDIC0 DICU+5
>> ICDDIC00 DICU+6
>> ICDDICA DICU+2
>> ICDDICB DICU+3
>> ICDDICS DICU+4
>> ICDDICW DICU+1
ICDFMT DX+12~*, PR+12~*
ICDI PA+1~, PA+3*, PA+4*, PA+5
ICDLEN PA+1~, PA+2*, PA+3
ICDS DICS~, DICS+1, DICS+2, DICS+3*, DICS+4
ICDSYS DX9+6~*, DX10+6~*, DX+11~*, DX+14*, PR9+6~*, PR10+6~*, PR+11~*, PR+14*
ICDT1 DICS+1~*, DICS+2, DICS+3
ICDT2 DICS+1~*, DICS+2, DICS+3
ICDTS DICS+1~, DICS+2*, DICS+3
ICDVDT DX+13~*, PR+13~*
>> ICDX DICS+3
ID SAV+1~, SAV+5*, SAV+7, SAV+8, RET+1~, RET+5*, RET+6
IEN OUT+1~*, OUT+4, OUT+5, OUT+6
LAYGO DIC0+16!
LO CDT+1~, CDT+2*, CDT+3*, CDT+4, CDT+5, CDT+6, CDT+7, CDTH+3, CDTH+4, CDTH+10
, CDTH+11, CDTH+12
MO CDTH+4~, CDTH+5*, CDTH+8, CDTH+9
NM FILH+3~, FILH+4*, FILH+5
NUM FILN+1~*, FILN+2*, SAV+1~, SAV+4*, SAV+5, RET+1~, RET+4*, RET+5, RET+6
NX CDT+1~, CDT+3*
OFMT DX+10~, DX+12*, PR+10~, PR+12*
OSYS DX+10~, DX+11*, PR+10~, PR+11*
OVDT DX+10~, DX+13*, PR+10~, PR+13*
ROOT FILE+1~*, SYS+1~*, CDT+1~, SAV+1~, SAV+2*, SAV+3, SAV+8, RET+1~, RET+2*, RET+3
, RET+6, OUT+1~*, OUT+2, OUT+3, OUT+4
RT FILH+3~*, FILH+5
SNAM DX+10~*, DX+14*, DX+15*, DX+16, PR+10~*, PR+14*, PR+15*, PR+16
STR DIC0+16~, DIC0+18*, DIC0+22*, DIC0+26*, DIC0+27*, DIC0+28
SUB SAV+1~, SAV+2*, SAV+8, RET+1~, RET+2*, RET+6
SYS FILE~, FILE+2*, SYS~, SYS+1*, SYS+2, SYS+3, SYS+4*, CDT~, CDT+2*, CDT+3
SYSD DX+10~*, DX+13, DX+14*, PR+10~*, PR+13, PR+14*
TD CDT+1~, CDT+6*
TERM OUT+1~, OUT+5*, OUT+6*, OUT+7
TMP FILE+1~*, FILE+2*, FILE+3*, FILN+1~*, FILN+2, SYS+1~*, SYS+2*, SYS+3, CDT+1~, CDT+6*
VAL SAV+1~, SAV+4*, SAV+8
X DX+10!, PR+10!, DIM~, DIM+1*, FILT~, FILT+1*, FILT+2*, FILN~, FILN+1, FILN+3
, CDTT~, CDTT+1*, CDTT+2, DIC0~, DIC0+16*, DIC0+17*, DIC0+18, DIC0+26, DIC0+28*, DIC0+29
, DICS+1, DICS+2*, DICS+3*, SAV~, RET+6*, RET+7, PA~, PA+2, PA+3*, OUT~
, OUT+1, XT~, XT+1*, XT+2, TM~, TM+2*, TM+3*, TM+4
X1 DIE+3~
Y FILE+1~, FILE+6*, FILE+7, SYS+1~, CDT+1~, CDT+11, SAV+1, SAV+4, SAV+8, OUT~
, OUT+1, TM~, TM+1*, TM+2, TM+3
YR CDTH+4~, CDTH+5*, CDTH+8, CDTH+9
Z OUT~, OUT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All