ICD18105A ;ALB/JDG - YEARLY DRG UPDATE; October 01, 2020@15:42
Source file <ICD18105A.m>
| 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 |
