Routine: AICDADK

Information

AICDADK ; IHS/OHPRD/ACC - ADD KEYWORDS TO "OTHER KEYWORDS" FIELD IN ^ICD0/9 ;

Package	Total	Call Graph
IHS ICD CPT Lookup and Grouper	1	(CANONIC,CHKCODE,GETKWD,NONCON,SET)^AICDADK1
Uncategorized	1	^%AUKVAR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"AICDADK CANNOT BE ENTERED AT THE TOP -- USE DX OR OP",!! Line Location: AICDADK+2
Function Call: WRITE	Prompt: "- - - Add keywords to ",$P(@AICDGBL@(0),U,1)," ""OTHER KEYWORDS"" field - - -",!! Line Location: INIT+2
Function Call: READ	Prompt: "Code: " Timeout: DTIME Variable: AICDCODE Line Location: MAINLP+0
Function Call: WRITE	Prompt: ! Line Location: MAINLP+1
Function Call: WRITE	Prompt: !,"B y e . . .",! Line Location: MAINLP+3
Function Call: WRITE	Prompt: AICDBB," -- Invalid ICD code format",! Line Location: GCODE+1
Function Call: WRITE	Prompt: " ",@AICDGBL@(AICDCDFN,1),! Line Location: GCODE+3
Function Call: WRITE	Prompt: AICDBB," -- Code does not exist and has no more specific descendents.",! Line Location: GCODE+5
Function Call: WRITE	Prompt: !," Code does not exist as entered, but has descendents." Line Location: GCODE+6
Function Call: READ	Prompt: " Do you wish to add keywords to the more specific subcodes? Y// " Formatting: ! Timeout: DTIME,! Variable: AICDA Line Location: GCODE+7

Name	Line Occurrences (* Changed, ! Killed)
^DD("KWIC"	INIT+1

Name	Line Occurrences
GCODE	MAINLP
INIT	DX+1

Name	Field # of Occurrence
^(	GCODE+3

Name	Field # of Occurrence
AICDA	MAINLP+2!, GCODE+7*, GCODE+8
AICDBB	INIT*, MAINLP+2!, GCODE+1, GCODE+5
AICDCDFN	MAINLP+2!, GCODE+2, GCODE+3
AICDCNT	MAINLP+2!
AICDCODE	MAINLP, MAINLP+2!, GCODE+1, GCODE+3, GCODE+4, GCODE+5, GCODE+10, GCODE+11
AICDDFN	MAINLP+2!
AICDEXEC	MAINLP+2!
AICDFLD	INIT*, MAINLP+2!
AICDGBL	DX, OP, INIT+2, MAINLP+2!, GCODE+3, GCODE+4
AICDI	MAINLP+2!
AICDL	MAINLP+2!
AICDLAST	INIT, MAINLP, MAINLP+2!
AICDNUMB	MAINLP+2!, GCODE+3, GCODE+4, GCODE+5, GCODE+10*
AICDNW	MAINLP+2!
AICDNWS	INIT+1*, MAINLP+2!
AICDQ	MAINLP*, MAINLP+2!
AICDSQN	MAINLP+2!
AICDW	MAINLP+2!
AICDWC	MAINLP+2!
AICDWD	MAINLP+2!
AICDWF	MAINLP+2!
AICDWS	MAINLP+2!
AICDWSV	MAINLP+2!
AICDWT	MAINLP+2!
DTIME	MAINLP, GCODE+7
U	INIT+2, MAINLP, GCODE+7