Routine: APCUADDK

Entry Points

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
GETSEQ	; GET NEXT AVAIILABLE SUB-DFN
GCODE	; GOT CODE
KILLWD	; KILL WORD IN ^ICD0/9
LIST	; LIST KEYWORDS FOR CODE
CANONIC
REMQT
INIT
OPCODE
DXCODE
DX
DECIDE	; DECIDE WHETHER TO SET OR KILL
CHKCODE	; CHECK FORMAT OF CODE
SETWD	; SET WORD INTO ^ICD0/9
TOKNDX	; BREAK WORD INTO TOKENS AND INDEX
OP
SETLOOP
MAINLP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"APCUADDK CANNOT BE ENTERED AT THE TOP -- USE DX OR OP",!! Line Location: APCUADDK+1
Function Call: WRITE	Prompt: "- - - Add keywords to ",$P(@GBL@(0),U,1)," ""OTHER KEYWORDS"" field - - -",!! Line Location: INIT+2
Function Call: READ	Prompt: "Code: " Timeout: CODE="" Variable: CODE Q 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: BB," -- Invalid ICD code format",! Line Location: GCODE+1
Function Call: WRITE	Prompt: " ",@GBL@(CDFN,1),! Line Location: GCODE+3
Function Call: WRITE	Prompt: BB," -- 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: WRITE	Prompt: WD,! Line Location: LIST+2
Function Call: WRITE	Prompt: BB," -- '",WD,"' not in ",NCODE,! Line Location: KILLWD+1
Function Call: WRITE	Prompt: "." Line Location: KILLWD+2