Routine: AICDGRP1

Package	Total	Call Graph
Registration	5	^DGDRG14 ^DGDRG2 ^DGDRG3 ^DGDRG6 ^DGDRG8
IHS ICD CPT Lookup and Grouper	1	(PAT,Q)^AICDGRP
VA Fileman	1	^DIC

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

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,X,! Line Location: LIST+1
Function Call: WRITE	Prompt: !,X,!! Line Location: LIST+3
Function Call: WRITE	Prompt: "RANK: ",AICDI,$J(("DRG: "_$E($P(X,U),4,99)),15),$J(("IHS WEIGHT: "_$P(X,U,7)),22),$J(("ALOS: "_$P(X,U,8)),15) Line Location: NARR+1
Function Call: WRITE	Prompt: "ICD9: " Line Location: NARR+2
Function Call: WRITE	Prompt: " " Condition for execution: AICDJ>1 Line Location: NARR+3
Function Call: WRITE	Prompt: "(",$P(Y,U),") ",$P(Y,U,3) Line Location: NARR+3
Function Call: WRITE	Prompt: "DRG: (",$E($P(X,U),4,99),") " Line Location: NARR+4
Function Call: WRITE	Prompt: " " Condition for execution: AICDL>1 Line Location: NARR+5
Function Call: WRITE	Prompt: ^(AICDJ,0) Line Location: NARR+5
Function Call: WRITE	Prompt: *7,!!,"DRG= 469 PDX INVALID AS DISCHARGE DIAGNOSIS" Line Location: 469+0
Routine Call	DIC Line Location: DLOOKUP PLOOKUP

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^ICD0 - [#80.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	OP, NARR+5, MORE+10, MORE+11, D, WRT, CATH+1
^ICD0 - [#80.1]	OP
^ICD9 - [#80]	CD+2

Name	Line Occurrences
468	NOP
469	MORE+9, D, WRT, CATH+1
ARR	MAKEARR
CD	468+2
DLOOKUP	DXS+1
MI	MORE
NARR	LIST+2
NARRQ	NARR+1, NARR+2, NARR+3, NARR+5
NOP	MORE+11
PAT	DXS+2, LIST+2, LIST+4
PLOOKUP	OP
Q	OP+1
SETDRG	WRT, SETDRG+1
WRT	MORE, MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, MORE+6, MORE+7, MORE+8, MORE+9 , MORE+10, MORE+11, D

Name	Field # of Occurrence
^(	NARR+5

Name	Field # of Occurrence
>> %	OP*
AICDDX	DXS!, DXS+2
AICDDX(	DXS+1*, SUB, ARR
>> AICDE(	LIST+2, NARR, NARR+1, NARR+3
>> AICDE(9	SETDRG, SETDRG+1, SETDRG+2
>> AICDI	DXS+1, LIST+2, NARR*, NARR+1
>> AICDJ	MAKEARR, NARR+3, NARR+4, NARR+5, ARR
>> AICDL	NARR+5*
>> AICDN	LIST+2, NARR, NARR+1, NARR+3, WRT, SETDRG, SETDRG+1*, SETDRG+2
>> AICDPRMT	DXS+1, OP, DLOOKUP, PLOOKUP
>> AICDTOT	DXS+1*, SUB, MAKEARR
AICDVAR	468+1!
>> DA	OP*
>> DAM	MORE+5
DIC	DLOOKUP!, PLOOKUP!
DIC("A"	DLOOKUP, PLOOKUP
DIC(0	DLOOKUP, PLOOKUP
>> DRGCAL	WRT*, SETDRG, SETDRG+1
>> EXP	MORE+7, MI
>> I	SETDRG+2*
>> LINE	NARR+1, NARR+2, NARR+3, NARR+5
>> MDC	ARR, CD+1, MORE, MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, MORE+6, MORE+7 , MORE+8, MORE+11, NOP
>> NDR	CD+2*, MORE+9
>> NOR	OP, MORE, MORE+9, MORE+10, 468+1
>> NSD	SUB*
>> OR	DXS, OP, MORE, MORE+1, MORE+2, MORE+3, MORE+6, NOP, 468+1*, CATH
>> ORG	OP*
>> ORG(	OP*, MORE+11
>> PD	CD+1*, MORE+6, MI, CATH
RG	CD!, CD+1, CD+2, MORE, MORE+1, MORE+2, MORE+3, MORE+5, MORE+6, MORE+7 , MORE+8, MORE+9, MORE+10, MORE+11, D, WRT, 469, MI, CATH, CATH+1*
RG(	CD+2*
RG(0	MORE+9, MORE+10, D, CATH+1
>> S	LIST+1*
>> SD	DXS, SUB, MORE+6, MI, CATH
>> SD1	DXS, SUB, MORE+8
>> SEX	CD+1
>> TAC	MORE+6*
>> TRS	MORE+7
U	OP, SUB, LIST+2, NARR+1, NARR+2, NARR+3, NARR+4, NARR+5, ARR, CD+1 , WRT
>> W	LIST+1*, LIST+2, NARR+1, NARR+2, NARR+3, NARR+5
>> X	DXS+1, OP, OP+1, LIST+1, LIST+3, NARR, NARR+1*, NARR+4, NARR+5, DLOOKUP , PLOOKUP
>> Y	DXS+1, OP, NARR+3, ARR, CD+2, DLOOKUP, PLOOKUP
>> Y(0	DXS+1, OP, SUB, ARR, CD+1, SETDRG, SETDRG+2