Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ICD1831L

Package: DRG Grouper

Routine: ICD1831L


Information

ICD1831L ;ALB/JAP - FY 2008 DRG UPDATE ; 10/17/07 2:33pm

Source Information

Source file <ICD1831L.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
DRG Grouper 1 ($$GETV25,$$NEW80)^ICD1831L  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
DRG Grouper 3 ICD1831J  ICD1831K  ICD1831L  

Entry Points

Name Comments DBIA/ICR reference
NEW801(ICDINPUT,ICDARRAY) ;get DRG/MDC for new entries in file #80.1
NEW80(ICDINPUT) ;get DRG/MDC for new entries in file #80
CONV80(ICDINPUT) ;convert CMSv24 DRG to MSv25 DRG for file #80
; input ICDINPUT - string containing Dx, MDC, and DRGs
; <.01_field>_^_<mdc_ien>_^_<drg1_ien>_^_<drg2_ien>_^...
GETV25(ICDINPUT) ;get MSv25 DRGs from crosswalk tables
CONV801(ICDINPUT) ;convert CMSv24 DRG to MSv25 DRG for file #80.1
; input ICDINPUT - string containing Dx, MDC, and DRGs
; <.01_field>_^_<mdc_ien>_^_<drg1_ien>_^_<drg2_ien>_^...

External References

Name Field # of Occurrence
$$GETV25^ICD1831L CONV80+7, CONV801+3
$$NEW80^ICD1831L CONV80+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
I GETV25+1~, GETV25+8*, GETV25+9, GETV25+18*, NEW80+1~, NEW80+11*, NEW80+13*, NEW801+1~, NEW801+9*, NEW801+10
ICD01 GETV25+1~, GETV25+4*, GETV25+6, GETV25+17, NEW80+1~, NEW80+4*, NEW80+5, NEW80+8, NEW80+12, NEW801+1~
, NEW801+4*, NEW801+6, NEW801+10
ICDARRAY NEW801~, NEW801+2!
ICDARRAY( NEW801+14*
ICDD GETV25+1~, NEW80+1~
ICDD( GETV25+15*, GETV25+18, NEW80+11*, NEW80+13
ICDINPUT CONV80~, CONV80+6, CONV80+7, CONV801~, CONV801+3, GETV25~, GETV25+3, GETV25+4, NEW80~, NEW80+3
, NEW80+4, NEW801~, NEW801+3, NEW801+4
ICDMDC GETV25+1~, GETV25+12*, NEW80+1~, NEW80+10*, NEW80+12, NEW801+1~, NEW801+13*, NEW801+14
ICDOD GETV25+1~, GETV25+9*, GETV25+10
ICDOMDC GETV25+1~, GETV25+4*, GETV25+17
ICDROU GETV25+1~, GETV25+9*, GETV25+10, NEW801+1~, NEW801+5*, NEW801+6, NEW801+10
ICDRSLT CONV80+3~, CONV80+6*, GETV25+1~, GETV25+2*, GETV25+3, GETV25+6*, GETV25+17*, GETV25+18*, GETV25+19, NEW80+1~
, NEW80+2*, NEW80+3, NEW80+8*, NEW80+12*, NEW80+13*, NEW80+14
ICDTAG GETV25+1~, GETV25+10*, NEW80+1~, NEW80+5*, NEW801+1~, NEW801+6*, NEW801+10*
ICDTEXT GETV25+1~, GETV25+11*, GETV25+12, NEW80+1~, NEW80+6*, NEW80+8, NEW80+10, NEW801+1~, NEW801+7*, NEW801+8
, NEW801+9, NEW801+11*, NEW801+12, NEW801+13
ICDX CONV80+3~, GETV25+1~, GETV25+4*, GETV25+6, GETV25+8, GETV25+9
ICDXX GETV25+1~, GETV25+12*, GETV25+13, GETV25+15, NEW80+1~, NEW80+10*, NEW80+11, NEW801+1~, NEW801+13*, NEW801+14
J GETV25+1~, GETV25+15*, NEW801+1~, NEW801+14*
U CONV80+6, GETV25+4, GETV25+6, GETV25+8, GETV25+9, GETV25+15, GETV25+17, GETV25+18, NEW80+4, NEW80+8
, NEW80+11, NEW80+12, NEW80+13, NEW801+4, NEW801+14

Marked Items

Name Field # of Occurrence
$T(@ICDTAG GETV25+11, NEW80+6, NEW801+7, NEW801+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Local Variables |  Marked Items |  All