Routine: ICDEXLK6

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

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

Customize PDF page

Package: DRG Grouper

Routine: ICDEXLK6

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: