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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ICD112A

Package: DRG Grouper

Routine: ICD112A


Information

ICD112A ;ALB/MJF - YEARLY DRG UPDATE; October 01, 2020@15:42

Source Information

Source file <ICD112A.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DRG Grouper 1 ICD112P  

Entry Points

Name Comments DBIA/ICR reference
DRG ;post-install driver (#80.2) DRG updates
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
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
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
DRGEFFDT(ICDDRG,ICDFY,ICDTMP) ;-- 80.271D - #71 DRG GROUPER EFFECIVE DATE (removed 'ICDREF' for FY 2017)
EFFDATE(ICDDRG,ICDFY,ICDMDC,ICDSURG,ICDTMP) ;-- 80.266D - #66 EFFECTIVE DATE
DESCA(ICDDRG,ICDFY,ICDTMP) ;-- 80.268D - #68 DESCRIPTION
DESCB(ICDDRG,ICDFY,ICDDESC,ICDTMP) ;-- 80.2681 - #68 DESCRIPTION
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

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, DRGEFFDT+1, WEIGHTS+11, WEIGHTS+15, WEIGHTS+22*, WEIGHTS+24*, WEIGHTS+26
, WEIGHTS+27*
^TMP("DRGFY2023" DRG+15

Label References

Name Line Occurrences
DESCA EDITDRG+39, NEWDRG+64
DESCB EDITDRG+42, NEWDRG+67
DRGEFFDT EDITDRG+30, NEWDRG+58
EDITDRG GETDRG+13
EFFDATE EDITDRG+36, NEWDRG+61
GETDRG DRG+23
NEWDRG GETDRG+14
WEIGHTS EDITDRG+45, NEWDRG+70

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+72*
ICDDESC EDITDRG+9~, EDITDRG+13*, EDITDRG+42, NEWDRG+10~, NEWDRG+19*, NEWDRG+36, NEWDRG+67, DESCB~, DESCB+1, DESCB+5
ICDDRG GETDRG+9~, EDITDRG+9~, EDITDRG+12*, EDITDRG+14, EDITDRG+15, EDITDRG+18, EDITDRG+30, EDITDRG+36, EDITDRG+39, EDITDRG+42
, NEWDRG+10~, NEWDRG+12*, NEWDRG+14, NEWDRG+23, NEWDRG+26, NEWDRG+29, NEWDRG+33, NEWDRG+40, NEWDRG+58, NEWDRG+61
, NEWDRG+64, NEWDRG+67, 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+47*
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*, 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+30, EDITDRG+36, EDITDRG+39, EDITDRG+42, NEWDRG+10~, NEWDRG+11*, NEWDRG+58
, NEWDRG+61, NEWDRG+64, NEWDRG+67, DRGEFFDT~, DRGEFFDT+1, 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+33, EDITDRG+35, EDITDRG+45
, NEWDRG~, NEWDRG+12, NEWDRG+16, NEWDRG+18, NEWDRG+19, NEWDRG+70, 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+33*, EDITDRG+34*, EDITDRG+36, NEWDRG+10~, NEWDRG+16*, NEWDRG+17*, NEWDRG+24, NEWDRG+61, EFFDATE~
, EFFDATE+6
ICDREF EDITDRG+9~, NEWDRG+10~
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+35*, EDITDRG+36, NEWDRG+10~, NEWDRG+18*, NEWDRG+25, NEWDRG+60*, NEWDRG+61, 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+30, EDITDRG+36, EDITDRG+39, EDITDRG+42, EDITDRG+45, NEWDRG~, NEWDRG+29, NEWDRG+40
, NEWDRG+58, NEWDRG+61, NEWDRG+64, NEWDRG+67, NEWDRG+70, 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+47*, NEWDRG~, NEWDRG+72*
ICDWT WEIGHTS+8~, WEIGHTS+18*, WEIGHTS+20
ICDX WEIGHTS+8~, WEIGHTS+26*
U GETDRG+13, EDITDRG+12, EDITDRG+13, EDITDRG+33, EDITDRG+35, 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

Marked Items

Name Field # of Occurrence
$T(@ICDRTN DRG+22
$T(@ICDTAG GETDRG+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All