Routine: ICDDRGM

Package	Total	Call Graph
DRG Grouper	6	ASK^ICDCODLK ^ICDDRG ($$LEXICD10,SETPARAM)^ICDDSLK ($$CODEN,$$DRG,$$DRGD,$$ICDDX,$$ICDOP,$$ROOT,$$VST)^ICDEX $$SEARCH^ICDSAPI $$ICDDATA^ICDXCODE
VA FileMan	5	^%DTC EN^DDIOL ^DIC $$GET1^DIQ ^DIR
Kernel	2	$$DT^XLFDT H^XUS
Lexicon Utility	1	$$IMPDATE^LEXU

Package	Total	Caller Graph
DRG Grouper	5	ICD DRG GROUPER ICDCOD ICDCODLK ICDDRG ICDDSLK

Name	Comments	DBIA/ICR reference
PAT	; Patient
PAT0	; Patient - Ask again
VA	; VA Patient File #2
EN1	; Entry Point - Patient is known (DFN)
CD	;Prompt POA if ICD-10 DRG calculation
OP	; PROCEDURE CODE SELECTION
WRT
ERROR
KILL
Q
AGE
ALIVE
TAC
DAM
SEX
QQ
EFFDATE	;prompts for effective date for DRG grouper?
ASK
ICDOUT
ICDCD	;prompts for ICD diagnosis codes; ALB/JAM *64 ICD10 changes
ICDSDXV
ICDPDX()	;
ICDSDX()	;
ICD10SRH(ICDPROM,ICDTINT)	; Lexicon Partial Code Search
GETUSINP(ICDPRMPT)	;
GETIDX(ICDCSYS,ICDCODE,ICDT)	;
POA(ICDDX123)	; Present On Admission
DXSCRN	;Diagnoses review of POA and HAC indicators; ALB/JAM *64 ICD10 changes
HAC(ICDDX123)	; Check if diagnosis code is in Hospital Acquired Conditions (HACS) file #80.6
ICD9OP	; ICD-9 PROCEDURE CODE SEARCH
HELPPOA	;
PROC	; Ask Procedure
P1	;
P2	;
P3	;

