Routine: ICDDICA

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC $$GET1^DIQ ^DIR
Kernel	2	($$DT,$$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
DRG Grouper	1	$$IMP^ICDEX

Package	Total	Caller Graph
DRG Grouper	1	ICDDIC

Entry Points

Name	Comments	DBIA/ICR reference
SAV(X,ICDV)	; Save Defaults
OAP(X)	; One or All Coding System - Pre-process
VD(X)	; Versioned Date
OAH	; One or All Coding System - Help
VDH	; Diagnosis or Procedure - Help
DPH	; Diagnosis or Procedure - Help
DP(X)	; Diagnosis or Procedure
VRP(X)	; Diagnosis or Procedure - Pre-process
RET(X)	; Retrieve Defaults
DPP(X)	; Diagnosis or Procedure - Pre-process
VRH	; Diagnosis or Procedure - Help
EN	;
CSH	; One or All Coding System - Help
CS(X)	; Coding System
FMH	; Display Format - Help
VDP(X)	; Diagnosis or Procedure - Pre-process
VR(X)	; Versioned Search
EFM(X)	; Convert External Date to FM
FMP(X)	; Diagnosis or Procedure - Pre-process
OA(X)	; One or All Coding System
FM(X)	; Diagnosis or Procedure
TM(X,Y)	; Trim Character Y - Default " "

External References

Name	Field # of Occurrence
^%DT	EFM+1
^DIC	CS+11
$$GET1^DIQ	SAV+3, RET+3
^DIR	DP+7, OA+9, VR+6, VD+9, FM+7
$$IMP^ICDEX	EN+8
$$DT^XLFDT	VD+2, SAV+5, RET+5
$$FMADD^XLFDT	VD+2, SAV+5, RET+5
$$FMTE^XLFDT	VD+4, VD+8, VD+10, VDP+4, VDH+1
$$UP^XLFSTR	DPP+2, OAP+1, VRP+2, VD+10, VDP+1, VDP+4, FMP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: !,?5,"Enter 'D' or 'Diagnosis' to search the ICD DIAGNOSIS file #80" Line Location: DPH+1
Function Call: WRITE	Prompt: !,?5,"Enter 'P' or 'Procedures' to search the ICD PROCEDURE file #80.1" Line Location: DPH+2
Function Call: WRITE	Prompt: !,?5,"Enter '^' to quit, and 'Return' to accept the default value." Line Location: DPH+3
Function Call: WRITE	Prompt: !,?5,"Enter 'O' to search one coding system " Line Location: OAH+1
Function Call: WRITE	Prompt: "in file ",$G(ICDF) Condition for execution: +($G(ICDF))>0 Line Location: OAH+1
Function Call: WRITE	Prompt: !,?5,"Enter 'A' to search all coding systems " Line Location: OAH+2
Function Call: WRITE	Prompt: "in file ",$G(ICDF) Condition for execution: +($G(ICDF))>0 Line Location: OAH+2
Function Call: WRITE	Prompt: !,?15,ICDS Line Location: OAH+6
Function Call: WRITE	Prompt: !,?5,"Answer with ICD CODING SYSTEMS (i.e., " Line Location: CSH+1
Function Call: WRITE	Prompt: $S(+ICDF=80:"ICD-10-CM",+ICDF=80.1:"ICD-10-PCS",1:"ICD-10-CM") Line Location: CSH+2
Function Call: WRITE	Prompt: " or ICD CODING SYSTEM NOMENCLATURE, or" Line Location: CSH+3
Function Call: WRITE	Prompt: ?5,"CODING SYSTEM ABBREVIATION" Line Location: CSH+4
Function Call: WRITE	Prompt: !,?15,ICDS Line Location: CSH+9
Function Call: WRITE	Prompt: !,?5,"Enter 'Yes' to conduct a versioned search (date sensitive) or" Line Location: VRH+1
Function Call: WRITE	Prompt: !,?5,"enter 'No' to contuct an unversioned search.",! Line Location: VRH+2
Function Call: WRITE	Prompt: !,?5,"NOTE: Inactive codes will NOT be displayed during a versioned" Line Location: VRH+3
Function Call: WRITE	Prompt: !,?5," search (date sensitive) and will be displayed during an " Line Location: VRH+4
Function Call: WRITE	Prompt: !,?5," unversioned search (date doesn't matter)." Line Location: VRH+5
Function Call: WRITE	Prompt: !,?5,"Enter a date from ",$$FMTE^XLFDT($G(ICDD1))," to ",$$FMTE^XLFDT($G(ICDD2)),". Time is" Line Location: VDH+1
Function Call: WRITE	Prompt: !,?5,"allowed but not required. Code Set Business rules apply" Line Location: VDH+2
Function Call: WRITE	Prompt: !,?5,"for imprecise dates:",! Line Location: VDH+3
Function Call: WRITE	Prompt: !,?5," Month is missing: Use January" Line Location: VDH+4
Function Call: WRITE	Prompt: !,?5," Day is missing: Use the 1st" Line Location: VDH+5
Function Call: WRITE	Prompt: !,?5,"Enter " Line Location: FMH+22
Function Call: WRITE	Prompt: !,?5," 1 FileMan format, code followed by short text (default):" Line Location: FMH+23
Function Call: WRITE	Prompt: !,?5,"" Line Location: FMH+24
Function Call: WRITE	Prompt: !,?5," ",ICDCOD," ",ICDSHRT Line Location: FMH+25
Function Call: WRITE	Prompt: !,?5,"" Line Location: FMH+26
Function Call: WRITE	Prompt: !,?5," 2 Modified FileMan format, code followed by description:" Line Location: FMH+27
Function Call: WRITE	Prompt: !,?5,"" Line Location: FMH+28
Function Call: WRITE	Prompt: !,?5," ",ICDCOD," ",ICDLONG Line Location: FMH+29
Function Call: WRITE	Prompt: !,?5,"" Line Location: FMH+30
Function Call: WRITE	Prompt: !,?5," 3 Short Lexicon format, short text followed by code:" Line Location: FMH+31
Function Call: WRITE	Prompt: !,?5,"" Line Location: FMH+32
Function Call: WRITE	Prompt: !,?5," ",ICDSHRT," (",ICDCOD,")" Line Location: FMH+33
Function Call: WRITE	Prompt: !,?5,"" Line Location: FMH+34
Function Call: WRITE	Prompt: !,?5," 4 Long Lexicon format, description followed by code:" Line Location: FMH+35
Function Call: WRITE	Prompt: !,?5," " Line Location: FMH+36
Function Call: WRITE	Prompt: !,?5," ",ICDMIX," (",ICDCOD,")" Line Location: FMH+37
Function Call: WRITE	Prompt: !,?5," " Line Location: FMH+38
Routine Call	DIC Line Location: CS+11
Routine Call	DIR Line Location: DP+7 OA+9 VR+6 VD+9 FM+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICDS - [#80.4]	OAH+5, CS+3, CS+6, CS+11, CSH+8
^ICDS("B"	CS+4
^ICDS("C"	CS+5
^ICDS("F"	OA+2, OAH+3, OAH+4, CS+2, CSH+6, CSH+7
^XTMP(	SAV+6*, RET+6

Label References

Name	Line Occurrences
$$CS	EN+5
$$DP	EN+2
$$EFM	VDP+2
$$FM	EN+11
$$OA	EN+4
$$RET	DP+3, OA+4, CS+4, VR+2, VD+4, FM+3
$$TM	SAV+4, RET+3
$$VD	EN+7
$$VR	EN+6
SAV	DP+9, OA+11, CS+11, VR+8, VD+11, FM+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EFM+1~!
DIC	CS+1~, CS+3*
DIC("?"	CS+10*
DIC("??"	CS+10*
DIC("A"	CS+8*
DIC("B"	CS+7*
DIC("S"	CS+9*
DIC(0	CS+3*
DIR	DP+1~, OA+1~, VR+1~, VD+1~, FM+1~
DIR("?"	DP+4, OA+5, VR+3, VD+5, FM+4*
DIR("??"	DP+4, OA+5, VR+3, VD+5, FM+4*
DIR("A"	DP+6, OA+7, OA+8, VR+5, VD+7, VD+8, FM+6*
DIR("B"	DP+3, OA+4, VR+2, VD+4, FM+3*
DIR("PRE"	DP+5, OA+6, VR+4, VD+6, FM+5*
DIR(0	DP+2, OA+3, VR+2, VD+3, FM+2*
DIROUT	DP+1!, OA+1!, CS+1!, VR+1!, VD+1!, FM+1!
DIRUT	DP+1!, OA+1!, CS+1!, VR+1!, VD+1!, FM+1!
DTOUT	EN+2, EN+4, EN+5, EN+6, EN+7, EN+11, DP+1!, OA+1!, CS+1!, VR+1! , VD+1!, FM+1!
DUOUT	EN+2, EN+4, EN+5, EN+6, EN+7, EN+11, DP+1!, OA+1!, CS+1!, VR+1! , VD+1!, FM+1!
DUZ	SAV+2, RET+2
ICD	DP+1~!, DP+2, OA+1~!, OA+3, CS+1~!, CS+3, VR+1~!, VR+2, VD+1~!, FM+1~!*
ICD10D	EN+8~*, EN+9, EN+10
ICDA	VDP+2~, VDP+3, VDP+4*
ICDB	DP+1~, OA+1~, CS+1~, CS+4, CS+5, CS+6, CS+7, VR+1~, VD+1~, FM+1~
ICDBI	CS+1~, CS+4, CS+5, CS+6
ICDC	OAH+4~, OAH+5, CSH+7~, CSH+8, SAV+1~, SAV+2, SAV+4, SAV+6, RET+1~, RET+2* , RET+3*, RET+4
ICDCOD	FMH+1~, FMH+3, FMH+8, FMH+13, FMH+18, FMH+25, FMH+29, FMH+33, FMH+37
>> ICDCS	EN+2, EN+5, EN+8, EN+9, EN+10
ICDD	CS+1~, CS+3, CS+7, CS+11, SAV+1~, SAV+5, SAV+6, RET+1~, RET+5
ICDD1	VD+1~, VD+2*, VD+3, VD+8, VDH+1
ICDD2	VD+1~, VD+2*, VD+3, VD+8, VDH+1
>> ICDDP	EN+2*, EN+3
ICDF	OA+1~, OA+2, OA+7, OAH+1, OAH+2, OAH+3, OAH+4, CS+1~, CS+2, CS+6 , CSH+2, CSH+6, CSH+7, SAV+1~, SAV+5, SAV+6, RET+1~, RET+5
>> ICDFI	EN+3*, EN+4, EN+5, EN+6, EN+7, EN+9, EN+10
>> ICDFM	EN+11*
ICDI	OAH+4~, OAH+5, CS+1~, CS+2, CS+3, CSH+7~, CSH+8, VDP+2~
ICDID	SAV+1~, SAV+5, SAV+6, RET+1~, RET+5, RET+6
ICDK	SAV+1~, SAV+4, SAV+5, RET+1~, RET+4, RET+5
ICDLONG	FMH+1~, FMH+5, FMH+10, FMH+15, FMH+20, FMH+29
ICDMIX	FMH+1~, FMH+6, FMH+11, FMH+16, FMH+21, FMH+37
ICDN	DP+1~, DP+8, DP+9, OA+1~, OA+10, OA+11, CS+1~, VR+1~, VR+7, VR+8 , VD+1~, VD+10, VD+11, FM+1~, FM+7, FM+8, SAV+1~, SAV+3, RET+1~, RET+3*
ICDO	VDP+2~, VDP+4*
>> ICDOA	EN+4*, EN+5
ICDR	SAV+1~, SAV+5, RET+1~, RET+5
ICDS	OAH+5~, OAH+6, CSH+8~, CSH+9
ICDSHRT	FMH+1~, FMH+4, FMH+9, FMH+14, FMH+19, FMH+25, FMH+33
ICDSRC	EN+8, EN+9, EN+10, FM+1~, FMH+2, FMH+7, FMH+12, FMH+17
ICDT	SAV+1~, SAV+2, SAV+6, RET+1~, RET+2, RET+6
ICDTD	VD+1~, VD+2*, VD+4
ICDTEST	EN+12~
ICDU	SAV+1~, SAV+2, SAV+3, SAV+5, RET+1~, RET+2, RET+3, RET+5
ICDV	SAV~, SAV+3
ICDVAL	SAV+1~, SAV+3*, SAV+6
>> ICDVD	EN+7*, EN+9, EN+10
>> ICDVR	EN+6*, EN+7
IOF	EN+1
X	DP~, DP+7, DP+8, DP+10, DPP~, DPP+1, DPP+2, DPP+3, DPP+4, OA~ , OA+2, OA+9, OA+10, OA+12, OAP~, OAP+1, OAP+2, OAP+3, OAP+4, OAP+5 , OAP+6, OAP+7, CS~, CS+2, CS+12, CS+13, VR~, VR+6, VR+7, VR+9 , VRP~, VRP+1, VRP+2, VRP+3, VRP+4, VD~, VD+9, VD+10, VD+12, VDP~ , VDP+1, VDP+2, VDP+4, VDP+5, FM~, FM+1, FM+7, FM+9, FMP~, FMP+1 , FMP+2, FMP+3, FMP+4, FMP+5, FMP+6, FMP+7, FMP+8, SAV~, SAV+2, RET~ , RET+2, RET+6, RET+7, EFM~, EFM+1, EFM+2, TM~, TM+1, TM+2, TM+3 , TM+4
Y	DP+1~, DP+7, OA+1~, OA+9, CS+1~, CS+11, CS+12, VR+1~, VR+6, VD+1~ , VD+9, FM+1~, FM+7, SAV+1~, EFM+1~, TM~, TM+1*, TM+2, TM+3
Y(0	FM+7

Marked Items

Name	Field # of Occurrence
$T(	SAV+1, RET+1
$T(@(5)	SAV+2, RET+2

Customize PDF page

Package: DRG Grouper

Routine: ICDDICA

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items