Routine: DGPTICD

Package	Total	Call Graph
DRG Grouper	3	^ICDDRG ($$DRG,$$DRGD)^ICDGTDRG $$ICDDATA^ICDXCODE
VA FileMan	2	DD^%DT ^DIC
Lexicon Utility	1	$$IMPDATE^LEXU
Registration	1	EFFDATE^DGPTIC10

Package	Total	Caller Graph
Registration	4	DGPTDRG DGPTFD DGPTODR DGPTSUDO

Entry Points

Name	Comments	DBIA/ICR reference
PRT	;print DRG and national HCFA values
Q
80	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DGPTICD+29
Function Call: WRITE	Prompt: *7 Line Location: PRT+1
Function Call: WRITE	Prompt: *7 Line Location: PRT+2
Function Call: WRITE	Prompt: !!?9,"Effective Date:"," ",Y Line Location: PRT+4
Function Call: WRITE	Prompt: !!,"Diagnosis Related Group: ",$J(DRG,6),?36,"Average Length of Stay(ALOS): ",$J($P(DRG(0),"^",8),6) Line Location: PRT+5
Function Call: WRITE	Prompt: !?17,"Weight: ",$J($P(DRG(0),"^",2),6) Line Location: PRT+6
Function Call: WRITE	Prompt: !?12," Low Day(s): ",$J($P(DRG(0),"^",3),6) Line Location: PRT+7
Function Call: WRITE	Prompt: !?13," High Days: ",$J($P(DRG(0),"^",4),6) Line Location: PRT+8
Function Call: WRITE	Prompt: ?10,DGDX(DGI),! Line Location: PRT+11
Routine Call	DIC Line Location: 80+1

Name	Line Occurrences
Q	DGPTICD+29, DGPTICD+53

Name	Field # of Occurrence
>> DGDAT	DGPTICD+48*, PRT+5, PRT+10
>> DGDMS	DGPTICD+18, DGPTICD+46
>> DGDRGPRT	DGPTICD+53
DGDX	DGPTICD+18, DGPTICD+25, DGPTICD+26, DGPTICD+27, PRT+9~
DGDX(	PRT+11
>> DGDXPOA	DGPTICD+28
>> DGEXP	DGPTICD+18, DGPTICD+46
DGI	DGPTICD+19~, DGPTICD+25, DGPTICD+26, DGPTICD+27, DGPTICD+28, PRT+10, PRT+11*
>> DGPROC	DGPTICD+36
>> DGPTTMP	DGPTICD+26, DGPTICD+27, DGPTICD+37, DGPTICD+38, DGPTICD+41*, DGPTICD+42, DGPTICD+43
>> DGSURG	DGPTICD+39
>> DGTRS	DGPTICD+18, DGPTICD+46
DIC	80+1~*
DIC(0	80+1*
>> DRG	DGPTICD+53*, PRT+1, PRT+2, PRT+5, PRT+10, PRT+11
>> DRG(0	PRT+5*, PRT+6, PRT+7, PRT+8
DT	DGPTICD+48
DXD	PRT+9~, PRT+10*
>> EFFDATE	DGPTICD+23, DGPTICD+24, DGPTICD+26, DGPTICD+28, DGPTICD+37, DGPTICD+41
FLG	DGPTICD+35~
I	DGPTICD+35~, DGPTICD+36, DGPTICD+39
ICD0	DGPTICD+52!
ICDCDSY	DGPTICD+52!
ICDCSYS	DGPTICD+52!
ICDDATE	DGPTICD+48*, PRT+1, PRT+3, PRT+12!
ICDDMS	DGPTICD+46*, Q!
ICDDRG	DGPTICD+53, Q!
ICDDX	DGPTICD+21!, DGPTICD+29, Q!
ICDDX(	DGPTICD+27*
ICDEDT	DGPTICD+24*, DGPTICD+52!
ICDEXP	DGPTICD+46*, Q!
ICDMDC	Q!
ICDPOA	DGPTICD+21!
ICDPOA(	DGPTICD+28*
ICDPRC	DGPTICD+32!, DGPTICD+34!, Q!
ICDPRC(	DGPTICD+38, DGPTICD+40, DGPTICD+42
ICDRTC	Q!
>> ICDSURG(	DGPTICD+43*
ICDTRS	DGPTICD+46*, Q!
J	DGPTICD+35~, DGPTICD+40*
>> OUT	80+2*
>> PTF	DGPTICD+23
SUB	DGPTICD+35~, DGPTICD+38, DGPTICD+42*, DGPTICD+43
U	DGPTICD+25, DGPTICD+26, DGPTICD+27, DGPTICD+28, DGPTICD+36, DGPTICD+38, DGPTICD+39, DGPTICD+42, DGPTICD+43
X	DGPTICD+35~, DGPTICD+36, DGPTICD+37, DGPTICD+38, DGPTICD+39, DGPTICD+41, DGPTICD+42
Y	DGPTICD+35~, PRT+3*, PRT+4, 80+2