Routine: ICD1865A

Package	Total	Call Graph
Kernel	2	$$NOW^XLFDT (BMES,MES)^XPDUTL
VA Fileman	2	FILE^DICN UPDATE^DIE

Package	Total	Caller Graph
DRG Grouper	1	ICD1865P

Entry Points

Name	Comments	DBIA/ICR reference
EFFDATE(ICDDRG,ICDFY,ICDMDC,ICDSURG,ICDTMP)	;-- 80.266D - #66 EFFECTIVE DATE
DRGEFFDT(ICDDRG,ICDFY,ICDREF,ICDTMP)	;-- 80.271D - #71 DRG GROUPER EFFECIVE DATE
EDITDRG(ICDLINE,ICDTMP,ICDTOT,ICDEDIT)	; edit existing (#80.2) DRG record ; Input: ; ICDLINE - $TEXT line of MS-DRG code data ; ICDTMP - Temp file of error msg's ; ICDTOT - Total MS-DRG codes filed ; Output: ; ICDTMP - Temp file of error msg's ; ICDTOT - Total MS-DRG codes filed
GETDRG(ICDRTN,ICDTMP,ICDTOT,ICDEDIT,ICDADD)	;get and file MS-DRG data ; Input: ; ICDRTN - Post Install routine to process MS-DRG codes ; ICDTMP - Temp file of error msg's ; ICDTOT - Total MS-DRG codes filed ; Output: ; ICDTMP - Temp file of error msg's ; ICDTOT - Total MS-DRG codes filed
WEIGHTS(ICDLINE,ICDTMP)	;--80.22D subfile - #20 FISCAL YEAR WEIGHTS&TRIM ; Input: ; ICDLINE - $TEXT line of MS-DRG code data ; ICDTMP - Temp file of error msg's ; Output: ; ICDTMP - Temp file of error msg's
DESCA(ICDDRG,ICDFY,ICDTMP)	;-- 80.268D - #68 DESCRIPTION
DESCB(ICDDRG,ICDFY,ICDDESC,ICDTMP)	;-- 80.2681 - #68 DESCRIPTION
DRG	;post-install driver (#80.2) DRG updates
NEWDRG(ICDLINE,ICDTMP,ICDTOT,ICDADD)	; add new (#80.2) DRG record ; Input: ; ICDLINE - $TEXT line of MS-DRG code data ; ICDTMP - Temp file of error msg's ; ICDTOT - Total MS-DRG codes filed ; Output: ; ICDTMP - Temp file of error msg's ; ICDTOT - Total MS-DRG codes filed

External References

Name	Field # of Occurrence
FILE^DICN	NEWDRG+37
UPDATE^DIE	NEWDRG+27, DRGEFFDT+6, EFFDATE+8, DESCA+5, DESCB+6
$$NOW^XLFDT	DRG+17
BMES^XPDUTL	DRG+10
MES^XPDUTL	DRG+26, DRG+27, DRG+28, DRG+29, DRG+30

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD - [#80.2]	GETDRG+13, EDITDRG+14, EDITDRG+18, NEWDRG+14, WEIGHTS+11, WEIGHTS+15, WEIGHTS+22, WEIGHTS+24, WEIGHTS+26, WEIGHTS+27*
^TMP("DRGFY2013"	DRG+15

Label References

Name	Line Occurrences
DESCA	EDITDRG+37, NEWDRG+62
DESCB	EDITDRG+40, NEWDRG+65
DRGEFFDT	EDITDRG+28, NEWDRG+56
EDITDRG	GETDRG+13
EFFDATE	EDITDRG+34, NEWDRG+59
GETDRG	DRG+23
NEWDRG	GETDRG+14
WEIGHTS	EDITDRG+43, NEWDRG+68

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDITDRG+9~, NEWDRG+9~, NEWDRG+32!, NEWDRG+38!
DA(1	NEWDRG+33*, NEWDRG+34
DIC	NEWDRG+9~, NEWDRG+32!, NEWDRG+34*, NEWDRG+38!
DIC(0	NEWDRG+35*
DIE	EDITDRG+9~, NEWDRG+9~
DO	NEWDRG+37!
DR	EDITDRG+9~, NEWDRG+9~
ICDADD	DRG+11~, DRG+12, DRG+23, DRG+28, GETDRG~, GETDRG+14, NEWDRG~, NEWDRG+70
ICDDESC	EDITDRG+9~, EDITDRG+13, EDITDRG+40, NEWDRG+10~, NEWDRG+19, NEWDRG+36, NEWDRG+65, DESCB~, DESCB+1, DESCB+5
ICDDRG	GETDRG+9~, EDITDRG+9~, EDITDRG+12, EDITDRG+14, EDITDRG+15, EDITDRG+18, EDITDRG+27, EDITDRG+28, EDITDRG+34, EDITDRG+37 , EDITDRG+40, NEWDRG+10~, NEWDRG+12, NEWDRG+14, NEWDRG+23, NEWDRG+26, NEWDRG+29, NEWDRG+33, NEWDRG+40, NEWDRG+55 , NEWDRG+56, NEWDRG+59, NEWDRG+62, NEWDRG+65, DRGEFFDT~, DRGEFFDT+1, DRGEFFDT+3, DRGEFFDT+8, EFFDATE~, EFFDATE+1 , EFFDATE+3, EFFDATE+10, DESCA~, DESCA+1, DESCA+3, DESCA+7, DESCB~, DESCB+1, DESCB+3, DESCB+8 , WEIGHTS+8~, WEIGHTS+10*, WEIGHTS+11, WEIGHTS+12, WEIGHTS+15, WEIGHTS+17, WEIGHTS+22, WEIGHTS+24, WEIGHTS+26, WEIGHTS+27
ICDEDIT	DRG+11~, DRG+12, DRG+23, DRG+27, GETDRG~, GETDRG+13, EDITDRG~, EDITDRG+45
ICDERR	EDITDRG+9~, NEWDRG+10~, NEWDRG+22!, NEWDRG+28!, DRGEFFDT+2!, DRGEFFDT+7!, EFFDATE+2!, EFFDATE+9!, DESCA+2!, DESCA+6! , DESCB+2!, DESCB+7!
ICDFDA	EDITDRG+9~, NEWDRG+10~, NEWDRG+22!, NEWDRG+27!, DRGEFFDT+2!, DRGEFFDT+6!, EFFDATE+2!, EFFDATE+8!, DESCA+2!, DESCA+5! , DESCB+2!, DESCB+6!
ICDFDA(	NEWDRG+23, NEWDRG+24, NEWDRG+25, DRGEFFDT+3, DRGEFFDT+4, DRGEFFDT+5, EFFDATE+3, EFFDATE+4, EFFDATE+5, EFFDATE+6 , EFFDATE+7, DESCA+3, DESCA+4, DESCB+3, DESCB+4, DESCB+5
ICDFY	EDITDRG+9~, EDITDRG+11, EDITDRG+18, EDITDRG+28, EDITDRG+34, EDITDRG+37, EDITDRG+40, NEWDRG+10~, NEWDRG+11, NEWDRG+56 , NEWDRG+59, NEWDRG+62, NEWDRG+65, DRGEFFDT~, DRGEFFDT+1, DRGEFFDT+4, EFFDATE~, EFFDATE+1, EFFDATE+4, DESCA~ , DESCA+1, DESCA+4, DESCB~, DESCB+1, DESCB+4
ICDFYR	WEIGHTS+8~, WEIGHTS+9*, WEIGHTS+15, WEIGHTS+20, WEIGHTS+22, WEIGHTS+24, WEIGHTS+27
ICDHIGH	WEIGHTS+8~, WEIGHTS+9, WEIGHTS+17, WEIGHTS+20
ICDI	DRG+11~, DRG+21*
ICDIEN	NEWDRG+10~, NEWDRG+22!, NEWDRG+27!
ICDIEN(1	NEWDRG+26*
ICDJ	WEIGHTS+8~, WEIGHTS+26*, WEIGHTS+27
ICDLINE	GETDRG+9~, GETDRG+11*, GETDRG+13, GETDRG+14, EDITDRG~, EDITDRG+12, EDITDRG+13, EDITDRG+31, EDITDRG+33, EDITDRG+43 , NEWDRG~, NEWDRG+12, NEWDRG+16, NEWDRG+18, NEWDRG+19, NEWDRG+68, WEIGHTS~, WEIGHTS+7, WEIGHTS+10, WEIGHTS+18
ICDLN	GETDRG+9~, GETDRG+11*
ICDLOS	WEIGHTS+8~, WEIGHTS+18, WEIGHTS+19, WEIGHTS+20
ICDLOW	WEIGHTS+8~, WEIGHTS+9, WEIGHTS+17, WEIGHTS+20
ICDMDC	EDITDRG+9~, EDITDRG+31, EDITDRG+32, EDITDRG+34, NEWDRG+10~, NEWDRG+16, NEWDRG+17, NEWDRG+24, NEWDRG+59, EFFDATE~ , EFFDATE+6
ICDREF	EDITDRG+9~, EDITDRG+27, EDITDRG+28, NEWDRG+10~, NEWDRG+55, NEWDRG+56, DRGEFFDT~, DRGEFFDT+5
ICDRTN	DRG+11~, DRG+21*, DRG+23, GETDRG~, GETDRG+11
ICDSTR	WEIGHTS+8~, WEIGHTS+20*, WEIGHTS+22
ICDSUB	DRG+11~, DRG+20*, DRG+21
ICDSURG	EDITDRG+9~, EDITDRG+33, EDITDRG+34, NEWDRG+10~, NEWDRG+18, NEWDRG+25, NEWDRG+58*, NEWDRG+59, EFFDATE~, EFFDATE+7
ICDTAG	GETDRG+9~, GETDRG+11*
ICDTEXT	GETDRG+9~, GETDRG+11*
ICDTMP	DRG+11~, DRG+14, DRG+15, DRG+16, DRG+17, DRG+23, DRG+25, GETDRG~, GETDRG+13, GETDRG+14 , EDITDRG~, EDITDRG+15, EDITDRG+28, EDITDRG+34, EDITDRG+37, EDITDRG+40, EDITDRG+43, NEWDRG~, NEWDRG+29, NEWDRG+40 , NEWDRG+56, NEWDRG+59, NEWDRG+62, NEWDRG+65, NEWDRG+68, DRGEFFDT~, DRGEFFDT+1, DRGEFFDT+8, EFFDATE~, EFFDATE+1 , EFFDATE+10, DESCA~, DESCA+1, DESCA+7, DESCB~, DESCB+1, DESCB+8, WEIGHTS~, WEIGHTS+7, WEIGHTS+12
ICDTOT	DRG+13, DRG+23, DRG+29, GETDRG~, GETDRG+13, GETDRG+14, EDITDRG~, EDITDRG+45, NEWDRG~, NEWDRG+70*
ICDWT	WEIGHTS+8~, WEIGHTS+18*, WEIGHTS+20
ICDX	WEIGHTS+8~, WEIGHTS+26*
U	GETDRG+13, EDITDRG+12, EDITDRG+13, EDITDRG+31, EDITDRG+33, NEWDRG+12, NEWDRG+16, NEWDRG+18, NEWDRG+19, WEIGHTS+10 , WEIGHTS+18, WEIGHTS+20
X	EDITDRG+9~, NEWDRG+9~, NEWDRG+36*
Y	EDITDRG+9~, NEWDRG+9~, NEWDRG+39

Customize PDF page

Package: DRG Grouper

Routine: ICD1865A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items