Name	Field # of Occurrence
^%DTC	EN1+3
EN^DDIOL	POA+11, P1+3, P1+4, P1+5, P2+1, P2+2, P2+3, P2+4, P2+5, P2+6 , P2+7, P3+1, P3+2, P3+3, P3+4, P3+5
^DIC	VA+1
$$GET1^DIQ	POA+8, POA+9, DXSCRN+9
^DIR	PAT+6, AGE, ALIVE, TAC, DAM, SEX, EFFDATE+3, GETUSINP+6, POA+5, POA+12 , PROC+6
ASK^ICDCODLK	PROC+11
^ICDDRG	OP+25
$$LEXICD10^ICDDSLK	ICD10SRH+9
SETPARAM^ICDDSLK	ICD10SRH+3
$$CODEN^ICDEX	ICD10SRH+25
$$DRG^ICDEX	WRT
$$DRGD^ICDEX	WRT+18
$$ICDDX^ICDEX	WRT+2, WRT+5
$$ICDOP^ICDEX	WRT+8
$$ROOT^ICDEX	ICDPDX+12, ICDSDX+12
$$VST^ICDEX	WRT+3, WRT+6, WRT+9
$$SEARCH^ICDSAPI	ICDPDX+15, ICDSDX+15, ICD9OP+5
$$ICDDATA^ICDXCODE	GETIDX+2
$$IMPDATE^LEXU	CD+1
$$DT^XLFDT	ICDDRGM+25
H^XUS	ICDOUT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?11,"DRG Grouper Version ","18.0",!! Line Location: ICDDRGM+25
Function Call: WRITE	Prompt: " AGE: ",AGE Line Location: EN1+3
Function Call: WRITE	Prompt: ! Line Location: OP+3
Function Call: WRITE	Prompt: !!,"Procedure Code: " Condition for execution: ICDI=1 Line Location: WRT+9
Function Call: WRITE	Prompt: ! Condition for execution: ICDI>1 Line Location: WRT+9
Function Call: WRITE	Prompt: ?21,$P(ICDTMP,U,2),?30,$E($$VST^ICDEX(80.1,ICDPRCZ(ICDI),ICDDATE),1,50) Line Location: WRT+9
Function Call: WRITE	Prompt: !!?9,"Effective Date: "," ",ICDDSP Line Location: WRT+10
Function Call: WRITE	Prompt: !,"Diagnosis Related Group: ",$J(ICDDRG,6),?40,"Avg len of stay: ",$J($P(ICDDRG(0),"^",8),6) Line Location: WRT+11
Function Call: WRITE	Prompt: !?17,"Weight: ",$J($P(ICDDRG(0),"^",2),6),?40,"Local Breakeven: ",$J($P(ICDDRG(0),"^",12),6) Line Location: WRT+12
Function Call: WRITE	Prompt: !?12," Low day(s): ",$J($P(ICDDRG(0),"^",3),6),?39,"Local low day(s): ",$J($P(ICDDRG(0),"^",9),6) Line Location: WRT+13
Function Call: WRITE	Prompt: !?13," High days: ",$J($P(ICDDRG(0),"^",4),6),?40,"Local High days: ",$J($P(ICDDRG(0),"^",10),6) Line Location: WRT+14
Function Call: WRITE	Prompt: ?10,$P(^(I,0),U,1),! Line Location: WRT+15
Function Call: WRITE	Prompt: ?10,$P(^(I,0),U,1),! Line Location: WRT+16
Function Call: WRITE	Prompt: ?10,ICDGDX(ICDGI),! Line Location: WRT+19
Function Call: WRITE	Prompt: !!,"Invalid ",$S(ICDRTC=1:"Principal Diagnosis",ICDRTC=2:"Operation/Procedure",ICDRTC=3:"Age",ICDRTC=4:"Sex",1:"") Line Location: ERROR+1
Function Call: WRITE	Prompt: !!,"Grouper needs to know if patient died during this episode!" Line Location: ERROR+2
Function Call: WRITE	Prompt: !!,"Grouper needs to know if patient was transferred to an acute care facility!" Line Location: ERROR+3
Function Call: WRITE	Prompt: !!,"Grouper needs to know if patient was discharged against medical advice!" Line Location: ERROR+4
Function Call: WRITE	Prompt: !!,"Patient assigned newborn diagnosis code. Check diagnosis!" Line Location: ERROR+5
Function Call: WRITE	Prompt: !!,ICDPARAM("NO DATA FOUND") Line Location: ICD10SRH+16
Function Call: WRITE	Prompt: !,"Please enter at least the first two characters of the ICD-10 code or code description to start the search." Line Location: GETUSINP+10
Function Call: WRITE	Prompt: include Line Location: DXSCRN+10
Function Call: WRITE	Prompt: !?5,"Apply the Present on Admission (POA) indicator for each diagnosis" Line Location: HELPPOA+1
Function Call: WRITE	Prompt: !?5,"and external cause of injury code(s) reported as the final set of" Line Location: HELPPOA+2
Function Call: WRITE	Prompt: !?5,"diagnosis codes assigned. One of the following values should be" Line Location: HELPPOA+3
Function Call: WRITE	Prompt: !?5,"assigned in accordance with the official coding guidelines:" Line Location: HELPPOA+4
Function Call: WRITE	Prompt: !?5,"" Line Location: HELPPOA+5
Function Call: WRITE	Prompt: !?5,"Y = present at the time of inpatient admission;" Line Location: HELPPOA+6
Function Call: WRITE	Prompt: !?5,"N = not present at the time of inpatient admission;" Line Location: HELPPOA+7
Function Call: WRITE	Prompt: !?5,"U = documentation is insufficient to determine if" Line Location: HELPPOA+8
Function Call: WRITE	Prompt: !?5," condition is present on admission;" Line Location: HELPPOA+9
Function Call: WRITE	Prompt: !?5,"W = provider is unable to clinically determine" Line Location: HELPPOA+10
Function Call: WRITE	Prompt: !?5," whether condition was present on admission or not" Line Location: HELPPOA+11
Function Call: WRITE	Prompt: !?5,"<enter> = use only if diagnosis is exempt from POA reporting" Line Location: HELPPOA+12
Routine Call	DIC Line Location: VA+1
Routine Call	DIR Line Location: PAT+6 AGE ALIVE TAC DAM SEX EFFDATE+3 GETUSINP+6 POA+5 POA+12 PROC+6

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^ICD9 - [#80]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN1+1
^ICDHAC("C"	HAC+5

Name	Line Occurrences
$$GETUSINP	ICD10SRH+10
$$HAC	DXSCRN+14, DXSCRN+16
$$ICD10SRH	ICDPDX+9, ICDSDX+9
$$ICDPDX	ICDCD+3
$$ICDSDX	ICDSDXV
$$POA	ICDCD+6, ICDSDXV+3
AGE	ASK
ALIVE	EN1+1, ASK
ASK	PAT0+1
CD	ASK
DAM	VA+2, ASK
EFFDATE	PAT+3
ICD9OP	OP+7
ICDCD	CD+2
ICDOUT	PAT+3, PAT+6, VA+1, OP+4, AGE, ALIVE, TAC, DAM, SEX
ICDSDXV	ICDCD+5
KILL	PAT+1, PAT+3, PAT+6
P2	P1+2
P3	P1+1
PAT	VA+2, EN1+1, CD+2, Q, ASK
PAT0	OP+28, ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, ERROR+6
PROC	OP+6
Q	VA+1, CD+3, OP+8
QQ	AGE, ALIVE, TAC, DAM, SEX
SEX	ASK
TAC	VA+2, ASK
WRT	OP+26, ERROR

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN1+3~
AGE	VA+1, EN1+3, KILL+1!, AGE*
C	DXSCRN+1~, DXSCRN+23, DXSCRN+24
CC	KILL+1!
DFN	VA+1*, EN1+1, KILL!
DIC	VA+1, OP+8!, KILL!, ICDPDX+1~, ICDPDX+12, ICDSDX+1~, ICDSDX+12*, ICD10SRH+24!
DIC("A"	OP+2, ICDPDX+13, ICDSDX+13, ICD9OP+3
DIC("S"	ICDPDX+14, ICDPDX+15, ICDSDX+14, ICDSDX+15, ICD9OP+2*, ICD9OP+5
DIC(0	VA+1, ICDPDX+12, ICDPDX+15, ICDSDX+12, ICDSDX+15, ICD9OP+4, ICD9OP+5
DIR	PAT+6!, AGE!, ALIVE!, TAC!, DAM!, SEX!, EFFDATE+1!, EFFDATE+3!, GETUSINP+1~, POA+1~ , POA+3!, POA+12!, PROC+1~
DIR("?"	PAT+5, AGE, SEX, EFFDATE+2, GETUSINP+4, POA+4, PROC+5*
DIR("??"	GETUSINP+5, POA+4, PROC+5*
DIR("A"	PAT+4, AGE, ALIVE, TAC, DAM, SEX, EFFDATE+1, GETUSINP+2, POA+2, POA+3 , POA+12, PROC+4
DIR("B"	PAT+4, EFFDATE+1, POA+12*
DIR(0	PAT+4, AGE, ALIVE, TAC, DAM, SEX, EFFDATE+1, GETUSINP+3, POA+2, POA+3 , POA+12, PROC+3
>> DIROUT	POA+6, POA+12, PROC+7
>> DIRUT	EFFDATE+3, PROC+7
DOB	VA+1*, KILL+1!
DT	ICDDRGM+25*, EN1+3
DTOUT	PAT+3, PAT+6, VA+1, OP+4, KILL!, AGE, ALIVE, TAC, DAM, SEX , ASK!, ICDSDX+16, GETUSINP+7, POA+6, POA+12, PROC+7
DUOUT	PAT+3, PAT+6, KILL!, AGE, ALIVE, TAC, DAM, SEX, ASK!, POA+6 , POA+12, PROC+7
HICDRG	KILL+1!
I	DXSCRN+1~, DXSCRN+11, DXSCRN+14
ICD	KILL+1!
ICDCC3	KILL+1!
ICDCDSY	OP+1, OP+8!, ICDPDX+1~, ICDPDX+5, ICDSDX+1~, ICDSDX+5*
ICDCNT	OP+10, OP+12, OP+13, OP+17, OP+19, OP+20, OP+27!
ICDCODE	GETIDX~, GETIDX+2
ICDCSYS	PAT+2!, CD+1*, OP+1, OP+6, OP+7, OP+24, OP+27, WRT+1, ICDCD+2, ICDCD+5 , ICDSDXV+2, ICDPDX+5, ICDPDX+7, ICDSDX+5, ICDSDX+7, GETIDX~, GETIDX+2
ICDCV	OP+1*, OP+2, OP+8!, ICD9OP+3
>> ICDDATE	CD+1, WRT, WRT+2, WRT+3, WRT+5, WRT+6, WRT+8, WRT+9, WRT+18, EFFDATE+4* , ICDPDX+9, ICDPDX+15, ICDSDX+9, ICDSDX+15, ICD9OP+5
ICDDMS	KILL!, DAM*
ICDDRG	WRT, WRT+11, WRT+18, WRT+19, KILL!
ICDDRG(0	WRT*, WRT+11, WRT+12, WRT+13, WRT+14
ICDDSCR	ICDPDX+2~, ICDPDX+4, ICDPDX+9, ICDPDX+13, ICDSDX+2~, ICDSDX+4, ICDSDX+9, ICDSDX+13
ICDDSP	WRT+10, KILL+1!, EFFDATE+4*
ICDDT	KILL+1!
ICDDX	PAT+2!, OP+24, OP+27!, KILL!, DXSCRN+21, DXSCRN+22!
ICDDX(	ICDSDXV, DXSCRN+5, DXSCRN+9, DXSCRN+19!, DXSCRN+24
ICDDX(1	ICDCD+3*
ICDDX123	POA~, POA+8, POA+9, DXSCRN+1~, DXSCRN+9*, DXSCRN+14, DXSCRN+16, HAC~, HAC+5
ICDDXPOA	ICDCD+1~, ICDCD+6, ICDSDXV+3
ICDDXZ	OP+24*, OP+27!
ICDDXZ(	WRT+4, WRT+5, WRT+6
ICDDXZ(1	WRT+2, WRT+3
ICDEXP	PAT+2!, EN1+2, OP+27!, KILL!, ALIVE
ICDFZ	KILL+1!
ICDGDX	WRT+17~
ICDGDX(	WRT+19
ICDGI	WRT+17~, WRT+18, WRT+19
>> ICDI	WRT+4, WRT+5, WRT+6, WRT+7, WRT+8, WRT+9
ICDICDX	GETIDX+1~, GETIDX+2*, GETIDX+3, GETIDX+4
ICDJ	KILL+1!
ICDJJ	KILL+1!
ICDL39	KILL+1!
ICDMAJ	KILL+1!
ICDMDC	KILL!
ICDNMDC	KILL!
ICDNOR	OP+4*, KILL!
ICDO24	KILL!
ICDOUT	DXSCRN+1~, DXSCRN+5, DXSCRN+11, DXSCRN+12, DXSCRN+14, DXSCRN+15, DXSCRN+16, DXSCRN+17
ICDP24	KILL!
ICDP25	KILL!
ICDPARAM	ICD10SRH+1~, ICD10SRH+3, ICD10SRH+9
ICDPARAM("NO	DATA FOUND" , ICD10SRH+16
ICDPDXV	ICDCD+1~, ICDCD+3*, ICDCD+6
ICDPOA	PAT+2!, OP+24, OP+27!, DXSCRN+21, DXSCRN+22!
ICDPOA(	ICDSDXV+3, DXSCRN+7, DXSCRN+11, DXSCRN+14, DXSCRN+16, DXSCRN+19!, DXSCRN+24*
ICDPOA(1	ICDCD+6, DXSCRN+3
ICDPOAZ	OP+24*, OP+27!
ICDPOAZ(	WRT+6
ICDPOAZ(1	WRT+3
ICDPR	POA+1~, POA+11
ICDPR(1	POA+9*
ICDPR(2	POA+10*
ICDPRC	OP+7, OP+14!, OP+15, OP+24, OP+27!, KILL!, PROC+2, PROC+9
ICDPRC(	OP+4*, OP+11, OP+12
ICDPRCT	OP+15, OP+27!
ICDPRCT(	OP+12*
ICDPRCZ	OP+24*, OP+27!
ICDPRCZ(	WRT+7, WRT+8, WRT+9
ICDPRI	ICDPDX+1~, ICDPDX+11*
ICDPRMPT	GETUSINP~, GETUSINP+2
ICDPROM	ICD10SRH~, ICD10SRH+10
ICDPT	PAT+6*, PAT0+1, KILL!
ICDQU	PAT+2, VA+2, EN1+1, KILL!, QQ, ASK
ICDQUIT	ICDPDX+2~, ICDPDX+3, ICDPDX+9, ICDSDX+2~, ICDSDX+3, ICDSDX+9
ICDRTC	ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, KILL!
ICDS25	KILL+1!
ICDSC	ICDCD+1~, ICDCD+2*, ICDPDX+4, ICDSDX+4
ICDSD	KILL!, ICDCD+1~, ICDSDXV*, ICDSDXV+3
ICDSDXV	ICDCD+1~, ICDSDXV*, ICDSDXV+3
ICDSEX	KILL+1!
ICDSURG	PAT+2!, OP+21!, OP+22*, OP+27!
ICDSURG(	OP+4*, OP+18, OP+19
ICDSURGT	OP+22, OP+27!
ICDSURGT(	OP+19*
ICDSVAL	ICDPDX+1~, ICDPDX+7, ICDPDX+9, ICDSDX+1~, ICDSDX+7, ICDSDX+9
ICDT	GETIDX~, GETIDX+2
ICDTINT	ICD10SRH~, ICD10SRH+9
>> ICDTMP	WRT+2, WRT+3, WRT+5, WRT+6, WRT+8*, WRT+9
ICDTMPOA	DXSCRN+1~, DXSCRN+21*
ICDTMPOA(	DXSCRN+24
ICDTMPX	DXSCRN+1~, DXSCRN+21*
ICDTMPX(	DXSCRN+24
ICDTRS	KILL!, TAC*
ICDUSTR	ICD10SRH+1~, ICD10SRH+9, ICD10SRH+10*
ICDXD	WRT+17~, WRT+18*
ICDXX1	PROC+1~, PROC+2*
>> ICDY	ICD10SRH+9, ICD10SRH+12, ICD10SRH+14, ICD10SRH+16, ICD10SRH+18, ICD10SRH+20, ICD10SRH+22, ICD10SRH+25, ICD10SRH+26
IENT	KILL+1!, ICDPDX+1~, ICDPDX+11, ICDSDX+1~, ICDSDX+11, ICD9OP+1*
QUIT	CD+2, KILL+1!, EFFDATE+3, ICDCD+3, ICDCD+6, ICDSDXV, ICDSDXV+3, ICDPDX+9, ICDPDX+16, ICDSDX+9 , ICDSDX+16, POA+2, POA+3, POA+6, POA+12, POA+13, POA+17
SEX	PAT+2!, VA+1, OP+27!, SEX
U	ICDDRGM+25*, VA+1, CD+3, OP+4, WRT+3, WRT+6, WRT+9, ICD10SRH+9, ICD10SRH+25, GETUSINP+11 , GETIDX+3, GETIDX+4
X	VA+1, EN1+3~, CD+3, OP+4, OP+8, OP+10, OP+11, OP+12, OP+17, OP+18 , OP+19, POA+1~, POA+7, POA+16, DXSCRN+1~, DXSCRN+4, DXSCRN+5, DXSCRN+7, DXSCRN+9, DXSCRN+11 , DXSCRN+14, DXSCRN+16, DXSCRN+19, DXSCRN+24*, PROC+9, P1+1, P1+2
X1	EN1+3~*
X2	EN1+3~*
Y	PAT+6, VA+1, OP+4, AGE, ALIVE, TAC, DAM, SEX, EFFDATE+4, ICDPDX+15* , ICDPDX+16, ICDPDX+17, ICDSDX+15, ICDSDX+17, GETUSINP+8, GETUSINP+9, GETUSINP+10, GETUSINP+11, POA+1~, POA+13 , POA+14, POA+15, POA+16, POA+18, ICD9OP+5, PROC+7, PROC+12
Y(0	VA+1, EFFDATE+4

Customize PDF page

Package: DRG Grouper

Routine: ICDDRGM

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: