Routine: DGPTICD

Information

DGPTICD ;ALB/MTC - PTF DRG Grouper Utility ; 2/19/02 3:08pm

Package	Total	Call Graph
DRG Grouper	3	($$ICDDX,$$ICDOP)^ICDCODE ^ICDDRG ($$DRG,$$DRGD)^ICDGTDRG
VA Fileman	1	DD^%DT

Package	Total	Caller Graph
Registration	4	DGPTDRG DGPTFD DGPTODR DGPTSUDO

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

Name	Line Occurrences
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

Name	Line Occurrences
Q	DGPTICD+23, DGPTICD+49

Name	Field # of Occurrence
>> DGDAT	DGPTICD+21, DGPTICD+34, DGPTICD+40, DGPTICD+46*, PRT+5, PRT+10
>> DGDMS	DGPTICD+16, DGPTICD+45
>> DGDRGPRT	DGPTICD+49
DGDX	DGPTICD+16, DGPTICD+20, DGPTICD+21, DGPTICD+22, PRT+9~
DGDX(	PRT+11
>> DGEXP	DGPTICD+16, DGPTICD+45
DGI	DGPTICD+17~, DGPTICD+20, DGPTICD+21, DGPTICD+22, PRT+10, PRT+11*
>> DGPROC	DGPTICD+33
>> DGPTTMP	DGPTICD+21, DGPTICD+22, DGPTICD+34, DGPTICD+35, DGPTICD+40*, DGPTICD+41, DGPTICD+42
>> DGSURG	DGPTICD+36
>> DGTRS	DGPTICD+16, DGPTICD+45
>> DRG	DGPTICD+49*, PRT+1, PRT+2, PRT+5, PRT+10, PRT+11
>> DRG(0	PRT+5*, PRT+6, PRT+7, PRT+8
DT	DGPTICD+46
DXD	PRT+9~, PRT+10*
FLG	DGPTICD+32~
I	DGPTICD+32~, DGPTICD+33, DGPTICD+36
ICDDATE	DGPTICD+46*, PRT+1, PRT+3, Q!
ICDDMS	DGPTICD+45*, Q!
ICDDRG	DGPTICD+49, Q!
ICDDX	DGPTICD+19!, DGPTICD+23, Q!
ICDDX(	DGPTICD+22*
ICDEXP	DGPTICD+45*, Q!
ICDMDC	Q!
ICDPRC	DGPTICD+26!, DGPTICD+31!, Q!
ICDPRC(	DGPTICD+35, DGPTICD+37, DGPTICD+41
ICDRTC	Q!
>> ICDSURG(	DGPTICD+42*
ICDTRS	DGPTICD+45*, Q!
J	DGPTICD+32~, DGPTICD+37*
SUB	DGPTICD+32~, DGPTICD+35, DGPTICD+41*, DGPTICD+42
U	DGPTICD+20, DGPTICD+21, DGPTICD+22, DGPTICD+33, DGPTICD+35, DGPTICD+36, DGPTICD+41, DGPTICD+42
X	DGPTICD+32~, DGPTICD+33, DGPTICD+34, DGPTICD+35, DGPTICD+36, DGPTICD+40, DGPTICD+41
Y	DGPTICD+32~, PRT+3*, PRT+4