Routine: ICDDRGM

Information

ICDDRGM ;ALB/GRR/EG/ADL - Grouper Driver ;04/21/2014

Source Information

Source file <ICDDRGM.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	^%DTC ^DIC ^DIR
DRG Grouper	2	^ICDDRG ($$DRG,$$DRGD,$$ROOT)^ICDEX
Kernel	2	$$DT^XLFDT H^XUS

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
DRG Grouper	3	ICD DRG GROUPER ICDCOD ICDZENT

Entry Points

Name	Comments	DBIA/ICR reference
QQ	; Quit All
PAT0	; Patient - Ask Again
PAT	; Patient
VA	; VA Patient File #2
DAM	; Ask if Patient was Discharged against Medical Advice
AGE	; Ask Patient Age
TAC	; Ask if Patient was Transferred to Acute Care
ALIVE	; Ask if Patient died during this episode of care
CD	; Primary and Secondary DX
Q	; Quit Current Patient
EN1	; Entry point - Patient is Known (DFN)
WRT	; Write Output
KILL	; Clean up Environment
EFFDATE	; Prompts for effective date for DRG grouper?
ERROR	; Write Errors
ASK	; Ask all
SEX	; Ask for Patient's Sex
OUT	; Exit Application
OP	; Operation/Procedures

External References

Name	Field # of Occurrence
^%DTC	EN1+3
^DIC	VA+1, CD+1, CD+6, OP+2
^DIR	PAT+6, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1, EFFDATE+3
^ICDDRG	OP+3
$$DRG^ICDEX	WRT+1
$$DRGD^ICDEX	WRT+7
$$ROOT^ICDEX	CD+1, CD+4, OP+2
$$DT^XLFDT	ICDDRGM+25
H^XUS	OUT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?11,"DRG Grouper Version ",$P($T(+2),";",3),!! Line Location: ICDDRGM+25
Function Call: WRITE	Prompt: " AGE: ",AGE Line Location: EN1+3
Function Call: WRITE	Prompt: !!?9,"Effective Date: "," ",ICDDSP Line Location: WRT+2
Function Call: WRITE	Prompt: !,"Diagnosis Related Group: ",$J(ICDDRG,6),?40,"Avg len of stay: ",$J($P(ICDDRG(0),"^",8),6) Line Location: WRT+3
Function Call: WRITE	Prompt: !?17,"Weight: ",$J($P(ICDDRG(0),"^",2),6),?40,"Local Breakeven: ",$J($P(ICDDRG(0),"^",12),6) Line Location: WRT+4
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+5
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+6
Function Call: WRITE	Prompt: ?10,ICDGDX(ICDGI),! Line Location: WRT+8
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
Routine Call	DIC Line Location: VA+1 CD+1 CD+6 OP+2
Routine Call	DIR Line Location: PAT+6 AGE+1 ALIVE+1 TAC+1 DAM+1 SEX+1 EFFDATE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
AGE	ASK+1
ALIVE	EN1+1, ASK+1
ASK	PAT0+1
CD	ASK+1
DAM	VA+2, ASK+1
EFFDATE	PAT+3
KILL	PAT+1, PAT+3, PAT+6
OUT	PAT+3, PAT+6, VA+1, CD+1, CD+3, OP+2, AGE+1, ALIVE+1, TAC+1, DAM+1 , SEX+1
PAT	VA+2, EN1+1, Q+1, ASK+1
PAT0	OP+4, ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, ERROR+6
Q	VA+1, CD+1, CD+7, OP+3
QQ	AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1
SEX	ASK+1
TAC	VA+2, ASK+1
WRT	OP+4, ERROR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN1+3~
AGE	VA+1, EN1+3, KILL+2!, AGE+1*
CC	CD+1*, KILL+2!
DFN	VA+1*, EN1+1, KILL+1!
DIC	VA+1, CD+1!, CD+4, CD+6!, OP+2!, OP+3!, KILL+1!
DIC("A"	CD+1, CD+5, OP+2*
DIC("S"	CD+2, CD+5, OP+1*
DIC(0	VA+1, CD+1, CD+4, OP+2
DIR	PAT+6!, AGE+1!, ALIVE+1!, TAC+1!, DAM+1!, SEX+1!, EFFDATE+1!, EFFDATE+3!
DIR("?"	PAT+5, AGE+1, SEX+1, EFFDATE+2
DIR("A"	PAT+4, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1, EFFDATE+1*
DIR("B"	PAT+4, EFFDATE+1
DIR(0	PAT+4, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1, EFFDATE+1*
>> DIRUT	EFFDATE+3
DOB	VA+1*, KILL+2!
DT	ICDDRGM+25*, EN1+3
DTOUT	PAT+3, PAT+6, VA+1, CD+1, CD+3, OP+2, KILL+1!, AGE+1, ALIVE+1, TAC+1 , DAM+1, SEX+1, ASK+1!
DUOUT	PAT+3, PAT+6, KILL+1!, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1, ASK+1!
HICDRG	KILL+2!
ICD	KILL+2!
ICDCC3	KILL+2!
>> ICDDATE	WRT+1, WRT+7, EFFDATE+4*
ICDDMS	KILL+1!, DAM+1*
ICDDRG	WRT+1, WRT+3, WRT+7, WRT+8, KILL+1!
ICDDRG(0	WRT+1*, WRT+3, WRT+4, WRT+5, WRT+6
ICDDSP	WRT+2, KILL+2!, EFFDATE+4*
ICDDT	KILL+2!
ICDDX	PAT+2!, KILL+1!
ICDDX(	CD+3*
ICDDX(1	CD+1*
ICDEXP	PAT+2!, EN1+2, KILL+1!, ALIVE+1
ICDFZ	KILL+2!
ICDGDX	WRT+7~
ICDGDX(	WRT+8
ICDGI	WRT+7~, WRT+8
ICDJ	KILL+2!
ICDJJ	KILL+2!
ICDL39	KILL+2!
ICDMAJ	KILL+2!
ICDMDC	KILL+1!
ICDNMDC	KILL+1!
ICDNOR	OP+2*, KILL+1!
ICDNSD	CD+3*, KILL+1!
ICDO24	KILL+1!
ICDP24	KILL+1!
ICDP25	KILL+1!
ICDPRC	OP+1!, KILL+1!
ICDPRC(	OP+2*
ICDPT	PAT+6*, PAT0+1, KILL+1!
ICDQU	PAT+2, VA+2, EN1+1, KILL+1!, QQ+1, ASK+1
ICDRTC	ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, KILL+1!
ICDS25	KILL+2!
ICDSEX	KILL+2!
ICDSURG	PAT+2!
ICDSURG(	OP+2*
ICDTRS	KILL+1!, TAC+1*
ICDXD	WRT+7~*
QUIT	KILL+2!, EFFDATE+3*
SEX	PAT+2!, VA+1, SEX+1
U	ICDDRGM+25*, VA+1, CD+1, CD+3, CD+7, OP+2
X	VA+1, EN1+3~, CD+1, CD+3, CD+7, OP+2, OP+3
X1	EN1+3~*
X2	EN1+3~*
>> Y	PAT+6, VA+1, CD+1, CD+3, OP+2, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1 , EFFDATE+4
>> Y(0	VA+1, EFFDATE+4

Customize PDF page

Package: DRG Grouper

Routine: ICDDRGM

Call Graph Total: 7

Caller Graph Total: 3