Routine: ADGCRB6

Package

Total

Call Graph

$$ICDDX^ICDCODE

($$VAL,ENP)^XBDIQ1

Y^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGCRB0

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DGLIN1,!,"40 Injury Date 41 Alleged Injury Cause" Line Location: H12+1
Function Call: WRITE	Prompt: ?41,"42 Cause",?61,"43 Place of Injury 44 Code",! Line Location: H12+4
Function Call: WRITE	Prompt: ?3,$$IDT,?17,$P($$ICD,U,2),?44,$P($$ICD,U),?54,$$PLC Line Location: L12+4
Function Call: WRITE	Prompt: ?75,$P(DGPOVN0,U,11) Line Location: L12+5
Function Call: WRITE	Prompt: !,DGLIN1,!,"47 Underlying Cause of Death & Code",! Line Location: H13+3
Function Call: WRITE	Prompt: ?49,$E($P($$ICDDX^ICDCODE(X),U,4),1,16),?67,$P($$ICDDX^ICDCODE(X),U,2) Line Location: H13+5
Function Call: WRITE	Prompt: !,DGLIN1,!,"49 Date Printed",?17,"50 Attending Physician" Line Location: H14+1
Function Call: WRITE	Prompt: ?42,"50a Phys Code",?62,"51 Printed By",! Line Location: H14+2
Function Call: WRITE	Prompt: ?42,"50a Phys Code",?58,"51 Admit Clerk/Coder",! Line Location: H14+3
Function Call: WRITE	Prompt: ?4,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3) Line Location: L14+2
Function Call: WRITE	Prompt: ?21,$P($$PRV,U),?47,$P($$PRV,U,2),?66,$P(^VA(200,DUZ,0),U,2),! Line Location: L14+4
Function Call: WRITE	Prompt: ?21,$P($$PRV,U),?47,$P($$PRV,U,2),?66,$$ADMCLK,$$CODER,! Line Location: L14+5

Name	Line Occurrences (* Changed, ! Killed)
^APCDFORM - [#9001001.5]	CODER+4, CODER+5
^APCDFORM("AB"	CODER+2, CODER+3
^AUPNPAT - [#9000001]	H13+1
^AUPNVPRV - [#9000010.06]	PRV+3, CODEROLD+3
^AUPNVPRV("AD"	PRV+2, CODEROLD+2
^DD("DD"	IDT+1
^DD(9000010.06	PRV+5, CODEROLD+4
^DD(9000010.07	PLC+2
^DGPM - [#405]	ADMCLK+2
^DIC(16 - [#16]	PRV+6, CODEROLD+5
^VA(200 - [#200]	L14+4, ADMCLK+3, CODER+6

Name	Field # of Occurrence
^(0	PRV+3, CODEROLD+3

Name	Field # of Occurrence
ANS	CODEROLD+1~, CODEROLD+2, CODEROLD+9*, CODEROLD+10
C	PLC+1~, PLC+2*
DA	PRV+1~, PRV+3, PRV+4, PRV+5, PRV+6, CODEROLD+1~, CODEROLD+3, CODEROLD+4, CODEROLD+5
>> DFN	H13+1
DGAR	PRV+1~, PRV+7!, CODEROLD+1~, CODEROLD+6!
DGAR(	PRV+8, CODEROLD+7, CODEROLD+8
DGAR(1	CODEROLD+9
DGCD	CODER+1~, CODER+4, CODER+5, CODER+6, CODER+7, CODER+8
>> DGDS	A+1, H14+2, L14+3
>> DGFN	ADMCLK+2
>> DGLIN1	H12+1, H13+3, H14+1
DGN11	H13+1~*, H13+2
>> DGPOVDA	L12+1
>> DGPOVN0	L12+5, IDT+1, ICD+2, PLC+1
>> DGVSDA	PRV+2, CODEROLD+2, CODER+2, CODER+3
DGX	CODEROLD+1~, CODEROLD+2, CODEROLD+3, CODER+1~, CODER+2, CODER+3, CODER+4, CODER+5
DGXIEN	CODER+1~, CODER+3*, CODER+4, CODER+5
DT	L14+2
DUZ	L14+4
PROV	PRV+1~, PRV+5, PRV+6, PRV+7, CODEROLD+1~, CODEROLD+4, CODEROLD+5, CODEROLD+6
U	L12+4, L12+5, H13+2, H13+5, L14+4, L14+5, IDT+1, ICD+2, PLC+1, PRV+3 , PRV+5, PRV+8, ADMCLK+2, ADMCLK+3, CODEROLD+3, CODEROLD+4, CODER+5, CODER+6
X	H13+2~, H13+5, PRV+1~, PRV+2, PRV+3, ADMCLK+1~, ADMCLK+2*, ADMCLK+3
Y	IDT+1~, PLC+1~, PLC+2, PRV+1~

Information