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

Source Information

Source file <ICDEXLK6.m>

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

Caller Graph Total: 2

Package Total Caller Graph
DRG Grouper 2 ICDEXLK  ICDEXLK2  

Entry Points

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

External References

Name Field # of Occurrence
^DIM DIM+1
$$GET1^DIQ FILH+4, SAV+9, RET+6
^DIR FILE+6, CDT+10
^DIWP PA+3
$$CS^ICDEX SYS+4
$$FILE^ICDEX FILE+1, FILE+2, SYS+1, SYS+2, SAV+5, RET+4, OUT+3
$$IMP^ICDEX CDT+2, CDT+3
$$LD^ICDEX OUT+6
$$ROOT^ICDEX SAV+3, 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+11
$$FMADD^XLFDT CDT+3, SAV+11
$$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+13*, RET+9
^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+12*, RET+8

Label References

Name Line Occurrences
$$DIM DX+17, PR+17
$$FILN FILE+3, SYS+2
$$TM PA+5
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*
CM SAV+1~, SAV+7*, SAV+10*, SAV+12, RET+1~, RET+5*, RET+7*
CUR SAV+1~, SAV+11*, SAV+12, RET+1~
DIC DX+10*, DX+18!, PR+10*, PR+18!, SAV~, SAV+2, SAV+3, RET~, RET+2
DIC("A" DX+16*, PR+16*
DIC("S" DX+17!, PR+17!
DIC("W" DX+17!, PR+17!
DIC(0 DX+10*, PR+10*
DINUM DIC0+16!
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+2, SAV+8, SAV+13, RET+6
DY CDTH+4~, CDTH+5*, CDTH+8, CDTH+9
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+5*
, SAV+6, SAV+7, SAV+10, RET+1~, RET+4*, RET+5, RET+7, 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+11*, SAV+12, 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
ICDFMT DX+12~*, PR+12~*
ICDI PA+1~, PA+3*, PA+4*, PA+5
ICDLEN PA+1~, PA+2*, PA+3
ICDSYS DX9+6~*, DX10+6~*, DX+11~*, DX+14*, PR9+6~*, PR10+6~*, PR+11~*, PR+14*
ICDVDT DX+13~*, PR+13~*
ID SAV+1~, SAV+11*, SAV+12, RET+1~, RET+8*
IEN OUT+1~*, OUT+4, OUT+5, OUT+6
KEY SAV+1~, SAV+10*, SAV+11, RET+1~, RET+7*, RET+8
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
NAM SAV+1~, SAV+9*, RET+1~, RET+6*
NM FILH+3~, FILH+4*, FILH+5
NUM FILN+1~*, FILN+2*, SAV+1~, SAV+8*, SAV+9, SAV+11, RET+1~, RET+6*, RET+8, RET+9
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+3*, SAV+4, SAV+5, SAV+13, RET+1~, RET+2*
, RET+3, RET+4, RET+9, 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+4*, SAV+12, RET+1~, RET+3*, RET+8
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+9*, SAV+12
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
, SAV~, RET+8*, RET+9*, RET+10, PA~, PA+2, PA+3*, OUT~, OUT+1, TM~
, TM+2*, TM+3*, TM+4
Y FILE+1~, FILE+6*, FILE+7, SYS+1~, CDT+1~, CDT+11, SAV+2, SAV+9, SAV+13, 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