DGPT70DI ;ALB/MTC/ADL - Diagnosis edits for 700's - E codes, V codes, gender and ICD9 Diag. ; 16 NOV 92
Source file <DGPT70DI.m>
| Package | Total | Call Graph | 
|---|---|---|
| DRG Grouper | 1 | $$ICDDX^ICDCODE | 
| Registration | 1 | WRTERR^DGPTAE | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ; | |
| ERR | ; | |
| DIAGE | ; | |
| DIAG | ; | |
| DIAGV | ; | |
| EXIT | ; | |
| ARRAY | ; | |
| GEN | ; | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ICD9("AB" | DIAG+5, DIAGE+3, DIAGE+4, DIAGV+3, DIAGV+4, GEN+1 | 
| Name | Line Occurrences | 
|---|---|
| DIAG | EN+1 | 
| DIAGE | DIAG+2 | 
| DIAGV | DIAG+3 | 
| ERR | EN+1 | 
| EXIT | EN+1 | 
| GEN | DIAG+5 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DGPTDDS | DIAGE+5, DIAGE+7, DIAGE+10, DIAGV+5, DIAGV+7, DIAGV+10, GEN+2, ARRAY+1 | 
| DGPTDIA | EN+1*, DIAG+1, DIAG+2, DIAG+3, DIAG+5, EXIT+1!, DIAGE+1, DIAGE+2, DIAGV+1, DIAGV+2 | 
| DGPTDIA1 | DIAG+5*, EXIT+1!, DIAGE+2*, DIAGE+3, DIAGE+4, DIAGE+9, DIAGV+2*, DIAGV+3, DIAGV+4, DIAGV+9 , GEN+1, GEN+5 | 
| DGPTDIA2 | EXIT+1!, DIAGE+4*, DIAGE+5, DIAGE+10, DIAGV+4*, DIAGV+5, DIAGV+10, GEN+1*, GEN+2, ARRAY+1 | 
| >> DGPTDIAR( | DIAGE+10*, DIAGV+10*, ARRAY+1* | 
| >> DGPTEDFL | EN+1 | 
| >> DGPTERC | EN+1*, DIAG+2*, DIAG+3*, DIAG+4*, DIAG+5*, ERR+1, DIAGE+3*, DIAGE+4*, DIAGE+6*, DIAGE+7* , DIAGE+8*, DIAGV+3*, DIAGV+4*, DIAGV+6*, DIAGV+7*, DIAGV+8*, GEN+1*, GEN+3*, GEN+4* | 
| >> DGPTGEN | DIAGE+8, DIAGV+8, GEN+4 | 
| DGPTL3 | EN+1*, DIAG+4, EXIT+1!, DIAGE+3, DIAGE+4, DIAGE+6, DIAGE+7, DIAGE+8, DIAGE+9, DIAGV+3 , DIAGV+4, DIAGV+6, DIAGV+7, DIAGV+8, DIAGV+9, GEN+1, GEN+3, GEN+5 | 
| DGPTL4 | DIAG+5*, EXIT+1! | 
| >> DGPTTMP | DIAGE+5*, DIAGE+6, DIAGE+7, DIAGE+8, DIAGV+5*, DIAGV+6, DIAGV+7, DIAGV+8, GEN+2*, GEN+3 , GEN+4 | 
| DT | DIAGE+5, DIAGV+5, GEN+2 | 
| >> NODE | ERR+1 | 
| >> SEQ | ERR+1 | 
| U | DIAGE+6, DIAGE+7, DIAGE+8, DIAGE+10, DIAGV+6, DIAGV+7, DIAGV+8, DIAGV+10, GEN+3, GEN+4 , ARRAY+1 |