Routine: AICDADK1

Package	Total	Caller Graph
IHS ICD CPT Lookup and Grouper	1	AICDADK

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SET	; SET WORDS IN WORD TABLE INTO ^ICD0/9 UNDER 'NCODE'
GETKWD	; GET WORD STRING AND BUILD WORD TABLE
NONCON
LIST	; LIST KEYWORDS FOR CODE
REMQT
CANONIC
OPCODE
DXCODE
DECIDE	; DECIDE WHETHER TO SET OR KILL
KILLWD	; KILL WORD IN ^ICD0/9
CHKCODE	; CHECK FORMAT OF CODE
SETWD	; SET WORD INTO ^ICD0/9
TOKNDX	; BREAK WORD INTO TOKENS AND INDEX
SETLOOP
GETSEQ	; GET NEXT AVAIILABLE SUB-DFN

Name	Line Occurrences
Function Call: READ	Prompt: "Keywords: " Timeout: DTIME,! Variable: AICDL Line Location: GETKWD+2
Function Call: WRITE	Prompt: *7,"-- control characters not allowed in input!",! Line Location: GETKWD+4
Function Call: WRITE	Prompt: AICDWD,! Line Location: LIST+2
Function Call: WRITE	Prompt: AICDBB," -- '",AICDWD,"' not in ",AICDNUMB,! Line Location: KILLWD+1
Function Call: WRITE	Prompt: "." Line Location: KILLWD+2

Name	Field # of Occurrence
^(	KILLWD+2!
^(0	SET+3*

Name	Field # of Occurrence
>> AICDBB	KILLWD+1
>> AICDCDFN	LIST+1, LIST+2
>> AICDCNT	SET+4, SET+6, KILLWD+2, SETWD+3*
>> AICDCODE	NONCON, CANONIC, SETLOOP, DXCODE, DXCODE+1, DXCODE+2, DXCODE+3, DXCODE+4, OPCODE, OPCODE+1 , OPCODE+2
>> AICDDFN	SET+1*, SET+2, SET+3, SET+4, SET+6, KILLWD+1, KILLWD+2, SETWD+1, SETWD+4, SETWD+5 , GETSEQ+1
>> AICDEXEC	KILLWD+2, SETWD+6, REMQT+1, REMQT+5
>> AICDFLD	LIST+1, LIST+2, SET+2, SET+3, SET+4, SET+6, KILLWD+1, KILLWD+2, SETWD+1, SETWD+4 , SETWD+5, GETSEQ+1
>> AICDGBL	SETLOOP, LIST+1, LIST+2, SET+1, SET+2, SET+3, SET+4, SET+6*, KILLWD+1, KILLWD+2 , SETWD+1, SETWD+4, SETWD+5, GETSEQ+1, CHKCODE+1
>> AICDI	REMQT, REMQT+3, REMQT+5*
>> AICDL	GETKWD+2, GETKWD+3, GETKWD+4, GETKWD+5, GETKWD+6, LIST+2*
>> AICDNUMB	NONCON, CANONIC, SETLOOP*, SET+1, KILLWD+1
>> AICDNW	GETKWD+5, GETKWD+6
>> AICDNWS	GETKWD+6
>> AICDQ	SETLOOP, GETKWD+5, KILLWD+2*
>> AICDSQN	KILLWD+2, SETWD+4, SETWD+5, GETSEQ+1
>> AICDW	SET+5*
>> AICDWC	REMQT+2, REMQT+3, REMQT+4*, REMQT+5
>> AICDWD	GETKWD+6, LIST+2, SET+5, DECIDE+1, DECIDE+2, DECIDE+3, KILLWD+1, KILLWD+2, SETWD+1, SETWD+4 , SETWD+5, REMQT, REMQT+1, REMQT+2, REMQT+3, REMQT+4, REMQT+5, REMQT+6
>> AICDWF	REMQT+3*, REMQT+4
>> AICDWS	REMQT+2*, REMQT+6
>> AICDWSV	DECIDE+1*, DECIDE+2, DECIDE+3
AICDWT	GETKWD+1!, GETKWD+6
AICDWT(	GETKWD+6*, SET+5
DTIME	GETKWD+2
U	GETKWD+2, SET+4, SET+6

Information