ICD1882X ;ALB/JDG - YEARLY DRG UPDATE;8/1/2015
Source file <ICD1882X.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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,ICDREF,ICDTMP) | ;-- 80.271D - #71 DRG GROUPER EFFECIVE DATE
|
|
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 |
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("DRGFY2016" | DRG+15 |
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 |
>> | 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+28, 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+56 , 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*, 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+30, EDITDRG+36, EDITDRG+39, EDITDRG+42, NEWDRG+10~, NEWDRG+11*, NEWDRG+58 , NEWDRG+61, NEWDRG+64, NEWDRG+67, 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+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~, EDITDRG+29*, EDITDRG+30, NEWDRG+10~, NEWDRG+57*, NEWDRG+58, 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+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* |
>> ICDYG | EDITDRG+28*, EDITDRG+29, NEWDRG+56*, NEWDRG+57 |
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 |
Name | Field # of Occurrence |
---|---|
$T(@ICDRTN | DRG+22 |
$T(@ICDTAG | GETDRG+11 |