DGPT50DI ;ALB/MTC/ADL - Edit diagnoses.Check ICD DIAGNOSES, current, gender correct ; 16 NOV 92
Source file <DGPT50DI.m>
Package | Total | Call Graph |
---|---|---|
DRG Grouper | 1 | $$ICDDX^ICDCODE |
Registration | 1 | WRTERR^DGPTAE |
Name | Comments | DBIA/ICR reference |
---|---|---|
DIAG(I) | ;
|
|
EN | ;
|
|
ERR | ;
|
|
DIAGE | ;
|
|
GEN(I) | ;
|
|
DIAGV | ; DIAG CODES = "V##.0-2# "
|
|
EXIT | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ICD9("AB" | DIAG+5, DIAGE+4, DIAGE+5, DIAGV+3, DIAGV+4, GEN+1 |
Name | Line Occurrences |
---|---|
DIAG | EN+1 |
DIAGE | DIAG+2 |
DIAGV | DIAG+3 |
ERR | EN+1 |
EXIT | EN+1, EN+2 |
GEN | DIAG+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DGPTDIB | EN+1*, DIAG+1, DIAG+2, DIAG+3, DIAG+4, EXIT+1!, DIAGE+1, DIAGE+3, DIAGV+1, DIAGV+2 |
DGPTDIB1 | DIAG+4*, DIAG+5, EXIT+1!, DIAGE+3*, DIAGE+4, DIAGE+5, DIAGE+10, DIAGV+2*, DIAGV+3, DIAGV+4 , DIAGV+9, GEN+1, GEN+5 |
DGPTDIB2 | EXIT+1!, GEN+1*, GEN+2 |
>> DGPTEDFL | EN+1 |
>> DGPTERC | EN+1*, DIAG+2*, DIAG+3*, DIAG+5*, ERR+1, DIAGE+2*, DIAGE+4*, DIAGE+5*, DIAGE+7*, DIAGE+8* , DIAGE+9*, DIAGV+3*, DIAGV+4*, DIAGV+6*, DIAGV+7*, DIAGV+8*, GEN+1*, GEN+3*, GEN+4* |
>> DGPTGEN | DIAGE+9, DIAGV+8, GEN+4 |
>> DGPTMDTS | DIAGE+6, DIAGE+8, DIAGV+5, DIAGV+7, GEN+2 |
>> DGPTTMP | DIAGE+6*, DIAGE+7, DIAGE+8, DIAGE+9, DIAGV+5*, DIAGV+6, DIAGV+7, DIAGV+8, GEN+2*, GEN+3 , GEN+4 |
DT | DIAGE+6, DIAGV+5, GEN+2 |
I | EN+1*, DIAG~, DIAG+5, EXIT+1!, DIAGE+2, DIAGE+4, DIAGE+5, DIAGE+7, DIAGE+8, DIAGE+9 , DIAGE+10, DIAGV+3, DIAGV+4, DIAGV+6, DIAGV+7, DIAGV+8, DIAGV+9, GEN~, GEN+1, GEN+3 , GEN+5 |
>> NODE | ERR+1 |
>> SEQ | ERR+1 |
U | DIAGE+7, DIAGE+8, DIAGE+9, DIAGV+6, DIAGV+7, DIAGV+8, GEN+3, GEN+4 |
>> X | DIAGE+5*, DIAGE+6, DIAGV+4*, DIAGV+5 |